基于单片机的智能路灯控制系统...docVIP

元件清单 名称 型号 数量（个） 单片机 AT89S52 1 RS-232标准串口设计的接口电路 MAX232 1 串口 DB9 1 光耦 MOC3052 1 双电压比较器 LM393 1 稳压管 LM7805 1 变压器 220V转9V 1 二极管 IN4007 2 三极管 9013 1 可控硅 BTA08 1 LED灯 发光二极管 1 灯泡 220V 40W的白炽灯 1 滑动变阻器 100K 1 光敏电阻 LG4416 2 电阻 100 1 330 1 10K 5 1K 1 150K 2 电容 103 1 104 2 105 4 电解电容 10pF 2 10uF 1 1000uF/25 1 2200uF/25 1  Private Declare Sub Sleep Lib Kernel32 (ByVal dwMilliseconds As Long) 通信 Dim commflag As Boolean Dim commstr(0 To 3) As Byte 灯泡状态 true 亮 false 灭 Dim lightstate As Boolean 故障指示灯状态 true 亮 false 灭 Dim errorledstate As Boolean 联机指示 Dim connection As Boolean Dim config As String //当点击“联机”按钮时或动其他按钮时，如果计算机和硬件未连接，会出现”端口打开错误”的命令窗口；如果计算机和硬件连接了，会出现”系统已联机”的字样。 Private Sub Command1_Click() On Error GoTo out If Not connection Then Me.MSComm1.CommPort = Me.Combo1.ListIndex + 1 Me.MSComm1.PortOpen = True If Me.MSComm1.PortOpen = False Then MsgBox 端口打开错误, vbOKOnly, 错误 Else connection = Not connection Me.Label8.Caption = 系统已联机 Me.Label8.ForeColor = RGB(255, 0, 0) Me.Command1.Caption = 断开 commstr(0) = HFF commstr(1) = H1 commstr(2) = H0 commstr(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 = 系统未联机 Me.Label8.ForeColor = RGB(255, 255, 255) Me.Command1.Caption = 联机 lightstate = False errorledstate = False Me.lederror(0).FillColor = RGB(100, 100, 100) Me.ledstate(0).FillColor = RGB(100, 100, 100) End If GoTo out2 out: MsgBox 端口打开错误, vbOKOnly, 错误 out2: End Sub Private Sub Form_Load() Dim timestr As String Me.ledstate(0).FillColor = RGB(100, 100, 100) Me.lederror(0).FillColor = RGB(100, 100, 100) Me.Label3.Caption = Now() Me.Combo1.ListIndex = 0 //端口的参数设置 串口 MSComm1.Settings = 9600,n,8,1 MSComm1.InputMode = 0