C语言艺术清屏

问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,

　　并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里

　　用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观.
　　子函数及演示程序:

　　#include<stdio.h>
　　#include<dos.h>; Q- ?, n6 M' m* j6 U# P4 s7 d2 G  t
　　#include<conio.h>

　　void goto_xy(int x,int y);5 Q/ N% p; i; o  R
　　void dcls(int x1,int x2,int y1,int y2);5 w- }& \& t  C% N; f7 s
　　void bcls(int x1,int x2,int y1,int y2);
　　void kcls(int x1,int x2,int y1,int y2);
　　void recls(int x1,int x2,int y1,int y2);* T. C$ Y+ B7 o% x
　　void zcls(int x1,int x2,int y1,int y2);
　　void puta(void);2 r) \# j) A+ \' L1 f% e# e" Z

( k7 k  ~" O* {+ [
　　/*--------------演示程序---------------------*/
　　main()
　　{  r# R4 k) {/ ^3 G8 l; ~, m
　　puta();' s: q& I; ?0 E% [/ Y
　　getch();* Z% U0 W8 D& n% A
　　dcls(0,4,0,79);9 k* h  ]% ^3 u; _
　　getch();! w( Y/ d3 |6 c$ T3 V% D
　　puta();( ^* S7 t1 \2 u; C0 H7 M
　　getch();& @" E4 x3 i; [6 w# e( a
　　bcls(0,25,0,79);4 N$ W" a2 R: R- D4 S, j0 O4 `7 j
　　getch();
　　puta();
　　getch();, H, m, R) Z: N
　　zcls(0,25,0,79);# |, v7 }; h/ r: I; o7 o* [
　　getch();
　　}
　　/*********center clear screen（中心清屏）***********/
　　void zcls(int x1,int x2,int y1,int y2); O$ y# {" [" G+ _" l
　　{
　　int x00,y00,x0,y0,i,d;
　　if((y2-y1)>(x2-x1)){
　　d=(x2-x1)/2;2 F5 o% |( |! g3 Z
　　x0=(x1+x2)/2;
　　y0=y1+d;
　　y00=y2-d;
　　for(i=0;i<(d+1);i++)4 e& Z* d* y" G3 c7 @+ e
　　recls((x0-i),(x00+i),(y0-i),(y00+i));
　　delay(10);1 H9 f- y! k" _6 d9 D, o
　　}
　　else{
　　d=(y2-y1)/2;: d7 n2 q- F% i3 A) D
　　y0=(y1+y2)/2;
　　x0=x1+d;
　　x00=x2-d;6 C. N# u. ?3 D% ~1 ]
　　for(i=0;i<d+1;i++)
　　recls(x0-i,x00+i,y0-i,y00+i);
　　delay(10);1 ]8 t9 K- e0 f/ m
　　}
　　}
6 y* F  f0 T$ A# |! G
　　/************* clear rectangle side（矩形边清屏）***********************/
; k# D& z) E' s# y, r, S
　　void recls(int x1,int x2,int y1,int y2)
　　{
　　int i,j;6 e4 [5 [: Y* d6 A
　　for(i=y1;i<y2;i++){
　　　　goto_xy(x1,i);# `) R) K0 E2 G, T  E
　　putchar(' ');
　　goto_xy(x2,i);
　　putchar(' ');7 }$ D: i- W" b
　　delay(10);
　　}( Z1 X( o) ?% M* z% @' e
　　for(j=x1;j<x2;j++){
　　goto_xy(i,y1);
　　putchar(' ');
　　goto_xy(j,y2);# |. _2 ~; @$ `4 I; v9 |, P4 t5 c
　　putchar(' ');
　　delay(10);$ W. R! w. y9 Q: z
　　}6 @: y- U$ p( h2 k' [7 z8 P
　　}  T6 |: Y2 t6 w' ~8 f
　　/******************open screen clear（开屏式清屏）*********************/2 W$ }' v( G, D" ]5 D

　　void kcls(int x1,int x2,int y1,int y2)
　　{+ V( c5 Z) i; _% }. i% ?5 Z7 T
　　int t,s,i,j;
　　t=s=(y1+y2)/2;( }5 g2 y' @/ a- R' }
　　for(;t<=y2;t++,s--)
　　for(j=x1;j<x2;j++){9 j. n% r3 i+ X& |' _: P+ `/ y! w9 ~
　　goto_xy(j,t);
　　putchar(' ');: e( l+ _0 e2 ~* o8 c9 O1 ?
　　goto_xy(j,s);9 [9 b2 I" H( O( T
　　putchar(' ');
　　delay(10);
　　}6 X6 V% N6 i8 x0 k! p: k" |
　　}
　　/*****************close screen clear*****闭幕式清屏*******************/

　　void bcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j;
　　t=y1;
　　s=y2;
　　for(t=y1;t<(y1+y2)/2;t++,s--)
　　for(j=x1;j<x2;j++){
　　goto_xy(j,t);
　　putchar(' ');5 Y' e5 c; F9 k" z
　　goto_xy(j,s);
　　putchar(' ');# T( C# `4 @! w$ E( j- _
　　delay(10);
　　}
　　}
　　/******************bottom screen clear（自下清屏）********************/# z) Z% N" c+ H& X# K

　　void dcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j,i;9 I  A/ r7 U' |" D8 z; [
　　t=s=(y1+y2)/2;9 s. d6 J) r1 O3 D: s' c! H
　　for(j=x2;j>x1;j--)" J% O) L- i% o$ P, ]
　　for(i=y1;i<y2;i++){5 B/ f$ ^( X# G# H' G: X
　　goto_xy(j,i);5 F: V2 m0 v. N
　　putchar(' ');
　　delay(10);. z( y' v$ {# |, E6 M( p
　　}% [% E9 G) H- b! ]+ I
　　}
　　/******************设置光标子函数******************/
9 @) A) Y% X( O( I& Z5 f5 `
　　void goto_xy(int x,int y)$ H* n  ~8 K) V: W* o" @
　　{
　　union REGS r;, T3 K4 G5 p6 k/ Q0 ?) `
　　r.h.ah=2;6 k6 a+ f+ S% {( K
　　r.h.dl=y;' k8 D* W( d( j) C
　　r.h.dh=x;' M( P7 T! Q3 {9 ]5 P: f7 u# w+ {
　　r.h.bh=0;
　　int86(0x10,&r,&r);
　　}! C' H: p, N; F* p, G7 Y

　　/**********************在屏幕上打出一连串的a字母用于演示程序******************/

　　void puta(void)
　　{
　　int i,j;
　　for(i=0;i<24;i++){+ w# w1 Q+ p6 N
　　for(j=0;j<79;j++){
　　goto_xy(i,j);
　　printf("a");
　　}7 k6 ]4 Z4 K4 a" B/ b0 \) Q4 _
　　}
　　}

返回列表

C语言艺术清屏

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]