数字电子称论文正文(8)

咸宁学院学士学位论文

附 录3系统程序清单

//============================================================// #include #include #define uint unsigned int #define uchar unsigned char sbit ADDO = P1^0; sbit ADSK = P1^1; uchar code table[] = {

0xC0,0xF9,0xA4,0xB0,0x99,

0x92,0x82,0xF8,0x80,0x90,};//segdata of 0 to 9

//============================================================// //ms delay function void delay_ms(uint z) { uint x; uchar y; for(x=z;x>0;x--) for(y=110;y>0;y--); }

//============================================================// unsigned long get_ADValue(void) { uchar i; unsigned long value=0; ADDO=1;//51 CPU I/O input enable ADSK=0;//enable AD while (ADDO); _nop_();//delay T1>0.1us for (i=0;i<24;i++) { ADSK=1; _nop_();//delay T3>0.2us if (ADDO) value++; value=value<<1; ADSK=0;

30

附 录3系统程序清单

_nop_();//delay T4>0.2us } ADSK=1; _nop_();//delay T3>0.2us ADSK=0; _nop_();//delay T4>0.2us value=value&0x007FFFFF; return (value); }

//============================================================// void display(uchar qian,uchar bai,uchar shi,uchar ge) { P0=table[qian]; P2=0xFE;//1111_1110,display bit[qian] delay_ms(100); P0=table[bai]; P2=0xFD;//1111_1101,display bit[bai] delay_ms(100); P0=table[shi]; P2=0xFB;//1111_1011,display bit[shi] delay_ms(100); P0=table[ge]; P2=0xF7;//1111_0111,display bit[ge] }

void main() { unsigned long num; float num_f; uchar qian,bai,shi,ge; while (1) { num=get_ADValue(); num_f=num/8388607.0*4.80;//(2^13-1)*Power Voltage num=(num_f*1000-64.044)*1/0.763; qian=num000/1000; bai=num00/100; shi=num0/10; ge=num; display(qian,bai,shi,ge); } }

31

咸宁学院学士学位论文

附 录4 MATLAB绘图程序清单

%Linear Test Line

x=[ 0 10 20 40 50 60 100 120 150 200 220 250 300 400 500 510 520 550 600 700];

y=[ 70 78 86 101 108 116 146 161 183 221 236 258 296 371 446 453 461 484 521 596];

plot(x,y,'k-') hold on plot(x,y,'r.')

axis([0 700 0 600]) title('Linear Test Line')

xlabel('The Quality of the Object(Unit:g)') ylabel('LED Display Value(Unit:g)')

%Check-Out Line

x=[ 0 10 20 40 50 60 100 120 150 200 220 250 300 400 500 510 520 550 600 700];

y=[ 1 11 21 41 51 61 101 121 151 201 221 252 302 402 502 512 522 553 603 703];

plot(x,y,'k-') hold on plot(x,y,'r.')

axis([0 700 0 720]) title('Check-Out Line')

xlabel('The Quality of the Object(Unit:g)') ylabel('LED Display Value(Unit:g)')

32

附 录5 实物图

附 录5 实物图

33