【正文】 緩沖區(qū)中接收到一個字符，就產(chǎn)生一次OnComm事件 Else = 打開串口 = vbBlack = False End IfProcedureExit: Exit SubErrorHandler: MsgBox 確認串口 Resume ProcedureExitEnd SubPrivate Sub Timer1_Timer()If = 1 Then = 3End IfEnd SubPrivate Sub Timer2_Timer()If = 1 Then = 2End IfEnd Sub40。設置數(shù)據(jù)格式為字符制 End If = vbRed = True = 0 39。設置波特率、校驗位、數(shù)據(jù)位、停止位 If = 二進制 Then = InputModeBinary 39。 , amp。 , amp。 , amp。 = 2 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlackEnd SubPrivate Sub Command6_Click() = 4 = 0 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlackEnd SubPrivate Sub Command7_Click() = 5 = 0 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End SubPrivate Sub Command5_Click()On Error GoTo ErrorHandlerIf = 打開串口 Then = 關閉串口 MSComm1mPort = Val(Mid(, 4, Len() 3)) 39。 } else TI = 0。239。539。439。339。139。m++) lcd_wdat(cdis6[m])。 for(m=0。 LED6=0。 LED2=0。 delay(1)。) 汽車夜間行駛車前燈全亮。 } else if(SBUF==39。639。239。439。339。139。m++) lcd_wdat(cdis5[m])。 for(m=0。 LED2=0。 LED8=0。 LED6=0。 delay(1)。539。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1 ) break。||SBUF==39。||SBUF==39。||SBUF==39。||SBUF==39。 if(SBUF==39。m16。 lcd_pos(0x40)。439。 } break。m++) lcd_wdat(cdis3[m])。 for(m=0。 delay(100)。 delay(100)。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1) while(1)。||SBUF==39。||SBUF==39。||SBUF==39。||SBUF==39。) 汽車左轉 ；亮并且閃 { if(SBUF==39。 } else if(SBUF ==39。 break。m16。 lcd_pos(0x40)。 P2=0xfb。 { P2=0xff。639。539。439。339。139。239。 ||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1 ) break。||SBUF==39。||SBUF==39。||SBUF==39。||SBUF==39。 if(SBUF==39。m16。 lcd_pos(0x40)。139。if(RI) { RI=0。m16。 lcd_pos(0)。m++) lcd_wdat(cdis6[m])。 for(m=0。 LED6=0。 LED2=0。 delay(1)。尾燈兩邊的中間 燈亮 if(KEY6==1){ delay(10)。m++) lcd_wdat(cdis5[m])。 for(m=0。 LED2=0。 LED8=0。 LED6=0。 delay(1)。 } }汽車倒車；中間四個燈亮if(KEY5==1){ delay(10)。m16。 lcd_pos(0x40)。 } } }汽車臨時剎車全部亮if(KEY4==1){ delay(10)。m++) lcd_wdat(cdis3[m])。 for(m=0。 delay(100)。if(KEY3==1){ P2=0xff。 if(KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1) break。m16。 lcd_pos(0x40)。 while(1) { LED3=~LED3。}}汽車右轉 ；亮并且閃if(KEY2==1){ delay(10)。m16。 lcd_pos(0x40)。 白天正常行駛指示燈全滅 if(KEY1==1){delay(10)。m16。 while(1){ lcd_pos(0)。m16。 lcd_pos(0x40)。m++) lcd_wdat(cdis7[m])。 設置顯示位置為第一行的第1個字符 for(m=0。 延時 lcd_init()。P0=0。 P1=0x00。 允許串口中斷 TR1=1。 TL1計數(shù)，溢出后，TH1值送入TL1EA=1。 SM0=0,SM1=1,REN=1 串口工作方式1，允許接收 TH1=0xfd。{ TMOD=0x20。}******************************************************************** ** 設定顯示位置