  
- UID
- 133
- 帖子
- 51
- 精华
- 1
- 积分
- 186
- 金币
- 55
- 威望
- 2
- 贡献
- 0

|
C语言艺术清屏
问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,
r& d8 u6 m: g
% Q1 a* `: o$ P4 p; v8 {( p 并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里
( E- q0 m, ^# @1 `3 Y5 n) s
( n3 ^1 u: M! P2 G1 _ 用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观.
! s1 m2 `; |$ N5 [( H/ F$ {; P+ C 子函数及演示程序:
2 v; I$ i# F$ z R. C
' L+ `8 q% o r3 Y: c- d* | #include<stdio.h>
6 ] C! ?/ M5 @! d7 Q8 c$ c7 q1 @% b #include<dos.h>
" s( ?9 |' F% s3 B* ~8 I+ d7 \ #include<conio.h>
3 K8 m/ N; O, G" n0 I7 O1 L# O, _+ C, o. j7 g; \ _9 t% R0 e# B, X
void goto_xy(int x,int y); }/ R0 ^9 [1 V' A8 t3 |+ O1 {
void dcls(int x1,int x2,int y1,int y2);
- H* J3 M# u3 V R; o; B void bcls(int x1,int x2,int y1,int y2);: j1 y9 E8 [; k" p
void kcls(int x1,int x2,int y1,int y2);0 K6 ~' P, j& O7 R" R1 @: ^. P' V& p
void recls(int x1,int x2,int y1,int y2);3 o. L$ d& f; u+ w
void zcls(int x1,int x2,int y1,int y2);
$ D( P9 K5 F$ p' i' l% ] void puta(void);+ Y- r) H( o4 ~8 N/ `
0 i2 u- R* U5 T+ U7 V1 N+ Q+ F
( R8 h: P5 e# E- f9 H! c; U+ { /*--------------演示程序---------------------*/1 S5 h D' I O' z. t F( c
main()( S1 w& o8 K& u% H" j
{7 Z* i2 @ M+ y' e! I
puta();( c, z# `9 o) _4 d
getch();0 T& i& X. A. G
dcls(0,4,0,79);
5 J( @& n% W7 [- p* Z" J getch();* x1 T, ] N$ c. c! C6 }; i( P
puta();# D2 p% P0 _- Y7 m9 q. R
getch();2 Q% ^, b8 k4 c5 [. s) f7 t V
bcls(0,25,0,79);
* c7 t1 ^. M( m. Z9 o getch();
" O X+ Z9 V K$ n puta();
, d E* F$ k, N$ X: b c+ E. w getch();
% M; p% U7 [( r, V0 @ |1 z zcls(0,25,0,79);
! [3 r" Q; T6 N7 Y! a o getch();
# M' n% U$ W. q9 ]; ^4 R }6 M; }, @8 v' z7 f, C
/*********center clear screen(中心清屏)***********/4 e( Y+ X% a, u" _3 _. L
void zcls(int x1,int x2,int y1,int y2)
8 \# H0 V0 u) s" }' ?# t9 T* P {( p4 ~3 f/ [3 b# v2 X* Z
int x00,y00,x0,y0,i,d;
* W ~7 N2 T i. v3 o if((y2-y1)>(x2-x1)){ T; J7 I+ a7 f) \( ~
d=(x2-x1)/2;* d5 _/ u7 j% ]5 w% \8 L
x0=(x1+x2)/2;0 ?! I7 f! W3 v6 V9 |9 `
y0=y1+d;
/ J& T- n' T) _: `5 X4 h y00=y2-d;$ ]- G6 c2 A+ J; @! A. w
for(i=0;i<(d+1);i++)
" T, F1 i, ]$ M4 M recls((x0-i),(x00+i),(y0-i),(y00+i));0 d5 I( s d' L7 ~$ m7 Q
delay(10);( O* ] W7 o2 ?- M( T2 S9 h
}8 \# ]) Y2 y* w& L4 M8 F E
else{
9 v: j6 T1 A8 t8 O; | d=(y2-y1)/2;* P7 k6 R5 e* Y7 B5 o
y0=(y1+y2)/2;5 c1 t% s9 U9 b' S \
x0=x1+d;, t& k+ I6 S9 B- b2 U% \
x00=x2-d;
: j i% [- {& k) ]. `& B" l for(i=0;i<d+1;i++)
% I. R# j# a# S# v recls(x0-i,x00+i,y0-i,y00+i);% \7 V5 V7 ]% u: |4 ~
delay(10);
9 ` b4 b8 r- ~' N# R! l. M, n- j+ A }/ Z& i/ ?+ I4 U( N) Q9 P r
}% i" c: K9 G- X6 e
1 h: _& p& f; _ w0 F0 h# a
/************* clear rectangle side(矩形边清屏)***********************/
9 \$ ?9 d. }9 U% J+ R0 U( p f' T7 m5 C- W7 q4 ]
void recls(int x1,int x2,int y1,int y2)) l+ Z3 @6 `( l$ B
{; X9 L- b# t6 f5 i
int i,j;
. g/ ]$ i8 ^6 A# o% d6 s for(i=y1;i<y2;i++){
7 [/ w; X( i# p2 \ goto_xy(x1,i);
; F- d7 ?% b* u; U3 o3 n5 o putchar(' ');$ i+ v, k) x4 q7 U# Z8 L5 s* s
goto_xy(x2,i);2 f# k: q! e$ F
putchar(' ');
' g! }/ f3 k2 w/ k delay(10);/ ?* j3 ~3 a( ]: s/ F# N
}) ~% r9 x8 o5 M$ l& J
for(j=x1;j<x2;j++){1 L0 \+ v2 f) z3 X4 F# N7 i3 z
goto_xy(i,y1);
1 y, Q5 C T; F0 d% u# T putchar(' ');0 A" Q, x2 C, Z0 F: _# u2 ~6 U
goto_xy(j,y2);
1 m- y E/ ~9 h! T( d7 B5 @* M2 ^, L putchar(' ');
- A- F, J* C8 m9 y) l2 @3 d% r3 ^ delay(10);
6 a! Q# K/ I9 J }
4 @% u6 q5 c9 O } D7 K% } ^( f1 `5 U. v
/******************open screen clear(开屏式清屏)*********************/$ {- q/ I9 k# m' H2 c
- b/ o$ R4 e) p# }$ Q7 c$ ~ void kcls(int x1,int x2,int y1,int y2)
d& ?0 Z/ V8 \ n' F$ C" h0 ~ {* A' C- ]' I8 B Y* H( ~
int t,s,i,j;
& ?9 w( I; K E a8 z+ B0 g6 g t=s=(y1+y2)/2;# [8 h. V' e0 f4 X
for(;t<=y2;t++,s--), e. Y8 j, k% U3 ?9 x
for(j=x1;j<x2;j++){7 r, S3 I* C& ~( ^2 ^: |
goto_xy(j,t);
9 N; @% O0 R1 j4 z; z5 W4 J$ r putchar(' ');8 q1 \- w; b2 u# |+ f
goto_xy(j,s);2 e2 n' E/ c- R% ]
putchar(' ');
W/ |! r* v* [) Z delay(10);
( ]+ n- k! s8 C& a5 H3 F+ D, r4 Y }
8 b/ T7 v/ |. s }* Y/ b% C! E0 t; m' k
/*****************close screen clear*****闭幕式清屏*******************/
) z. A2 j& p8 |/ I! T
7 V8 o8 y7 b, k. V void bcls(int x1,int x2,int y1,int y2)
3 \* Q* Z6 r' V6 v+ }* W2 | k2 m {/ j* p" y/ ]( S8 a
int t,s,j;
' V* Q$ i- e5 E0 _: Z# c$ U t=y1;
( ]8 r, S8 x) R+ D% f: d; G s=y2;
x, g' t5 c9 V2 f for(t=y1;t<(y1+y2)/2;t++,s--)
8 U7 [3 b4 d# p5 |' Y& s! |/ T+ n' F for(j=x1;j<x2;j++){
0 a* L2 L% q, R% Z( M goto_xy(j,t);
" d/ g* `) z+ ?$ ]. a putchar(' ');7 N' y" F7 x f6 e1 A, d6 M
goto_xy(j,s);
8 A, t; I; p8 k" c; P' T1 | putchar(' ');
2 M0 a3 y* `" E0 H delay(10);0 J( V5 K" c f/ `2 r% v) A$ t
} r9 q! S2 S: c* v1 n
}6 g2 Q! Y) M) i' f$ x$ M
/******************bottom screen clear(自下清屏)********************/0 A. X) j; W8 B" K9 M
7 ?& V1 ^+ g* O; O
void dcls(int x1,int x2,int y1,int y2)# i& o5 \& A: |" |+ d
{. F; \" y* P0 @9 T- h
int t,s,j,i;1 X$ V5 @! U) o; ?$ l9 U- D6 e
t=s=(y1+y2)/2;
( C: Z* R7 m# d1 J for(j=x2;j>x1;j--)! e* P( a6 A5 f
for(i=y1;i<y2;i++){$ C$ N9 S. ?! f, E" U
goto_xy(j,i);
* O! R% u$ ~0 U, Z- i) ^ putchar(' ');7 D, Y) |3 P/ s% O- s. J
delay(10);& n! G$ K0 b* C: h% q
}
2 f" \% Q8 G, K9 w# T }. L& g4 R, d7 l- u
/******************设置光标子函数******************/9 g- ~! O* W+ W! k
9 M/ f$ h' n( S0 k3 }- u: L void goto_xy(int x,int y)7 O# _. x! i: f/ S- c/ j7 \
{. k Q( v9 P2 B
union REGS r;8 |2 ]5 X4 @+ L6 e6 ~
r.h.ah=2;4 A8 w' N6 \! P# t
r.h.dl=y;
# o$ O# T" h' Q9 P r.h.dh=x;
( b: l: x$ g2 O) i r.h.bh=0; V- _% m1 @! Y3 _! @! Z# W" [
int86(0x10,&r,&r);
: D0 N) t( Q9 B5 U& s4 B' v }
\& \& R- M5 \$ ~7 k4 z" d# [$ \1 @- M$ N- @
/**********************在屏幕上打出一连串的a字母用于演示程序******************/+ w9 r, L0 t; ]6 }( T. I
# j( ^% N: x( v% `2 A& {) Z% w void puta(void)
, R! _& b" p$ i& G* Z1 W3 n {
& u) }9 Q: m! O( K+ a2 @ int i,j;
3 v1 _, ]- h, H- ?# S for(i=0;i<24;i++){
( X1 D: s8 @6 S2 o ~. s for(j=0;j<79;j++){3 b: u0 F, b7 g+ \+ W) o
goto_xy(i,j);# |2 ~$ y1 p" h) Y! i
printf("a");
4 @" h% d% @) ^6 \% }' ] }8 ~. G8 e7 `8 _, b
}
8 \( N7 }1 y r7 r* a8 m, S } |
|