获得本站免费赞助空间请点这里
返回列表 发帖

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  }

返回列表
【捌玖网络】已经运行: