一个TC2.0 编写的热力站监视的小程序

8年前编写的，无意又发现它，看了看，还是觉得很有意思。帖到这里给感兴趣的人看看，记得当时用的是研华pcl812的板子，希望也能和我重温当年的那些感情。

主要功能有，8通道，32点，保留历史纪录，实时曲线，历史曲线，线颜色可配，有屏幕保护。

下面的是源代码，你也可以在http://edsoncy.512j.com/tar/HPS.rar 下载。本来想贴两张图的，就是截不到！对了，ALT+X连续两次退出，或是鼠标点击坐上角方框两次。

#include <graphics.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <time.h>

/*=================== mouse start =======================*/
int MOUSE_THERE;
int MOUSE_VISIBLE;
union REGS mregs;

void reset_mouse(void)
{
MOUSE_THERE = 0;
MOUSE_VISIBLE = 0;

if (getvect(0x33) != 0L)
{
mregs.x.ax = 0;
int86(0x33, &mregs, &mregs);
if (mregs.x.ax !=0)
MOUSE_THERE = 1;
}
}

void pascal set_mouse_position(int x, int y)
{
if (MOUSE_THERE)
{
mregs.x.ax = 4;
mregs.x.cx = x;
mregs.x.dx = y;
int86(0x33, &mregs, &mregs);
}
}

void pascal set_mouse_limits(int x1, int y1, int x2, int y2)
{
if (MOUSE_THERE)
{
mregs.x.ax = 7;
mregs.x.cx = x1;
mregs.x.dx = x2;
int86(0x33, &mregs, &mregs);
mregs.x.ax = 8;
mregs.x.cx = y1;
mregs.x.dx = y2;
int86(0x33, &mregs, &mregs);
}
}

void pascal get_mouse_button(unsigned char *lbutton,
unsigned char *rbutton, int *x, int *y)
{
if (MOUSE_THERE)
{
mregs.x.ax = 3;
int86(0x33, &mregs, &mregs);

*lbutton = (mregs.x.bx == 1) ? 1 : 0;
*rbutton = (mregs.x.bx == 2) ? 1 : 0;
if (mregs.x.bx == 3)
*lbutton = *rbutton = 1;

*x = mregs.x.cx;
*y = mregs.x.dx;
}
}
/*=================== mouse over =======================*/

#define _DEBUG

/* define data.dat point num */
#ifndef _DEBUG
#define FILEMAX 0x3FFFFF
#else
#include "math.h"
#define PI 3.14159265758
#define FILEMAX 0xFFF
#endif

#define SCRMAX 600
/* define keyboard */
#define ALT_U 150
#define ALT_D 160
#define ALT_N 177
#define ALT_X 173
#define ALT_T 148
#define ALT_E 146
#define ALT_C 174
#define ALT_M 178
#define ALT_1 248
#define ALT_2 249
#define ALT_3 250
#define ALT_4 251
#define ALT_5 252
#define ALT_6 253
#define UP 200
#define DOWN 208
#define LEFT 203
#define RIGHT 205
#define ENTER 13

/* ================================ */
static int INTRATE,freescreen,mousespeed;
static int int_ok,run_program=2,scr_num=10,axis=1;
static int tim,intrate,nokeytime,ticker;
static int color[16],color_t[16];
static int colume,mousespeed_t,freescreen_t;
static long unsigned fpt,fpt_t;
static unsigned int drawpt;
static unsigned char draw_data[SCRMAX][16];
unsigned char c[SCRMAX+1][16];
char *unit[3]={"deg.C","Mpa","kmph"};
char *port[6]={"entra_T","entra_P","entra_F",
"exit_T","exit_P","exit_F"};

time_t ti,cur_ti;
FILE *fdata,*fpoint;

struct datum {
float hi; /* high alarm value */
float lo; /* low alarm value */
float span_lo; /* instrument disp lower limit */
float span_hi; /* instrument disp upper limit */
int val; /* 12 bit true value */
float fval; /* after culation */
char strval[10]; /* str value */
} data[8][6];

#ifndef _DEBUG
extern pcl812(int, unsigned int *);
unsigned int param[60];
unsigned int pcldata[800];
unsigned int far * pcldat;
#else
unsigned int TimeNum;
#endif
/* ================================= */
void cursor(int status);
void draw_3(int startx,int starty,int x,int y);

void interrupt (*oldtimer)(void) = NULL;
void interrupt newtimer(void);
void install(void interrupt (*int_add)(),int int_num);

int get_char(void);
void keybroad(void);

void headscr(void);
void head_bar(void);
void table_backscr(void);
void eachline_backscr(void);
void curve_backscr(void);
void color_backscr(void);
void frontscr(void);

void data_pro(void);
void f_init(void);
int f_fun(int key);
void f_write(int offset);
void driver_init(void);
void span_init(void);
/* ========== move cursor from _old to _cur ======== */
static int curx,cury,oldx,oldy,line_old;
static char curbuf[210];
unsigned char mouse_lbutt_press_in_this_time_int;

void cursor(int status)
{ int shape[10],*s=shape;
if (status!=0)
putimage(oldx,oldy,curbuf,COPY_PUT);
getimage(curx,cury,curx+16,cury+16,curbuf);
*s=curx; s++;
*s=cury; s++;
*s=curx+16; s++;
*s=cury+8; s++;
*s=curx+10; s++;
*s=cury+10; s++;
*s=curx+8; s++;
*s=cury+16; s++;
*s=curx; s++;
*s=cury;
setcolor(LIGHTBLUE);
setfillstyle(SOLID_FILL,LIGHTBLUE);
fillpoly(4,shape);
setfillstyle(SOLID_FILL,LIGHTGRAY);
oldx=curx;
oldy=cury;
return;
}

void draw_3(int startx,int starty,int x,int y)
{ int shape[8],*s=shape;
*s=startx;s++; *s=starty;s++;
*s=startx+x;s++; *s=starty+y;s++;
*s=startx+x;s++; *s=starty-y;s++;
*s=startx;s++; *s=starty;
fillpoly(3,shape);
}

/* ========== interrupt function ================ */

void install(void interrupt (*int_add)(),int int_num)
{ disable();
setvect(int_num,int_add);
enable();
return;
}

/* ------- interrupt ------- */
void interrupt newtimer (void)

{ (*oldtimer)();
if (ticker==0)
/* -----------------------------*/
{ ticker=(((tim%5)==0) ? 19:18);
if (++tim==5) tim=0;
run_program=2;
mouse_lbutt_press_in_this_time_int = 0;
if (nokeytime <= freescreen) nokeytime++;
intrate--;
if (intrate==0)
{ int_ok++;
intrate=INTRATE;
}
/* ---------------------------------*/
}
--ticker;

return;
}

/* ============== keybroad funtion ==================== */
int get_char(void)
{ union REGS rg;
int c;
while (1)
{ rg.h.ah=1;
int86(0x16,&rg,&rg);
if (rg.x.flags & 0x40)
{ int86(0x28,&rg,&rg);
break;
}
rg.h.ah=0;
int86(0x16,&rg,&rg);
if (rg.h.al==0)
c=rg.h.ah|128;
else
c=rg.h.al;
break;
}
return c;
}
/* ------------------------------------------- */

void keybroad(void)
{
int key;
unsigned char rbutton, lbutton = 0;
if (MOUSE_THERE)
{
oldx = curx;
oldy = cury;
get_mouse_button(&lbutton, &rbutton, &curx, &cury);
if (lbutton)
if (mouse_lbutt_press_in_this_time_int)
lbutton = 0;
else
mouse_lbutt_press_in_this_time_int = 1;
}

key=get_char();
if (scr_num<10)
{ if (key==ENTER || lbutton)
{ if (curx>0&&curx<24&&cury>0&&cury<24)
key=ALT_X;
else if (curx>26&&curx<134&&cury>0&&cury<24)
key=ALT_T;
else if (curx>136&&curx<244&&cury>0&&cury<24)
key=ALT_E;
else if (curx>246&&curx<354&&cury>0&&cury<24)
key=ALT_C;
else if (curx>366 && cury>0 && curx<639 && cury<24)
key=ALT_M;
else if (scr_num<8 && curx>540&&cury>28&&curx<639&&cury<55)
key=ALT_N;
else if (scr_num==9 && cury>29 &&cury<63 && curx>407)
key=ALT_1+(curx-407)/39;
else if (scr_num==9 && curx>365 && cury>34 && curx<390 && cury<46)
key=ALT_U;
else if (scr_num==9 && curx>365 && cury>49 && curx<390 &&cury<61)
key=ALT_D;
else if (scr_num==9 && cury>454 && cury<479 && curx>32 && curx<634)
key= -1;
else;
}
switch (key)
{ case ALT_N :
if (scr_num<8)
{ char s[2]="1";
scr_num++;
if (scr_num>7) scr_num=0;
(*s)+=scr_num;
settextstyle(TRIPLEX_FONT,HORIZ_DIR,8);
setcolor(WHITE);
bar(570,115,610,180);
outtextxy(570,100,s);
setcolor(BLUE);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
}
break;

case ALT_X :
run_program--;
break;

case ALT_T :
table_backscr();
break;

case ALT_E :
eachline_backscr();
break;

case ALT_C :
curve_backscr();
break;

case ALT_M :
color_backscr();
break;

case UP :
cury-=mousespeed;
if (cury<0) cury=0;
set_mouse_position(curx, cury);
cursor(1);
break;

case DOWN :
cury+=mousespeed;
if (cury>479) cury=479;
set_mouse_position(curx, cury);
cursor(1);
break;

case LEFT :
curx-=mousespeed;
if (curx<0) curx=4;
set_mouse_position(curx, cury);
cursor(1);
break;

case RIGHT :
curx+=mousespeed;
if (curx>623) curx=623;
set_mouse_position(curx, cury);
cursor(1);
break;

case ALT_1 :
if (scr_num==9)
{ fpt_t=fpt+SCRMAX*axis;
cur_ti=ti-(FILEMAX-SCRMAX*axis)*INTRATE;
f_fun(key);
}
break;

case ALT_2 :
if (scr_num==9)
{ fpt_t-=(SCRMAX*axis/2);
cur_ti-=(SCRMAX*axis*INTRATE/2);
f_fun(key);
}
break;

case ALT_3 :
if (scr_num==9)
{ fpt_t-=axis;
cur_ti-=axis*INTRATE;
f_fun(key);
}
break;

case ALT_4 :
if (scr_num==9)
{ fpt_t+=axis;
cur_ti+=axis*INTRATE;
f_fun(key);
}
break;

case ALT_5 :
if (scr_num==9)
{ fpt_t+=(SCRMAX*axis/2);
cur_ti+=(SCRMAX*axis*INTRATE/2);
f_fun(key);
}
break;

case ALT_6 :
if (scr_num==9)
{ fpt_t=fpt;
cur_ti=ti;
f_fun(key);
}
break;

case ALT_U :
if (scr_num == 9) {
char *s = NULL;
int i;
axis<<=1;
if (axis > 16) axis = 1;
setcolor(RED);
bar(330,43,355,51);
outtextxy(330,43,itoa(axis,s,10));
bar(1,455,633,478);
setcolor(WHITE);
setfillstyle(SOLID_FILL,BLUE);
for (i=1;i<11;i++) {
outtextxy(626-i*60,465,itoa(i*INTRATE*axis,s,10));
outtextxy(642-i*60,465," m");
bar(633-i*60,455,635-i*60,462);
}
f_fun(ALT_2);
}
break;

case ALT_D :
if (scr_num == 9) {
char *s = NULL;
int i;
axis>>=1;
if (axis == 0) axis = 16;
bar(330,43,355,51);
setcolor(RED);
outtextxy(330,43,itoa(axis,s,10));
bar(1,455,633,478);
setcolor(WHITE);
setfillstyle(SOLID_FILL,BLUE);
for (i=1;i<11;i++) {
outtextxy(626-i*60,465,itoa(i*INTRATE*axis,s,10));
outtextxy(642-i*60,465," m");
bar(633-i*60,455,635-i*60,462);
}

f_fun(ALT_2);
}
break;

case -1 :
f_write(634-curx);
break;

default :
key = 0;
if (oldx != curx || oldy != cury)
cursor(1);
break;
}
}

if (scr_num==10)
{ char str[2];
str[0]=16;
str[1]='/x0';
switch (key)
{ case ENTER :
if (colume<16)
{ ++color_t[colume];
color_t[colume]&=0x0f;
setfillstyle(SOLID_FILL,color_t[colume]);
bar(360,123+colume*15,400,125+colume*15);
setfillstyle(SOLID_FILL,LIGHTGRAY);
}
else if (colume==16) {
char str[4];
mousespeed_t++;
if (mousespeed_t>20) mousespeed_t=1;
bar(360,360,382,368);
itoa(mousespeed_t,str,10);
setcolor(WHITE);
outtextxy(360,360,str);
}
else if (colume == 17) {
char str[4];
freescreen_t*=2;
if (freescreen_t>480) freescreen_t = 60;
bar(360,375,382,383);
itoa(freescreen_t,str,10);
setcolor(WHITE);
outtextxy(360,375,str);
}
else if (colume==18)
{ int i;
for(i=0;i<16;i++)
color[i]=color_t[i];
mousespeed=mousespeed_t;
freescreen=freescreen_t;
curve_backscr();
}
else
curve_backscr();

break;

case UP :
bar(245,120+colume*15,252,128+colume*15);
colume--;
if (colume<0) colume=19;
setcolor(WHITE);
outtextxy(245,120+colume*15,str);
break;

case DOWN :
bar(245,120+colume*15,252,128+colume*15);
colume++;
if (colume>19) colume=0;
setcolor(WHITE);
outtextxy(245,120+colume*15,str);
break;

default :
key = 0;
break;
}
}

if (key) {
if (nokeytime > freescreen) {
scr_num = 0;
eachline_backscr();
}
nokeytime = 0;
}
return;
}
/* ==================================================== */

/* ----- draw head bar ------ */
void head_bar(void)
{ setfillstyle(SOLID_FILL,BLACK);
bar(0,0,639,479);

settextstyle(TRIPLEX_FONT,HORIZ_DIR,1);
setfillstyle(SOLID_FILL,LIGHTGRAY);
setcolor(WHITE);

bar3d(0,0,24,24,0,0);
bar3d(7,11,17,13,0,0);
bar3d(26,0,134,24,0,0);
outtextxy(35,3,"total Table");
bar3d(136,0,244,24,0,0);
outtextxy(150,3,"Each line");
bar3d(246,0,364,24,0,0);
outtextxy(255,3,"total Curve");
bar3d(366,0,639,24,0,0);
outtextxy(415,3,"the Mis for H.P.S");

setcolor(RED);
if(scr_num<8)
outtextxy(150,3,"Each line");
else if(scr_num==8)
outtextxy(35,3,"total Table");
else if(scr_num==9)
outtextxy(255,3,"total Curve");
else if(scr_num==10)
outtextxy(415,3,"the Mis for H.P.S");
setcolor(WHITE);

return;
}

/* -------- head screen function -------- */
void head_scr(void)
{ head_bar();
bar3d(150,150,489,320,4,4);
setcolor(BLUE);
outtextxy(175,180,"The Manage Information System ");
outtextxy(175,215," for the H.P.S of ");
outtextxy(175,250," the PAN factory ");
outtextxy(285,280,"1998.05");

settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
return;
}

/* ----------- total table back screen function : scr= 8 ------- */
void table_backscr(void)
{ register int i,j;
char s[5];

scr_num=8;
head_bar();

/* make marks */
for (i=0;i<6;i++)
{ bar3d(i*100+40,30,i*100+135,50,3,3);
outtextxy(i*100+55,30,port[i]);
}

/* make line number */
settextstyle(TRIPLEX_FONT,VERT_DIR,1);
strcpy(s,"No.1");
for (i=0;i<8;i++)
{ bar3d(0,i*50+55,35,i*50+100,3,3);
outtextxy(8,i*50+58,s);
(*(s+3))++;
}

/* draw the up_left box */
bar3d(0,30,35,50,3,3);

/* make 48 indecate boxes */
for (i=0;i<8;i++)
for (j=0;j<6;j++)
bar3d(j*100+40,i*50+55,j*100+135,i*50+100,3,3);

/* make units boxes */
bar3d(0,455,35,479,3,3);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
for(i=0;i<6;i++)
{ setcolor(WHITE);
bar3d(i*100+40,455,i*100+135,479,3,3);
setcolor(RED);
outtextxy(i*100+70,462,unit[i%3]);
}

cursor(0);
return;
}

/* ------- each line back screen function : scr= 0 - 7 ------ */
void eachline_backscr(void)
{ register int i,j;
char s[10];

scr_num=0;
head_bar();

/* make 6 indecate boxes */
for (i=0;i<6;i++)
{ bar3d(i*90,29,i*90+85,184,3,3);
outtextxy(i*90+10,35,port[i]);
}

/* make 'next' cursor table */
bar3d(540,28,639,55,0,0);
outtextxy(570,31,"Next");

/* make a indecate box for time */
bar3d(540,60,634,85,3,3);

/* make line number box */
bar3d(540,90,634,184,3,3);
outtextxy(545,95,"line_num");
s[0]='1';
s[1]='/x0';
settextstyle(TRIPLEX_FONT,HORIZ_DIR,8);
outtextxy(570,100,s);

settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
/* make rullor and draw window */
bar3d(0,189,25,447,3,3);
bar3d(32,189,634,447,3,3);
bar3d(0,454,634,479,3,3);
setfillstyle(SOLID_FILL,BLUE);
for (i=1;i<4;i++)
{ outtextxy(2,186+64*i,itoa(25*(4-i),s,10));
outtextxy(10,196+64*i,"%");
bar(20,189+64*i,24,191+64*i);
}
for (i=1;i<11;i++)
{ outtextxy(626-i*60,465,itoa(i*INTRATE,s,10));
outtextxy(642-i*60,465," m");
bar(633-i*60,455,635-i*60,462);
}

setcolor(RED);
for (i=0;i<6;i++)
outtextxy(i*90+40,90,unit[i%3]);

bar(10,60,75,63);
setfillstyle(SOLID_FILL,RED);
bar(100,60,165,63);

cursor(0);
return;
}

/* -------- curve back screen function : scr= 9 -------- */
void curve_backscr(void)
{ register int i,j;
char s[5];

scr_num=9;
cur_ti=ti;
fpt_t=fpt;

head_bar();

/* draw directory table */
for(i=0;i<6;i++)
bar3d(407+i*39,29,442+i*39,63,0,0);
setfillstyle(SOLID_FILL,BLUE);
draw_3(410,47,12,12);
draw_3(423,47,12,12);
draw_3(451,47,12,12);
bar3d(468,35,473,59,0,0);
draw_3(490,47,24,12);
draw_3(554,47,-24,12);
bar3d(570,35,575,59,0,0);
draw_3(593,47,-12,12);
draw_3(621,47,-12,12);
draw_3(634,47,-12,12);

setfillstyle(SOLID_FILL,LIGHTGRAY);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);

/* draw time box */
bar3d(0,31,235,63,3,3);
/* draw axis box and table*/
bar3d(242,31,400,63,3,3);
bar3d(365,34,390,46,0,0);
bar3d(365,49,390,61,0,0);
outtextxy(370,37,"Up");
outtextxy(370,52,"Dn");
/* write time and axis */
setcolor(BLUE);
outtextxy(17,43,ctime(&cur_ti));
outtextxy(250,43,"time axis:");
setcolor(RED);
outtextxy(330,43,itoa(axis,s,10));
setcolor(WHITE);

bar3d(0,70,634,182,3,3);
strcpy(s,"T1:");
for (i=0;i<8;i++)
{ setcolor(WHITE);
outtextxy(10+i/4*320,85+i%4*25,s);
s[1]++;
setcolor(RED);
outtextxy(110+i/4*320,85+i%4*25,unit[0]);
}

strcpy(s,"P1:");
for (i=0;i<8;i++)
{ setcolor(WHITE);
outtextxy(170+i/4*320,85+i%4*25,s);
s[1]++;
setcolor(RED);
outtextxy(270+i/4*320,85+i%4*25,unit[1]);
}

for (i=0;i<16;i++) {
setfillstyle(SOLID_FILL,color[i]);
bar(10+i%4*160,96+i/4*25,150+i%4*160,97+i/4*25);
}

setcolor(WHITE);
setfillstyle(SOLID_FILL,LIGHTGRAY);
bar3d(0,189,25,447,3,3);
bar3d(32,189,634,447,3,3);
bar3d(0,452,636,479,0,0);
setfillstyle(SOLID_FILL,BLUE);

for (i=1;i<4;i++)
{ outtextxy(2,186+64*i,itoa(25*(4-i),s,10));
outtextxy(10,196+64*i,"%");
bar(20,189+64*i,24,191+64*i);
}
for (i=1;i<11;i++)
{ outtextxy(626-i*60,465,itoa(i*INTRATE*axis,s,10));
outtextxy(642-i*60,465," m");
bar(633-i*60,455,635-i*60,462);
}

f_fun(ALT_4);
cursor(0);
return;
}

/* ---- color options back screen : scr=10 key --- */
void color_backscr(void)
{ int i,y;
char s[6][15]={"line 1 - T :","line 1 - P :","mousespeed :",
"free screen:","<< OK >>","<< Cancel >>"};
char str[10];
scr_num=10;
colume=0;
head_bar();

bar3d(200,70,439,430,3,3);
outtextxy(250,80, "SYSTEM OPTIONS");
outtextxy(250,95,"============");
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);

for(i=0,y=120;i<16;i++,y+=15)
{ outtextxy(260,y,s[i%2]);
(*(s[i%2]+5))++;
}
outtextxy(260,y,s[2]);
y+=15;
outtextxy(260,y,s[3]);
y+=15;
outtextxy(260,y,s[4]);
y+=15;
outtextxy(260,y,s[5]);

str[0]=16;
str[1]='/x0';
outtextxy(245,120,str);

for(i=0;i<16;i++)
{ color_t[i]=color[i];
setfillstyle(SOLID_FILL,color_t[i]);
bar(360,123+i*15,400,125+i*15);
}
setfillstyle(SOLID_FILL,LIGHTGRAY);
mousespeed_t=mousespeed;
itoa(mousespeed_t,str,10);
outtextxy(360,360,str);
freescreen_t=freescreen;
itoa(freescreen_t,str,10);
outtextxy(360,375,str);
return;
}
/* ========== do front screen =================== */
void frontscr(void)
{ register int i,j;
int dec,sign;
char *s="";
/* -------- screen protect ------ */
if (nokeytime >= freescreen) {
setfillstyle(SOLID_FILL,BLACK);
bar(0,0,639,479);
settextstyle(random(10)+1,HORIZ_DIR,random(4)+1);
setcolor(random(15)+1);
outtextxy(random(480),random(480),"The programe is running.");
setcolor(random(15)+1);
outtextxy(random(480),random(480),"Press ARROW key to return!");
setfillstyle(SOLID_FILL,LIGHTGRAY);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
}
/* -------- draw zmt front ------ */
else if (scr_num==8)
{ setcolor(BLUE);
for (j=0;j<6;j++)
{ for (i=0;i<8;i++)
{ bar(j*100+55,i*50+70,j*100+120,i*50+90);
outtextxy(j*100+70,i*50+70,data[i][j].strval);
}
}
}
/* ---------- draw zht front -------- */
else if (scr_num<8)
{ setcolor(BLUE);
for (i=0;i<6;i++)
{ bar(i*90+10,73,i*90+75,80);
outtextxy(i*90+10,73,data[scr_num][i].strval);
}
bar(555,70,618,77);
s=ctime(&ti);
s+=11;
(*(s+8))='/0';
outtextxy(555,70,s);

bar(33,190,633,446);
j=drawpt+1;
for(i=33;i<SCRMAX+33;i++,j++)
{ if (j>=SCRMAX) j-=SCRMAX;
putpixel(i,190+draw_data[j][scr_num*2],BLUE);
putpixel(i,191+draw_data[j][scr_num*2],BLUE);
putpixel(i,190+draw_data[j][scr_num*2+1],RED);
putpixel(i,191+draw_data[j][scr_num*2+1],RED);
}
}
return;
}
/* =============== file funtion ==============*/
/* ------- input and process data -------- */
void data_pro(void)
{
register int i,j;
struct datum *data_pt;
int dec,sign;
char sdec[10]=".0000",s[10];

/* get data */
#ifndef _DEBUG
pcl812(5, param);
if (param[45] != 0) {
printf(" A/D SOFTWARE DATA TRANSFER FAILED !");
exit(1);
}
#endif

for (i = 0; i < 16; i++) {
data_pt = &data[i/2][i%2];
#ifndef _DEBUG
for (j = 0; j < 50; j++) {
data_pt->val += pcldata[i+16*j];
data_pt->val >>= 1;
}
#else
/* data are simulated severl sinusoids
1024 is middle value
20, and 20 is used to amplifier changing sinusoids
*/
data_pt->val = sin((TimeNum * PI / 6553.2) + PI * i / 16.0) * 0x400 + 0x3ff;
TimeNum++;
#endif
if (data_pt->val > 0xFFF ) data_pt->val = 0xFFF;
data_pt->val &= 0x7FF;
data_pt->fval = (float)data_pt->val / 2048;
data_pt->fval = data_pt->span_lo + ( data_pt->span_hi-data_pt->span_lo ) * data_pt->fval;
strcpy(data_pt->strval,fcvt (data_pt->fval, 2, &dec, &sign));
strcpy(sdec+1,data_pt->strval+dec);
strcpy(data_pt->strval+dec,sdec);
}

/* ----- get time ----- */
time(&ti);
/* ---- save for draw and ----- */
drawpt++;
if (drawpt>=SCRMAX) drawpt=0;
for (i=0;i<16;i++)
draw_data[drawpt][i]=~(data[i/2][i%2].val>>3);

/* ------ save for file ------ */
fseek(fdata,fpt*16,SEEK_SET);
fwrite(draw_data[drawpt],16,1,fdata);
fpt++;fpt&=FILEMAX;
rewind(fpoint);
fprintf(fpoint,"%ld, %ld, %s",fpt,ti,ctime(&ti));
return;
}

/* -------- file inti ------ */
void f_inti(void)
{ char c[16];
for (fpt_t=0;fpt_t<16;fpt_t++) c[fpt_t]=0xFF;

fpoint = fopen("point.dat","r");
fdata = fopen("data.dat","r");

if (fpoint != NULL && fdata != NULL) {
fscanf(fpoint,"%ld, %ld",&fpt_t,&cur_ti);
time(&ti);
if (ti - cur_ti < FILEMAX) {
fclose(fpoint);
fclose(fdata);
fpoint=fopen("point.dat","r+");
fdata=fopen("data.dat","rb+");
cur_ti+=INTRATE;
fpt_t=++fpt_t&FILEMAX;
while (ti - cur_ti > INTRATE) {
for(; cur_ti<=ti; cur_ti+=INTRATE,fpt_t=++fpt_t&FILEMAX) {
fseek(fdata,fpt_t*16,SEEK_SET);
fwrite(c,16,1,fdata);
}
time(&ti);
}
fpt = ftell(fdata)/16;
fpt_t = fpt;
while(cur_ti-ti>1)
time(&ti);
}
else {
fpoint = NULL;
fdata = NULL;
}
}

if (fpoint == NULL || fdata == NULL) {
fclose(fpoint);
fclose(fdata);
fpoint=fopen("point.dat","wt");
fdata=fopen("data.dat","wb+");
for(fpt_t=0;fpt_t<=FILEMAX;fpt_t++)
fwrite(c,16,1,fdata);
rewind(fdata);
}
return;
}
/* ------- file write data ----- */
void f_write(int offset)
{ int dec,sign,i;
unsigned char *ch;
struct datum *da;
float f;
char str[10]="0.0",strdec[10]=".000";
time_t temp;
ch=&c[599-offset][0];
setcolor(BLUE);
setfillstyle(SOLID_FILL,LIGHTGRAY);
settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
for (i=0,da=&data[i/2][i%2];i<16;i++,ch++,da++) {
f = 1.0 - (float)*ch / 256;
f = da->span_lo + (da->span_hi-da->span_lo) * f;
strcpy(str,fcvt (f, 2, &dec, &sign));
strcpy(strdec+1,str+dec);
strcpy(str+dec,strdec);
bar(50+i%4*160,85+i/4*25,100+i%4*160,93+i/4*25);
outtextxy(50+i%4*160,85+i/4*25,str);
}

bar(17,43,220,51);
temp=cur_ti-axis*offset*INTRATE;
outtextxy(17,43,ctime(&temp));

setcolor(LIGHTGRAY);
line(line_old,190,line_old,446);
ch=&c[line_old-33][0];
for(i=0;i<16;i++,ch++) {
putpixel(line_old,190+*ch,color[i]);
putpixel(line_old,191+*ch,color[i]);
}
line_old=curx;
setcolor(GREEN);
line(curx,190,curx,446);

return;
}

/* -------- file input data ------ */
int f_fun(int key)
{ register int i,j;
int color_t;
unsigned long int fi;
unsigned char *ch;

fpt_t&=FILEMAX;
fi=(fpt+SCRMAX*axis)&FILEMAX;
if ( (fpt<fi && (fpt<fpt_t && fpt_t<fi))
|| (fpt>fi && (fpt<fpt_t || fpt_t<fi)) )
{ if (key<ALT_4)
{ fpt_t=fi;
cur_ti=ti-(FILEMAX-SCRMAX*axis)*INTRATE;
}
else
{ fpt_t=fpt;
cur_ti=ti;
}
putch('/7');
}

for(i=SCRMAX,fi=fpt_t;i>=0;i--,fi=(fi-axis)&FILEMAX)
{ fseek(fdata,fi*16,SEEK_SET);
fread(c[i],16,1,fdata);
}
f_write(0);

bar(33,190,633,446);
for(i=0;i<16;i++)
if (color[i]!=LIGHTGRAY)
{ ch=&c[0][i]; j=0;
color_t=color[i];
while(j<SCRMAX)
{ putpixel(34+j,190+*ch,color_t);
putpixel(34+j,191+*ch,color_t);
ch+=16; j++;
}
}
return;
}

void driver_init(void)
{
#ifndef _DEBUG
int i;
pcldat = pcldata;
param[0] = 0; /* Board number */
param[1] = 0x300; /* Base I/O address */
param[5] = 10; /* Pacer rate = 2M / (10 * 10) = 20 KHz */
param[6] = 10;
param[7] = 0; /* Trigger mode, 0 : pacer trigger */
param[10] = FP_OFF(pcldat); /* Offset of A/D data buffer A */
param[11] = FP_SEG(pcldat); /* Segment of A/D data buffer A */
param[12] = 0; /* Data buffer B address, if not used, */
param[13] = 0; /* must set to 0. */
param[14] = 800; /* A/D conversion number */
param[15] = 0; /* A/D conversion start channel */
param[16] = 15; /* A/D conversion stop channel */
param[17] = 1; /* Overall gain code, 0 : +/- 2.5V */

pcl812(3, param);
if (param[45] != 0) {
printf(" DRIVER INITIALIZATION FAILED !");
exit(1);
}

pcl812(4, param);
if (param[45] != 0) {
printf(" A/D INITIALIZATION FAILED !");
exit(1);
}
#endif
}

/* ------------------------------------*/
void span_init(void)
{ int i;
struct datum *da;
INTRATE = 2;
for(i = 0; i < 16; i++)
color[i] = i;
freescreen = 60;
mousespeed = 10;

data[0][0].span_lo=0; data[0][1].span_hi=0;
data[1][0].span_lo=0; data[1][1].span_hi=0;
data[2][0].span_lo=0; data[2][1].span_hi=0;
data[3][0].span_lo=0; data[3][1].span_hi=0;
data[4][0].span_lo=0; data[4][1].span_hi=0;
data[5][0].span_lo=0; data[5][1].span_hi=0;
data[6][0].span_lo=0; data[6][1].span_hi=0;
data[7][0].span_lo=0; data[7][1].span_hi=0;

for(i = 0, da = &data[i/2][i%2]; i < 16; i++, da++) {
da->span_lo = 0.0;
da->span_hi = 250.0;
}
/* Now, channel 0 is T1 and channel 1 is P1;
the same, channel 2 is T2 and channel 3 is P2;
... ...

the gain is -2.5v to 2.5V equ the intval is 0 to 4095,
and -2.5 to 0 is omitted.
If you want to change the gain, you must to modify
param[17].Do your best, you will be right !
*/
return;
}

/* ============= registerbgi =================== */
void error_registerbgi(int errorcode)
{
if (errorcode < 0)
{
printf("Graphics error: %s/n", grapherrormsg(errorcode));
printf("Press any key to halt:");
exit(1);
}
}

void installbgi(void)
{
int gdriver = VGA, gmode =VGAHI, i;
error_registerbgi(registerbgifont(triplex_font));
error_registerbgi(registerbgifont(small_font));
/*
error_registerbgi(registerbgifont(sansserif_font));
error_registerbgi(registerbgifont(gothic_font));
*/
/* initialize graphics and local variables */
error_registerbgi(registerbgidriver(EGAVGA_driver));
initgraph(&gdriver, &gmode, "");
error_registerbgi(graphresult());
}
/* ============== main funtion ================ */
void main(void)
{
int keynum;
driver_init();
installbgi();
head_scr();
span_init();
f_inti();
eachline_backscr();
reset_mouse();
set_mouse_limits(4, 0, 623, 479);

intrate=INTRATE;
oldtimer=getvect(0x1c);
install(newtimer,0x1c);

while(run_program)
{
keybroad();
if (int_ok)
{ int_ok--;
data_pro();
frontscr();
}
}

install(oldtimer,0x1c);
fclose(fdata);
fclose(fpoint);
closegraph();
return;
}