新人帖，经过这几天断断续续的努力，终于实现了用VB对三菱PLC数据寄存器的实时读取和写入功能 点击：3688 | 回复：10
这个是小弟写的程序，肯定还会有很多漏洞，希望论坛里的各位老大哥，帮我完善完善。希望大家都能在工控行业一展宏图。
Private Sub Command1_Click()
Dim sendata As String
Dim tim As String
Dim ml As String
Dim i As String
Dim a As String
Dim c As String
Dim d As String
i = Text1.Text
a = Hex(i)
c = Strings.Right("0000" & a, 4)
d = Mid(c, 3, 2) + Mid(c, 1, 2)
ml = "1" + "1000" + "02" + d + Chr(3)
sendata = Chr(2) + ml + sumchk(ml)
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.Output = sendata
Do
dummy = DoEvents
Loop Until MSComm1.InBufferCount >= 8
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Function sumchk(dats As String) As String
Dim i
Dim CHK
For i = 1 To Len(dats)
CHK = CHK + Asc(Mid(dats, i, 1))
Next i
sumchk = Right(Hex(CHK), 2)
End Function
Private Sub Timer1_Timer()
Dim mlbl As String
Dim num As String
Dim sendata As String
Dim getdata As String
Dim tim
mlbl = "0" + "1000" + "02" + Chr(3)
sendata = Chr(2) + mlbl + sumchk(mlbl)
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.Output = sendata
tim = Timer
Do
If Timer > tim + 1 Then
Text3.Text = "通信超时"
Exit Sub
End If
Loop Until MSComm1.InBufferCount >= 8
getdata = MSComm1.Input
getdata = Mid(getdata, 2, 4)
Text2.Text = Val("&H" + Mid(getdata, 3, 2) + Mid(getdata, 1, 2))
End Sub
- 欧姆龙PLC监控模式和运行模式...
[6432] - WinCC中的图形如何旋转任意角...[3934]
- 七天实战速成培训教程（PLC篇...[3293]
- 困惑：没人提到却非常重要的问...[2346]
- 中日友谊万世长存--绝妙好文...[3375]
- 求助：searching local drive...[5054]
- 官方下载：SIMATIC WinCC V7....[15797]
- 有谁用软件狗模拟软件模拟成...[2037]
- 压榨自动化控制系统在糖厂中...[2225]
- 怎样把前馈调节用在PID回路上...[3050]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
