C语言艺术清屏(页 1) - 网页编程 - 捌玖网络工作室 |网页制作|建站交流|代码资料|建站教程|主机域名|asp、php、jsp代码|网站素材

zw2004 发表于 2008-1-21 17:14

C语言艺术清屏

问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,
B+k)F&XS
　　并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里

　　用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观.
　　子函数及演示程序:

　　#include<stdio.h>
　　#include<dos.h>
　　#include<conio.h>

　　void goto_xy(int x,int y);M8D|~)@ b}L
　　void dcls(int x1,int x2,int y1,int y2);
　　void bcls(int x1,int x2,int y1,int y2);2D)f/g({*Vl{$?PM
　　void kcls(int x1,int x2,int y1,int y2);
　　void recls(int x1,int x2,int y1,int y2);Q2cg2tpR/jh@
　　void zcls(int x1,int x2,int y1,int y2);
　　void puta(void);
d5`$WCvJ
bFzY0w
　　/*--------------演示程序---------------------*/
　　main()"v"v:XAL\g)b D
　　{
　　puta();%z'a7jS0Q"d!Az7`
　　getch();d*_M+\C5C0I1Nx
　　dcls(0,4,0,79);7wwWK~Z!~
　　getch();1DejM!|#Q*Kx
　　puta();M7Uz.Pc
　　getch();/A+HE+`9Q#CHqV&_"b
　　bcls(0,25,0,79);
　　getch();
　　puta();P8J5t0SSS+}
　　getch();-|,PoAO)wDqi
　　zcls(0,25,0,79);(Y~ u^} ^D
　　getch();"@,[6EiSm
　　}v6`W*ftgPb
　　/*********center clear screen（中心清屏）***********/1]K(^-L|tZ@
　　void zcls(int x1,int x2,int y1,int y2)
　　{_-NK[4I#}|GE'E;c
　　int x00,y00,x0,y0,i,d;px3_1n nBDB
　　if((y2-y1)>(x2-x1)){
　　d=(x2-x1)/2;
　　x0=(x1+x2)/2;9}{$_2y#w4x#XKe2}
　　y0=y1+d;jw`;{2K*Q
　　y00=y2-d;gi0NS:YQs+WV
　　for(i=0;i<(d+1);i++)
　　recls((x0-i),(x00+i),(y0-i),(y00+i));%F`6B+ip9~!T*d"bE7R
　　delay(10);y`0JmU*Je4~(U
　　} Eh+r$A*th(fE
　　else{&U*|9] q?k:mV3^;{3G
　　d=(y2-y1)/2;-I` ~/{K,LRr
　　y0=(y1+y2)/2;
　　x0=x1+d;w]4J~(}9co]
　　x00=x2-d;
　　for(i=0;i<d+1;i++)
　　recls(x0-i,x00+i,y0-i,y00+i);}!r8L9`q.Gh
　　delay(10);.K.v+c x2VCx'@%LuI
　　}
　　}

　　/************* clear rectangle side（矩形边清屏）***********************/ l4g7NJi,W-\ kt

　　void recls(int x1,int x2,int y1,int y2)
　　{
　　int i,j;Al W5A"w
　　for(i=y1;i<y2;i++){
　　　　goto_xy(x1,i);n:A(B6b9@kc
　　putchar(' ');8t/W?J3qQ,O&h
　　goto_xy(x2,i);?%A:c"q-y+[kn
　　putchar(' ');7aX5c8r6mq~ L
　　delay(10);
　　}pH ovDE+D
　　for(j=x1;j<x2;j++){
　　goto_xy(i,y1);
　　putchar(' ');
　　goto_xy(j,y2);
　　putchar(' ');o$b F)IT
　　delay(10);i+Zl%P8?-T!Z ~KN1x
　　}
　　}'h;P)P|keYVs
　　/******************open screen clear（开屏式清屏）*********************/l2MP4JU4o3e,f0P

　　void kcls(int x1,int x2,int y1,int y2)t ddc6ZA]-`cQws
　　{
　　int t,s,i,j;
　　t=s=(y1+y2)/2;;~'kj#@%c tq
　　for(;t<=y2;t++,s--)
　　for(j=x1;j<x2;j++){
　　goto_xy(j,t);
　　putchar(' ');
　　goto_xy(j,s);
　　putchar(' ');d(f8q(sOK)f
　　delay(10);QW3\5U m k
　　}
　　} Y2}6Sg&O
　　/*****************close screen clear*****闭幕式清屏*******************/

　　void bcls(int x1,int x2,int y1,int y2)4Kv6ui$V
　　{
　　int t,s,j;K&m ~$~}-GL*r
　　t=y1;
　　s=y2;
　　for(t=y1;t<(y1+y2)/2;t++,s--)
　　for(j=x1;j<x2;j++){h)E/n$R||9H
　　goto_xy(j,t);
　　putchar(' ');uxPJ)WX
　　goto_xy(j,s);
　　putchar(' ');a Pz&xoC
　　delay(10);
　　}
　　}L&uEP(jMa-q
　　/******************bottom screen clear（自下清屏）********************/)n]eSgt? ikx
h^l['Y
　　void dcls(int x1,int x2,int y1,int y2),S+a]9]?eDv1m{
　　{*uOq8u:EY*`!A_iB
　　int t,s,j,i;
　　t=s=(y1+y2)/2;I$@zj }?Z@
　　for(j=x2;j>x1;j--)
　　for(i=y1;i<y2;i++){4q2Hb!l3D!j8DY|;p)O
　　goto_xy(j,i);{dh'D:N`,|R/f
　　putchar(' ');\ _z/v0MT2W(s8k
　　delay(10);$pUSSqpAy
　　})Yn@xJ
　　}
　　/******************设置光标子函数******************/(b!R L'Q)}

　　void goto_xy(int x,int y)
　　{ |t] odQg
　　union REGS r;
　　r.h.ah=2;
　　r.h.dl=y;{+dok/D#w
　　r.h.dh=x;Lrste O1R ?
　　r.h.bh=0;U!Xz3iA.b
　　int86(0x10,&r,&r);%rU0f:G)qE P
　　}

　　/**********************在屏幕上打出一连串的a字母用于演示程序******************/

　　void puta(void)m#{ kS&h1DE|
　　{)F%J1uj9v
　　int i,j;$O)v'D'~aXn\
　　for(i=0;i<24;i++){Lw B` VE]2e
　　for(j=0;j<79;j++){
　　goto_xy(i,j);
　　printf("a");E/Zd0}"Y
　　}
　　}
　　}

页: [1]

捌玖网络工作室's Archiver

C语言艺术清屏