仓储物流管理CASIO DT930典型程序,可以参照这个代码
include "math.h"
#include "stdio.h"
#include "string.h"
#include "stdlib.h"
#include "itron.h"
#include "CMNDEF.H"
#include "bios1mac.h"
#include "casio.h"
/*#include "dplib.h"*/
void pd(void);
void ap_start(void);
void main_menu(void);
void kc_pd(UB *filename);
void rk(void);
void ck(void);
void rk_pd(UB *filename);
void Dsp_info(UB *data,W *pos);
ER find(UB *spcode,UB *data);
ER findrud(UB *spcode,UB *data);
void Dis_y(void);
void Dis_y1(void);
void Dis_ff(UB *data,W *pos);
void Dis_ff1(UB *data,W *pos);
void find_fici(void);
ER findrud(UB *spcode,UB *data);
void ck_pd(UB *filename);
void Dis_info(UB *data,W *pos);
void Dis_y2(void);
ER findrud4(UB *spcode,UB *data);
void ap_start(void)
{
SysInit(0);
main_menu();
}
void main_menu(void)
{
int kind;
static const UB *menu[]={" 仓储物流管理",
"------------------",
" 1.入库系统",
" 2.库存系统",
" 3.出库系统"
};
while(1)
{
cls();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{ rk();
break;
}
case '2':{pd();break;
}
case '3':{ ck(); break;}
}
}
}
void rk(void)
{ER ret;
int kind,fd,err,i,pos=0,len=11,len1=8,ercd;
B *file_list1[]={"zdjs.txt",0};
static const UB *menu[]={" 入库系统",
"--------------",
"1.入库盘点",
"2.上传数据",
"3.下载数据"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{rk_pd("zdjs.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上传?",2,1);
Dsp_str("ENT 上传",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
sendfile("zdjs.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下载?",2,1);
Dsp_str("ENT 下载",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list1);
break;
}
case 12: return;
}
}
}
void pd(void)
{int fp;
char kind;
static const B*rece_file[2];
B *file_list[]={"kc.txt","kc1.txt",0};
static const UB *menu[]={" 库存系统",
"--------------",
" 1.库存盘点",
" 2.上传数据",
" 3.下载数据"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{kc_pd("kc.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上传?",2,1);
Dsp_str("ENT 上传",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
sendfile("zdjs.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下载?",2,1);
Dsp_str("ENT 下载",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list);
break;
}
case 12 :return;
}
}
}
void kc_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],xjnum[10];
UB data[57];
ER ret;
while(1)
{
Dis_y();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=find(spcode,data);
}
}
}
}
void Dis_y(void)
{
cls();
Dsp_str("扫描条码:",3,0);
}
ER find(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;
ret=search("kc.txt",0,56,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_info(data,&pos);
return(0);
}
else
cls();
Dsp_str("无此商品",2,0);
Dsp_str(" 任意键 从新输入",4,0);
WAIT
return(1);
}
void Dis_info(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20];
UB num[10],xjnum[10];
int kind;
ER ret ;
cls();
Dsp_str("条码:",1,0);
Dsp_str("名称:",5,0);
Dsp_str("库位:",7,0);
Dsp_str("库存数量:",9,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,12);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+45,9);kwei[9]=0x00;
Dsp_str(spcode,3,1,12);
Dsp_str(kwei,7,11,9);
if (name[20]==0x20)
name[20]=0x00;
Dsp_str(name,5,7);
lcd_csr_put(3,7);
lcd_csr_set((H)LCD_CSR_UNDER);
ret=read_s(9,11,0,xjnum,9,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,20);
memcpy(data+35,xjnum,9);
data[56]=0x0D;
data[57]=0x0A;
dat_F_Write("kc1.txt",1,0,data,56);
}
void rk_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],gyname[10];
UB data[65];
ER ret;
while(1)
{
Dis_y1();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=findrud(spcode,data);
}
}
}
}
void Dis_y1(void)
{
cls();
Dsp_str("扫描条码:",3,0);
}
ER findrud(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;
ret=search("zdjs.txt",0,64,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_ff(data,&pos);
return(0);
}
else
cls();
Dsp_str("无此商品",2,0);
Dsp_str(" 任意键 从新输入",4,0);
WAIT
return(1);
}
void Dis_ff(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20],gyname[10];
UB num[10],xjnum[10];
int kind;
ER ret ;
cls();
Dsp_str("条码:",1,0);
Dsp_str("名称:",3,0);
Dsp_str("库位:",5,0);
Dsp_str("供应商:",7,0);
Dsp_str("收货数量:",9,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,16);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+40,8);kwei[8]=0x00;kwei[9]=0x00;
memcpy(gyname,data+49,10);gyname[9]=0x00;
Dsp_str(spcode,1,7,12);
Dsp_str(kwei,5,9,8);
if (name[19]==0x20)
name[19]=0x00;
Dsp_str(name,3,7,16);
Dsp_str(gyname,7,10,8);
/* lcd_csr_put(9,10);
lcd_csr_set((H)LCD_CSR_UNDER);*/
ret=read_s(9,11,0,xjnum,10,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,17);
memcpy(data+33,xjnum,6);
memcpy(data+40,kwei,8);
memcpy(data+49,gyname,10);
data[63]=0x0D;
data[64]=0x0A;
dat_F_Write("zdjs.txt",0,*pos,data,63);
}
void ck(void)
{ER ret;
int kind,fd,err,i,pos=0,len=11,len1=8,ercd;
B *file_list1[]={"ckd.txt",0};
static const UB *menu[]={" 出库系统",
"--------------",
"1.出库盘点",
"2.上传数据",
"3.下载数据"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{rk_pd("ckd.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上传?",2,1);
Dsp_str("ENT 上传",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
sendfile("ckd.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下载?",2,1);
Dsp_str("ENT 下载",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list1);
break;
}
case 12: return;
}
}
}
void ck_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],xjnum[10];
UB data[56];
ER ret;
while(1)
{
Dis_y2();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=findrud(spcode,data);
}
}
}
}
void Dis_y2(void)
{
cls();
Dsp_str("扫描条码:",3,0);
}
ER findrud4(UB *spcode,UB *data)
{
ret=search("ckd.txt",0,55,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_ff1(data,&pos);
return(0);
}
else
cls();
Dsp_str("无此商品",2,0);
Dsp_str(" 任意键 从新输入",4,0);
WAIT
return(1);
}
ER ret ;
cls();
Dsp_str("条码:",1,0);
Dsp_str("名称:",3,0);
Dsp_str("库位:",5,0);
Dsp_str("出货数量:",7,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,12);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+40,9);kwei[9]=0x00;
memcpy(gyname,data+49,10);gyname[9]=0x00;
Dsp_str(spcode,1,7,12);
Dsp_str(kwei,5,9,8);
if (name[19]==0x20)
name[19]=0x00;
Dsp_str(name,3,7,16);
Dsp_str(gyname,7,10,8);
lcd_csr_put(9,10);
lcd_csr_set((H)LCD_CSR_UNDER);
ret=read_s(7,11,0,xjnum,10,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,17);
memcpy(data+33,xjnum,6);
memcpy(data+40,kwei,8);
memcpy(data+49,gyname,10);
data[64]=0x0D;
data[65]=0x0A;
dat_F_Write("ckd.txt",0,*pos,data,63);
}
#include "stdio.h"
#include "string.h"
#include "stdlib.h"
#include "itron.h"
#include "CMNDEF.H"
#include "bios1mac.h"
#include "casio.h"
/*#include "dplib.h"*/
void pd(void);
void ap_start(void);
void main_menu(void);
void kc_pd(UB *filename);
void rk(void);
void ck(void);
void rk_pd(UB *filename);
void Dsp_info(UB *data,W *pos);
ER find(UB *spcode,UB *data);
ER findrud(UB *spcode,UB *data);
void Dis_y(void);
void Dis_y1(void);
void Dis_ff(UB *data,W *pos);
void Dis_ff1(UB *data,W *pos);
void find_fici(void);
ER findrud(UB *spcode,UB *data);
void ck_pd(UB *filename);
void Dis_info(UB *data,W *pos);
void Dis_y2(void);
ER findrud4(UB *spcode,UB *data);
void ap_start(void)
{
SysInit(0);
main_menu();
}
void main_menu(void)
{
int kind;
static const UB *menu[]={" 仓储物流管理",
"------------------",
" 1.入库系统",
" 2.库存系统",
" 3.出库系统"
};
while(1)
{
cls();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{ rk();
break;
}
case '2':{pd();break;
}
case '3':{ ck(); break;}
}
}
}
void rk(void)
{ER ret;
int kind,fd,err,i,pos=0,len=11,len1=8,ercd;
B *file_list1[]={"zdjs.txt",0};
static const UB *menu[]={" 入库系统",
"--------------",
"1.入库盘点",
"2.上传数据",
"3.下载数据"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{rk_pd("zdjs.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上传?",2,1);
Dsp_str("ENT 上传",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
sendfile("zdjs.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下载?",2,1);
Dsp_str("ENT 下载",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list1);
break;
}
case 12: return;
}
}
}
void pd(void)
{int fp;
char kind;
static const B*rece_file[2];
B *file_list[]={"kc.txt","kc1.txt",0};
static const UB *menu[]={" 库存系统",
"--------------",
" 1.库存盘点",
" 2.上传数据",
" 3.下载数据"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{kc_pd("kc.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上传?",2,1);
Dsp_str("ENT 上传",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
sendfile("zdjs.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下载?",2,1);
Dsp_str("ENT 下载",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list);
break;
}
case 12 :return;
}
}
}
void kc_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],xjnum[10];
UB data[57];
ER ret;
while(1)
{
Dis_y();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=find(spcode,data);
}
}
}
}
void Dis_y(void)
{
cls();
Dsp_str("扫描条码:",3,0);
}
ER find(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;
ret=search("kc.txt",0,56,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_info(data,&pos);
return(0);
}
else
cls();
Dsp_str("无此商品",2,0);
Dsp_str(" 任意键 从新输入",4,0);
WAIT
return(1);
}
void Dis_info(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20];
UB num[10],xjnum[10];
int kind;
ER ret ;
cls();
Dsp_str("条码:",1,0);
Dsp_str("名称:",5,0);
Dsp_str("库位:",7,0);
Dsp_str("库存数量:",9,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,12);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+45,9);kwei[9]=0x00;
Dsp_str(spcode,3,1,12);
Dsp_str(kwei,7,11,9);
if (name[20]==0x20)
name[20]=0x00;
Dsp_str(name,5,7);
lcd_csr_put(3,7);
lcd_csr_set((H)LCD_CSR_UNDER);
ret=read_s(9,11,0,xjnum,9,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,20);
memcpy(data+35,xjnum,9);
data[56]=0x0D;
data[57]=0x0A;
dat_F_Write("kc1.txt",1,0,data,56);
}
void rk_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],gyname[10];
UB data[65];
ER ret;
while(1)
{
Dis_y1();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=findrud(spcode,data);
}
}
}
}
void Dis_y1(void)
{
cls();
Dsp_str("扫描条码:",3,0);
}
ER findrud(UB *spcode,UB *data)
{
ER ret;
int keylen;
W pos;
int datalen=72;
int start_pos;
ret=search("zdjs.txt",0,64,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_ff(data,&pos);
return(0);
}
else
cls();
Dsp_str("无此商品",2,0);
Dsp_str(" 任意键 从新输入",4,0);
WAIT
return(1);
}
void Dis_ff(UB *data,W *pos)
{
UB spcode[13],kwei[10],name[20],gyname[10];
UB num[10],xjnum[10];
int kind;
ER ret ;
cls();
Dsp_str("条码:",1,0);
Dsp_str("名称:",3,0);
Dsp_str("库位:",5,0);
Dsp_str("供应商:",7,0);
Dsp_str("收货数量:",9,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,16);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+40,8);kwei[8]=0x00;kwei[9]=0x00;
memcpy(gyname,data+49,10);gyname[9]=0x00;
Dsp_str(spcode,1,7,12);
Dsp_str(kwei,5,9,8);
if (name[19]==0x20)
name[19]=0x00;
Dsp_str(name,3,7,16);
Dsp_str(gyname,7,10,8);
/* lcd_csr_put(9,10);
lcd_csr_set((H)LCD_CSR_UNDER);*/
ret=read_s(9,11,0,xjnum,10,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,17);
memcpy(data+33,xjnum,6);
memcpy(data+40,kwei,8);
memcpy(data+49,gyname,10);
data[63]=0x0D;
data[64]=0x0A;
dat_F_Write("zdjs.txt",0,*pos,data,63);
}
void ck(void)
{ER ret;
int kind,fd,err,i,pos=0,len=11,len1=8,ercd;
B *file_list1[]={"ckd.txt",0};
static const UB *menu[]={" 出库系统",
"--------------",
"1.出库盘点",
"2.上传数据",
"3.下载数据"
};
while(1)
{
cls();
key_clear();
Dsp_str(menu[0],1,0);
Dsp_str(menu[1],3,0);
Dsp_str(menu[2],5,0);
Dsp_str(menu[3],7,0);
Dsp_str(menu[4],9,0);
kind=getkey();
switch(kind)
{
case '1':{rk_pd("ckd.txt");break;}
case '2':{lcd_cls();
Dsp_str("是否上传?",2,1);
Dsp_str("ENT 上传",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
sendfile("ckd.txt");
break;
}
case '3':{ lcd_cls();
Dsp_str("是否下载?",2,1);
Dsp_str("ENT 下载",5,3);
Dsp_str(" 任意键 否",7,3);
kind=getkey();
if(kind==13)
rece_n_file(file_list1);
break;
}
case 12: return;
}
}
}
void ck_pd(UB *filename)
{
UB spcode[13],spname[20],kuwei[10],num[10],xjnum[10];
UB data[56];
ER ret;
while(1)
{
Dis_y2();
memset(spcode,0x00,sizeof(spcode));
memset(data,0x00,sizeof(data));
ret=read_s(6,5,0,spcode,13,NONE);
if(ret==CLS) return;
else
{
if(strlen(spcode)!=0)
{
memset(data,0x00,sizeof(data));
ret=findrud(spcode,data);
}
}
}
}
void Dis_y2(void)
{
cls();
Dsp_str("扫描条码:",3,0);
}
ER findrud4(UB *spcode,UB *data)
{
ret=search("ckd.txt",0,55,0,6,spcode,data,&pos);
if (ret==E_OK)
{
Dis_ff1(data,&pos);
return(0);
}
else
cls();
Dsp_str("无此商品",2,0);
Dsp_str(" 任意键 从新输入",4,0);
WAIT
return(1);
}
ER ret ;
cls();
Dsp_str("条码:",1,0);
Dsp_str("名称:",3,0);
Dsp_str("库位:",5,0);
Dsp_str("出货数量:",7,0);
memset(spcode,0x00,sizeof(spcode));
memset(kwei,0x00,sizeof(kwei));
memset(name,0x00,sizeof(name));
memset(num,0x00,sizeof(num));
memset(xjnum,0x00,sizeof(xjnum));
memcpy(spcode,data,13);spcode[12]=0x00;
memcpy(name,data+14,12);name[15]=0x00;name[16]=0x00;name[17]=0x00;name[18]=0x00;
name[19]=0x00;
memcpy(kwei,data+40,9);kwei[9]=0x00;
memcpy(gyname,data+49,10);gyname[9]=0x00;
Dsp_str(spcode,1,7,12);
Dsp_str(kwei,5,9,8);
if (name[19]==0x20)
name[19]=0x00;
Dsp_str(name,3,7,16);
Dsp_str(gyname,7,10,8);
lcd_csr_put(9,10);
lcd_csr_set((H)LCD_CSR_UNDER);
ret=read_s(7,11,0,xjnum,10,NONE);
kind=getkey();
if (kind==13)
memset(data,0x00,sizeof(data));
memcpy(data,spcode,13);
memcpy(data+14,name,17);
memcpy(data+33,xjnum,6);
memcpy(data+40,kwei,8);
memcpy(data+49,gyname,10);
data[64]=0x0D;
data[65]=0x0A;
dat_F_Write("ckd.txt",0,*pos,data,63);
}
=============================
关键字：casio dt930 程序开发 编译环境 开发资料 开发工具 编译器
