《精品專題資料（2021-2022年收藏）基于單片機的智能路燈控制系統(tǒng)...doc》由會員分享，可在線閱讀，更多相關《精品專題資料（2021-2022年收藏）基于單片機的智能路燈控制系統(tǒng)...doc（10頁珍藏版）》請在匯文網上搜索。

1、元件清單名稱型號數量（個）單片機AT89S521RS-232標準串口設計的接口電路MAX2321串口DB91光耦MOC30521雙電壓比較器LM3931穩(wěn)壓管LM78051變壓器220V轉9V1二極管IN40072三極管90131可控硅BTA081LED燈發(fā)光二極管1燈泡220V 40W的白熾燈1滑動變阻器100K1光敏電阻LG44162電阻1001330110K51K1150K2電容103110421054電解電容10pF210uF11000uF/25F12200uF/25F1P1.01P1.12P1.23P1.34P1.45P1.5/MOSI6P1.6/MISO7P1.7/SCK8RST9

2、P3.0/RXD10P3.1/TXD11P3.2/INT012P3.3/INT113P3.4/T014P3.5/T115P3.6/WR16P3.7/RD17XTAL218XTAL119GND20A8/P2.021A9/P2.122A10/P2.223A11/P2.324A12/P2.425A13/P2.526A14/P2.627A15/P2.728PESN29ALE/PROG30EA/VPP31P0.7/AD732P0.6/AD633P0.5/AD534P0.4/AD435P0.3/AD336P0.2/AD237P0.1/AD138P0.0/AD039VCC40U1AT89S52D3IN400

3、7L1LEDR11KR21KC1104C2104C5104Vin1GND2Vout3U5LM7805R310KR8100R410KVCC213T1BTA081264U2MOC3052C10103R6330R7330VCC C1+1V+2C1-3C2+4C2-5V-6T2out7R2in8R2out9T2in10T1in11R1out12R1in13T1out14GND15VCC16U4MAX232C6105C7105C9105C8105162738495J1DB9VCCVCCR510KS1SW-PBVCCC1230pFC1330pF12J29VVCCOUTPUT A1IUTPUT A+2 IU

4、TPUT A-3GND4 IUTPUT B-5 IUTPUT B+6OUTPUT B7VCC8J3LM393R1010KR14150KR910KR11150KVCC12J4220VR13100KR15100KC31000uF/25VC42200uF/25VY111.0592MU3LAMPC1110uFQ190135VR16LRR12LR1234J5K1Private Declare Sub Sleep Lib Kernel32 (ByVal dwMilliseconds As Long)通信Dim commflag As BooleanDim commstr(0 To 3) As Byte燈泡

5、狀態(tài) true 亮 false 滅Dim lightstate As Boolean故障指示燈狀態(tài) true 亮 false 滅Dim errorledstate As Boolean聯(lián)機指示Dim connection As BooleanDim config As String/當點擊“聯(lián)機”按鈕時或動其他按鈕時，如果計算機和硬件未連接，會出現(xiàn)”端口打開錯誤”的命令窗口；如果計算機和硬件連接了，會出現(xiàn)”系統(tǒng)已聯(lián)機”的字樣。Private Sub Command1_Click()On Error GoTo out If Not connection ThenMe.MSComm1.CommPo

6、rt = Me.Combo1.ListIndex + 1 Me.MSComm1.PortOpen = True If Me.MSComm1.PortOpen = False Then MsgBox 端口打開錯誤, vbOKOnly, 錯誤 Else connection = Not connection Me.Label8.Caption = 系統(tǒng)已聯(lián)機 Me.Label8.ForeColor = RGB(255, 0, 0) Me.Command1.Caption = 斷開 commstr(0) = &HFF commstr(1) = &H1 commstr(2) = &H0 commstr

7、(3) = commstr(0) Xor commstr(1) Xor commstr(2) commflag = True Me.MSComm1.Output = commstr End If Else connection = Not connection Me.MSComm1.PortOpen = False Me.Label8.Caption = 系統(tǒng)未聯(lián)機 Me.Label8.ForeColor = RGB(255, 255, 255) Me.Command1.Caption = 聯(lián)機 lightstate = False errorledstate = False Me.leder

8、ror(0).FillColor = RGB(100, 100, 100)Me.ledstate(0).FillColor = RGB(100, 100, 100) End If GoTo out2out: MsgBox 端口打開錯誤, vbOKOnly, 錯誤out2:End SubPrivate Sub Form_Load()Dim timestr As StringMe.ledstate(0).FillColor = RGB(100, 100, 100)Me.lederror(0).FillColor = RGB(100, 100, 100)Me.Label3.Caption = Now

9、()Me.Combo1.ListIndex = 0/端口的參數設置串口MSComm1.Settings = 9600,n,8,1MSComm1.InputMode = 0 采用文本接收MSComm1.InBufferCount = 0 清空接受緩沖區(qū)MSComm1.OutBufferCount = 0 清空傳輸緩沖區(qū)MSComm1.RThreshold = 1 產生MSComm事件恢復時間config = App.Path + + config.iniOpen config For Input As #1 讀取該漢字在16點陣字庫中的原始字模Line Input #1, timestrMe.D

10、TPicker1.Value = timestrLine Input #1, timestrMe.DTPicker2.Value = timestrClose #1清發(fā)送標志commflag = FalseMe.Text1.Text = Str(Me.UpDown1.Value)errorledstate = Falselightstate = Falseconnection = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)保存時間Dim timestr As Stringconfig = App.Path + + config.

11、iniOpen config For Output As #1 讀取該漢字在16點陣字庫中的原始字模Print #1, Me.DTPicker1.ValuePrint #1, Me.DTPicker2.ValueClose #1End Sub/當PC機發(fā)送“開燈”請求時，單片機回送“tuon”命令，開燈成功；當PC機發(fā)送“故障檢測”請求時，單片機回送“trou”命令，說明燈泡故障，VB界面中的故障燈會亮，反之單片機回送“norm”命令，說明燈泡是好的，正常的，VB界面種的故障燈不會發(fā)生變化。Private Sub MSComm1_OnComm()Dim strBuff As StringSel

12、ect Case MSComm1.CommEvent Case 2 strBuff = MSComm1.Input If strBuff = ok Then commflag = False ElseIf strBuff = toff Then Me.ledstate(0).FillColor = RGB(100, 100, 100) lightstate = False commflag = False ElseIf strBuff = tuon Then Me.ledstate(0).FillColor = RGB(255, 0, 0) lightstate = True commflag = FalseElseIf strBuff = trou Then Me.lederror(0).FillColor = RGB(255, 0, 0) ElseIf strBuff = norm Then