【正文】 k。 } else if(SBUF ==39。339。) 汽車左轉(zhuǎn) ；亮并且閃 { if(SBUF==39。139。||SBUF==39。239。||SBUF==39。439。||SBUF==39。539。||SBUF==39。639。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1) while(1)。 { P2=0xff。 delay(100)。 P2=0xf7。 delay(100)。 lcd_pos(0x40)。 for(m=0。m16。m++) lcd_wdat(cdis3[m])。 break。 } break。 } else if(SBUF==39。439。) 汽車臨時剎車全部亮 { P2=0x00。 lcd_pos(0x40)。 for(m=0。m16。m++) lcd_wdat(cdis2[m])。 if(SBUF==39。139。||SBUF==39。339。||SBUF==39。239。||SBUF==39。539。||SBUF==39。639。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1 ) break。 } else if(SBUF==39。539。) 汽車倒車；中間四個燈亮 { P2=0xff。 delay(1)。 LED5=0。 LED6=0。 LED7=0。 LED8=0。 LED1=0。 LED2=0。 lcd_pos(0x40)。 for(m=0。m16。m++) lcd_wdat(cdis5[m])。 if(SBUF==39。139。||SBUF==39。339。||SBUF==39。439。||SBUF==39。239。||SBUF==39。639。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1 ) break。 } else if(SBUF==39。639。) 汽車夜間行駛車前燈全亮。尾燈兩邊的中間 燈亮 { P2=0xff。 delay(1)。 LED1=0。 LED2=0。 LED5=0。 LED6=0。 lcd_pos(0x40)。 for(m=0。m16。m++) lcd_wdat(cdis6[m])。 if(SBUF==39。139。||SBUF==39。339。||SBUF==39。439。||SBUF==39。539。||SBUF==39。239。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1 ) break。 } else TI = 0。}} }Vb上位機程序 Private Sub Check3_Click()If = True Then If = 1 Then = 尾燈控制 Else = 按鍵控制 End IfElseMsgBox 請打開串口End IfEnd SubPrivate Sub Command1_Click() = 1 = 0 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlackEnd SubPrivate Sub Command10_Click()EndEnd SubPrivate Sub Command2_Click() = 6 = 0 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End SubPrivate Sub Command3_Click() = 1 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlackEnd SubPrivate Sub Command4_Click() = 1 = 039。 = 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。設置串口號 = amp。 , amp。 amp。 , amp。 amp。 , amp。 39。設置波特率、校驗位、數(shù)據(jù)位、停止位 If = 二進制 Then = InputModeBinary 39。設置數(shù)據(jù)格式為二進制 Else = InputModeText 39。設置數(shù)據(jù)格式為字符制 End If = vbRed = True = 0 39。清空接收緩沖區(qū) = 1 39。緩沖區(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