大程序记录

#include<graphics.h>
#include<string.h>
#include<stdio.h>
#include<bios.h>
#include<dos.h>
#include<stdlib.h>
#include<string.h>
#define S 16
#define HZK "HZK16"
void special_page();
/*本函数是对处在特殊地位的圆饼图进行特殊绘制*/
void start();
void getname();
void bkspace(int*,int *,char *);
/*在文本框操作中，本函数配合响应不同形式的删除操作*/
void write(int *,int *,char *);
/*在文本框操作中，本函数配合响应不同形式的输入操作*/
void getdata();
int init();
void draw();
void cursor(int x0,int y0);
int inrectangle(int xnew,int ynew);
/*本函数检测鼠标位置与各按钮响应区域之间的关系，并给予反馈*/
int kbreact(int *page,int sum);
/*本函数响应键盘操作*/
void newxy(int *xnew,int *ynew,int *buttonnew);
void diaphz(int,int,char *,int,int);
union tget{int a;char c[2];}get,value;
struct thead{
    char flag;
    char time[3];
    long rec_sum;
    int head_length;
    int each_length;
    char head_empty[20];
}head;
struct tpart{
    char name[11];
    char type;
    long part_sta;
    char width;
    char bits;
    char part_empty[14];
}part[5];
struct tscores{
    char name[15];
    double english,math,comp,aven,sum;
}scores[101];
/*scores结构体用来存储各个同学的分数数据，以便进行后续分析、绘制*/
char fname[30];
/*fname是文本框输入时，后端的一个完全同步字符数组*/
int cnt=1,flag=0,kbspe=0;
/*cnt指向当前录入同学成绩序号的下一位。scores数组从第一变量开始录入。*/
/*至于flag和kbspe变量，在后面需要使用的地方有响应解释。*/
int main()
{

	start();/*这是绘制开始页面*/
    getname();/*这是绘制一个文本框并实现输入读取地址*/
    cleardevice();
    getdata();/*这是打开相应文件并读取其中数据*/
    draw();/*至于条形图和圆饼图的绘制 全权委托于draw()*/
    return 0;
}
void start()
{
    int gdriver=DETECT,gmode;
    char p0_1[]="程序设计基础综合实训",p0_2[]="按任意键继续";
    initgraph(&gdriver,&gmode,"");
    setbkcolor(9);
    diaphz(50,200,p0_1,2,3);
    diaphz(160,250,"作者：徐海栋",14,2);
    diaphz(180,300,p0_2,15,1);
    bioskey(0);
    cleardevice();
    setbkcolor(0);
}
void draw()
{
    int gdriver=VGAHI,gmode=VGA,page,i,sum=(cnt-1)%3==0?(cnt-1)/3:(cnt-1)/3+1;double k;
    int colorflag[5]={0},flag=0,x0,y0,button0,xnew,ynew,buttonnew,kb_o;
    char p1[]="学生成绩柱状图",p2[]="学生成绩圆饼图";
    if(init()==0) exit(0);
    /*绘制的分数：柱高（像素）=1:2.4*/
    for(page=1;page<=sum;)
    {   
        cleardevice();
        /*这里绘制每一页的公共部分*/
        for(i=1;i<=4;i++) colorflag[i]=0;
        setwritemode(COPY_PUT);
        setcolor(15);line(50,350,50,90);line(50,90,45,95);line(50,90,55,95);

        settextstyle(0,0,1); settextjustify(0,1);
        diaphz(20,20,p1,2,2);
        k=2.4*20;line(50,350-(int)k,60,350-(int)k);outtextxy(65,350-(int)k,"20");
        k=2.4*40;line(50,350-(int)k,60,350-(int)k);outtextxy(65,350-(int)k,"40");
        k=2.4*60;line(50,350-(int)k,60,350-(int)k);outtextxy(65,350-(int)k,"60");
        k=2.4*80;line(50,350-(int)k,60,350-(int)k);outtextxy(65,350-(int)k,"80");
        k=2.4*100;line(50,350-(int)k,60,350-(int)k);outtextxy(65,350-(int)k,"100");
        line(50,350,600,350);line(600,350,595,345);line(600,350,595,355);
        rectangle(85,405,185,460);rectangle(270,405,370,460);rectangle(455,405,555,460);rectangle(400,25,550,70);
        setfillstyle(1,15);floodfill(271,406,15);floodfill(401,26,15);

        rectangle(320,10,380,30);rectangle(320,31,380,50);rectangle(320,51,380,70);
        setfillstyle(1,1);floodfill(321,11,15);
        setfillstyle(1,3);floodfill(321,32,15);
        setfillstyle(1,4);floodfill(321,52,15);
        diaphz(330,11,"英语",15,1);
        diaphz(330,32,"数学",15,1);
        diaphz(320,52,"计算机",15,1);
        /*这里是每一页的分化部分*/
       if(page==1) {setfillstyle(1,7);floodfill(86,406,15);setfillstyle(1,15);floodfill(456,406,15);}

        else if(page==sum) {setfillstyle(1,7);floodfill(456,406,15);setfillstyle(1,15);floodfill(86,406,15);}
        else {setfillstyle(1,15);floodfill(86,406,15);floodfill(456,406,15);}
        setcolor(BLUE);settextstyle(1,0,2);settextjustify(1,1);
        outtextxy(135,430,"Last(L)");outtextxy(320,430,"Exit(E)");outtextxy(505,430,"Next(N)");outtextxy(475,47,"Transform(T)");
        setfillstyle(1,14);/*顶盖*/
        setcolor(1);setfillstyle(1,1);bar3d(85,350-(int)scores[(page-1)*3+1].english*2.4,118,350,30,1);
        setcolor(3);setfillstyle(1,3);bar3d(118,350-(int)scores[(page-1)*3+1].math*2.4,151,350,30,1);
        setcolor(4);setfillstyle(1,4);bar3d(151,350-(int)scores[(page-1)*3+1].comp*2.4,184,350,30,1);
        setcolor(1);setfillstyle(1,1);bar3d(270,350-(int)scores[(page-1)*3+2].english*2.4,303,350,30,1);
        setcolor(3);setfillstyle(1,3);bar3d(303,350-(int)scores[(page-1)*3+2].math*2.4,336,350,30,1);
        setcolor(4);setfillstyle(1,4);bar3d(336,350-(int)scores[(page-1)*3+2].comp*2.4,369,350,30,1);
        setcolor(1);setfillstyle(1,1);bar3d(455,350-(int)scores[(page-1)*3+3].english*2.4,488,350,30,1);
        setcolor(3);setfillstyle(1,3);bar3d(488,350-(int)scores[(page-1)*3+3].math*2.4,521,350,30,1);
        setcolor(4);setfillstyle(1,4);bar3d(521,350-(int)scores[(page-1)*3+3].comp*2.4,554,350,30,1);

        diaphz(100,360,&scores[(page-1)*3+1].name,7,2);
        diaphz(285,360,&scores[(page-1)*3+2].name,7,2);
        diaphz(470,360,&scores[(page-1)*3+3].name,7,2);
        /*绘制完毕 这里等待用户输入指令并相应处理*/
    while(1)
        {
            /*flag变量是为了标识有没有必要将原来鼠标的位置进行一次XOR绘制*/
            if(bioskey(1)!=0)
            {
                value.a=bioskey(0);
                kb_o=kbreact(&page,sum);
                /*在函数调用后如若kb_o非零，则将进行翻页，所以应当跳出循环。*/
                if(kb_o==1) {flag=1;break;}
            }
            /*这里为了实现按钮变色操作。*/
            setwritemode(COPY_PUT);
            if(inrectangle(xnew,ynew)==1&&colorflag[1]==0)
            {
                colorflag[1]=1;
                setcolor(14);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(135,430,"Last(L)");
            }
            if(inrectangle(xnew,ynew)!=1&&colorflag[1]==1)
            {
                colorflag[1]=0;
                setcolor(BLUE);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(135,430,"Last(L)");
            }
            if(inrectangle(xnew,ynew)==2&&colorflag[2]==0)
            {
                colorflag[2]=1;
                setcolor(14);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(320,430,"Exit(E)");
            }
            if(inrectangle(xnew,ynew)!=2&&colorflag[2]==1)
            {
                colorflag[2]=0;
                setcolor(BLUE);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(320,430,"Exit(E)");
            }
            if(inrectangle(xnew,ynew)==3&&colorflag[3]==0)
            {
                colorflag[3]=1;
                setcolor(14);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(505,430,"Next(N)");
            }
            if(inrectangle(xnew,ynew)!=3&&colorflag[3]==1)
            {
                colorflag[3]=0;
                setcolor(BLUE);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(505,430,"Next(N)");
            }
            if(inrectangle(xnew,ynew)==4&&colorflag[4]==0)/*rectangle(400,25,550,70);*/
            {
                colorflag[4]=1;
                setcolor(14);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(475,47,"Transform(T)");
            }
            if(inrectangle(xnew,ynew)!=4&&colorflag[4]==1)
            {
                colorflag[4]=0;
                setcolor(BLUE);settextstyle(1,0,2);settextjustify(1,1);
                outtextxy(475,47,"Transform(T)");
            }
            /*这里试图检测鼠标的按键情况*/
            newxy(&xnew,&ynew,&buttonnew);
            if(inrectangle(xnew,ynew)&&buttonnew)
            {
                if(inrectangle(xnew,ynew)==1)
                {
                    if(page>1) {page--;cleardevice();flag=1;break;}

                }
                if(inrectangle(xnew,ynew)==3)
                {
                    if(page<sum) {page++;cleardevice();flag=1;break;}
                }
                if(inrectangle(xnew,ynew)==2) exit(0);
                if(inrectangle(xnew,ynew)==4)
                    {kbspe=1;flag=1;break;}
            }
            /*这里试图检测鼠标的移动情况，并按具体情况进行相应清除、绘制*/
            if(!(x0==xnew&&y0==ynew))
            {
                if(flag==1)
                {
                    flag=0;setwritemode(XOR_PUT);setcolor(15);cursor(xnew,ynew);
                }
                else if(flag==0)
                {
                    setwritemode(XOR_PUT);setcolor(15);cursor(x0,y0);cursor(xnew,ynew);
                }
                x0=xnew;y0=ynew;
            }

        }
        /*若kbspe==1 则当且仅当鼠标或键盘操作进入圆饼图页面*/
        if(kbspe==1)
        {
            kbspe=0;
            special_page();
        }

    }

}

void special_page()
{
    int i,angle[6]={0},sum=cnt-1,x,y,arc0=0;double k,k0;
    int x0=800,y0=800,xnew,ynew,button0=0,buttonnew,colorflag=0;
    cleardevice();
    for(i=1;i<=cnt-1;i++)
    {
        if(scores[i].aven>=90) angle[1]++;
        else if(scores[i].aven>=80&&scores[i].aven<=89) angle[2]++;
        else if(scores[i].aven>=70&&scores[i].aven<=79) angle[3]++;
        else if(scores[i].aven>=60&&scores[i].aven<=69) angle[4]++;
        else angle[5]++;
    }
    for(i=1;i<=5;i++)
    {
        k0=(double)angle[i]/(1.0*sum);
        k=360.0*k0;
        angle[i]=(int)k;
    }
    /*绘制各个部分扇饼*/
    setfillstyle(1,3);
    pieslice(150,240,arc0,arc0+angle[1],100);
    arc0+=angle[1];
    setfillstyle(1,4);
    pieslice(150,240,arc0,arc0+angle[2],100);
    arc0+=angle[2];
    setfillstyle(1,5);
    pieslice(150,240,arc0,arc0+angle[3],100);
    arc0+=angle[3];
    setfillstyle(1,6);
    pieslice(150,240,arc0,arc0+angle[4],100);
    arc0+=angle[4];
    setfillstyle(1,14);
    pieslice(150,240,arc0,arc0+angle[5],100);
    /*给各个扇饼涂上不同颜色*/
    setcolor(15);
    setfillstyle(1,3);rectangle(270,230,320,260);floodfill(271,231,15);
    setfillstyle(1,4);rectangle(270,270,320,300);floodfill(271,271,15);
    setfillstyle(1,5);rectangle(270,310,320,340);floodfill(271,311,15);
    setfillstyle(1,6);rectangle(270,350,320,380);floodfill(271,351,15);
    setfillstyle(1,14);rectangle(270,390,320,420);floodfill(271,391,15);
    settextjustify(0,1);settextstyle(1,0,1);outtextxy(325,245,">=90");
    outtextxy(325,285,">=80 but <90");
    outtextxy(325,325,">=70 but <80");
    outtextxy(325,365,">=60 but <70");
    outtextxy(325,405,"<60");
    rectangle(320,50,440,90);
    setfillstyle(1,15);floodfill(321,51,15);
    settextjustify(1,1);settextstyle(1,0,1);
    setcolor(BLUE);
    outtextxy(380,70,"Transform(T)");
    diaphz(10,10,"学生成绩分布图",2,2);
    /*控制操作*/
    while(1)
    {
        if(bioskey(1)!=0){
            value.a=bioskey(0);
            if(value.c[0]=='T'||value.c[0]=='t')
                return ;
        }
        newxy(&xnew,&ynew,&buttonnew);
        if(!(xnew==x0&&ynew==y0))
        {
            setwritemode(XOR_PUT);setcolor(15);
            cursor(x0,y0);cursor(xnew,ynew);
        }
        x0=xnew;y0=ynew;button0=buttonnew;
        /*新换旧 为下一次检测做准备*/
        if(xnew>=320&&xnew<=440&&ynew>=50&&ynew<=90&&!buttonnew&&colorflag==0)
        {
            colorflag=1;
            setwritemode(COPY_PUT);
            setcolor(14);
            settextjustify(1,1);settextstyle(1,0,1);
            outtextxy(380,70,"Transform(T)");
        }
        if(!(xnew>=320&&xnew<=440&&ynew>=50&&ynew<=90)&&colorflag==1)
        {
            colorflag=0;
            setwritemode(COPY_PUT);
            /*在设置之前是XOR模式。如果不及时切换回来COPY_PUT模式，则色彩暧昧不清*/
            setcolor(BLUE);
            settextjustify(1,1);settextstyle(1,0,1);
            outtextxy(380,70,"Transform(T)");
        }
        if(xnew>=320&&xnew<=440&&ynew>=50&&ynew<=90&&buttonnew) return ;
    }
}
void diaphz(int x,int y,char *p,int color,int m)
{
    int i,j,n,k;
    FILE *fp;
    char qh,wh;
    long offset;
    char buffer[S*S/8];
    char mask[]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01};
    if((fp=fopen(HZK,"rb"))==NULL) exit(0);
    while(*p != '\0')
    {
        qh=*p-0xa0; p++;
        wh=*p-0xa0; p++;
        offset=(94L*(qh-1)+wh-1)*S*S/8;
        fseek(fp,offset,0);
        fread(buffer,S*S/8,1,fp);
        for(i=0;i<S;i++)
        {
            for(j=0;j<S;j++)
            {
                if((buffer[S/8*i+j/8] & mask[j%8]) !=0)
                    for(n=0;n<m;n++)
                        for(k=0;k<m;k++)
                            putpixel(x+j*m+n,y+i*m+k,color);
            }

        }
        x+=S*m+5;

    }
    fclose(fp);
}
void newxy(int *xnew,int *ynew,int *buttonnew)
{
    union REGS regs;
    regs.x.ax=3;
    int86(51,&regs,&regs);
    *buttonnew=regs.x.bx;
    *xnew=regs.x.cx;
    *ynew=regs.x.dx;
    if(*buttonnew) delay(30000);
    /*延缓鼠标按键响应时间*/
}

void cursor(int x0,int y0)
{
    setcolor(15);
    setwritemode(XOR_PUT);
    line(x0-12,y0-12,x0,y0+8);
    line(x0-12,y0-12,x0+8,y0);
    line(x0,y0,x0,y0+8);
    line(x0,y0,x0+8,y0);
}
int inrectangle(int xnew,int ynew)
{
    if(xnew>=85&&xnew<=185&&ynew>=405&&ynew<=460) return 1;
    if(xnew>=270&&xnew<=370&&ynew>=405&&ynew<=460) return 2;
    if(xnew>=455&&xnew<=555&&ynew>=405&&ynew<=460) return 3;
    if(xnew>=400&&xnew<=550&&ynew>=25&&ynew<=70) return 4;
    return 0;
}
int kbreact(int *page,int sum)
{
    if(value.c[0]=='N'||value.c[0]=='n')
    {
        if(*page<sum) {cleardevice();*page+=1;return 1;}
    }
    else if(value.c[0]=='L'||value.c[0]=='l')
    {
        if(*page>1) {cleardevice();*page-=1;return 1;}
    }
    else if(value.c[0]=='T'||value.c[0]=='t')
    {
        kbspe=1;return 1;
    }
    else if(value.c[0]=='E'||value.c[0]=='e')
        exit(0);
    return 0;

}
int init()
{
    union REGS regs;
    regs.x.ax=0;
    int86(0x33,&regs,&regs);
    if(regs.x.ax==0) return 0;
    regs.x.ax=7;
    regs.x.cx=0;regs.x.dx=639;
    int86(0x33,&regs,&regs);
    regs.x.ax=8;
    regs.x.cx=0;regs.x.dx=479;
    int86(0x33,&regs,&regs);
    return 1;
}
void write(int *sec,int *cct,char *fname)
{
    int i;char oput[2]={0,0};
    if(*cct>24) return ;
    if(*cct==*sec)
    {
        fname[*cct]=get.c[0];
        setcolor(0);
        oput[0]=get.c[0];
        outtextxy(50+(*cct-1)*16,300,oput);
	*cct+=1;
	*sec+=1;
    }
    else
    {
	for(i=*cct-1;i>=*sec;i--)
        {
            /*对于循环中的每一次：1.数组位置调整2.图像位置调整*/
            setcolor(15);oput[0]=fname[i+1];
            outtextxy(50+i*16,300,oput);
            setcolor(0);oput[0]=fname[i];
            outtextxy(50+i*16,300,oput);

	    fname[i+1]=fname[i];
        }
	setcolor(15);oput[0]=fname[*sec];
        outtextxy(50+16*(*sec-1),300,oput);
        setcolor(0);oput[0]=get.c[0];
	outtextxy(50+16*(*sec-1),300,oput);
	fname[*sec]=get.c[0];
	*cct+=1;
	*sec+=1;
    }
}
void bkspce(int *sec,int *cct,char *fname)
{
    int i;
    char oput[2]={0,0};
    if(*cct==1||*sec==1) return ;
    for(i=*sec;i<=*cct-1;i++)
    {
        setcolor(15);
        oput[0]=fname[i-1];
	outtextxy(50+16*(i-2),300,oput);
        setcolor(0);
        oput[0]=fname[i];
	outtextxy(50+16*(i-2),300,oput);
        fname[i-1]=fname[i];
    }
    setcolor(15);
    oput[0]=fname[*cct-1];
    outtextxy(50+(*cct-2)*16,300,oput);
    *cct-=1;
    fname[*cct]=0;
    if(*sec>1) *sec-=1;
}
void getname()
{
    int sec=1,cct=1,gdriver=DETECT,gmode,gdriver2=VGAHI,gmode2=VGA;
    /*initgraph(&gdriver,&gmode,"");*/
    diaphz(50,50,"输入页面",14,3);
    diaphz(50,200,"请输入正确的文件名！",15,2);
    diaphz(50,320,"请注意：",3,1);
    diaphz(50,360,"您的输入可以省略扩展名。",3,1);
    diaphz(50,400,"您可以用左右箭头调整光标！",3,1);
    rectangle(50,280,450,300);
    setfillstyle(1,15);
    floodfill(110,290,15);
    settextstyle(0,0,2);
    settextjustify(0,0);
    cct=sec;/*将显隐指针初始化对齐*/
    while(1)
    {
        while(get.a=bioskey(1),get.a==0)
        {
            setcolor(0);
            line(50+(sec-1)*16,300,50+(sec-1)*16+16,300);
            setcolor(15);
            line(50+(sec-1)*16,300,50+(sec-1)*16+16,300);
        }
        bioskey(0);
        /*这是对按键进行相应响应*/
        if(get.c[0]==0x1b&&get.c[1]==0x01) exit(0);
	else if(get.c[0]==13) {fname[cct]=0;break;}
        else if(get.c[0]>=65&&get.c[0]<=90||get.c[0]>=97&&get.c[0]<=122||get.c[0]>=48&&get.c[0]<=57)
            write(&sec,&cct,fname);
	else if(get.c[0]=='.'||get.c[0]=='_'||get.c[0]=='\\'||get.c[0]==':')
            write(&sec,&cct,fname);
        else if(get.c[0]==8) bkspce(&sec,&cct,fname);
        else if(get.c[0]==0&&get.c[1]==0x4b)
        {
            if(sec>1) sec--;
        }
        else if(get.c[0]==0&&get.c[1]==0x4d)
        {
            if(sec<cct) sec++;
        }
    }

}
void getdata()
{


    int i,j,k,finish=0;
    char check,oput[2]={0,0},s[20];
    FILE *fp;

    if(strstr(fname+1,".dbf")==NULL)
        strcat(fname+1,".dbf");

    fp=fopen(fname+1,"rb");

        while(1)
        {
            if(fp==NULL)/*如若打开失败，则重新输入*/
            {
                cleardevice();
                settextstyle(3,0,4);
                outtextxy(150,200,"Opening fail!");
                outtextxy(50,230,"Press any key to input twice.");
                bioskey(0);
                cleardevice();
                memset(fname,0,sizeof(fname));
                getname();
                if(strstr(fname+1,".dbf")==NULL)
                    strcat(fname+1,".dbf");
                fp=fopen(fname+1,"rb");
            }
            else break;
        }

    fread(&head,32,1,fp);

    for(i=0;i<=(head.head_length-33)/32-1;i++)
    {

        fread(&part[0],32,1,fp);
	if(strcmp(part[0].name,"姓名")==0)
	{
	   part[1]=part[0];
        }
	else if(strcmp(part[0].name,"英语")==0)
    {
		part[2]=part[0];
        }
	else if(strcmp(part[0].name,"数学")==0)
	{
	    part[3]=part[0];

        }
    else if(strcmp(part[0].name,"计算机")==0)
    {
	    part[4]=part[0];

        }
    }
    fseek(fp,1+0l,1);

    for(i=0;i<head.rec_sum;i++)
    {
        fseek(fp,head.head_length+i*head.each_length,0);
        fread(&check,1,1,fp);
        if(check=='*') continue;
        fseek(fp,-1,1);
        for(j=1;j<=4;j++)
        {
            fseek(fp,part[j].part_sta,1);
            fgets(s,part[j].width+1,fp);
            if(j==1)
            {
                for(k=strlen(s)-1;k>=0;k--)
                {
                    if(s[k]==32) s[k]=0;
                    else break;
                }
                strcpy(scores[cnt].name,s);
            }
            if(j==2)
            {
                scores[cnt].english=atof(s);
            }
            if(j==3) scores[cnt].math=atof(s);
            if(j==4) scores[cnt].comp=atof(s);
            fseek(fp,head.head_length+i*head.each_length,0);
        }
        scores[cnt].sum=scores[cnt].english+scores[cnt].math+scores[cnt].comp;
        scores[cnt].aven=scores[cnt].sum/3;
        cnt++;
    }
}