1单片机与HD7279的子程序ORG 0100HSTART: MOV SP,#2FHMOV P1,#BLCALL DELAY25MMOV DATA_OUT,#0A4H LCALL SENDSETB CSMAIN: JB KEY,MAINMOV D ATA_OUT,#15H LCALL SENDLCALL RECEIVSETB CSMOV A,DATA_INANI A,#0F0HSWAP AMOV TEN,AMOV A,DATA_INANL A,#0FHMOV DIGTT,AMOV DATA_OUT,#0A1H LCALL SENDMOV DATA_OUT,#81H LCALL SENDLCALL DELAY100MOV DATA_OUT,TEN LCALL SENDMOV DATA_OUT,#80H LCALL SENDLCALL DELAY100MOV DATA_OUT,TEN LCALL SENDMOV DATA_OUT,#80H LCALL SENDLCALL DELAY100MOV DATA-OUT,DIGIT LCALL SENDSETB CSWAIT: INB KEY,WAITLJMP MAIN SEND: MOV BIT_COUNT,#8 CLR CSSEN_LOOP: LCALL DELAY100MOV C,DATA_OUT,7 MOV DAT,CSETB CLK:CLKMOV A,DATA_OUTBLAMOV DATA_OUT,ALCALL DELAY100CLR CLKDJNZ BIT_COUNT,SEND_LOOP CLR DATLCALL DELAY100RETEND2 键盘子程序#include< >#define uint unsigned int#define uchar unsigned char#define ulong unsigned long void delay10ms(); //按键去抖。

void keyboard(){=0;=0;=1;=0;=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;while(key!=0x0f){key=P2key=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&0x0f;}}}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&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=P2key=key&0x0f;}}}}}void delay10ms() {uchar i，j;for(i=50;i>0;i--) for(j=200;j>0;j--); }3 LCD液晶显示子程序#include <>#include <>sbit bz=P3^5；sbit rq=P3^4；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，int yy) //显示命令+坐标子程序{ disp(ff);delay();disp(xx);delay();disp(yy);delay();}hz2(int gg，int dd) // 汉字代码子程序{disp(gg);delay();disp(dd);delay();}displai() //显示辣菜{ =0;=0;=0;=1;=0;longdelay();bz=1;rq=0;while(1){ hz(0xc0,0x38,0x0c,0x1f,0x01,0x06,0x18,0x60,0x01,0x06,0x1c,0xfc,0xc4,0x34,0x0c,0x03,); //1longdelay();hz(0x80,0x41,0x31,0x11,0x19,0x15,0x13,0xff,0x11,0x11,0x13,0 x15,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,0 x5f,0x4c,0x54,0x24,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,0 x24,0x2c,0x37,0x20,0x40,);hz2(0x02,0x0d,0xf2,0x84,0x8a,0xfc,0x20,0xf8,0x80,0x40,0xff, 0x10,0x08,0xf4,0x02,0x01,)； //肺hz(0x80,0x40,0x20,0x7f,0x08,0x0c,0x0a,0x09,0x08,0xf9,0x0a,0 x0c,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,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,); //2longdelay();hz(0x81,0x5d,0x75,0x55,0x5d,0x45,0x7f,0x45,0x09,0x31,0xd7,0 x14,0x1c,0x18,0x30,0x40,);hz2(0x00,0x79,0x4a,0x4c,0x7a,0x11,0xfe,0x42,0x84,0x58,0xe0, 0x10,0x0c,0x07,0x02,0x01,)； //歌hz(0x80,0x40,0x22,0x3f,0x2a,0x26,0x22,0x63,0x5f,0x43,0xc2,0 xc6,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,0xff,0x00,0x01,0x02,0 x04,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,0 x24,0x2c,0x37,0x20,0x40,);hz2(0x41,0x43,0x4e,0xf4,0x48,0x52,0x24,0xc8,0xb0,0xc0,0xff, 0xb0,0x98,0x8c,0x0a,0x01,)； //辣longdelay();hz(0x80,0x40,0x60,0x50,0x48,0x44,0x42,0x47,0x48,0x51,0x62,0 x44,0x08,0x11,0x20,0x40,);hz2(0x80,0x81,0x82,0x84,0x88,0x92,0xa1,0xfe,0x80,0xc0,0xa0, 0x90,0x88,0x84,0x82,0x01,)； //子hz(0xa0,0x68,0x26,0x31,0x2e,0x34,0x02,0x3f,0x30,0x6d,0xa2,0 x25,0x3e,0x10,0x20,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,)； //35longdelay();hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,); //3longdelay();hz(0xa2,0x6a,0xa6,0x73,0x2e,0x2e,0x22,0x27,0x24,0x25,0xff,0 x24,0x2c,0x37,0x20,0x40,);hz20x41,0x43,0x4e,0xf4,0x48,0x52,0x24,0xc8,0xb0,0xc0,0xff,0 xb0,0x98,0x8c,0x0a,0x01, ()； //辣hz(0x90,0x4c,0xa0,0x73,0x0c,0x06,0x02,0x03,0x02,0xff,0x02,0 x06,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,0 x26,0x2a,0x33,0x20,0x40,);hz2(0x02,0x05,0x0a,0x34,0xc8,0x14,0x26,0xfc,0x80,0xfe,0x24, 0x14,0x0c,0xfe,0x02,0x01,)； //茄longdelay();hz(0x80,0x42,0x27,0x1a,0x7a,0x27,0x06,0x01,0x02,0x0f,0x7a,0 x27,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,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,)； //15longdelay();}}dispbulai() //显示不辣菜{=0;=0;=0;=1;=0;longdelay();bz=1;rq=0;while(1){ hz(0x80,0x48,0x28,0x1f,0x08,0x04,0x02,0x01,0x00,0x01,0x02 ,0x04,0x08,0x10,0x20,0x40,);0x10,0x08,0x04,0x02,0x01,)； //1longdelay();hz(0xa4,0x5c,0x27,0xff,0x0d,0x14,0x3f,0x2b,0x2a,0xab,0x7f,0 x2e,0x2a,0x3f,0x22,0x40,);hz2(0x10,0xe1,0x02,0xff,0x0a,0x9c,0xf0,0xdf,0x92,0xd2,0xf2, 0x92,0x9a,0x9f,0x02,0x01,)； //糖longdelay();hz(0xcf,0x48,0x7f,0x58,0x7f,0x4c,0x4f,0x43,0x12,0xff,0x12,0 x16,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,0 x8d,0xff,0x10,0x20,0x40,);hz2(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,0 x35,0x5a,0x13,0x22,0x40,);0xfe,0x08,0x04,0x02,0x01,)； //脊longdelay();hz(0x00,0x05,0x06,0xfc,0x0c,0x14,0x20,0x40,0x80,0x40,0x20,0 x10,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,)； //2longdelay();hz(0x80,0x61,0x22,0x3c,0x29,0xff,0x2e,0x29,0x29,0xff,0x2a,0 x2c,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,0 x0c,0x08,0x1f,0x20,0x40,);hz2(0x20,0x21,0xff,0x04,0x08,0xff,0x62,0x42,0xc2,0xfe,0x62,0x52,0x4a,0xff,0x02,0x01,)； //油longdelay();hz(0x84,0x5f,0xe4,0x37,0x2c,0x37,0x02,0x7f,0x49,0x49,0x7f,0 x4d,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,0x7f,0 x4d,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,0x03,)； //25 longdelay(); hz(0xc0,0x3c,0x1c,0x13,0x11,0x16,0x1c,0x60,0x01,0x1e,0x1c,0x64,0xc4,0xb8,0x7c,0x03,); //3longdelay();hz(0x82,0x4a,0x6a,0x32,0x2a,0xff,0x16,0x27,0xd7,0x4b,0x4a,0 x56,0x6a,0x12,0x22,0x40,);hz2(0x00,0x01,0xff,0x9e,0xaa,0xda,0xaa,0xca,0xea,0xea,0xaa, 0xba,0xff,0x04,0x02,0x01,)； //酱longdelay();hz(0x84,0x44,0x24,0x14,0x0c,0x04,0x07,0xff,0x05,0x05,0x06,0 x04,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,0 xfd,0x0c,0x16,0x24,0x40,);hz2(0x00,0x01,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,)； //40longdelay();hz(0xc0,0x30,0x0f,0x07,0x09,0x1f,0x18,0x60,0x01,0xe6,0x38,0x64,0xe4,0xfc,0x2c,0x03,); //4longdelay();hz(0x80,0x40,0x27,0x10,0x08,0x04,0x02,0xff,0x00,0x01,0x02,0 x04,0x08,0x17,0x20,0x40,);hz2(0x00,0x05,0xfe,0x04,0x0c,0x14,0x24,0xfc,0x84,0x44,0x24, 0x14,0x0c,0xfe,0x02,0x01,)； //山longdelay();hz(0xc2,0x42,0x7f,0x52,0x4a,0x04,0x0b,0x11,0x22,0xc5,0x2a,0 x15,0x08,0x14,0x24,0x40,);hz2(0x10,0x11,0xe3,0x25,0x29,0x12,0x32,0x64,0xa4,0x48,0xa8, 0x10,0x28,0xc4,0x02,0x01,)； //珍longdelay();hz(0x80,0x47,0x20,0xff,0x09,0x35,0x22,0x23,0xf4,0x2d,0x26,0 x2e,0x39,0x37,0x21,0x40,);hz2(0x82,0x0d,0x32,0xc4,0x29,0x92,0xac,0xf0,0x80,0xc0,0xfc, 0x92,0x8a,0x86,0x0e,0x01,)； //烧longdelay();hz(0x80,0x40,0x3f,0x10,0x19,0x16,0x16,0xf9,0x14,0x13,0x13,0 x14,0x18,0x1f,0x20,0x40,);hz2(0x00,0x01,0xff,0x84,0x08,0x10,0x60,0xc0,0xc0,0x60,0x38, 0x12,0x09,0xfe,0x02,0x01,)； //肉longdelay();hz(0xc0,0x3e,0x1c,0x13,0x11,0x17,0x1e,0x60,0x01,0x0e,0x1c,0x64,0xc4,0xb4,0x0c,0x03,);hz2(0xc0,0x3e,0x1c,0x13,0x11,0x17,0x1e,0x60,0x01,0x0e,0x1c,0x64,0xc4,0xb4,0x0c,0x03,)； //25 longdelay();}}shiftup(){=0;=0;=0;=1;=0;disp(0xf5); //上移longdelay();longdelay();longdelay();longdelay();longdelay();longdelay() ;}shiftdown{=0;=0;=0;=1;=0;disp(0xf6); //下移longdelay();longdelay();longdelay();longdelay();longdelay();longdelay() ;}。