calcontinue1.c

税控收款机软件。包括底层驱动和上层的应用一起。是一个完整的税控收款机软件方案

#include "upsd.h"
#include <absacc.h>
#include <intrins.h>
#include "zhd.h"
#include "dis1_1.h"
#include "string.h"
#include "stdio.h"

extern void  DisHzYm(uchar *p_dm,uchar col,uchar row);
extern void DisHzLinYm(uchar *p_hzline,uchar col);

extern void cls(void);
extern uchar code *p_cb;
extern uchar data g_temp;
extern TIME  xdata sys_time;
extern uchar data keyc;
extern code void DisAsc(uchar *p_dm,uchar col,uchar row);
extern code void DisAscPush(uchar *p_dm,uchar col,uchar end_row);
extern code void ClsLin(uchar col);
extern code void DisHz(uchar *p_dm,uchar col,uchar row);
extern code void PTeamInit(uchar *p_dm,uchar n);
extern code void DL(void);
extern void GetKey(void);
extern float CalDataInput(uchar col);
extern code void Result(uchar col);

extern uchar xdata databuf[10];
extern uchar xdata cal;
void InvokeCal(uchar col);
void InvokeCal(uchar col)
{
    double data aaa,bbb,ccc;
	cls();
	cal=1;
    DisHzLinYm("  计算器",Col2);
	start_cal:
    DisAsc(&D00,Col3,Row24);
	aaa=CalDataInput(col);
	do
	{
		switch(keyc)
		{
			case 'l'://'=':
				Result(col);
				DisAsc(&PrnVAsc,Col2,Row12);
				DisAsc(&PrnVAsc,Col3,Row24);
				DisAsc(&PrnVAsc,Col2,Row13);
				DisHzLinYm("  按回车键开始新运算",Col4);
				GetKey();

				cls();
				DisHzLinYm("  计算器",Col2);
				goto start_cal;

			case '+':
				DisHzYm("加",Col2,Row12);
				bbb=CalDataInput(col);
				ccc=aaa+bbb;
				break;

			case KEY_PRN://'-':
				DisHzYm("减",Col2,Row12);
				bbb=CalDataInput(col);
				ccc=aaa-bbb;
				break;

			case 'o'://'*':
				DisHzYm("乘",Col2,Row12);
				bbb=CalDataInput(col);
				ccc=aaa*bbb;
				break;

			case 'p'://'/':
				DisHzYm("除",Col2,Row12);
				bbb=CalDataInput(col);
				ccc=aaa/bbb;
				break;	
		}
		sprintf(databuf,"%f",ccc);
		aaa=ccc;
		Result(col);
		if(aaa>10000000)goto start_cal;
	}while(keyc!=KEY_ESC);
	cal=0;
}