【導讀】信號，，并且把信息顯示在LCD1602上。在環(huán)境下，上位機利用。MSCOMM通信控件與單片機之間串口通信實現(xiàn)上位機控制汽車尾燈。程，熟悉電子電路設計的基本方法。關鍵詞：STC89C52RC；發(fā)光二極管；單片機；C語言；VB上位機；汽車尾燈控制器是隨著汽車智能化技術的發(fā)展而迅速發(fā)展起來

　　

【正文】 if(KEY4==1||KEY2==1||KEY1==1||KEY5==1||KEY6==1) break。 } } } //汽車臨時剎車全部亮 if(KEY4==1) { delay(10)。 if(KEY4==1) { P2=0x00。 lcd_pos(0x40)。 28 for(m=0。m16。m++) lcd_wdat(cdis2[m])。 } } //汽車倒車；中間四個燈亮 if(KEY5==1) { delay(10)。 if(KEY5==1) { 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(KEY6==1) { delay(10)。 if(KEY6==1) { P2=0xff。 delay(1)。 LED1=0。 LED2=0。 LED5=0。 LED6=0。 lcd_pos(0x40)。 for(m=0。m16。m++) 29 lcd_wdat(cdis6[m])。 } } } } void UARTinterrupt(void) interrupt 4 { uchar m。 lcd_pos(0)。 //設置顯示位置為第一行的第 1 個字符 for(m=0。m16。m++) lcd_wdat(cdis71[m])。 if(RI) { RI=0。 while(1) { if (SBUF==39。139。) //單引號內表示 ASCII 碼 //白天正常行駛指示燈全滅 { P2=0xff。 lcd_pos(0x40)。 for(m=0。m16。m++) lcd_wdat(cdis1[m])。 if(SBUF==39。239。||SBUF==39。339。||SBUF==39。439。||SBUF==39。539。||SBUF==39。639。 ||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1 ) break。 } else if(SBUF ==39。239。) //汽車右轉 ；亮并且閃 { if(SBUF==39。139。||SBUF==39。339。||SBUF==39。439。||SBUF==39。539。||SBUF==39。639。||KEY4==1||KEY3==1||KEY1==1||KEY5==1||KEY6==1||KEY2==1) while(1)。 { 30 P2=0xff。 delay(100)。 P2=0xfb。 delay(100)。 lcd_pos(0x40)。 for(m=0。m16。m++) lcd_wdat(cdis4[m])。 // break。 } break。 } else if(SBUF ==39。339。) //汽車左 轉 ；亮并且閃 { 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)。 31 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||KE 32 Y1==1||KEY5==1||KEY6==1||KEY2==1 ) break。 } else TI = 0。 } } } Vb 上位機程序 Private Sub Check3_Click() If = True Then If = 1 Then = 尾燈控制 Else = 按鍵控制 End If Else MsgBox 請打開串口 End If End Sub Private Sub Command1_Click() = 1 = 0 = 0 33 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End Sub Private Sub Command10_Click() End End Sub Private Sub Command2_Click() = 6 = 0 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End Sub Private Sub Command3_Click() = 1 = 0 = vbRed = vbBlack = vbBlack = vbBlack 34 = vbBlack = vbBlack End Sub Private Sub Command4_Click() = 1 = 0 39。 = 2 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End Sub Private Sub Command6_Click() = 4 = 0 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End Sub Private Sub Command7_Click() = 5 = 0 35 = 0 = vbRed = vbBlack = vbBlack = vbBlack = vbBlack = vbBlack End Sub Private Sub Command5_Click() On Error GoTo ErrorHandler If = 打開串口 Then = 關閉串口 = 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ū)中接收到一個字符，就產生一次 OnComm 事件 Else = 打開串口 36 = vbBlack = False End If ProcedureExit: Exit Sub ErrorHandler: MsgBox 確認串口 Resume ProcedureExit End Sub Private Sub Timer1_Timer() If = 1 Then = 3 End If End Sub Private Sub Timer2_Timer() If = 1 Then = 2 End If End Sub