单片机与HD7279的子程序

1、精选优质文档-倾情为你奉上1单片机与HD7279的子程序ORG 0100HSTART: MOV SP,#2FH MOV P1,#B LCALL DELAY25M MOV DATA_OUT,#0A4H LCALL SEND SETB CSMAIN: JB KEY,MAIN MOV D ATA_OUT,#15H LCALL SEND LCALL RECEIV SETB CS MOV A,DATA_IN ANI A,#0F0H SWAP A MOV TEN,A MOV A,DATA_IN ANL A,#0FH MOV DIGTT,A MOV DATA_OUT,#0A1H LCALL SEND MOV

2、 DATA_OUT,#81H LCALL SEND LCALL DELAY100 MOV DATA_OUT,TEN LCALL SEND MOV DATA_OUT,#80H LCALL SEND LCALL DELAY100 MOV DATA_OUT,TEN LCALL SEND MOV DATA_OUT,#80H LCALL SEND LCALL DELAY100 MOV DATA-OUT,DIGIT LCALL SEND SETB CSWAIT: INB KEY,WAIT LJMP MAINSEND: MOV BIT_COUNT,#8 CLR CSSEN_LOOP: LCALL DELAY

3、100 MOV C,DATA_OUT,7 MOV DAT,C SETB CLK:CLK MOV A,DATA_OUT BLA MOV DATA_OUT,A LCALL DELAY100 CLR CLK DJNZ BIT_COUNT,SEND_LOOP CLR DAT LCALL DELAY100 RETEND2 键盘子程序#include< reg51.h> #define uint unsigned int #define uchar unsigned char #define ulong unsigned long void delay10ms(); /按键去抖。 void k

4、eyboard() P3.3=0;P3.0=0;P3.1=1;P3.6=0;P3.7=1;uchar key; while(1) P2=0xff; P2_4=0; key=P2&0x0f; if(key!=0x0f) delay10ms(); key=P2&0x0f; if(key!=0x0f) switch(key) case 0x0e:display();break; case 0x0d:dispbulai();break; case 0x0b:shiftup();break; case 0x07:shiftdown();break; key=key&0x0f; w

5、hile(key!=0x0f) key=P2 key=key&0x0f; P2=0xff; P2_5=0; key=P2; key=key&0x0f; if(key!=0x0f) delay10ms(); key=P2&0x0f; if(key!=0x0f) switch(key) case 0x0e:p1=1;break; case 0x0d:p1=2;break; case 0x0b:p1=3;break; case 0x07:p1=0;break; key=key&0x0f; while(key!=0x0f) key=P2; key=key&0x0

6、f; P2=0xff; P2_6=0; key=P2; key=key&0x0f; if(key!=0x0f) delay10ms(); key=P2&0x0f; if(key!=0x0f) switch(key) case 0x0e:p1=4；break; case 0x0d:p1=5；break; case 0x0b:p1=6;break; case 0x07:send();break; key=key&0x0f; while(key!=0x0f) key=P2; key=key&0x0f; P2=0xff; P2_7=0; key=P2; key=key&

7、amp;0x0f; if(key!=0x0f) delay10ms(); key=P2&0x0f; if(key!=0x0f) switch(key) case 0x0e:p1=7;break; case 0x0d:p1=8;break; case 0x0b:p1=9;break; case 0x07:;break; key=key&0x0f; while(key!=0x0f) key=P2 key=key&0x0f; void delay10ms() uchar i，j; for(i=50;i>0;i-) for(j=200;j>0;j-); 3 LCD液

8、晶显示子程序 #include <reg51.h>#include <intrins.h>sbit bz=P35；sbit rq=P34；delay() /延时 unsigned char i，j; for(i=0;i<2;i+) for(j=0;j<5;j+);longdelay()unsigned int i，j;for (i=0;i<15;i+) for (j=0;j<100;j+);disp(int dat) if(bz=0) P0=dat; delay(); rq=1; while(bz=0);rq=0;hz(int ff，int xx

9、，int yy) /显示命令+坐标 子程序 disp(ff); delay(); disp(xx); delay(); disp(yy); delay();hz2(int gg，int dd) / 汉字代码 子程序 disp(gg); delay(); disp(dd); delay();displai() /显示辣菜 P3.3=0; P3.0=0; P3.1=0; P3.6=1; P3.7=0; longdelay(); bz=1; rq=0; while(1) hz(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,0x60,0x01,0x06,0x1c,0xfc,0x

10、c4,0x34,0x0c,0x03,); /1 longdelay(); hz(0x80,0x41,0x31,0x11,0x19,0x15,0x13,0xff,0x11,0x11,0x13,0x15,0x19,0x11,0x21,0x40,); hz2(0x00,0x01,0x02,0x04,0x08,0x10,0x60,0xc0,0xc0,0x60,0x38,0x1c,0x0e,0x07,0x02,0x01,)； /夫longdelay(); hz(0x80,0x44,0x75,0x55,0x5d,0x55,0x57,0xff,0x55,0x55,0x57,0x5f,0x4c,0x54,0x

11、24,0x40,); hz2(0x40,0x41,0x43,0x45,0x59,0x7a,0xea,0x44,0xc4,0x4a,0x72,0x51,0x49,0x44,0x42,0x01,)； /妻longdelay(); hz(0x80,0x40,0x7f,0x58,0x48,0x7f,0x22,0x27,0x24,0x25,0xff,0x24,0x2c,0x37,0x20,0x40,); hz2(0x02,0x0d,0xf2,0x84,0x8a,0xfc,0x20,0xf8,0x80,0x40,0xff,0x10,0x08,0xf4,0x02,0x01,)； /肺 longdelay()

12、; hz(0x80,0x40,0x20,0x7f,0x08,0x0c,0x0a,0x09,0x08,0xf9,0x0a,0x0c,0x08,0x18,0x28,0x40,); hz2(0x01,0x03,0x0e,0xf4,0x88,0x90,0xa0,0xc0,0x80,0xc0,0xa0,0xff,0x08,0x04,0x02,0x01,)； /片 longdelay(); hz(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,0x60,0x01,0x06,0x1c,0xfc,0xc4,0x34,0x0c,0x03,); hz2(0xc0,0x3f,0x1c,0x13

13、,0x11,0x16,0x18,0x60,0x01,0x9e,0x9c,0x64,0xc4,0xb8,0x7c,0x03,)； /15 longdelay(); hz(0xc0,0x3e,0x1c,0x13,0x11,0x17,0x1e,0x60,0x01,0x0e,0x1c,0x64,0xc4,0xb4,0x0c,0x03,); /2 longdelay(); hz(0x81,0x5d,0x75,0x55,0x5d,0x45,0x7f,0x45,0x09,0x31,0xd7,0x14,0x1c,0x18,0x30,0x40,); hz2(0x00,0x79,0x4a,0x4c,0x7a,0x

14、11,0xfe,0x42,0x84,0x58,0xe0,0x10,0x0c,0x07,0x02,0x01,)； /歌 longdelay(); hz(0x80,0x40,0x22,0x3f,0x2a,0x26,0x22,0x63,0x5f,0x43,0xc2,0xc6,0x4a,0x12,0x20,0x40,); hz2(0x00,0x05,0x1a,0x34,0xe8,0x58,0x24,0x42,0xfc,0x40,0x20,0x50,0x38,0x1c,0x0a,0x01,)； /乐 longdelay(); hz(0x80,0x40,0x27,0x10,0x08,0x04,0x02,0

15、xff,0x00,0x01,0x02,0x04,0x08,0x17,0x20,0x40,); hz2(0x00,0x05,0xfe,0x04,0x0c,0x14,0x24,0xfc,0x84,0x44,0x24,0x14,0x0c,0xfe,0x02,0x01,)； /山 longdelay(); hz(0xa2,0x6a,0xa6,0x73,0x2e,0x2e,0x22,0x27,0x24,0x25,0xff,0x24,0x2c,0x37,0x20,0x40,); hz2(0x41,0x43,0x4e,0xf4,0x48,0x52,0x24,0xc8,0xb0,0xc0,0xff,0xb0,

16、0x98,0x8c,0x0a,0x01,)； /辣longdelay(); hz(0x80,0x40,0x60,0x50,0x48,0x44,0x42,0x47,0x48,0x51,0x62,0x44,0x08,0x11,0x20,0x40,); hz2(0x80,0x81,0x82,0x84,0x88,0x92,0xa1,0xfe,0x80,0xc0,0xa0,0x90,0x88,0x84,0x82,0x01,)； /子longdelay(); hz(0xa0,0x68,0x26,0x31,0x2e,0x34,0x02,0x3f,0x30,0x6d,0xa2,0x25,0x3e,0x10,0

17、x20,0x40,); hz2(0x08,0x11,0x62,0x84,0xc8,0x30,0x20,0xd0,0x90,0xd0,0xb0,0x92,0x89,0xfe,0x02,0x01,)； /鸡longdelay(); hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,); hz2(0xc0,0x3f,0x1c,0x13,0x11,0x16,0x18,0x60,0x01,0x9e,0x9c,0x64,0xc4,0xb8,0x7c,0x03,)； /35 longdelay

18、(); hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,); /3 longdelay(); hz(0xa2,0x6a,0xa6,0x73,0x2e,0x2e,0x22,0x27,0x24,0x25,0xff,0x24,0x2c,0x37,0x20,0x40,); hz20x41,0x43,0x4e,0xf4,0x48,0x52,0x24,0xc8,0xb0,0xc0,0xff,0xb0,0x98,0x8c,0x0a,0x01, ()； /辣 longdelay(); hz(0

19、x90,0x4c,0xa0,0x73,0x0c,0x06,0x02,0x03,0x02,0xff,0x02,0x06,0x0a,0x12,0x22,0x40,); hz2(0x20,0x21,0xff,0x04,0x08,0x10,0x20,0x40,0x80,0xff,0x20,0x10,0x08,0x04,0x02,0x01,)； /汁 longdelay(); hz(0xa0,0x61,0x21,0x31,0x2f,0xfd,0x23,0x21,0x20,0x23,0xfa,0x26,0x2a,0x33,0x20,0x40,); hz2(0x02,0x05,0x0a,0x34,0xc8,

20、0x14,0x26,0xfc,0x80,0xfe,0x24,0x14,0x0c,0xfe,0x02,0x01,)； /茄longdelay(); hz(0x80,0x42,0x27,0x1a,0x7a,0x27,0x06,0x01,0x02,0x0f,0x7a,0x27,0x0e,0x14,0x20,0x40,); hz2(0x02,0x03,0x22,0x66,0xaa,0x32,0x22,0x42,0xa2,0x62,0xa2,0x32,0x2a,0x26,0x02,0x01,)； /丝 longdelay(); hz(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,

21、0x60,0x01,0x06,0x1c,0xfc,0xc4,0x34,0x0c,0x03,); hz2(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,0x60,0x01,0x06,0x1c,0xfc,0xc4,0x34,0x0c,0x03,)； /15 longdelay();dispbulai() /显示不辣菜 P3.3=0; P3.0=0; P3.1=0; P3.6=1; P3.7=0; longdelay(); bz=1; rq=0; while(1) hz(0x80,0x48,0x28,0x1f,0x08,0x04,0x02,0x01,0x00,0x01,0x0

22、2,0x04,0x08,0x10,0x20,0x40,); hz2(0x00,0x05,0x06,0xfc,0x0c,0x14,0x20,0x40,0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01,)； /1 longdelay(); hz(0xa4,0x5c,0x27,0xff,0x0d,0x14,0x3f,0x2b,0x2a,0xab,0x7f,0x2e,0x2a,0x3f,0x22,0x40,); hz2(0x10,0xe1,0x02,0xff,0x0a,0x9c,0xf0,0xdf,0x92,0xd2,0xf2,0x92,0x9a,0x9f,0x02,0x

23、01,)； /糖 longdelay(); hz(0xcf,0x48,0x7f,0x58,0x7f,0x4c,0x4f,0x43,0x12,0xff,0x12,0x16,0xfe,0x12,0x22,0x40,); hz2(0xfe,0xa5,0x26,0x24,0xac,0xb4,0xfe,0x40,0xff,0xd2,0xb2,0x92,0x9a,0xff,0x02,0x01,)； /醋 longdelay(); hz(0x80,0x40,0xff,0x99,0x89,0x8d,0x8b,0xff,0x89,0x89,0x8b,0x8d,0xff,0x10,0x20,0x40,); hz2

24、(0x02,0x03,0x22,0x26,0x2a,0x32,0x22,0xfe,0xa2,0x62,0x22,0x32,0x2a,0x06,0x02,0x01,)； /里longdelay(); hz(0x80,0x49,0x6d,0x3a,0x1b,0x05,0x1b,0xe1,0x11,0x09,0x27,0x35,0x5a,0x13,0x22,0x40,); hz2(0x00,0x01,0x02,0x04,0xff,0x50,0x70,0x50,0xd0,0x52,0x71,0xfe,0x08,0x04,0x02,0x01,)； /脊longdelay(); hz(0x00,0x05,

25、0x06,0xfc,0x0c,0x14,0x20,0x40,0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01,); hz2(0xc0,0x3f,0x1c,0x13,0x11,0x16,0x18,0x60,0x01,0x9e,0x9c,0x64,0xc4,0xb8,0x7c,0x03,)； /15longdelay();hz(0xc0,0x3e,0x1c,0x13,0x11,0x17,0x1e,0x60,0x01,0x0e,0x1c,0x64,0xc4,0xb4,0x0c,0x03,)； /2 longdelay(); hz(0x80,0x61,0x22,0x3c,

26、0x29,0xff,0x2e,0x29,0x29,0xff,0x2a,0x2c,0x2f,0x30,0x20,0x40,); hz2(0x00,0x03,0xae,0xa4,0x2c,0x52,0x62,0xd2,0x9a,0xc2,0x62,0x3e,0xd8,0x0e,0x06,0x01,)； /葱 longdelay(); hz(0x88,0xc6,0x60,0x1f,0x08,0x0f,0x0a,0x09,0x08,0xff,0x0a,0x0c,0x08,0x1f,0x20,0x40,); hz2(0x20,0x21,0xff,0x04,0x08,0xff,0x62,0x42,0xc2

27、,0xfe,0x62,0x52,0x4a,0xff,0x02,0x01,)； /油 longdelay(); hz(0x84,0x5f,0xe4,0x37,0x2c,0x37,0x02,0x7f,0x49,0x49,0x7f,0x4d,0x49,0x7f,0x20,0x40,); hz2(0x02,0xf3,0x92,0xf4,0x9c,0xf4,0x22,0x62,0xa2,0x62,0xfe,0x32,0x2a,0x26,0x02,0x01,)； /鲤 longdelay(); hz(0x84,0x5f,0xe4,0x37,0x2c,0x37,0x02,0x7f,0x49,0x49,0x7

28、f,0x4d,0x49,0x7f,0x20,0x40,); hz2(0x02,0xf3,0x92,0xf4,0x9c,0xf4,0x22,0x62,0xa2,0x62,0xfe,0x32,0x2a,0x26,0x02,0x01,)； /鱼 longdelay(); hz(0xc0,0x3e,0x1c,0x13,0x11,0x17,0x1e,0x60,0x01,0x0e,0x1c,0x64,0xc4,0xb4,0x0c,0x03,); hz2(0xc0,0x3f,0x1c,0x13,0x11,0x16,0x18,0x60,0x01,0x9e,0x9c,0x64,0xc4,0xb8,0x7c,0x

29、03,)； /25longdelay(); hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,); /3 longdelay(); hz(0x82,0x4a,0x6a,0x32,0x2a,0xff,0x16,0x27,0xd7,0x4b,0x4a,0x56,0x6a,0x12,0x22,0x40,); hz2(0x00,0x01,0xff,0x9e,0xaa,0xda,0xaa,0xca,0xea,0xea,0xaa,0xba,0xff,0x04,0x02,0x01,)； /酱

30、longdelay(); hz(0x84,0x44,0x24,0x14,0x0c,0x04,0x07,0xff,0x05,0x05,0x06,0x04,0x0c,0x14,0x24,0x40,); hz2(0x00,0x01,0x02,0x04,0x08,0x30,0xe0,0x40,0x80,0x60,0x30,0x1c,0x0e,0x07,0x02,0x01,)； /大 longdelay(); hz(0x80,0x46,0x24,0xfc,0xad,0xa5,0xa7,0xbd,0x85,0x85,0x87,0xfd,0x0c,0x16,0x24,0x40,); hz2(0x00,0x0

31、1,0x02,0x04,0xff,0x50,0x70,0x50,0xd0,0x52,0x71,0xfe,0x08,0x04,0x02,0x01,)； /骨 longdelay(); hz(0xc0,0x30,0x0f,0x07,0x09,0x1f,0x18,0x60,0x01,0xe6,0x38,0x64,0xe4,0xfc,0x2c,0x03,); hz2(0xc0,0x37,0x0c,0x13,0x11,0x0e,0x1f,0x60,0x01,0xf6,0x18,0x64,0xc4,0x38,0xfc,0x03,)； /40 longdelay(); hz(0xc0,0x30,0x0f,0x07,0x09,0x1f,0x18,0x60,0x01,0xe6,0x38,0x64,0xe4,0xfc,0x2c,0x03,); /4 longdelay(); hz(0x80,0x40,0x27,0x10,0x08,0x04,0x02,0xff,0x00,0x01,0x02,0x04,0x08,0x17,0x20,0x40,); hz2(0x00,0x05,0xfe,0x04,0x0c,0x14,0x24,0xfc,0x84,0x44,0x24,0x14,0x0c,0xfe,0x02,0x0