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

《基于单片机的智能路灯控制系统...pdf》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、精品文档元件清单名称型号数量（个）单片机AT89S521RS-232标准串口设计的接MAX2321口电路串口DB91光耦MOC30521双电压比较器LM3931稳压管LM78051变压器220V转9V1二极管IN40072三极管90131可控硅BTA081LED灯发光二极管1灯泡220V40W的白炽灯1滑动变阻器100K1光敏电阻LG4416210013301电阻10K51K1150K21031电容1042105410pF210uF1电解电容1000uF/25F12200uF/25F11欢迎下载。精品文档VCCVCCL1LEDC11S

2、110uFSW-PBU2U3613VCC12R742R6VCC330330J4MOC3052J1C10T112BTA081031LAMP6R82220V1007U1VCC31P1.0VCC408R52P1.1P0.0/AD039410K3P1.2P0.1/AD138U494P1.3P0.2/AD2371051C1+VCC1655P1.4P0.3/AD336VCC105C62V+GND156P1.5/MOSIP0.4/AD435C73C1-T1out14DB97P1.6/MISOP0.5/AD534C84C2+R1in138P1.7/S

3、CKP0.6/AD6335C2-R1out129RSTP0.7/AD732R9611103110KR10R14V-T1inP3.0/RXDEA/VPPR111057T2outT2in1011P3.1/TXDALE/PROG30150KJ310K150K8R2inR2out912P3.2/INT0PESN29VCC8C913P3.3/INT1A15/P2.7281OUTPUTA105MAX23214P3.4/T0A14/P2.627OUTPUTB71526216P3.5/T1A13/P2.525IUTPUTA+617P3.6/WRA12

4、/P2.4243IUTPUTB+R418P3.7/RDA11/P2.323IUTPUTA-5VCCXTAL2A10/P2.2IUTPUTB-10KY119XTAL1A9/P2.1224GND20GNDA8/P2.021R13Q1LM393R16901311.0592MAT89S52R12C12C13R15LRLR30pF30pF100K100KR310KD3LM7805U51VinVout35VJ5IN4007GNDJ21222C4R213C2C32200uF/25VC51K9V4R11041000uF/25V104K11KC1104

5、PrivateDeclareSubSleepLib"Kernel32"(ByValdwMillisecondsAsLong)'通信DimcommflagAsBooleanDimcommstr(0To3)AsByte'灯泡状态true亮false灭DimlightstateAsBoolean'故障指示灯状态true亮false灭DimerrorledstateAsBoolean'联机指示DimconnectionAsBooleanDimconfigAsString//当点击“联机”按钮时或动其他按钮时，如果计算机和硬件未连接，会出现”端

6、口打开错误”的命令窗口；如果计算机和硬件连接了，会出现”系统已联机”的字样。PrivateSubCommand1_Click()OnErrorGoTooutIfNotconnectionThenMe.MSComm1.CommPort=Me.Combo1.ListIndex+1Me.MSComm1.PortOpen=TrueIfMe.MSComm1.PortOpen=FalseThenMsgBox"端口打开错误",vbOKOnly,"错误"Elseconnection=NotconnectionMe.Label8.Caption="系统

7、已联机"2欢迎下载。精品文档Me.Label8.ForeColor=RGB(255,0,0)Me.Command1.Caption="断开"commstr(0)=&HFFcommstr(1)=&H1commstr(2)=&H0commstr(3)=commstr(0)Xorcommstr(1)Xorcommstr(2)commflag=TrueMe.MSComm1.Output=commstrEndIfElseconnection=NotconnectionMe.MSComm1.PortOpen=FalseMe.Label8.Capt

8、ion="系统未联机"Me.Label8.ForeColor=RGB(255,255,255)Me.Command1.Caption="联机"lightstate=Falseerrorledstate=FalseMe.l