C语言艺术清屏

问题的提出:我们在编制程序时,经常要用到清屏处理,如dos下的cls,Turbo C下的clrscr()等都具有清屏功能,但这些均为一般意义的清屏,/ Z& V) Q9 J% W) |( d; R, R0 c6 a" r
5 @$ J4 i6 n% b3 {9 T
　　并未显示其清屏规律.而有时为了达到清屏的艺术美观,往往对清屏有一些具体要求,如:开幕清屏;闭幕清屏;上清屏;下清屏;中清屏.为此,这里

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

　　#include<stdio.h>( q8 W" W2 S4 I# N
　　#include<dos.h>
　　#include<conio.h>

　　void goto_xy(int x,int y);3 }. Z4 P9 p% h9 ?5 C' s
　　void dcls(int x1,int x2,int y1,int y2);
　　void bcls(int x1,int x2,int y1,int y2);$ {- q: J' r5 A( e/ v! D
　　void kcls(int x1,int x2,int y1,int y2);; K9 e4 a) e$ t0 W* z$ @- g: K
　　void recls(int x1,int x2,int y1,int y2);
　　void zcls(int x1,int x2,int y1,int y2);1 h7 z- m5 b. ]) P
　　void puta(void);6 {2 L" d3 L* R7 o4 h8 }; K+ {

　　/*--------------演示程序---------------------*/& [. k1 }/ o) P0 ?0 T
　　main()
　　{
　　puta();( B6 p* @$ T7 ]/ D1 x( \; v4 B( v. S
　　getch();
　　dcls(0,4,0,79);( i* m" g* X. t8 t
　　getch();/ B" x* R! q2 ^1 z0 U
　　puta();
　　getch();( v( r  b0 B! t( ^
　　bcls(0,25,0,79);
　　getch();
　　puta();9 U2 Q4 b7 \) ^& Y- \- {/ Q
　　getch();
　　zcls(0,25,0,79);
　　getch();
　　}
　　/*********center clear screen（中心清屏）***********/
　　void zcls(int x1,int x2,int y1,int y2)/ y( q# a5 e8 k0 O! K
　　{: m( L( V9 i1 w' Y, P/ t
　　int x00,y00,x0,y0,i,d;
　　if((y2-y1)>(x2-x1)){
　　d=(x2-x1)/2;  ]) z5 ?7 I/ R. }! Y. r
　　x0=(x1+x2)/2;: A7 ^0 ?5 N/ d* }) W- h/ \. p
　　y0=y1+d;$ h& a6 P& a9 [+ m1 I. D
　　y00=y2-d;/ B) _5 A) y( t0 i5 z9 j
　　for(i=0;i<(d+1);i++)1 G! D, Z2 \) e& }7 b  @# `6 H) k
　　recls((x0-i),(x00+i),(y0-i),(y00+i));
　　delay(10);0 G1 B# D8 `: h4 `- v, I
　　}1 R4 Z! u+ c" @
　　else{
　　d=(y2-y1)/2;
　　y0=(y1+y2)/2;
　　x0=x1+d;
　　x00=x2-d;
　　for(i=0;i<d+1;i++)# s; h* ~4 P0 G; K$ J% w( b
　　recls(x0-i,x00+i,y0-i,y00+i);
　　delay(10);
　　}
　　}

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

　　void recls(int x1,int x2,int y1,int y2)7 G. p; C- Q3 o& \& [- B0 P& D0 Z
　　{
　　int i,j;, I# z9 c0 {6 [+ i2 m9 X1 E( n8 e" \
　　for(i=y1;i<y2;i++){7 y7 J' {& `; D! ?6 H
　　　　goto_xy(x1,i);
　　putchar(' ');
　　goto_xy(x2,i);
　　putchar(' ');
　　delay(10);
　　}
　　for(j=x1;j<x2;j++){
　　goto_xy(i,y1);
　　putchar(' ');0 Z' l; a. ?1 Z/ x1 M$ L' Y
　　goto_xy(j,y2);
　　putchar(' ');: _, `3 G4 a  C) R) ~( d; h
　　delay(10);
　　}
　　}
　　/******************open screen clear（开屏式清屏）*********************/1 @4 f) Y; ?# T

　　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--)7 `& f+ y+ I1 s# j, t- E+ j
　　for(j=x1;j<x2;j++){! G4 D9 p, b; T% n3 j+ d
　　goto_xy(j,t);
　　putchar(' ');5 o4 N) D  f0 c
　　goto_xy(j,s);% R: ^+ m  I+ ^  L" M# }& m
　　putchar(' ');
　　delay(10);
　　}7 F# S" J9 J& t
　　}
　　/*****************close screen clear*****闭幕式清屏*******************/" }. K6 P0 F0 ]7 }5 f/ y

　　void bcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j;6 Z8 b: Q9 u+ ^% c+ X  j
　　t=y1;7 ~* M" u: O% _- U& z
　　s=y2;
　　for(t=y1;t<(y1+y2)/2;t++,s--)
　　for(j=x1;j<x2;j++){
　　goto_xy(j,t);
　　putchar(' ');
　　goto_xy(j,s);: T, ]4 i+ ]6 A6 C$ f
　　putchar(' ');
　　delay(10);% E9 w% a! q5 D( G. B1 s9 [* \$ A6 D
　　}% x' p8 l: ?" R& o. N; D
　　}
　　/******************bottom screen clear（自下清屏）********************/

　　void dcls(int x1,int x2,int y1,int y2)
　　{
　　int t,s,j,i;
　　t=s=(y1+y2)/2;
　　for(j=x2;j>x1;j--)* ?* u- R5 s. Y" k1 ^8 X
　　for(i=y1;i<y2;i++){
　　goto_xy(j,i);
　　putchar(' ');6 W" M2 g  w) m) _
　　delay(10);
　　}
　　}
　　/******************设置光标子函数******************/; k3 K/ a& _5 W. u/ a. ^; A' C

　　void goto_xy(int x,int y)
　　{
　　union REGS r;1 x& B' W! S! q6 i7 s: ~1 U) x& l
　　r.h.ah=2;
　　r.h.dl=y;3 I5 f0 f4 ?% L$ K7 ]6 l
　　r.h.dh=x;
　　r.h.bh=0;0 \% N' k5 R. W+ v! q
　　int86(0x10,&r,&r);2 z, i" J9 d7 y- ?8 l
　　}$ f5 i7 m/ B6 T9 y' H/ t7 p
/ M8 }2 e: R2 |3 {  O" G1 m6 p2 U
　　/**********************在屏幕上打出一连串的a字母用于演示程序******************/

　　void puta(void)
　　{
　　int i,j;9 @0 `: }8 M" u5 M% V
　　for(i=0;i<24;i++){+ R  C) l0 ^4 Y0 c; P$ g; \! O5 P
　　for(j=0;j<79;j++){8 w* J% f0 P4 F& l( @5 g
　　goto_xy(i,j);1 U& r1 S* \. T6 X' S  ?4 s& X( l
　　printf("a");! H8 x$ T8 U6 a
　　}# g. f" U1 n& C) w
　　}
　　}

返回列表

C语言艺术清屏

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

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