系统执行软件源程序代码计算机C资料_计算机-C++资料.pdf

《系统执行软件源程序代码计算机C资料_计算机-C++资料.pdf》由会员分享，可在线阅读，更多相关《系统执行软件源程序代码计算机C资料_计算机-C++资料.pdf（29页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 系统多机通信从机源程序代码*Lu Bo*ORG 0000H SJMP MAIN ORG 0023H SJMP SJCS MAIN:SLAVE EQU 12 DK EQU MOV SCON,#OBOH MOV TMOD,#2OH MOV TL1,#0FDH MOV TH1,#0FDH MOV IE,#90H SETB TR1 ;串行口中断入口 主 程 序 LCALL WDCJ SETB RS1 CLR RS0 LCALL BCDZH LCALL DISPLAY CLR RS1 CLR RS0 SJMP MAIN -串 行 口 中 断 服 务 子 SJCS:CLR RI PUSH A PUSH

2、PSW MOV A,SBUF XRL A,#SLAVE JZ SJCS0 SJCS1:SETB SM2 POP PSW POP A RETI SJCS0:CLR SM2程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能MOV SBUF,#S

3、LAVE JNB TI,$CLR TI JNB RI,$CLR RI MOV A,SBUF XRL A,#11H JZ SJCS2 SJMP SJCS1 SJCS2:MOV A,25H ADD A,#1 MOV SBUF,A JNB TI,$CLR TI MOV 22H,#00H SJMP SJCS1 -18B20 温 度 采 集 子 WDCJ:MOV SP,#60H LCALL GET_TEMP MOV A,21H MOV C,00H RRC A 程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子

4、程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能MOV C,01H RRC A MOV C,02H RRC A MOV C,03H RRC A MOV 21H,A MOV 25H,A LCALL BCDZH LCALL DISPLAY AJMP MAIN -18B20 温 度 采 集 时 序 子 程 序 GET_TEMP:CLR EA LCALL INT MOV A,#0CCH L

5、CALL WRITE MOV A,#44H LCALL WRITE 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能LCALL INT MOV A,#0CCH LCALL WRITE MOV A,#0BEH LCALL WRITE LCALL

6、READ MOV 21H,A LCALL READ MOV 20H,A SETB EA RET -18B20 初 INT:CLR EA L0:CLR DK MOV R2,#200 L1:CLR DK DJNZ R2,L1 SETB DK MOV R2,#30 L4:DJNZ R2,L4 始化子程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送

7、个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能CLR C ORL C,DK JC L0 MOV R6,#80 L5:ORL C,DK JC L3 DJNZ R6,L5 SJMP L0 L3:MOV R2,#200 L2:DJNZ R2,L2 RET -18B20 写 命 令 子 程 序 WRITE:CLR EA MOV R3,#8 WR1:SETB DK MOV R4,#8 RRC A CLR DK WR2:DJNZ R4,WR2 MOV DK,C MOV R4,#20 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码

8、子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能WR3:DJNZ R4,WR3 DJNZ R3,WR1 SETB DK RET -18B20 读数据子程序 READ:CLR EA MOV R6,#8 RE1:CLR DK MOV R4,#4 NOP SETB DK RE2:DJNZ R4,RE2 MOV C,

9、DK RRC A MOV R5,#30 RE3:DJNZ R5,RE3 DJNZ R6,RE1 SETB DK RET 八为十六转十进制子程序初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能BCDZH:INC 21H MOV A,21H MOV

10、 30H,#12 JNB,BCD0 MOV 30H,#11 CPL A ADD A,#1 BCD0:MOV R1,#00H MOV R2,#00H CLR C BCD1:SUBB A,#64H JC BCD2 INC R1 SJMP BCD1 BCD2:ADD A,#64H BCD3:SUBB A,#0AH JC BCD4 INC R2 SJMP BCD3 BCD4:ADD A,#0AH MOV 31H,R1 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时

11、子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能MOV 32H,R2 MOV 33H,A RET -四 位 数 码 子 DISPLAY:MOV R3,#4 MOV R0,#30H MOV 3AH,#0f7H DISP0:MOV A,R0 MOV DPTR,#TAB MOVC A,A+DPTR MOV DPTR,#0D00H MOVX DPTR,A MOV DPTR,#0E00H MOV A,3AH MOVX DPTR,A RR

12、 A MOV 3AH,A ACALL DY1ms INC R0 DJNZ R3,DISP0程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能 RET 延时子 DY1ms:MOV R4,#50 LOOP:NOP NOP DJNZ R4,LOO

13、P RET -10ms 延时子 程序 DY10ms:MOV R4,#10 LOOP0:MOV R5,#250 LOOP1:NOP NOP DJNZ R5,LOOP DJNZ R4,LOOP0 RET -十 进 制 码表 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发

14、送数据延时一发送数据不能TAB:DB 3fh,06h,5bh,4fh,66h;0,1,2,3 DB 6dh,7dh,07h,7fh,6fh;4,5,6,7 DB 058H,040H,00H;8,9,C,-,黑屏 END、系统多机通信主机源程序代码*Lu Bo*ORG 0000H SJMP MAIN -主 MAIN:MOV SP,#70H MOV SCON,#98H MOV TMOD,#20H MOV TL1,#0FDH 程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转

15、十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能MOV TH1,#0FDH MOV PCON,#00H MOV R6,#10 MOV R7,#3 MOV 55H,#00H SETB TR1 LCALL BCDZH LCALL DISPLAY MAIN00:LCALL PCJCX LCALL SJCS MOV SCON,#50H lcall serial_send MOV SCON,#98H LCALL PCJC

16、X LCALL SJCS11 LCALL PCJCX SJMP MAIN00 -通 信 子 SJCS:MOV A,R6 MOV SBUF,A LCALL BCDZH LCALL DISPLAY 程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据

17、不能JNB TI,$CLR TI LCALL BCDZH LCALL DISPLAY JNB RI,$CLR RI MOV A,SBUF XRL A,R6 JZ SJCS0 SJCS00:LCALL BCDZH LCALL DISPLAY SETB TB8 SJMP SJCS SJCS0:CLR TB8 MOV 30H,R6 MOV A,#11H MOV SBUF,A LCALL BCDZH LCALL DISPLAY JNB TI,$CLR TI JNB RI,$CLR RI MOV A,SBUF 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序

18、码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能MOV 44H,A LCALL SFJSJ SETB TB8 DJNZ 55H,SJCS RET SJCS11:MOV 55H,#00H INC R6 DJNZ R7,SJCS MOV R6,#10 MOV R7,#3 RET SFJSJ:CJNE R6,#11,SFJSJ3 MOV 62

19、H,44H MOV 58H,44H SJMP SFJSJ0 SFJSJ3:JC SFJSJ1 MOV 63H,44H MOV 58H,44H 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能SJMP SFJSJ0 SFJSJ1:MOV 61H,

20、44H MOV 58H,44H SFJSJ0:RET PCJCX:MOV SCON,#50H JNB RI,HH1 LJMP HH2 HH1:LCALL BCDZH LCALL DISPLAY JNB RI,WW5 HH2:CLR RI MOV A,SBUF WW1:CJNE A,#49,WW2 mov 44h,61h lcall bcdzh lcall display MOV 58H,61H lcall serial_send LJMP WW5 PC 机地址判别子程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序

21、代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能WW2:CJNE A,#50,WW3 mov 44h,62h lcall bcdzh lcall display MOV 58H,62H lcall serial_send LJMP WW5 WW3:CJNE A,#51,WW4 mov 44h,63h lcall bcdzh lcall display MOV 58H

22、,63H lcall serial_send LJMP WW5 WW4:CJNE A,#52,WW5 LJMP MAIN WW5:MOV SCON,#98H RET -八 为 十 六 转 十 进 制 子 BCDZH:MOV A,44H MOV 31H,#15 JNB,BCD0 MOV 31H,#14 CPL A ADD A,#1 BCD0:MOV R1,#00H MOV R2,#00H CLR C BCD1:SUBB A,#64H JC BCD2 INC R1 程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码

23、主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能SJMP BCD1 BCD2:ADD A,#64H BCD3:SUBB A,#0AH JC BCD4 INC R2 SJMP BCD3 BCD4:ADD A,#0AH MOV 32H,R1 MOV 33H,R2 MOV 34H,A RET DISPLAY:MOV R3,#6 MOV 35H,#13 MOV R0,#30H

24、MOV 3AH,#0DFH DISP0:MOV A,R0 MOV DPTR,#TAB MOVC A,A+DPTR MOV DPTR,#0D00H MOVX DPTR,A MOV DPTR,#0E00H MOV A,3AH MOVX DPTR,A 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码

25、发送数据延时发送数据延时发送数据延时一发送数据不能RR A MOV 3AH,A ACALL DY1ms INC R0 DJNZ R3,DISP0 RET 延时子程 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能DY1ms:MOV R4,#50

26、 LOOP:NOP NOP DJNZ R4,LOOP RET -10ms 延 时 子 DY10ms:MOV R4,#10 LOOP0:MOV R5,#250 LOOP1:NOP NOP DJNZ R5,LOOP DJNZ R4,LOOP0 RET -PC 机 通 信 子 serial_send:NOP NOP程序 程序 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取

27、在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能 NOP NOP DEC 58H MOV A,58H mov b,#10 式，控制范围不超过 100oC div ab 十进制数表示 mov dptr,#ascii_tab 在 b 中 movc a,a+dptr ascii 码 mov sbuf,a;LCALL BCDZH;LCALL DISPLAY 的数据 jnb ti,$束，未完时 ti=0，结束时 ti=1 clr ti 标志位 mov a,b movc a,a+dptr 温度值为 16 进制方 因此可只用两位

28、分出十位在 acc 中，个位 用查表法将数转换成 启动串口发送 10 位 等待一帧发送结 清除发送中断 取在 b 中的个位 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能mov sbuf,a;LCALL BCDZH;LCALL DISPLAY

29、 jnb ti,$clr ti SETB TB8 RET ascii_tab:db 30h,31h,32h,33h,34h,35h,36h,37h,38h,39h;0 9ASCII 码表 TAB:DB 3fh,06h,5bh,4fh,66h;0,1,2,3 DB 6dh,7dh,07h,7fh,6fh;4,5,6,7 DB 77H,7CH,39H,058H,040H,00H;8,9,A,b,C,c-,黑屏 END 三、计算机实验室温控系统 PC 机应用程序代码：(Visual Basic)Dim x As Integer Dim y As Integer Dim T As Integer Di

30、m C As Integer Dim I As Integer Private Sub button_now1_Click()=+1 发送数据 T=10 =1 For I=1 To 2 延时 启动串口发送个位的数据 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数

31、据延时一发送数据不能Next End Sub Private Sub button_now2_Click()=+2 发送数据 T=11 =2 For I=1 To 2 延时 Next End Sub初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不

32、能Private Sub button_now3_Click()=+3 发送数据 T=12 =2 For I=1 To 2 延时 Next End Sub Private Sub Button_RECV_C_Click()一 III!=+9 End Sub Private Sub Button_SEND_C_Click()初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断

33、取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能End Sub Private Sub Button_SEND_Click()Dim x As String If=Then 发送数据不能为空 x=MsgBox(发送数据不能为空,16)Exit Sub End If If Not Then 保证串口打开 x=MsgBox(请打开串口,9)=True End If=发送数据 For I=1 To 200 延时 Next End Sub Private Sub Check1_Click()If=1 Then 初始化子程序

34、写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能x=1 Else x=0 End If End Sub Private Sub cmdquit_Click()Open C:For Output As#2 Print#2,Close#2 End End Su

35、b Private Sub Form_Load()端口设置=1=9600,n,8,1初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能=1024=512=True=0=1=0=0 一 III!一 III!End Sub Private Sub M

36、SComm_OnComm()Select Case 检查串口事件 错误处理 Case comEventOverrun III!III!Exit Sub Case comEventRxOver初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能Exi

37、t Sub Case comEventTxFull III!III!Exit Sub Case comEvReceive Dim str As String b=Date$a=Time$Mid(Date$,1,4)&Mid(Date$,6,2)&Mid(Date$,9,2)str=If T=10 Then=NOW1 +str+C 一 III!一 III!Open C:For Append As#1 Print#1,b+a+str+C Close#1 T=13初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信

38、子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能ElseIf T=11 Then III!=N0W2+str+C 一 III!Open C:For Append As#1 Print#1,b+a+str+C Close#1 T=13 ElseIf T=12 Then 一 III!一 III!=NOW3+str+C Open C:For Append As#1 Print#1,b+

39、a+str+C Close#1 T=13 Else=+b+a+str+C+Open C:For Append As#1 Print#1,b+a+str+C Close#1 End If End Select 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能End Sub Private Sub Timer1_Timer()If x=1 Then=+4 End If End Sub 初始化子程序写命令子程序读数据子程序八为十六转十进制子程序四位数码子程序延时子十进制延时子程序码表黑屏系统多机通信主机源程序代码主程序通信子程序机地址判别子程序八为十六转十进制子程序延时子程延时子程序机的数据束未完时结束时标志位数转换成启动串口发送位等待一帧发送结清除发送中断取在中的个位启动串口发送个位的数据码表黑屏三计算机实验室温控系统机应用程序代码发送数据延时发送数据延时发送数据延时一发送数据不能