系統(tǒng)執(zhí)行軟件源程序代碼(參考版)
2025-07-10 15:40本頁(yè)面
【正文】 Mid(Date$, 6, 2) amp。錯(cuò)誤處理 Case EventOverrun = = Exit Sub Case EventRxOver = = Exit Sub Case EventTxFull = = Exit Sub Case EvReceive Dim str As String b = Date$ a = Time$ 39。端口設(shè)置 = 1 = 9600,n,8,1 = 0 = 1024 = 512 = True = 0 = 1 = 0 = 0 = = End SubPrivate Sub MSComm_OnComm() Select Case 39。發(fā)送數(shù)據(jù) For I = 1 To 200 39。發(fā)送數(shù)據(jù)不能為空 x = MsgBox(發(fā)送數(shù)據(jù)不能為空, 16) Exit Sub End If If Not Then 39。 = 2 For I = 1 To 2 39。延時(shí) NextEnd SubPrivate Sub button_now3_Click() = + 3 39。發(fā)送數(shù)據(jù) T = 11 39。 = 1 For I = 1 To 2 39。8,9,A,b,C,c,黑屏 END三、計(jì)算機(jī)實(shí)驗(yàn)室溫控系統(tǒng)PC機(jī)應(yīng)用程序代碼：（Visual Basic）Dim x As IntegerDim y As IntegerDim T As IntegerDim C As IntegerDim I As IntegerPrivate Sub button_now1_Click() = + 1 39。0,1,2,3 DB 6dh,7dh,07h,7fh,6fh 。啟動(dòng)串口發(fā)送個(gè)位的數(shù)據(jù) jnb ti,$ clr ti SETB TB8 RET ascii_tab:db 30h,31h,32h,33h,34h,35h,36h,37h,38h,39h 。LCALL BCDZH 。清除發(fā)送中斷標(biāo)志位 mov a,b 。啟動(dòng)串口發(fā)送10位的數(shù)據(jù) jnb ti,$ 。LCALL BCDZH 。分出十位在acc中，個(gè)位在b中 movc a,a+dptr 。溫度值為16進(jìn)制方式，控制范圍不超過(guò)100oC div ab 。4,5,6,7 DB 058H,040H,00H 。附錄一 系統(tǒng)執(zhí)行軟件源程序代碼一、 系統(tǒng)多機(jī)通信從機(jī)源程序代碼 ** *Lu Bo* ** ORG 0000H SJMP MAIN ORG 0023H ；串行口中斷入口 SJMP SJCS主程序 MAIN: SLAVE EQU 12 DK EQU MOV SCON,0B0H MOV TMOD,20H 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
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1