C语言艺术清屏

问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,
; H8 l8 C6 g$ D% ?
　　并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里4 s# g0 l! f) ^" S) R7 n

　　用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观.
　　子函数及演示程序:
  B( r; ]. I( u
　　#include<stdio.h>
　　#include<dos.h>
　　#include<conio.h>. I3 q& t7 Q6 h, C! G& {0 f' x
/ [% ~& U- c- J$ R  l
　　void goto_xy(int x,int y);! R: Y/ r9 B* Q  l: A# G
　　void dcls(int x1,int x2,int y1,int y2);
　　void bcls(int x1,int x2,int y1,int y2);3 ^$ X/ h9 n5 l$ y
　　void kcls(int x1,int x2,int y1,int y2);1 _' {! c. o  ^" ~$ k
　　void recls(int x1,int x2,int y1,int y2);
　　void zcls(int x1,int x2,int y1,int y2);- S9 k% z- c) y8 ~2 J- ?
　　void puta(void);- J/ ~* y& B* b" l! y+ Z' T9 R& H% l' v
; \4 H* e& j& z

　　/*--------------演示程序---------------------*/
　　main()8 K; ?  ?1 ]6 V$ r% x, k5 w
　　{
　　puta();, @+ I  M- g3 U% L: h6 U; D2 M
　　getch();0 m0 N8 n8 ]* ^6 a
　　dcls(0,4,0,79);
　　getch();9 l  i. L& i: H  B6 S; P: w& _
　　puta();8 s. F% i$ `' h: H# Q. C
　　getch();
　　bcls(0,25,0,79);& g3 B3 ]( d, c
　　getch();+ t" d1 h$ \/ u8 n! x: w  Z) t
　　puta();' L7 T1 ~# f' l/ i& q8 u$ \
　　getch();2 j" y% `# n7 @2 W
　　zcls(0,25,0,79);
　　getch();
　　}/ d% y2 D; V2 U, _
　　/*********center clear screen（中心清屏）***********/( n/ J7 e/ s% a; ]% u! V/ U1 \
　　void zcls(int x1,int x2,int y1,int y2)5 @+ T3 }: Z  X. y0 w# L
　　{
　　int x00,y00,x0,y0,i,d;2 h  H6 A2 e9 Z( G
　　if((y2-y1)>(x2-x1)){
　　d=(x2-x1)/2;
　　x0=(x1+x2)/2;) L2 n! k8 v% N2 {8 `
　　y0=y1+d;
　　y00=y2-d;
　　for(i=0;i<(d+1);i++)
　　recls((x0-i),(x00+i),(y0-i),(y00+i));% v) R0 `5 W; y. l% l. }6 w" z2 {' M
　　delay(10);
　　}
　　else{. I! [) ^) r% L' h, _+ w2 y; A
　　d=(y2-y1)/2;, c5 N6 L6 W7 i  |
　　y0=(y1+y2)/2;
　　x0=x1+d;
　　x00=x2-d;
　　for(i=0;i<d+1;i++)/ R/ U2 c+ d: P2 C* o, q
　　recls(x0-i,x00+i,y0-i,y00+i);
　　delay(10);5 u4 y5 Q- \' K% p/ z
　　}
　　}

　　/************* clear rectangle side（矩形边清屏）***********************/

　　void recls(int x1,int x2,int y1,int y2)1 |. T4 O9 `' r5 c
　　{4 n) y$ I0 Q" b4 `8 p! Y
　　int i,j;
　　for(i=y1;i<y2;i++){; a( S" g" R  G5 g
　　　　goto_xy(x1,i);
　　putchar(' ');
　　goto_xy(x2,i);
　　putchar(' ');
　　delay(10);' t1 |  ], c6 C- X& r7 `3 z" R
　　}) `# f! d$ @0 x0 j
　　for(j=x1;j<x2;j++){
　　goto_xy(i,y1);6 ?1 @7 D# G) H3 l7 b. O& P
　　putchar(' ');
　　goto_xy(j,y2);
　　putchar(' ');
　　delay(10);
　　}
　　}
　　/******************open screen clear（开屏式清屏）*********************/! ^+ B# g4 r; X2 D5 e1 r

　　void kcls(int x1,int x2,int y1,int y2)1 I( y9 E, n+ O& \- e; S0 _
　　{
　　int t,s,i,j;! y' U/ u1 G, u* J* `
　　t=s=(y1+y2)/2;
　　for(;t<=y2;t++,s--)5 p8 S8 z5 I1 L5 Q( l/ ]- a) B
　　for(j=x1;j<x2;j++){
　　goto_xy(j,t);
　　putchar(' ');
　　goto_xy(j,s);
　　putchar(' ');8 |: a8 {3 o: d- O
　　delay(10);
　　}
　　}1 |: H) I+ j8 T3 G
　　/*****************close screen clear*****闭幕式清屏*******************/
; p- W  J9 P' }6 q  K$ Z
　　void bcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j;
　　t=y1;
　　s=y2;% `5 {% A) ^; H4 m$ x+ b& _
　　for(t=y1;t<(y1+y2)/2;t++,s--)
　　for(j=x1;j<x2;j++){- p) {3 f8 E: Q
　　goto_xy(j,t);
　　putchar(' ');" w, d' z, Q; r4 {! C+ b; f2 w: ~3 e
　　goto_xy(j,s);* @( y% e& ?% X* J3 }7 `4 i4 e
　　putchar(' ');
　　delay(10);
　　}$ `+ i1 R& l  P& x, {
　　}
　　/******************bottom screen clear（自下清屏）********************/7 ]- l( U% z: F; Y0 g1 M
3 d4 R' W- ]4 e! E* Z( u
　　void dcls(int x1,int x2,int y1,int y2); p2 R  i+ n7 t/ b- w. i2 d
　　{0 u- p. x- H, Z$ q7 o
　　int t,s,j,i;: o; X( Q! A* }& {
　　t=s=(y1+y2)/2;
　　for(j=x2;j>x1;j--)
　　for(i=y1;i<y2;i++){
　　goto_xy(j,i);  a: R- ~5 \/ ?; m% V- T1 b' l! [
　　putchar(' ');
　　delay(10);
　　}$ ]6 Q" f- L3 ^
　　}
　　/******************设置光标子函数******************/
% m- B4 r3 u- D, o( H; G  f
　　void goto_xy(int x,int y)
　　{% O  z# o- C% ?+ C! s
　　union REGS r;
　　r.h.ah=2;
　　r.h.dl=y;7 n; ~: D4 \* o; W" D! D7 g9 F, Z
　　r.h.dh=x;$ ?  ^/ w8 V# b5 Z# ?7 x' M
　　r.h.bh=0;
　　int86(0x10,&r,&r);
　　}3 |; M$ g$ {2 I- v7 S+ y) J+ [
# X' F5 J. z8 z8 j+ t+ Y
　　/**********************在屏幕上打出一连串的a字母用于演示程序******************/
6 ?4 T" T2 y* w$ u
　　void puta(void)  n/ \9 X* e/ T; j6 Y! @4 f
　　{
　　int i,j;
　　for(i=0;i<24;i++){0 J; D; k$ Y% ]6 V
　　for(j=0;j<79;j++){# V8 a2 H, H, H, W7 T
　　goto_xy(i,j);, I! Q' g$ \5 P! [, s
　　printf("a");
　　}. r5 ]' B8 y" B9 c' E1 A
　　}. g& t7 `# g+ O- V3 ]2 `" o
　　}

返回列表

C语言艺术清屏

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

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