C语言艺术清屏

问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,+ w/ G5 `  W5 i# J( X

　　并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里

　　用C语言编制了几个子函数,用于程序中时,既可达到清屏的目的,有能增加屏幕的艺术美观. 4 ?, _' V* A, b. K: _0 |
　　子函数及演示程序:

　　#include<stdio.h>
　　#include<dos.h>
　　#include<conio.h>( z8 y! t% o$ T9 o# r' v+ j

　　void goto_xy(int x,int y);7 `! s: {* v- s9 Q% q+ g7 s
　　void dcls(int x1,int x2,int y1,int y2);' @& F, H) j% Z
　　void bcls(int x1,int x2,int y1,int y2);  V: R$ o. T7 g7 C3 N* v6 U
　　void kcls(int x1,int x2,int y1,int y2);: t2 l* _" I2 l- x0 n. ?
　　void recls(int x1,int x2,int y1,int y2);2 |' O+ H( _# h% [
　　void zcls(int x1,int x2,int y1,int y2);
　　void puta(void);0 k: I) s4 s/ m: }5 D1 Z- ~
9 e& L1 }2 V4 p* w& C2 O  S

　　/*--------------演示程序---------------------*/
　　main()
　　{5 S3 V7 G$ ?9 T
　　puta();. b0 i3 N' o/ |. ]$ [! p5 u  F
　　getch();
　　dcls(0,4,0,79);
　　getch();9 [  r+ |$ T% \4 f5 o* U
　　puta();
　　getch();
　　bcls(0,25,0,79);6 n; v( \0 d8 F3 Q+ y
　　getch();
　　puta();
　　getch();
　　zcls(0,25,0,79);; R; z' t4 T8 Q, q! \
　　getch();0 @8 Y3 B) [6 _4 ]
　　}
　　/*********center clear screen（中心清屏）***********/
　　void zcls(int x1,int x2,int y1,int y2)( w6 a0 g9 L/ n5 \# g/ ?
　　{
　　int x00,y00,x0,y0,i,d;
　　if((y2-y1)>(x2-x1)){5 }" l/ `+ q9 X% t0 n  E* f
　　d=(x2-x1)/2;
　　x0=(x1+x2)/2;
　　y0=y1+d;
　　y00=y2-d;
　　for(i=0;i<(d+1);i++)
　　recls((x0-i),(x00+i),(y0-i),(y00+i));
　　delay(10);
　　}
　　else{
　　d=(y2-y1)/2;( A5 `. G" f, z0 B- i" [
　　y0=(y1+y2)/2;3 s- s: M. C" s% n' d7 @; J% V
　　x0=x1+d;9 `+ m. |" S& G6 r! X' T
　　x00=x2-d;8 p9 ^) K$ \& e
　　for(i=0;i<d+1;i++)
　　recls(x0-i,x00+i,y0-i,y00+i);6 j9 J! N4 P2 g8 K  k& C/ e
　　delay(10);7 y: j* {8 d* }5 `; N6 z2 b- Z9 i
　　}! e% j. L: G# _
　　}

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

　　void recls(int x1,int x2,int y1,int y2)/ |. O9 I! v% h) d5 t# y
　　{7 I* m) u, N0 |3 Y2 w
　　int i,j;
　　for(i=y1;i<y2;i++){) o  N) w/ W+ M4 w) p
　　　　goto_xy(x1,i);
　　putchar(' ');
　　goto_xy(x2,i);9 u  g# \" ~1 {9 k
　　putchar(' ');5 d$ K. v4 }) P3 o9 S
　　delay(10);
　　}
　　for(j=x1;j<x2;j++){
　　goto_xy(i,y1);
　　putchar(' ');' C7 C9 U3 B5 {8 A& O, B2 u& A
　　goto_xy(j,y2);
　　putchar(' ');
　　delay(10);
　　}( p- z8 B) n% a% p8 C- {
　　}( R) f0 ?1 K4 k+ O
　　/******************open screen clear（开屏式清屏）*********************/3 }/ {4 q8 I! ?* ]+ D& p0 T
& Q5 w% D, q$ k: e6 i! N2 |
　　void kcls(int x1,int x2,int y1,int y2)
　　{* }7 {4 d8 e# z+ s/ i. h- a
　　int t,s,i,j;
　　t=s=(y1+y2)/2;
　　for(;t<=y2;t++,s--)( `! B4 B% U8 m! b# a
　　for(j=x1;j<x2;j++){
　　goto_xy(j,t);
　　putchar(' ');
　　goto_xy(j,s);
　　putchar(' ');
　　delay(10);1 f$ w) J0 d8 F: H5 T
　　}
　　}1 f# e4 q! S3 p6 e/ k& r9 G/ a  w+ y! O
　　/*****************close screen clear*****闭幕式清屏*******************/& g; Q# K: @' ~0 Q& F& z6 ^+ J

　　void bcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j;
　　t=y1;4 d& ^% q0 ^( f: J9 k0 Z& P! e/ @
　　s=y2;
　　for(t=y1;t<(y1+y2)/2;t++,s--)
　　for(j=x1;j<x2;j++){/ T9 G; P/ z1 G
　　goto_xy(j,t);
　　putchar(' ');) E- T4 W, `% {; E- v$ x3 N2 Y5 ?
　　goto_xy(j,s);
　　putchar(' ');
　　delay(10);
　　}
　　}/ F  r$ Y* u8 N( L$ \
　　/******************bottom screen clear（自下清屏）********************/

　　void dcls(int x1,int x2,int y1,int y2)' L8 `$ W) D, k- c! o1 G/ ?
　　{$ H3 W7 d. D. s( S! G3 c$ Y
　　int t,s,j,i;( x+ ^7 c) b. w& E" E' F7 V
　　t=s=(y1+y2)/2;
　　for(j=x2;j>x1;j--)
　　for(i=y1;i<y2;i++){9 T: h( q. Q+ s5 c7 \, Q
　　goto_xy(j,i);
　　putchar(' ');+ x, ]9 V! e% ?- P# Q2 ]% `( A
　　delay(10);
　　}
　　}
　　/******************设置光标子函数******************/
7 R. `( q9 g% k% \9 ^
　　void goto_xy(int x,int y)$ q; |* s) Q7 ?9 b  |, b$ G
　　{
　　union REGS r;
　　r.h.ah=2;
　　r.h.dl=y;
　　r.h.dh=x;
　　r.h.bh=0;
　　int86(0x10,&r,&r);
　　}+ C' r( R9 B, c6 }% H

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

　　void puta(void)
　　{
　　int i,j;
　　for(i=0;i<24;i++){
　　for(j=0;j<79;j++){
　　goto_xy(i,j);+ S6 E; h/ F4 Y6 k' q: x* x
　　printf("a");3 s( H# i: L9 [# P
　　}
　　}
　　}

返回列表

C语言艺术清屏

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

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