C语言艺术清屏
问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,8Eh!JJp0~3ck4Tk
并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里
用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观. H+m._{|so{
子函数及演示程序:
"Ga'vH7w
#include<stdio.h>
#include<dos.h>
#include<conio.h>5iW+Y@9teS
void goto_xy(int x,int y);@-~O)Vs~bUW!r
void dcls(int x1,int x2,int y1,int y2);
void bcls(int x1,int x2,int y1,int y2);
void kcls(int x1,int x2,int y1,int y2);V f6T Z4c(Y&H`3g6d
void recls(int x1,int x2,int y1,int y2);
void zcls(int x1,int x2,int y1,int y2);
void puta(void);}ZI`}Kr
/*--------------演示程序---------------------*/hD#I5u tn[L
main()
{|-il Z_"b
puta();"w9KH(]y'mC%K
getch();e ?+]"mC/F A
dcls(0,4,0,79);r2W%f4s,G1lr
getch();
puta();
getch();Db ~v4d
bcls(0,25,0,79);gb%rK%s![!E
getch();%XlOBL%a$s
puta();
getch();Hj:n Bi \nq'EeI
zcls(0,25,0,79);!r.nP;F.Hc%m
getch();8Dz8D"@.y L
}'KM4];[:\lhD
/*********center clear screen(中心清屏)***********/
void zcls(int x1,int x2,int y1,int y2)[#C~V!s#w1UAt
{
int x00,y00,x0,y0,i,d;
if((y2-y1)>(x2-x1)){2X J'j,~ mF`Am
d=(x2-x1)/2;
x0=(x1+x2)/2;#Q1eov_$Rad2tb"\
y0=y1+d;&[nzK_#X
y00=y2-d;
for(i=0;i<(d+1);i++)tAC:Tw+XOu
recls((x0-i),(x00+i),(y0-i),(y00+i));
delay(10);qML#RY7inx5x
}l%X:Y0T aA"[X~;z
else{[` M7Y.X
d=(y2-y1)/2;
y0=(y1+y2)/2;
x0=x1+d;
x00=x2-d;
for(i=0;i<d+1;i++)
recls(x0-i,x00+i,y0-i,y00+i);
delay(10);
}[#@.H:Q'C(@X`p
}
/************* clear rectangle side(矩形边清屏)***********************/olS:ktm"vJCqB)c
void recls(int x1,int x2,int y1,int y2)
{
int i,j;Q/ds`o#X;r;O Bb6p
for(i=y1;i<y2;i++){!r1_1V.Z0_
goto_xy(x1,i);;@ }FU2fG doH
putchar(' ');
goto_xy(x2,i);
putchar(' ');
delay(10);2kw9^)A+K'zhBa1y
}4z6@q oBc4^e
for(j=x1;j<x2;j++){
goto_xy(i,y1);
putchar(' ');,G"_J Z2]3u"`
goto_xy(j,y2);Eqf6_4m x??TX
putchar(' ');
delay(10);
}?k8@,pB!Gc
}
/******************open screen clear(开屏式清屏)*********************/
void kcls(int x1,int x2,int y1,int y2)
{
int t,s,i,j;
t=s=(y1+y2)/2;
for(;t<=y2;t++,s--)
for(j=x1;j<x2;j++){&r+G$BL-j$Zl7l'Y
goto_xy(j,t);
putchar(' ');&@L]q3B?wily;v
goto_xy(j,s);
putchar(' ');XMEFd N[ K
delay(10);
}
}3hv#df/Dro6Q q^
/*****************close screen clear*****闭幕式清屏*******************/
|bB v6_0Z
void bcls(int x1,int x2,int y1,int y2)
{
int t,s,j;`Nd2S*J5S*S.`
t=y1;i N0x#EjI}8l
s=y2;
for(t=y1;t<(y1+y2)/2;t++,s--)(Car,n}ws
for(j=x1;j<x2;j++){"C!w)D#[j;YVg3V`
goto_xy(j,t);
putchar(' ');
goto_xy(j,s);L9a:jd-zN
putchar(' ');!A-zh$[/H0v
delay(10);
}
}flU(ZX!H.E5j
/******************bottom screen clear(自下清屏)********************/#u4\ L*Ov
void dcls(int x1,int x2,int y1,int y2)*v~{U;`;S(r
{
int t,s,j,i;f.C9`-M~,u dq&Bw
t=s=(y1+y2)/2;
for(j=x2;j>x1;j--)n2cVN8N,O
for(i=y1;i<y2;i++){j?C_&GG!D k
goto_xy(j,i);
putchar(' ');
delay(10);
}n%Z2\1L0iOs
}Md7o] F _
/******************设置光标子函数******************/
&Gh c-j)wU+JA1I#p t
void goto_xy(int x,int y)b4a*R ^8z
{
union REGS r;2m#P"e'j V
r.h.ah=2;5U_"o3Mn9b
r.h.dl=y;x$ng`rB*b
r.h.dh=x;*rVHLDC
r.h.bh=0;uj8V'r.Z1?Wf9?
int86(0x10,&r,&r);+D\#z@s9^
}
w};iv&[l7m
/**********************在屏幕上打出一连串的a字母用于演示程序******************/
uW4km)H5Hu%P/x
void puta(void)
{ QR1M,J&cG
int i,j;
for(i=0;i<24;i++){R \{{.uB"d {%E'v[(N
for(j=0;j<79;j++){4ar1W)s A zi f%Lj
goto_xy(i,j);
printf("a");:r k,Gt.V.h,E9_
}5dN{8_j$OS:j xN @ _$o
}
}
页:
[1]