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

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

C语言艺术清屏

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

　　用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观.
　　子函数及演示程序: O-xQ0EF r,Ycj
,X-R}8^]Jzq-P
　　#include<stdio.h>
　　#include<dos.h> vEKdI @;PI
　　#include<conio.h>2BdKBv7n&kx
K+^/QC-o&P8bq N
　　void goto_xy(int x,int y);
　　void dcls(int x1,int x2,int y1,int y2);#wT@B"B(CE"R
　　void bcls(int x1,int x2,int y1,int y2);%JoXo"vyT(Q(l8h?
　　void kcls(int x1,int x2,int y1,int y2); \'C/gt/H0cI2j
　　void recls(int x1,int x2,int y1,int y2);
　　void zcls(int x1,int x2,int y1,int y2);
　　void puta(void); V9|8\&T tc
n5P0aH7~v
Dj*Z'W,qw
　　/*--------------演示程序---------------------*/6U T$jisH3L
　　main()];Nu:y f!K!L2Xwk
　　{
　　puta();
　　getch();
　　dcls(0,4,0,79);
　　getch();
　　puta();$R-y!rQM
　　getch();
　　bcls(0,25,0,79);[I(z2{#Z*V5zr Z
　　getch();
　　puta();
　　getch();
　　zcls(0,25,0,79);
　　getch();
　　}2b1^4]JendG
　　/*********center clear screen（中心清屏）***********/
　　void zcls(int x1,int x2,int y1,int y2)
　　{.|6[#pkF,S0hC
　　int x00,y00,x0,y0,i,d;
　　if((y2-y1)>(x2-x1)){
　　d=(x2-x1)/2;Q3E@#A$Smzd
　　x0=(x1+x2)/2;
　　y0=y1+d;.Cb7J+}:~ D'k z
　　y00=y2-d;
　　for(i=0;i<(d+1);i++)ReK#`I a}:Z*QU)WL
　　recls((x0-i),(x00+i),(y0-i),(y00+i));
　　delay(10);
　　}
　　else{
　　d=(y2-y1)/2;
　　y0=(y1+y2)/2;
　　x0=x1+d;&cb.N"U2Fh
　　x00=x2-d;
　　for(i=0;i<d+1;i++)y'g.m4w$G1u!pw
　　recls(x0-i,x00+i,y0-i,y00+i);
　　delay(10);-S|}"zl2Sc
　　}|'F5LVMu4m
　　}S9c8mR ^q

　　/************* clear rectangle side（矩形边清屏）***********************/
;M(S8Y8UZN
　　void recls(int x1,int x2,int y1,int y2)
　　{B7CEpaC9n+c\` T
　　int i,j;
　　for(i=y1;i<y2;i++){
　　　　goto_xy(x1,i);
　　putchar(' ');
　　goto_xy(x2,i);
　　putchar(' ');
　　delay(10);
　　}
　　for(j=x1;j<x2;j++){/b1A(UZu]G$^!V
　　goto_xy(i,y1);
　　putchar(' ');
　　goto_xy(j,y2);*| bFwH2f
　　putchar(' ');
　　delay(10);
　　}
　　}X%JN6A7k?L/x.`
　　/******************open screen clear（开屏式清屏）*********************/

　　void kcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,i,j;3xTN h7q5h:a#E
　　t=s=(y1+y2)/2; mW(L*}!V{e
　　for(;t<=y2;t++,s--)R,z-Z3[9]
　　for(j=x1;j<x2;j++){
　　goto_xy(j,t);#kj@U}j'Jn
　　putchar(' ');^JZmq'?X
　　goto_xy(j,s);CP:L+Ln4@zK2K
　　putchar(' ');,?DJE2w`#h'i7Ey
　　delay(10);
　　}q&z&J%Z*u4_%[~
　　}HaBEK.Ng$gE
　　/*****************close screen clear*****闭幕式清屏*******************/#@{/UD!G0gzQx

　　void bcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j;
　　t=y1;
　　s=y2;:A9aK+lC+s%v3}([
　　for(t=y1;t<(y1+y2)/2;t++,s--)
　　for(j=x1;j<x2;j++){g6^)o;l6p;e/j}0|.G
　　goto_xy(j,t);#^C.ppI2h$ZE.H
　　putchar(' ');O| Y/A$k*w
　　goto_xy(j,s);
　　putchar(' ');
　　delay(10);
　　}
　　}2Ld x?LJVtL^H
　　/******************bottom screen clear（自下清屏）********************/B&s!]%H2LG| YY

　　void dcls(int x1,int x2,int y1,int y2)
　　{'KE}V?~m,b
　　int t,s,j,i;1B:M&T D*^5rg-k1m
　　t=s=(y1+y2)/2;
　　for(j=x2;j>x1;j--):MG2R9Qpe.A
　　for(i=y1;i<y2;i++){
　　goto_xy(j,i);BnM[(j{;X7]]
　　putchar(' ');:OR%o4o)i
　　delay(10);
　　}7a:^6F&RBf*L!N
　　}
　　/******************设置光标子函数******************/8J6TV!M%rLqGFv-FM

　　void goto_xy(int x,int y)
　　{
　　union REGS r;
　　r.h.ah=2;
　　r.h.dl=y;L;n;p9]my
　　r.h.dh=x;NB)q5J"X#T5B.S4P9q O
　　r.h.bh=0;
　　int86(0x10,&r,&r);h)C+WBRKOm
　　}
#Q.l_mQZ
　　/**********************在屏幕上打出一连串的a字母用于演示程序******************/+h"g:ey(kd
E)yiNMZAe(F
　　void puta(void)
　　{
　　int i,j;#EWV,b.L
　　for(i=0;i<24;i++){
　　for(j=0;j<79;j++){:[s#tw*G/FX
　　goto_xy(i,j);
　　printf("a");
　　}
　　}{9V%gbo(}0@T+Qt
　　}

页: [1]

捌玖网络工作室's Archiver

C语言艺术清屏