2011年计算机等级考试二级C辅导实例编程(15)

会计考友

C语言编写键盘画图程序　　笔者在开发县级电网调度自动化系统的过程中，碰到一个要绘制电力系统一次接线图的问题。由于电力系统一次接线图比较复杂，图上有一些特殊的符号，象变压器符号、开关符号等等，用一般的编程方法来绘制比较困难，因此，笔者用C语言开发了一个手工绘制电力系统一次接线图的键盘绘图程序，使用该程序绘制的一次接线图符合用户需求，效果良好。
( x, p2 n9 ?) G- G　　使用方法
　　程序中定义了几个特殊键：
& T1 K2 N8 i2 G% A/ H　　"V”：画笔提起
3 s( ^$ v. |3 F& g　　"W”：开始画图
6 i% z& ?' k6 ?4 S) f　　"R”：开始擦图
) v+ B) G5 I; Y3 @　　"S”：当前图形存入文件
　　"E”：调出已有文件
　　"C”：画圆
; s. k* `  a( P1 R: g' ]7 O) K　　程序一运行，屏幕上出现一个黄色的边框来设定画图的区域，区域中间出现提起的画笔符号 ，当按下“W”键时，画笔符号变为 ，此时可移动方向键(上、下、左、右、左上、左下、右上、右下)来画图;当按下“R”键时，画笔符号变为 ，此时可移动方向键来擦图;在画图过程中，按下“C”键，可画出一个半径为20个象素点的圆;当结束画图时，按下“S”键，将画好的图形存盘;按下“E”键可调出已有的图形进行编辑。
9 S; |" I7 f3 ~" v: ?9 V　　源程序清单
　　# include "graphics.h"
% Z: |7 N* y% E- ]) i3 y　　# include "stdio.h"
# s2 W* h% O2 v　　# include "fcntl.h"
　　# include "stdlib.h"
　　main()
　　void save(),load();
　　void *wg,*rg,*vg,*fy;
　　int driver,mode;
, ~7 P. ]! E5 ^& q  |　　int c=RED;
　　int x=320,y=225;
1 G( A6 F1 c3 j6 r6 k! Z　　int x1,y1,x2,y2;
　　int k,k1,k2;
　　/* initialize grapher */
' x5 K! r+ Z' N# v　　detectgraph(&driver,&mode);
7 X* y5 Z  s  `2 p& Q. Z( x/ y, I　　initgraph(&driver,&mode,"c:\tc");
% u2 [. H. a( |# }: G# a+ C" A　　/* write the pen */
2 X- _& j: R# c) M& s  E3 O% k0 S　　bar(200,10,206,16);
　　line(203,7,200,10);
7 f! J2 y/ m# o  I5 W% l　　line(203,7,206,10);
　　line(243,7,240,16);
　　line(243,7,246,16);
" r* _+ y$ E% I+ A' X　　line(283,7,280,10);
  ], x8 Q; a" c1 V" c　　line(283,7,286,10);
　　line(283,7,283,16);

会计考友

　/* save the pen */　　wg=malloc(imagesize(200,7,206,16));
　　rg=malloc(imagesize(240,7,246,16));
$ \& Z: W6 `  n　　vg=malloc(imagesize(280,7,286,16));
1 U) W: v' j3 {( Q0 X( L1 W; M8 y# s　　fy=malloc(imagesize(200,7,206,16));
4 I0 [- Q' u* V& v9 b9 _' E0 ~　　getimage(200,7,206,16,wg);
: [- f0 O4 f4 l9 W　　getimage(240,7,246,16,rg);
　　getimage(280,7,286,16,vg);
6 f' m) N# e/ {$ M' s" Y　　cleardevice();
$ K- B0 V5 @! f　　/* write the box */
% c9 O& ]0 A: O( @　　setcolor(YELLOW);
5 K! U3 q1 t) w# p　　rectangle(4,19,637,447);
　　x1=x-3;
. E3 X2 q# Y& U, k3 B, q& d; `$ @5 u3 F　　y1=y+1;
　　x2=x+3;
/ D" L8 c" }5 B8 I; Z2 y5 u　　y2=y+10;
　　getimage(x1,y1,x2,y2,fy);
% ]; `$ a" ]/ H　　putimage(x1,y1,vg,XOR_PUT);
　　/* receive the command */
' H& s5 _1 I& [3 m3 T5 o7 m9 f　　for (;;)
　　while (bioskey(1)==0);
" P4 H7 h2 l: v  R+ L　　k=bioskey(0);
　　putimage(x1,y1,fy,AND_PUT);
　　if (((k&0x00ff)|0x00)==0)
　　k1=k&0xff?0:k>>8; /* k1 is the specialkey value */
　　else
6 t4 S7 I  f, B* ?1 @" u7 r　　k2=k&0x00ff; /* k2 is the non-specialkey value */
　　if (((k&0x00ff)|0x00)==0) /* Special key */
　　switch(k1)
　　case 45:
　　restorecrtmode();
* Y& j& Y) q0 u# H5 V0 o7 i- N　　exit(0);
# H1 h7 {3 ~5 F　　case 72:
　　if (y>20)
　　y=y-1;
　　break;
　　case 75:
. l% K. c* A. Z　　if (x>5)
& u- M2 a( D4 Z3 @9 B　　x=x-1;
　　break;
　　case 77:

5 U& `4 ]0 q6 r# ]! ]$ c　　if (x

会计考友

　y=y+1;　　break;
　　case 71:
　　if ((x>5)&&(y>20))
　　x=x-1;
　　y=y-1;
2 V2 L, D7 z/ \9 f8 L- C/ @　　break;
4 V0 e' u( K& i" [: T　　case 79:

/ s5 {& b6 w( j1 T, K　　if ((x>5)&&(y

会计考友

　　break;
　　case 99: /*'c'*/
　　case 67: /*'C'*/
　　setcolor(RED);
8 z1 g% \; s9 D& z' x* s) o) d: \3 q. }" h　　circle(x,y,20);
/ S3 y  o+ R- N: \5 r0 `. L. _% w　　break;
　　default:continue;
$ E- ~& t) P' ?2 V% C5 m　　/* function for screen picture save
4 ?% L0 k8 @' b2 l　　*/
　　void save(char *fname)
　　FILE *fp;
7 K' d' G! x/ ?　　int i;
: S. I' `! A7 c5 ]3 M　　register long j;
　　char far *ptr;
: r4 e/ e/ h' O, c7 ]　　fp=fopen(fname,"wb");

　　for(i=0;i