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

精品文档 1欢迎下载 元件清单 名称型号数量 个 单片机AT89S521 RS 232 标准串口设计的接 口电路 MAX2321 串口DB91 光耦MOC30521 双电压比较器LM3931 稳压管LM78051 变压器220V 转 9V1 二极管IN40072 三极管90131 可控硅BTA081 LED 灯发光二极管1 灯泡220V 40W 的白炽灯1 滑动变阻器100K1 光敏电阻LG44162 1001 3301 10K5 1K1 电阻 150K2 1031 1042电容 1054 10pF2 10uF1 1000uF 25F1 电解电容 2200uF 25F1 精品文档 2欢迎下载 P1 0 1 P1 1 2 P1 2 3 P1 3 4 P1 4 5 P1 5 MOSI 6 P1 6 MISO 7 P1 7 SCK 8 RST 9 P3 0 RXD 10 P3 1 TXD 11 P3 2 INT0 12 P3 3 INT1 13 P3 4 T0 14 P3 5 T1 15 P3 6 WR 16 P3 7 RD 17 XTAL2 18 XTAL1 19 GND 20 A8 P2 0 21 A9 P2 1 22 A10 P2 2 23 A11 P2 3 24 A12 P2 4 25 A13 P2 5 26 A14 P2 6 27 A15 P2 7 28 PESN 29 ALE PROG 30 EA VPP 31 P0 7 AD7 32 P0 6 AD6 33 P0 5 AD5 34 P0 4 AD4 35 P0 3 AD3 36 P0 2 AD2 37 P0 1 AD1 38 P0 0 AD0 39 VCC 40 U1 AT89S52 D3 IN4007 L1 LED R1 1K R2 1K C1 104 C2 104 C5 104 Vin 1 GND 2 Vout 3 U5LM7805 R3 10K R8 100 R4 10K VCC 21 3 T1 BTA08 1 2 6 4 U2 MOC3052 C10 103 R6 330 R7 330 VCC C1 1 V 2 C1 3 C2 4 C2 5 V 6 T2out 7 R2in 8 R2out 9 T2in 10 T1in 11 R1out 12 R1in 13 T1out 14 GND 15 VCC 16 U4 MAX232 C6 105 C7 105 C9 105 C8 105 1 6 2 7 3 8 4 9 5 J1 DB9 VCC VCC R5 10K S1 SW PB VCC C12 30pF C13 30pF 1 2 J2 9V VCC OUTPUT A 1 IUTPUT A 2 IUTPUT A 3 GND 4 IUTPUT B 5 IUTPUT B 6 OUTPUT B 7 VCC 8 J3 LM393 R10 10K R14 150K R9 10K R11 150K VCC 1 2 J4 220V R13 100K R15 100K C3 1000uF 25V C4 2200uF 25V Y1 11 0592M U3 LAMP C11 10uF Q1 9013 5V R16 LR R12 LR 1 2 3 4 J5 K1 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 系统已联机 精品文档 3欢迎下载 Me Label8 ForeColor RGB 255 0 0 Me Command1 Caption 断开 commstr 0 unsigned char code succ succ unsigned char code toff toff 关闭灯 unsigned char code tuon tuon unsigned char code trou trou 故障 unsigned char code norm norm unsigned char volatile checksum count bit lightstate 0 bit mode 0 x00 bit errorstate 0 1 故障 0 正常 bit read flag 0 精品文档 8欢迎下载 bit refresh 0 通信 unsigned char volatile counter 0 unsigned int volatile maincounter 0 unsigned char levelval 70 sbit CON P1 0 sbit envir P0 0 sbit lightcheck P0 4 以下为实现单片机和计算机之间的通信程序 void init TMOD 0 x22 SCON 0 x50 TH1 0 xfd TL1 TH1 TR1 1 TH0 0 xa4 TL0 0 xa4 TR0 1 ES 1 ET0 1 IT0 1 EX0 1 EA 1 CON 1 向串口发送一个字符 void send char com unsigned char ch SBUF ch while TI TI 0 向串口发送一个字符串 strlen 为该字符串长度 void send string com unsigned char str unsigned char strlen unsigned char k 0 do 精品文档 9欢迎下载 send char com str k k while k strlen 串口接收中断函数 void serial interrupt 4 using 1 if RI unsigned char ch RI 0 ch SBUF if ch 0 xff count 0 INBUF count ch checksum ch else count INBUF count ch checksum ch if count INBUF LEN 1 void Timer0Interrupt void interrupt 1 using 3 if counter0 CON lightstate else CON 1 if counter 0 counter void INT0Interrupt void interrupt 0 using 2 精品文档 10欢迎下载 counter levelval 调光程序 灯光的亮度等级分为 5 级当路灯为 1 级时候达最亮 2 级次之 5 级为最暗 void main init while 1 if read flag read flag 0 send string com succ OUTBUF LEN if INBUF 1 0 x12 refresh 1 智能 else if INBUF 1 0 x56 if INBUF 1 0 x01 lightstate INBUF 2 else if INBUF 1 0 x02 switch INBUF 2 case 1 levelval 30 break case 2 levelval 40 break case 3 levelval 50 break case 4 levelval 60 break case 5 levelval 70 break 自然光检测程序 if refresh refresh 0 if lightstate send string com tuon 4 else if lightstate 精品文档 11欢迎下载 send string com toff 4 if mode if envir lightstate 1 else if lightstate lightstate 0 故障检测程序 if lights