C语言艺术清屏

zw2004

问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,6 l6 J$ w$ H! r: }  N2 Y9 @, l

7 }6 f/ X% y( E5 A　　并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里
. s3 s) y. ]& s- p, R5 {  R( l) Q& X+ W, k
　　用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观. # F8 ]8 x- e/ A) r( I
　　子函数及演示程序:' U& }; V0 M+ O4 q/ }3 f/ n
! P6 n0 ?7 Z0 w4 }
　　#include<stdio.h>
: u5 X. Z8 Q0 E" g( k. k9 r* f　　#include<dos.h>
2 y0 f& G7 i: h% c2 @　　#include<conio.h>
+ E1 ]" _2 x8 P: s4 X- w( s$ E9 P7 O6 S( b) c0 a5 R' x& z" K- X
　　void goto_xy(int x,int y);
# ~8 W# o6 G* H  T4 T( ]　　void dcls(int x1,int x2,int y1,int y2);( ~: L& ~; p8 U  r' W
　　void bcls(int x1,int x2,int y1,int y2);
; M8 v# Z2 \9 D6 |  j# `) j* j( U　　void kcls(int x1,int x2,int y1,int y2);
# m7 Y; @) @7 o1 Y1 Z5 g: O& h　　void recls(int x1,int x2,int y1,int y2);
; u' p% v$ @4 K4 u- z　　void zcls(int x1,int x2,int y1,int y2);
1 v* y9 ?3 X; D2 A! B- t　　void puta(void);, R4 o, F  `% A) a, k& M9 G' \

9 k3 i7 q$ F, w$ f9 z# S4 ?# J
) s1 @' Q  a3 _　　/*--------------演示程序---------------------*/
8 q) g7 w3 A% X# Q　　main()6 q9 c) k; X" V, @  G; S
　　{
9 J3 _3 b& S& o, G+ F　　puta();; B" C, l$ x1 @+ j) l
　　getch();: A% I/ h" j. U0 c' z& p0 R
　　dcls(0,4,0,79);
3 k: f0 ^5 x" C' l" O4 l0 F　　getch();% k! o; D- M% v7 n
　　puta();
& _1 h2 d7 B" E* ?; g6 c/ K5 w8 y　　getch();
+ M9 A9 u. H( M1 }; k　　bcls(0,25,0,79);
3 r2 W+ W8 d3 ]  `6 ]　　getch();
. i# h" h2 r4 b　　puta();# ^$ c3 g& B. a" w0 W0 L- ]
　　getch();6 z8 k& l% a. r, U" H
　　zcls(0,25,0,79);
* P+ V, E) Y  o, P　　getch();
4 |- g/ {$ q: _8 {7 k: N　　}: L0 _- N1 o% L6 R. L$ \/ f
　　/*********center clear screen（中心清屏）***********/
' t  G; Q5 y1 Q+ w/ b　　void zcls(int x1,int x2,int y1,int y2)9 T% m: U9 p& x/ ^0 Y- h
　　{
: B) ]/ W/ Q9 y7 g/ w: I; @　　int x00,y00,x0,y0,i,d;
6 _( |- @+ d% V) Q# }　　if((y2-y1)>(x2-x1)){9 x, r2 n5 S1 B# {6 \; o; ]! [
　　d=(x2-x1)/2;2 w' z+ V4 o' |. x' U2 G
　　x0=(x1+x2)/2;
1 t$ |1 O! W/ e$ e* H1 W( p3 V' r* m　　y0=y1+d;8 |" Z- M0 }4 j. \
　　y00=y2-d;
0 [/ Q; |3 c) i; H8 y3 G: O　　for(i=0;i<(d+1);i++)& C1 Z8 {1 _. z5 r3 a3 f: [) ?
　　recls((x0-i),(x00+i),(y0-i),(y00+i));1 c! F) q" R. X# d* T
　　delay(10);
1 e# v2 ^" X: e( U+ |9 R　　}
1 O5 [& G# ^  M  l% n　　else{% h2 J9 z; f" t$ Y
　　d=(y2-y1)/2;
* l6 {# M0 f) V+ T+ G　　y0=(y1+y2)/2;8 `( L. M# b4 b$ `
　　x0=x1+d;: |4 ?& K8 @* |2 b
　　x00=x2-d;
+ a1 W! }4 I. X. q1 d% I+ ~　　for(i=0;i<d+1;i++)9 o) }1 H" m6 b" \
　　recls(x0-i,x00+i,y0-i,y00+i);& w$ i' D0 p1 G% J
　　delay(10);% d2 U0 ?8 E  w) w
　　}
7 j9 `; M- u( m0 _$ C8 e  |　　}: r& b# W- @& b7 K8 s* S

0 o! M% @' c' q5 B" c' F　　/************* clear rectangle side（矩形边清屏）***********************/" F+ N4 y) T) r2 u6 g1 x, `

' O5 |* i; i- j: y$ d　　void recls(int x1,int x2,int y1,int y2)
4 P: ]# B4 D. r# j* U+ s# R　　{( J! N# m; _7 M) d1 H
　　int i,j;( Q, j  c4 ^" ^- U& w/ T
　　for(i=y1;i<y2;i++){
4 K/ u; Y4 x% d　　　　goto_xy(x1,i);
0 V" t; A$ R; j: R) \7 N& f　　putchar(' ');
) J8 R% [7 k9 s9 C# e　　goto_xy(x2,i);
6 q! k, h* W! W; Q　　putchar(' ');& g4 J3 |7 R: R0 u  n; u
　　delay(10);
. @: x; ?- B( b  D　　}3 T7 H7 h- k2 r" B
　　for(j=x1;j<x2;j++){
  J; w' W/ q8 v7 r& {  g4 D　　goto_xy(i,y1);) a0 b1 J7 R8 w
　　putchar(' ');
' u- C* W% x* W( k. ~　　goto_xy(j,y2);$ w' k. U; t8 I
　　putchar(' ');2 U" u9 @2 }$ V* ^
　　delay(10);/ U/ s* [& }( y1 D4 G
　　}* o7 G0 H2 i9 Q
　　}
9 f- `. \9 U7 D; `　　/******************open screen clear（开屏式清屏）*********************/0 f) C( H* U: E# N/ A+ T
8 n; u5 {4 `+ p9 Q
　　void kcls(int x1,int x2,int y1,int y2)- G- {  M9 V  Z/ G
　　{2 S7 ?+ V0 @1 @1 \7 j. U* R, y8 E
　　int t,s,i,j;
" T: Q7 T2 {. b% R  l2 a5 ~7 a. r　　t=s=(y1+y2)/2;. ~2 m% }9 j( p: I5 w
　　for(;t<=y2;t++,s--)
1 N( H; m% L( O4 Y1 W. c　　for(j=x1;j<x2;j++){) |; |  U) @$ U3 k8 F
　　goto_xy(j,t);3 H: W- K8 c  O4 V6 P/ b# I$ x
　　putchar(' ');5 Z. m2 Z: }0 ~/ M+ ?1 W7 B
　　goto_xy(j,s);
, p% z* s$ ]' ]5 V0 _5 @　　putchar(' ');( K( L( h4 @% t. S
　　delay(10);  V8 ?. W8 [3 [3 l( d- m1 q
　　}% C3 T( C- O$ D: X
　　}
5 j2 w$ ?9 d; o& q0 e) R4 ?　　/*****************close screen clear*****闭幕式清屏*******************/9 |% [8 x( D2 e" M+ i
& ^4 ?( U( f0 N
　　void bcls(int x1,int x2,int y1,int y2)
7 z1 Y4 ^5 y1 {' o0 Y　　{
) d8 @3 x' a9 o- [- Z- q6 v! R　　int t,s,j;3 t9 v& o/ W; |. t: a5 X
　　t=y1;
: f- g1 |$ g- }- g& `　　s=y2;
9 U* d3 f) J. f# R! @5 l% u　　for(t=y1;t<(y1+y2)/2;t++,s--)  }8 F: G. F7 S( |; X
　　for(j=x1;j<x2;j++){! ?7 Y) E6 B$ H" h! X9 p
　　goto_xy(j,t);+ z8 R$ K7 C$ C
　　putchar(' ');; A- J1 l3 k. H! L* R2 Y+ I
　　goto_xy(j,s);: ?4 j2 {/ L. C7 k& F1 P
　　putchar(' ');, m" E! W8 _) j8 h
　　delay(10);/ t' f$ z3 W5 |. K% e
　　}
+ S. e2 o4 U: N2 R5 M　　}3 C2 r  K  ?5 G; \4 ~# x
　　/******************bottom screen clear（自下清屏）********************/, |/ F0 ^: N5 ?3 c3 Y

/ g8 q" H5 m  K: x* t) q& A7 g　　void dcls(int x1,int x2,int y1,int y2)
9 z# r/ B3 t3 F, U3 j3 P+ N　　{
3 A/ Z' `+ s6 t) w　　int t,s,j,i;1 f+ F7 r: l: w0 P
　　t=s=(y1+y2)/2;
) \4 d! X% C, P# d9 d5 G5 }) v　　for(j=x2;j>x1;j--)
$ f' q+ k% A  q, r1 d" c　　for(i=y1;i<y2;i++){
9 H% t4 b. v% W# J' t9 @1 P" @　　goto_xy(j,i);' m4 R  V$ r9 Q+ ^0 Q* U( k
　　putchar(' ');
1 h1 H* W! G4 c+ K% z% J$ d6 i* i: G8 N, P　　delay(10);
- O& u7 p! ^8 N　　}9 r# J/ ^% S* V# F: D4 g
　　}* t7 [$ y8 a) U
　　/******************设置光标子函数******************/
# e' \9 g; c# m+ t
: ^% W. ^& ]) ?　　void goto_xy(int x,int y)
. p2 T0 @5 Q2 E* z　　{, @: i& j9 F7 t6 S1 R( H/ g8 K
　　union REGS r;; s; X' w* u0 q  `9 h# O. v
　　r.h.ah=2;% N0 m$ B& f. K# [2 P& f) X8 l5 o
　　r.h.dl=y;
" g" O( N8 o4 \　　r.h.dh=x;0 ^( V* u+ G8 L+ c$ @& t, d3 ~
　　r.h.bh=0;
% m- G4 z! L6 ^# @　　int86(0x10,&r,&r);/ I* H* p6 I! Y+ f" r9 A
　　}
; X7 C# S" B, X9 g2 T$ w' @! j
. A4 Z* c6 V2 _; f# F　　/**********************在屏幕上打出一连串的a字母用于演示程序******************/
: F9 Z3 k9 s' s0 `3 g( a# ]9 K6 J2 b' \+ {
　　void puta(void)) x! [* ^: c8 j+ d& m/ c! @4 i
　　{
" b0 }  A! P9 z4 h$ e　　int i,j;
) Y3 n8 p  o) c! X0 k0 i! f( d　　for(i=0;i<24;i++){
* ~8 i8 E3 e' d　　for(j=0;j<79;j++){
) o) K5 U3 @9 H　　goto_xy(i,j);, N/ L4 y6 S( t
　　printf("a");1 a( `" ~" K$ Z5 _; I% q; ~
　　}3 P& w; p4 [0 T- m% w9 L
　　}
2 A( K3 h: z% E0 }: ^　　}