建筑集成系统课程设计.docx

1 设计目的和要求具体要求：可利用第三方软件进行辅助调试，但必须独立编写设备驱动程序，完成对支持modbus TCP协议的设备读写和管理。2 实验内容及过程（1）Server服务器程序代码Dim modbus_addr As ByteDim flag As IntegerPrivate Sub Check1_Click(Index As Integer)Select Case IndexCase 0If Check1(0).Value = 1 ThenWinsock1.SendData light0_onElseWinsock1.SendData light0_offEnd IfCase 1If Check1(1).Value = 1 ThenWinsock1.SendData light1_onElseWinsock1.SendData light1_offEnd IfCase 2If Check1(2).Value = 1 ThenWinsock1.SendData light2_onElseWinsock1.SendData light2_offEnd IfCase 3If Check1(3).Value = 1 ThenWinsock1.SendData light3_onElseWinsock1.SendData light3_offEnd IfEnd SelectEnd SubPrivate Sub disconnect_Click()Winsock1.Closedisconnect.Enabled = Falsesetport.Enabled = TrueEnd SubPrivate Sub exit_Click()Winsock1.CloseUnload MeEnd SubPrivate Sub Form_Load()flag = 1End SubPrivate Sub reset1_Click()Text3.Text = End SubPrivate Sub reset2_Click()Text4.Text = flag = 1End SubPrivate Sub send_Click()Winsock1.SendData Text3.TextEnd SubPrivate Sub setport_Click()If Text2.Text = ThenMsgBox 请输入端口号！, vbRetryCancel + vbExclamation, 警告Text2.SetFocusElseWinsock1.LocalPort = Text2.TextWinsock1.Listensetport.Enabled = Falsedisconnect.Enabled = TrueMsgBox 设置端口号 & Text2.Text & 成功！, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate Sub Timer1_Timer()Dim state As Integerstate = Winsock1.stateSelect Case stateCase 0StatusBar1.Panels(1).Text = 关闭状态Shape1.BackColor = &HC0C0C0send.Enabled = FalseCheck1(0).Enabled = FalseCheck1(1).Enabled = FalseCheck1(2).Enabled = FalseCheck1(3).Enabled = FalseCase 1StatusBar1.Panels(1).Text = 打开状态Shape1.BackColor = &HFF0000Case 2StatusBar1.Panels(1).Text = 侦听状态Shape1.BackColor = &HC0C0C0send.Enabled = FalseCheck1(0).Enabled = FalseCheck1(1).Enabled = FalseCheck1(2).Enabled = FalseCheck1(3).Enabled = FalseCase 3StatusBar1.Panels(1).Text = 连接状态Shape1.BackColor = &HFF0000Case 4StatusBar1.Panels(1).Text = 解析主机中Case 5StatusBar1.Panels(1).Text = 已解析主机Case 6StatusBar1.Panels(1).Text = 正在连接.Shape1.BackColor = &H80FFFFCase 7StatusBar1.Panels(1).Text = 已经连接Shape1.BackColor = &HFF0000send.Enabled = TrueCheck1(0).Enabled = TrueCheck1(1).Enabled = TrueCheck1(2).Enabled = TrueCheck1(3).Enabled = TrueCase 8StatusBar1.Panels(1).Text = 客户端已关闭Shape1.BackColor = &HC0C0C0send.Enabled = FalseCheck1(0).Enabled = FalseCheck1(1).Enabled = FalseCheck1(2).Enabled = FalseCheck1(3).Enabled = FalseCase 9StatusBar1.Panels(1).Text = 连接发生错误Shape1.BackColor = &H8080FFsend.Enabled = FalseCheck1(0).Enabled = FalseCheck1(1).Enabled = FalseCheck1(2).Enabled = FalseCheck1(3).Enabled = FalseEnd SelectEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim tempS As StringWinsock1.GetData tempSIf flag = 1 ThenText4.Text = tempSflag = 0ElseText4.Text = Text4.Text & vbCrLf & tempSEnd IfEnd SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)If Winsock1.state sckClosed ThenWinsock1.CloseWinsock1.Accept requestIDText1.Text = Winsock1.RemoteHostIPEnd IfEnd Sub（2）Client客户端程序代码Dim modbus_addr As ByteDim flag As IntegerPrivate Sub connect_Click()Dim ip As StringDim port As Stringip = Text1.Textport = Text2.TextIf (ip = Or port = ) ThenMsgBox 请输入完整的IP和端口号！, vbRetryCancel + vbExclamation, 警告Text1.SetFocusElseWinsock1.RemoteHost = ipWinsock1.RemotePort = portWinsock1.connectconnect.Enabled = Falsedisconnect.Enabled = TrueEnd IfEnd SubPrivate Sub disconnect_Click()Winsock1.Closeconnect.Enabled = Truedisconnect.Enabled = FalseEnd SubPrivate Sub exit_Click()Winsock1.CloseUnload MeEnd SubPrivate Sub Form_Load()flag = 1End SubPrivate Sub reset1_Click()Text3.Text = End SubPrivate Sub reset2_Click()Text4.Text = flag = 1End SubPrivate Sub send_Click()Winsock1.SendData Text3.TextEnd SubPrivate Sub Timer1_Timer()Dim state As Integerstate = Winsock1.stateSelect Case stateCase 0StatusBar1.Panels(1).Text = 关闭状态Shape1.BackColor = &HC0C0C0send.Enabled = FalseCase 1StatusBar1.Panels(1).Text = 打开状态Shape1.BackColor = &HFF0000Case 2StatusBar1.Panels(1).Text = 侦听状态Shape1.BackColor = &HC0C0C0send.Enabled = FalseCase 3StatusBar1.Panels(1).Text = 连接状态Shape1.BackColor = &HFF0000Case 4StatusBar1.Panels(1).Text = 解析主机中Case 5StatusBar1.Panels(1).Text = 已解析主机Case 6StatusBar1.Panels(1).Text = 正在连接.Shape1.BackColor = &H80FFFFCase 7StatusBar1.Panels(1).Text = 已经连接Shape1.BackColor = &HFF0000send.Enabled = TrueCase 8StatusBar1.Panels(1).Text = 客户端已关闭Shape1.BackColor = &HC0C0C0send.Enabled = FalseCase 9StatusBar1.Panels(1).Text = 连接发生错误Shape1.BackColor = &H8080FFsend.Enabled = FalseEnd SelectEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim tempS As StringDim t As StringDim s As StringWinsock1.GetData tempSt = Left(tempS, 5)s = Mid(tempS, 6, 1) & Mid(tempS, 9, 1)If (t light) Then If flag = 1 Then Text4.Text = tempS flag = 0 Else Text4.Text = Text4.Text & vbCrLf & tempS End IfEnd IfIf (t = light) Then Select Case s Case 0n light(0).BackColor = &HFF00& Case 0f light(0).BackColor = &H8080FF Case 1n light(1).BackColor = &HFF00& Case 1f light(1).BackColor = &H8080FF Case 2n light(2).BackColor = &HFF00& Case 2f light(2).BackColor = &H8080FF Case 3n light(3).BackColor = &HFF00& Case 3f light(3).BackColor = &H8080FF End SelectEnd IfEnd Sub（3）界面图（4）实现的功能1、服务器Server.exe和客户端Client.exe的通信：设置好端口号，启动服务器；在客户端中输入IP地址和端口号（必须与服务器的一致），并连接到服务器，则可以正常地通信，客户端和服务器之间可以相互发送和接收数据，客户端还可以通过指示灯的颜色（开启是绿色，关闭是红色）来监视到服务器input1-input4的开关情况。如下图所示：2、YZModbus模拟服务器和Client.exe客户端的通信：在YZModbus中新建模拟服务