当前位置：文档之家 › 南昌大学-单片机课程设计-设计图-源程序

南昌大学-单片机课程设计-设计图-源程序

  • 格式：docx
  • 大小：168.99 KB
  • 文档页数：15

(上图硬件原理图可以另存为图片放大了看，清晰度五颗星，放心好了)源程序清单1．汇编程序ORG 0000H ;主程序入口0000 020030 LJMP MAINORG 0003H ;外部中断0入口0003 0200D4 LJMP A2DORG 000BH ;t0入口000B 02007A LJMP SELECTORG 0013H ;外部中断1入口0013 020062 LJMP KEYORG 0030HMAIN: ;主程序0030 75A886 MOV IE,#86H ;外部中断0，t0，外部中断1使能0033 7590F6 MOV P1,#0F6H ;键盘初值0036 758C3C MOV TH0,#3CH ;t0赋初值0039 758AB0 MOV TL0,#0B0H003C 758901 MOV TMOD,#01H ;设置t0工作方式为方式1003F D288 SETB IT0 ;打开中断00041 120048 LCALL XUEHAO ;调用显示学号子程序0044 7C1E MOV R4,#30 ;设置t0延时次数，即任务中延时1.5s的功能选择，因为定时器最多计时65536us，所以需要多次计时累计0046 80FE SJMP $ ;踏步命令0048 9001A7 XUEHAO: MOV DPTR,#XUEHAOTAB ;学号显示子程程序004B 7A03 MOV R2,#3 ;3次刷新004D 7B05 XUEHAO2:MOV R3,#5 ;每次发送5个显示码进数码管004F 7400 XUEHAO1:MOV A,#0 ;a清零，dptr自加来选择需要显示的字型码0051 93 MOVC A,@A+DPTR ;查表，给a赋值0052 F599 MOV SBUF,A ;a发送到串行口0054 3099FD JNB TI,$ ;查询串行口发送中断标志位0057 C299 CLR TI ;清除中断标志位，准备进行下一次发送0059 A3 INC DPTR ;dptr加1，指向下一个字型码地址005A DBF3 DJNZ R3,XUEHAO1 ;执行显示5个字型码005C 12018D LCALL DELAY1S ;延迟1s005F DAEC DJNZ R2,XUEHAO2 ;刷新3次0061 22 RET0062 12019E KEY: LCALL DELAY10MS ;键盘按键响应程序0065 20B311 JB P3.3,KEY1 ;延迟10ms之后判断是否按键还是按下状态，为按下则返回0068 9001B6 MOV DPTR,#SHUZITAB ;dptr指向数字表首地址006B 1200B4 LCALL JUDGEKEY ;调用判断键值子程序006E 04 INC A ;键值加1调用字型码（因为硬件显示的数字比键值大1）006F 93 MOVC A,@A+DPTR ;查表得字型码0070 F599 MOV SBUF,A ;发送a到串行口进行显示0072 3099FD JNB TI,$ ;0075 C299 CLR TI0077 D28C SETB TR0 ;打开定时器t00079 32 KEY1: RETI ;中断返回SELECT: ;长按1.5s功能选择程序007A 20B319 JB P3.3,SELECTOUT ;判断按键是否按下，否则返回007D DC17 DJNZ R4,SELECTOUT ;判断是否达到1.5s，否则r4减1返回（r4记录中断次数）007F 1200B4 LCALL JUDGEKEY ;调用判断键值子程序0082 B40003 CJNE A,#0,SELECT1 ;得到a的键值，判断功能0085 12009D LCALL D2A0088 B40103 SELECT1: CJNE A,#1,SELECT2008B 120048 LCALL XUEHAO008E B40303 SELECT2: CJNE A,#3,SELECT30091 1200CA LCALL ATOD0094 7C1E SELECT3: MOV R4,#30 ;r4重新赋初值0096 758C3C SELECTOUT:MOV TH0,#3CH ;定时计数器重新赋初值0099 758A0B MOV TL0,#0BH009C 32 RETI ;中断返回009D 900FFF D2A: MOV DPTR,#0FFFH ;数模转换程序00A0 74C8 MOV A,#20000A2 7A64 MOV R2,#10000A4 14 D2A1: DEC A00A5 F0 MOVX @DPTR,A00A6 B400FB CJNE A,#0,D2A100A9 120195 LCALL DELAY3MS00AC 04 D2A2: INC A00AD F0 MOVX @DPTR,A00AE B4C8FB CJNE A,#200,D2A200B1 DAF1 DJNZ R2,D2A100B3 22 RET00B4 7800 JUDGEKEY: MOV R0,#0 ;键值判断程序00B6 7400 MOV A,#000B8 309402 JNB P1.4,JP100BB 7801 MOV R0,#100BD 7590A7 JP1:MOV P1,#0A7H00C0 309002 JNB P1.0,JP200C3 7402 MOV A,#200C5 28 JP2:ADD A,R000C6 7590F6 MOV P1,#0F6H00C9 22 RET00CA E4 ATOD: CLR A ;模数转换程序00CB D2A8 SETB EX0 ;打开中断000CD 90FFFE MOV DPTR,#0FFFEH ;dptr指向adc0808首地址00D0 F0 MOVX @DPTR,A ;启动adc080800D1 7814 MOV R0,#20 ;重新设定采样次数00D3 22 RET ;返回A2D: ;模数转换中断响应程序00D4 90FFFE MOV DPTR,#0FFFEH00D7 D2D4 A2D1: SETB RS1 ;打开第三组00D9 E0 MOVX A,@DPTR ;取得adc0808反馈值00DA F5F0 MOV B,A ;把a中的值倒置（因为采样的时候是从高位到低位倒置的）00DC 7400 MOV A,#000DE 30F702 JNB B.7,SS100E1 D2E0 SETB ACC.000E3 30F602 SS1:JNB B.6,SS200E6 D2E1 SETB ACC.100E8 30F502 SS2:JNB B.5,SS300EB D2E2 SETB ACC.200ED 30F402 SS3:JNB B.4,SS400F0 D2E3 SETB ACC.300F2 30F302 SS4:JNB B.3,SS500F5 D2E4 SETB ACC.400F7 30F202 SS5:JNB B.2,SS600FA D2E5 SETB ACC.500FC 30F102 SS6:JNB B.1,SS700FF D2E6 SETB ACC.60101 30F002 SS7:JNB B.0,SS80104 D2E7 SETB ACC.70106 75F033 SS8:MOV B,#51 ;以下将得到数值转换成bcd码，因为a 的范围是0~255，电压范围是0~5，所以将得到值除以51得到最高位整数值0109 84 DIV AB ;然后第二位再乘10，除以51，得到第二位，以此类推010A FB MOV R3,A010B E5F0 MOV A,B010D 75F00A MOV B,#100110 A4 MUL AB0111 FA MOV R2,A0112 E5F0 MOV A,B0114 B4000A CJNE A,#00,LP10117 EA MOV A,R20118 75F033 MOV B,#51011B 84 DIV AB011C FA MOV R2,A011D E5F0 MOV A,B011F 800B SJMP LP20121 EA LP1: MOV A,R20122 04 INC A0123 75F033 MOV B,#510126 84 DIV AB0129 FA MOV R2,A012A E5F0 MOV A,B012C 75F00A LP2:MOV B,#10012F A4 MUL AB0130 F9 MOV R1,A0131 E5F0 MOV A,B0133 B40008 CJNE A,#0,LP30136 E9 MOV A,R10137 75F033 MOV B,#51013A 84 DIV AB013B F9 MOV R1,A013C 8009 SJMP LP4013E E9 LP3:MOV A,R1013F 04 INC A0140 75F033 MOV B,#510143 84 DIV AB0144 2405 ADD A,#50146 F9 MOV R1,A0147 120157 LP4:LCALL DIANYA014A C2D4 CLR RS1014C 90FFFE MOV DPTR,#0FFFEH014F F0 MOVX @DPTR,A ;转换完成，最高位，次高位，最低位分别放在r3，r2，r10150 D882 DJNZ R0,A2D0152 7814 MOV R0,#200154 C2A8 CLR EX00156 32 RETI0157 74FF DIANYA: MOV A,#0ffH ;显示电压程序0159 F599 MOV SBUF,A ;显示黑015B 3099FD JNB TI,$015E C299 CLR TI0160 74FF MOV A,#0FFH0162 F599 MOV SBUF,A0164 3099FD JNB TI,$0167 C299 CLR TI0169 9001B6 MOV DPTR,#SHUZITAB016C EB MOV A,R3016D 93 MOVC A,@A+DPTR016E 547F ANL A,#7FH0170 F599 MOV SBUF,A0172 3099FD JNB TI,$0175 C299 CLR TI0178 93 MOVC A,@A+DPTR0179 F599 MOV SBUF,A017B 3099FD JNB TI,$017E C299 CLR TI0180 E9 MOV A,R10181 93 MOVC A,@A+DPTR0182 F599 MOV SBUF,A0184 3099FD JNB TI,$0187 C299 CLR TI0189 12018D LCALL DELAY1S018C 22 RET018D 7D64 DELAY1S: MOV R5,#100 ;延时一秒子程序018F 12019E DELAY1S1: LCALL DELAY10MS0192 DDFB DJNZ R5,DELAY1S10194 22 RET0195 7E06 DELAY3MS: MOV R6,#6 ;延时一秒子程序0197 7FFA DELAY3MS1:MOV R7,#2500199 DFFE DJNZ R7,$019B DEFA DJNZ R6,DELAY3MS1019D 22 RET019E 7E14 DELAY10MS: MOV R6,#20 ;延时一秒子程序01A0 7FFA DELAY10MS1:MOV R7,#25001A2 DFFE DJNZ R7,$01A4 DEFA DJNZ R6,DELAY10MS101A6 22 RET01A7 FFFFF701AA F7F7 XUEHAOTAB:DB 0FFH,0FFH,0F7H,0F7H,0F7H ;学号显示表01AC FBFBAB01AF A7B3 DB 0FBH,0FBH,0ABH,0A7H,0B3H01B1 F9F9C001B4 82B0 DB 0F9H,0F9H,0C0H,82H,0B0H01B6 C0F9A401B9 B0999201BC 82F88001BF 90 SHUZITAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;数字表符号值类型A2D = 00D4H CODE 标号A2D1 = 00D7H CODE 标号AC = 00D6H CONST 常量ACC = 00E0H CONST 常量ATOD = 00CAH CODE 标号B = 00F0H CONST 常量CY = 00D7H CONST 常量D2A = 009DH CODE 标号D2A1 = 00A4H CODE 标号D2A2 = 00ACH CODE 标号DELAY10MS = 019EH CODE 标号DELAY10MS1 = 01A0H CODE 标号DELAY1S = 018DH CODE 标号DELAY1S1 = 018FH CODE 标号DELAY3MS = 0195H CODE 标号DELAY3MS1 = 0197H CODE 标号DIANYA = 0157H CODE 标号DPH = 0083H CONST 常量DPL = 0082H CONST 常量EA = 00AFH CONST 常量ES = 00ACH CONST 常量ET0 = 00A9H CONST 常量ET1 = 00ABH CONST 常量EX0 = 00A8H CONST 常量EX1 = 00AAH CONST 常量F0 = 00D5H CONST 常量F1 = 00D1H CONST 常量IE = 00A8H CONST 常量IE0 = 0089H CONST 常量IE1 = 008BH CONST 常量IP = 00B8H CONST 常量IT0 = 0088H CONST 常量IT1 = 008AH CONST 常量JP1 = 00BDH CODE 标号JP2 = 00C5H CODE 标号KEY = 0062H CODE 标号KEY1 = 0079H CODE 标号LP1 = 0121H CODE 标号LP2 = 012CH CODE 标号LP3 = 013EH CODE 标号LP4 = 0147H CODE 标号MAIN = 0030H CODE 标号OV = 00D2H CONST 常量P = 00D0H CONST 常量P0 = 0080H CONST 常量P1 = 0090H CONST 常量P2 = 00A0H CONST 常量P3 = 00B0H CONST 常量PCON = 0087H CONST 常量PS = 00BCH CONST 常量PSW = 00D0H CONST 常量PT0 = 00B9H CONST 常量PT1 = 00BBH CONST 常量PX0 = 00B8H CONST 常量PX1 = 00BAH CONST 常量RB8 = 009AH CONST 常量REN = 009CH CONST 常量RI = 0098H CONST 常量RS0 = 00D3H CONST 常量RS1 = 00D4H CONST 常量SBUF = 0099H CONST 常量SCON = 0098H CONST 常量SELECT = 007AH CODE 标号SELECT1 = 0088H CODE 标号SELECT2 = 008EH CODE 标号SELECT3 = 0094H CODE 标号SELECTOUT = 0096H CODE 标号SHUZITAB = 01B6H CODE 标号SM0 = 009FH CONST 常量SM1 = 009EH CONST 常量SM2 = 009DH CONST 常量SP = 0081H CONST 常量SS1 = 00E3H CODE 标号SS2 = 00E8H CODE 标号SS3 = 00EDH CODE 标号SS4 = 00F2H CODE 标号SS5 = 00F7H CODE 标号SS6 = 00FCH CODE 标号SS8 = 0106H CODE 标号TB8 = 009BH CONST 常量TCON = 0088H CONST 常量TF0 = 008DH CONST 常量TF1 = 008FH CONST 常量TH0 = 008CH CONST 常量TH1 = 008DH CONST 常量TI = 0099H CONST 常量TL0 = 008AH CONST 常量TL1 = 008BH CONST 常量TMOD = 0089H CONST 常量TR0 = 008CH CONST 常量TR1 = 008EH CONST 常量XUEHAO = 0048H CODE 标号XUEHAO1 = 004FH CODE 标号XUEHAO2 = 004DH CODE 标号XUEHAOTAB = 01A7H CODE 标号公有符号: 97私有符号: 0以下程序为wave输入源程序，不带机器码，方便同学复制粘贴体验神奇效果~ORG 0000H ;主程序入口LJMP MAINORG 0003H ;外部中断0入口LJMP A2DORG 000BH ;t0入口LJMP SELECTORG 0013H ;外部中断1入口LJMP KEYORG 0030HMAIN: ;主程序MOV IE,#86H ;外部中断0，t0，外部中断1使能MOV P1,#0F6H ;键盘初值MOV TH0,#3CH ;t0赋初值MOV TL0,#0B0HMOV TMOD,#01H ;设置t0工作方式为方式1SETB IT0 ;打开中断0LCALL XUEHAO ;调用显示学号子程序MOV R4,#30 ;设置t0延时次数，即任务中延时1.5s的功能选择，因为定时器最多计时65536us，所以需要多次计时累计SJMP $ ;踏步命令XUEHAO: MOV DPTR,#XUEHAOTAB ;学号显示子程程序MOV R2,#3 ;3次刷新XUEHAO2:MOV R3,#5 ;每次发送5个显示码进数码管XUEHAO1:MOV A,#0 ;a清零，dptr自加来选择需要显示的字型码MOVC A,@A+DPTR ;查表，给a赋值MOV SBUF,A ;a发送到串行口JNB TI,$ ;查询串行口发送中断标志位CLR TI ;清除中断标志位，准备进行下一次发送INC DPTR ;dptr加1，指向下一个字型码地址DJNZ R3,XUEHAO1 ;执行显示5个字型码LCALL DELAY1S ;延迟1sDJNZ R2,XUEHAO2 ;刷新3次RETKEY: LCALL DELAY10MS ;键盘按键响应程序JB P3.3,KEY1 ;延迟10ms之后判断是否按键还是按下状态，为按下则返回MOV DPTR,#SHUZITAB ;dptr指向数字表首地址LCALL JUDGEKEY ;调用判断键值子程序INC A ;键值加1调用字型码（因为硬件显示的数字比键值大1）MOVC A,@A+DPTR ;查表得字型码MOV SBUF,A ;发送a到串行口进行显示JNB TI,$ ;CLR TISETB TR0 ;打开定时器t0KEY1: RETI ;中断返回SELECT: ;长按1.5s功能选择程序JB P3.3,SELECTOUT ;判断按键是否按下，否则返回DJNZ R4,SELECTOUT ;判断是否达到1.5s，否则r4减1返回（r4记录中断次数）LCALL JUDGEKEY ;调用判断键值子程序CJNE A,#0,SELECT1 ;得到a的键值，判断功能LCALL D2ASELECT1: CJNE A,#1,SELECT2LCALL XUEHAOSELECT2: CJNE A,#3,SELECT3LCALL ATODSELECT3: MOV R4,#30 ;r4重新赋初值SELECTOUT:MOV TH0,#3CH ;定时计数器重新赋初值MOV TL0,#0BHRETI ;中断返回D2A: MOV DPTR,#0FFFH ;数模转换程序MOV A,#200MOV R2,#100D2A1: DEC AMOVX @DPTR,ACJNE A,#0,D2A1LCALL DELAY3MSD2A2: INC AMOVX @DPTR,ACJNE A,#200,D2A2DJNZ R2,D2A1RETJUDGEKEY: MOV R0,#0 ;键值判断程序MOV A,#0JNB P1.4,JP1MOV R0,#1JP1:MOV P1,#0A7HJNB P1.0,JP2MOV A,#2JP2:ADD A,R0MOV P1,#0F6HATOD: CLR A ;模数转换程序SETB EX0 ;打开中断0MOV DPTR,#0FFFEH ;dptr指向adc0808首地址MOVX @DPTR,A ;启动adc0808MOV R0,#20 ;重新设定采样次数RET ;返回A2D: ;模数转换中断响应程序MOV DPTR,#0FFFEHA2D1: SETB RS1 ;打开第三组MOVX A,@DPTR ;取得adc0808反馈值MOV B,A ;把a中的值倒置（因为采样的时候是从高位到低位倒置的）MOV A,#0JNB B.7,SS1SETB ACC.0SS1:JNB B.6,SS2SETB ACC.1SS2:JNB B.5,SS3SETB ACC.2SS3:JNB B.4,SS4SETB ACC.3SS4:JNB B.3,SS5SETB ACC.4SS5:JNB B.2,SS6SETB ACC.5SS6:JNB B.1,SS7SETB ACC.6SS7:JNB B.0,SS8SETB ACC.7SS8:MOV B,#51 ;以下将得到数值转换成bcd码，因为a的范围是0~255，电压范围是0~5，所以将得到值除以51得到最高位整数值DIV AB ;然后第二位再乘10，除以51，得到第二位，以此类推MOV R3,AMOV A,BMOV B,#10MUL ABMOV R2,AMOV A,BCJNE A,#00,LP1MOV A,R2MOV B,#51MOV R2,AMOV A,BSJMP LP2LP1: MOV A,R2INC AMOV B,#51DIV ABADD A,#5MOV R2,AMOV A,BLP2:MOV B,#10MUL ABMOV R1,AMOV A,BCJNE A,#0,LP3MOV A,R1MOV B,#51DIV ABMOV R1,ASJMP LP4LP3:MOV A,R1INC AMOV B,#51DIV ABADD A,#5MOV R1,ALP4:LCALL DIANYACLR RS1MOV DPTR,#0FFFEHMOVX @DPTR,A ;转换完成，最高位，次高位，最低位分别放在r3，r2，r1DJNZ R0,A2DMOV R0,#20CLR EX0RETIDIANYA: MOV A,#0ffH ;显示电压程序MOV SBUF,A ;显示黑JNB TI,$CLR TIMOV A,#0FFHMOV SBUF,AJNB TI,$MOV DPTR,#SHUZITABMOV A,R3MOVC A,@A+DPTRANL A,#7FHMOV SBUF,AJNB TI,$CLR TIMOV A,R2MOVC A,@A+DPTRMOV SBUF,AJNB TI,$CLR TIMOV A,R1MOVC A,@A+DPTRMOV SBUF,AJNB TI,$CLR TILCALL DELAY1SRETDELAY1S: MOV R5,#100 ;延时一秒子程序DELAY1S1: LCALL DELAY10MSDJNZ R5,DELAY1S1RETDELAY3MS: MOV R6,#6 ;延时一秒子程序DELAY3MS1:MOV R7,#250DJNZ R7,$DJNZ R6,DELAY3MS1RETDELAY10MS: MOV R6,#20 ;延时一秒子程序DELAY10MS1:MOV R7,#250DJNZ R7,$DJNZ R6,DELAY10MS1RETXUEHAOTAB:DB 0FFH,0FFH,0F7H,0F7H,0F7H ;学号显示表DB 0FBH,0FBH,0ABH,0A7H,0B3HDB 0F9H,0F9H,0C0H,82H,0B0HSHUZITAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;数字表。

合集下载

南昌大学单片机实验报告及程序

南昌大学单片机实验报告及程序

实验报告实验课程：单片机原理与应用实验学生姓名：吴晓峰学号：6100311019专业班级：电力系统及其自动化111班2013年 12 月 16 日南昌大学实验报告学生姓名：吴晓峰学号：6100311019 专业班级：电力系统111班实验类型：□验证□综合□设计□创新实验日期：实验成绩：实验一、I/O口的应用一、实验要求单片机P1.0口外接8个LED灯，P3.0口接开关，电路图如下，当开关断开时，流水灯从L1到L7依次间隔0.2秒循环点亮，在任意位置当开关合上时，流水灯便从L7灯开始，按照L7到L6的顺序点亮，晶振选用11.0592MH。

二、选择元器件1．80C512．Crystal3．CAP4．22p ceramic22p5．3watt10k6．LED-BIRG7．SWITCH三、放置元器件及连线用导线连接八位逻辑电平输出模块的K0到CPU模块的RXD（P3.0口）；用8位数据线连接八位逻辑电平显示模块的JD2B到CPU模块的JD8(P1口)。

四、实验程序程序要求：用延时程序设计灯每间隔0.2秒循环点亮1、汇编程序：ORG 0000HLJMP STARTSTART: MOV SP,#60H; 设置堆栈JB P3.0,ZY; 若开关断开，P3.0为1,转到左移子程序JNB P3.0,YY; 若开关合上，P3.0为0,转到右移子程序YY: MOV A,#7FH; 右移程序ACALL YY1RETZY: MOV A,#0FEH; 左移程序ACALL ZY1RETYY1: MOV P1,A; 将A送入P1，灯从L7开始亮ACALL DELAYS; 延时RR A; 右移一位JNB P3.0,YY1; 判断开关是否合上,若合上,P3.0为0,转到YY1，继续右移JB P3.0,START; 若开关断开,P3.0为1,转到START,重新从L1灯开始左移RETZY1: MOV P1,A; 将A送入P1，灯从L1开始亮ACALL DELAYS; 延时RL A; 左移一位JNB P3.0,START; 若开关合上,P3.0为0,转到START,重新从L7灯开始右移JB P3.0,ZY1; 若开关断开,P3.0为1,转到ZY1,继续左移RETDELAYS: MOV R6,#2; 延时0.2sDELAYS2: MOV R4,#100; 延时100msDELAYS1: MOV R5,#230; 延时1msLOOP: NOPNOPDJNZ R5,LOOPDJNZ R4,DELAYS1DJNZ R6,DELAYS2RETEND四、实验心得通过本次对实验程序进行了仿真与调试，因此实验顺利完成，但有些时候还是有问题，本次试验，是我们更加对I/O口有进一步了解，是我们更好地掌握所学的知识现象：打开开关，我们观察到L1到L7灯循环亮。

南昌大学单片机课程设计

南昌大学单片机课程设计

南昌大学单片机课程设计
课程设计任务书
课程名称: 微机原理与接口技术
题目: B5901112154型单片机系统的设计
学院: 机电工程学院系: 机电工程系
专业: 机械设计制造及其自动化
班级: 机制124班
学号: 5901112154
学生姓名:
起讫日期: 6、16---6、23 指导教师: 胡瑢华
系分管主任:
审核日期:
说明
BEIYON1 - 副本.DSN
打开上面的protus软件可以瞧到完整的电路图
1、课程设计任务书由指导教师填写,并经学院审定后下达给学生。

2、进度表就是课程设计工作检查的主要依据。

3、学生根据指导教师下达的任务书,独立完成课程设计。

4、本任务书在课程设计完成后,与说明书、电路原理图与程序清单等
资料一并上交指导教师,作为课程设计的主要档案资料。

单片机课设(三篇课设均带带仿真图和源程序代码)

单片机课设(三篇课设均带带仿真图和源程序代码)

12232 LCD PROTEUS仿真（51C）12232在proteus 里模型用关键字P ，“12232”查不出LCD的，要用1232 查找。

好不容易得到模型，编写程序，一直不能成功。

第一个字符正常，后面的就乱了。

最后才明白：12232的模型和实物不一样，共４页（这和实物一样），每页只能从地址０开始，水平方向从左往右显示。

另外，按实物的程序，仿真中显示是相反的，所以初始化时应改为反向显示，仿真显示才正常。

//12232LCD proteus仿真//2012 01 20 E:\DPJ_C\12232\12232UV4\12232_2C.C#include<reg51.h>#include<intrins.h>#include"chr16.h"#define uchar unsigned char#define uint unsigned int#define LCD_DB P0sbit E2=P3^5;sbit E1=P3^6;sbit A0=P3^7;void WR_Mcom(uchar i){E1=1;_nop_();A0=0;_nop_();_nop_();LCD_DB=i;_nop_();_nop_();E1=0;_nop_();_nop_();}void WR_Mdat(uchar i) {E1=1;_nop_();_nop_();A0=1;_nop_();_nop_();LCD_DB=i;_nop_();_nop_();E1=0;_nop_();_nop_();}void WR_Scom(uchar i) {A0=0;_nop_();_nop_();E2=1;_nop_();_nop_();LCD_DB=i;_nop_();_nop_();E2=0;_nop_();}void WR_Sdat(uchar i){A0=1;_nop_();_nop_();E2=1;_nop_();_nop_();LCD_DB=i;_nop_();_nop_();E2=0;_nop_();_nop_();}void lcdini(){WR_Mcom(0XE2);WR_Scom(0XE2);//WR_Mcom(0XAE);WR_Scom(0XAE);//显示开关：关WR_Mcom(0XA4);//动态显示WR_Scom(0XA4);//WR_Scom(0XA9);//1/32 占空比WR_Mcom(0XA1);WR_Scom(0XA1);WR_Mcom(0XEE);WR_Scom(0XEE);//写模式WR_Mcom(0X00);//起始列0WR_Mcom(0XC0);//起始行0WR_Scom(0X00);WR_Scom(0XC0);WR_Mcom(0XAF);WR_Scom(0XAF);//显示开关：开}void SetPage(uchar page0,uchar page1) {WR_Scom(0xB8|page0);}void SetAddress(uchar address0,uchar address1) {WR_Mcom(address1&0x7F);WR_Scom(address0&0x7F);}void clrscr( ){uchar i;uchar page;for (page=0;page<4;page++){SetPage(page,page);SetAddress(0,0);for (i=0;i<61;i++){WR_Mdat(0);WR_Sdat(0);}}}void display(){uchar i,j,page;for(page=0;page<4;page++){SetPage(page,page);SetAddress(0,0);for(i=0;i<4;i++){for(j=0;j<15;j++){if(page<2){WR_Mdat(chr16[2*i][j+page*15]);WR_Sdat(chr16[2*i+8][j+page*15]);}{WR_Mdat(chr16[2*i+16][j+(page-2)*15]);WR_Sdat(chr16[2*i+24][j+(page-2)*15]);}}}}}void main(){lcdini();clrscr();while(1){display();}}/**************************************************************************************** /CHR16.H //unsigned char code chr16[32][15]={{0x00,0x40,0x40,0xDA,0xFE,0x24,0x20,0xF8,0xDE,0xD6,0xD8,0xC8,0x48,0x00,0x00,},{0x08,0x0C,0x07,0x3F,0x3F,0x03,0x0F,0x1F,0x17,0xD5,0xFF,0x3F,0x11,0x11,0x01,},/*"梅",0*/{0x00,0x00,0x10,0x10,0x9C,0x9C,0x10,0x98,0x9E,0x0E,0x88,0x88,0x08,0x00,0x00,},{0x10,0x18,0x0C,0x7F,0x7F,0x08,0x08,0x3F,0x7F,0x43,0x41,0x40,0x78,0x38,0x00,},/*"花",1*/{0x00,0x00,0x20,0x20,0xE0,0xE0,0x60,0xFA,0xFE,0x24,0x60,0x60,0x20,0x00,0x00,},{0x00,0x10,0x19,0x0F,0x07,0x24,0x38,0x1F,0x07,0x0C,0x38,0x30,0x20,0x20,0x00,},/*"欢",2*/{0x00,0x00,0x00,0x08,0xA8,0xA8,0xFE,0x7E,0xEC,0xC4,0x44,0x00,0x00,0x00,0x00,},{0x08,0x08,0x08,0x08,0x6A,0xEF,0xAD,0xBD,0xD7,0x77,0x34,0x04,0x04,0x04,0x00,},/*"喜",3*/{0x00,0x40,0x40,0x18,0x98,0x84,0xFC,0xFC,0xEC,0xFE,0xDE,0xC4,0x40,0x00,0x00,},{0x00,0x10,0x3C,0x3E,0x42,0x45,0x6D,0x3D,0x1F,0x3F,0x63,0x60,0x40,0x40,0x40},/*"漫",4*/{0x00,0x00,0x80,0x88,0x88,0x88,0xF8,0x7C,0x44,0x44,0x40,0x40,0x00,0x00,0x00,},{0x00,0x20,0x20,0x30,0x1C,0x0F,0x03,0x07,0x0E,0x18,0x30,0x30,0x20,0x20,0x00,},/*"天",5*/{0x00,0x80,0xF0,0x70,0x64,0x64,0xFC,0xFC,0xD6,0xD2,0x10,0x30,0x30,0x00,0x00,},{0x00,0x00,0x00,0x44,0x55,0x55,0x55,0x5F,0x6A,0x3E,0x1E,0x00,0x00,0x00,0x00,},/*"雪",6*/{0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,},{0x00,0x00,0x68,0x78,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00},/*"，",7*/{0x00,0x00,0x10,0xB0,0xB0,0x00,0xE0,0xF8,0xDE,0xD6,0x10,0x10,0x00,0x00,0x00,},{0x00,0x08,0x0C,0x0F,0x23,0x3B,0x1B,0x42,0x7F,0x7F,0x09,0x39,0x31,0x00,0x00,},/*"冻",8*/{0x00,0x00,0x00,0xC8,0xE8,0xA8,0x88,0xFC,0xF4,0x84,0xC4,0x40,0x00,0x00,0x00,},{0x00,0x20,0x31,0x1B,0x0E,0x07,0x01,0x1F,0x3F,0x31,0x20,0x30,0x3C,0x1C,0x00,},/*"死",9*/{0x00,0x00,0x08,0x08,0x0E,0xCE,0xE8,0x68,0xCE,0x8E,0x0E,0x04,0x00,0x00,0x00,},{0x08,0x08,0x0C,0x06,0x3F,0x7F,0x42,0x5E,0x5E,0x43,0x73,0x73,0x02,0x02,0x02,},/*"苍",10*/{0x00,0xC0,0xC0,0xFC,0xFC,0xE0,0xF8,0xB8,0xE8,0xF8,0xDC,0xCC,0x80,0x00,0x00,},{0x00,0x10,0x19,0x0F,0x07,0x07,0x07,0x0F,0x1F,0x3F,0x27,0x27,0x30,0x30,0x00,},/*"蝇",11*/{0x00,0x00,0x00,0x00,0x80,0x90,0xFE,0xFE,0x90,0xD0,0x40,0x00,0x00,0x00,0x00,},{0x00,0x20,0x31,0x19,0x0D,0x07,0xFF,0xFF,0x06,0x0C,0x18,0x10,0x30,0x20,0x00,},/*"未",12*/{0x00,0x00,0x00,0x80,0xB8,0x78,0xE8,0xEC,0x3C,0x3C,0x00,0x00,0x00,0x00,0x00,},{0x20,0x30,0x1C,0x0F,0x07,0x04,0x0F,0x0F,0x19,0x31,0x30,0x20,0x20,0x20,0x20,},/*"足",13*/{0x00,0x80,0x80,0x80,0xC8,0xE8,0xB8,0x9E,0xFE,0xEC,0xC4,0x40,0x40,0x40,0x00,},{0x00,0x00,0x00,0x00,0x0E,0x0E,0x0E,0x06,0xC2,0xFF,0x3F,0x00,0x00,0x00,0x00,},/*"奇",14*/{0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,},{0x00,0x00,0x30,0x30,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,},/*"。

单片机程序流程图及源代码

单片机程序流程图及源代码

单片机上机实验报告【实验一】端口实验，掌握通过端口编程实现数据输出和输入的方法，并观察结果。

实验内容：1）输出实验：假定4个端口全部连接发光二极管，编程实现所有发光二极管同时亮，延迟一定时间（自定）后，又同时灭，如此循环。

2）输入：从P0口输入某个数据到累加器A，打开观察窗口观察数据是否进入累加器A。

实现方式：通过peripherals实现端口数据观察实验。

程序流程图：将P0到P3端口先赋值为0，调用延迟后,再赋1，然后循环执行。

源代码：ORG 0000H ；程序入口地址LJMP MAIN ；跳转到主程序ORG 0300H ；主程序地址MAIN:MOV P0,#00H；MOV P1 ,#00H；MOV P2 ,#00H；MOV P3 ,#00H ；P0~P3均赋值为0ACALL DEL；调用延迟MOV P0 ,#0FFH；MOV P1 ,#0FFH；MOV P2 ,#0FFH；MOV P3 ,#0FFH；P0~P3均设为1MOV A,P0；将P0口值赋给累加器ACALL DEL；AJMP MAIN；跳转到主程序入口ORG 0200H；延迟程序入口地址DEL:MOV R5,#04H；寄存器实现延迟，F3:MOV R6,#0FFH；若主频为12MHZ则F2:MOV R7,#0FFH；延时为256*256*4F1:DJNZ R7,F1；0.26S，人眼可分辨DJNZ R6,F2；DJNZ R5,F3；RET；从延迟程序返回END；结束3.假设P0口外接一个数码管（共阴），如图，请在数码管上轮流显示数字0~9（采用软件延时）。

程序流程图:将数码管的真值编码0~9依次赋给P0并调用延迟，然后循环运行程序即可。

源代码：ORG 0000H; 程序入口SJMP MAIN; 跳转到主程序ORG 0300H; 主程序入口地址MAIN:MOV P0,#0FCH; 将数码管0的编码赋给P0口ACALL DELAY; 调用延迟，使数码管亮0持续0.33SMOV P0,#60H; show 1ACALL DELAY;MOV P0,#0DAH; show 2ACALL DELAY;MOV P0,#0F2H; show 3ACALL DELAY;MOV P0,#66H; show 4ACALL DELAY;MOV P0,#0B6H; show 5ACALL DELAY;MOVP0,#0BEH; show 6ACALL DELAY;MOV P0,#0E0H; show 7ACALL DELAY;MOV P0,#0FEH; show 8ACALL DELAY;MOV P0,#0F6H; show 9ACALL DELAY;AJMP LOOP; 跳转到主程序入口ORG 0200H; 延迟程序入口DEL:MOV R5,#05H; 采用软件延迟，若主频为12MHz，则DEL1:MOV R6,#0FFH; 定时时间为256*256*5*1uS=0.33S，DEL2:MOV R7,#0FFH; 人眼可分辨。