VB与台达PLC监控通讯软件

Chennousstar | 当前状态：离线 总积分：304 2024年可用积分：0 注册时间： 2006-12-01 最后登录时间： 2016-05-24 空间发短消息加为好友: VB与台达PLC监控通讯软件

Chennousstar 发表于 2008/10/13 14:28:48 3750 查看 9 回复 [上一主题] [下一主题]

手机阅读

今天恰好开博一个月,承蒙各位技术界网友的厚爱,访问量已过千.

为答谢各位网友的支持,也算是一个小小的礼物吧,特将我以VB写的

一个工控通讯程序源码奉上,以资感谢.

这个程序是VB同台达PLC的通讯调试程序,其于台达系列PLC的

MODBUS ASCII协议,涉及IO及寄存器的读写,稍加改动即可用于

工控项目中.我在写这个程序时,也参考了<<基于VB 的台达PLC和

监控计算机的串口通讯>>一文,在此也向作者表示感谢.

Dim plc As Byte
Dim y0flag As Byte
Dim y1flag As Byte
Dim str As String
Dim n, S

Private Sub Command1_Click()
Dim strout As String
Dim QQ As String
Timer1.Enabled = False
QQ = Text1.Text
If Len(QQ) = 3 Then
        QQ = "0" & QQ
    ElseIf Len(QQ) = 2 Then
        QQ = "00" & QQ
    ElseIf Len(QQ) = 1 Then
        QQ = "000" & QQ
End If
str = "01061000" + QQ
LRCC = LRC(str)   '计算 str的lrc校验码。
strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
MSComm1.InBufferCount = 0
MSComm1.Output = strout
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Form_Load()
    Dim s1 As String
    Dim s2 As String
    Dim s22 As String
    Dim s3 As String
    Dim s4 As String

    Picture1.Move 0, 0, 5600, 280   '长度可随意改
    Timer1.Enabled = True
    n = -(Me.TextWidth(Now)) - 10
    MSComm1.PortOpen = True
    Timer1.Enabled = True
    s2 = "01010C300001"
    s22 = LRC(s2)
    s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)
    MSComm1.InBufferCount = 0
    MSComm1.Output = s1
    TimeDelay (500)
    s3 = MSComm1.Input
    s4 = Mid$(s3, 8, 2)
    If s4 = "31" Then
        plc = 1
    Else: If s4 = "30" Then plc = 0
    End If
    If plc = 1 Then
        Label2.Caption = "PLC Running"
        Shape1.FillColor = RGB(0, 255, 0) 'green
    Else
        Label2.Caption = "PLC Stopped!"
        Shape1.FillColor = RGB(255, 0, 0) 'red
    End If

End Sub
Public Function LRC(str As String) As String
    c = 0
    l = Len(str)
    For c = c + 1 To l
        c_data = Mid$(str, c, 2)
        d_lrc = d_lrc + Val("&H" + c_data)
        c = c + 1
    Next c
    If d_lrc > &HFF Then
        d_lrc = d_lrc Mod &H100
    End If
    h_lrc = Hex(&HFF - d_lrc + 1)
    If Len(h_lrc) > 2 Then
        h_lrc = Mid(h_lrc, Len(h_lrc) - 1, 2)
    End If
        LRC = h_lrc
    End Function

Private Sub start_Click()
Dim strout As String
Timer1.Enabled = False
str = "01050C30FF00" 'M1072 为PLC起动停止标志位。查地址表，M1072为OC30.FF00为置
' ON,0000为置OFF。
LRCC = LRC(str) '计算 str的lrc校验码。
strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据
MSComm1.InBufferCount = 0
MSComm1.Output = strout
Timer1.Enabled = True
End Sub
Private Sub stop_Click()
Dim strout As String
Timer1.Enabled = False
str = "01050C300000"
LRCC = LRC(str)
strout = ":" + str + LRCC + Chr$(13) + Chr$(10)
MSComm1.InBufferCount = 0
MSComm1.Output = strout
Timer1.Enabled = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'判断输入的是否为数字或是 Enter
    If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 13 Or (KeyAscii >= 65 And KeyAscii <= 70) Then
    Else
      KeyAscii = 0
      Exit Sub
    End If
End Sub

Private Sub Timer1_Timer()
Dim s1, s22, s3, s4, s5 As String
Dim s2 As String
Dim counter As Integer

Picture1.AutoRedraw = True
Picture1.Cls
n = n + 10
If Picture1.ScaleWidth <= S Then
n = -(Me.TextWidth(Now)) - 10
End If
Picture1.CurrentX = n
S = n
Picture1.CurrentY = 0
Picture1.Print Now & " Chennousstar@sina.com"

Picture1.AutoRedraw = False

s2 = "01010C300001" 'M1072 Start/Stop Flag
s22 = LRC(s2)
s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)
MSComm1.InBufferCount = 0
MSComm1.Output = s1
'TimeDelay (200)

s3 = WaitRS(MSComm1, vbCrLf, 200)
s4 = Mid$(s3, 8, 2)
If s4 = "31" Then
plc = 1
Else: If s4 = "30" Then plc = 0
End If

If plc = 1 Then
    Label2.Caption = "PLC Running"
    Shape1.FillColor = RGB(0, 255, 0) 'green
Else
    Label2.Caption = "PLC Stopped!"
    Shape1.FillColor = RGB(255, 0, 0) 'red
End If

s2 = "010108000002" 'Read Y0 Flag
s3 = ""
s22 = LRC(s2)
s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)
MSComm1.InBufferCount = 0
MSComm1.Output = s1
'TimeDelay (200)

s3 = WaitRS(MSComm1, vbCrLf, 200)
If s3 = "" Then Exit Sub
s4 = Mid$(s3, 8, 2) And &H1
s5 = Mid$(s3, 8, 2) And &H2
If s4 = "1" Then
y0flag = 1
Else: If s4 = "0" Then y0flag = 0
End If

If y0flag = 1 Then

    Shape2.FillColor = RGB(0, 255, 0) 'green
Else

    Shape2.FillColor = RGB(255, 0, 0) 'red
End If

If s5 = "2" Then
y1flag = 1
Else: If s5 = "0" Then y1flag = 0
End If

If y1flag = 1 Then

    Shape3.FillColor = RGB(0, 255, 0) 'green
Else

    Shape3.FillColor = RGB(255, 0, 0) 'red
End If

's2 = "010310000001" 'Read D512 value
's3 = ""
's22 = LRC(s2)
's1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)
'MSComm1.InBufferCount = 0
'MSComm1.Output = s1
'TimeDelay (200)

's3 = WaitRS(MSComm1, vbCrLf, 200)
's4 = Mid$(s3, 8, 4)
'Text1.Text = s4

s2 = "010310000001" 'Read D0 value
s3 = ""
s22 = LRC(s2)
s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)
MSComm1.InBufferCount = 0
MSComm1.Output = s1
'TimeDelay (200)

s3 = WaitRS(MSComm1, vbCrLf, 200)
s4 = Mid$(s3, 8, 4)
Text2.Text = s4

End Sub

Private Sub Y1_Click()
    Dim strout As String
    If y1flag = 0 Then
        str = "01050801FF00"
        LRCC = LRC(str)   '计算 str的lrc校验码。
        Timer1.Enabled = False
        strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
        MSComm1.InBufferCount = 0
        MSComm1.Output = strout
        Timer1.Enabled = True
    Else
        str = "010508010000"
        LRCC = LRC(str)   '计算 str的lrc校验码。
        Timer1.Enabled = False
        strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
        MSComm1.InBufferCount = 0
        MSComm1.Output = strout
        Timer1.Enabled = True
    End If
End Sub

Private Sub YO_Click()
    Dim strout As String
    If y0flag = 0 Then
        str = "01050800FF00"
        LRCC = LRC(str)   '计算 str的lrc校验码。
        Timer1.Enabled = False
        strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
        MSComm1.InBufferCount = 0
        MSComm1.Output = strout
        Timer1.Enabled = True
    Else
        str = "010508000000"
        LRCC = LRC(str)   '计算 str的lrc校验码。
        Timer1.Enabled = False
        strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
        MSComm1.InBufferCount = 0
        MSComm1.Output = strout
        Timer1.Enabled = True
    End If
End Sub

VB源代码

1楼 0 0 回复

匿名   |   当前状态：离线

总积分：0  2024年可用积分：0

注册时间： 0001-01-01

最后登录时间： 0001-01-01

空间发短消息加为好友

匿名   发表于 2007/3/15 23:45:45

希望今后还能看到您更多的作品
2楼 回复本楼

引用匿名 2007/3/15 23:45:45 发表于2楼的内容
JNZHLF   |   当前状态：在线

总积分：2642  2024年可用积分：0

注册时间： 2006-12-25

最后登录时间： 2012-12-29

空间发短消息加为好友

JNZHLF   发表于 2007/3/16 1:32:09

3楼 回复本楼

引用 JNZHLF 2007/3/16 1:32:09 发表于3楼的内容
YTZIDONGHUA   |   当前状态：在线

总积分：11263  2024年可用积分：6

注册时间： 2006-09-18

最后登录时间： 2024-08-02

空间发短消息加为好友

YTZIDONGHUA   发表于 2007/3/17 15:49:24

不错！
4楼 回复本楼

引用 YTZIDONGHUA 2007/3/17 15:49:24 发表于4楼的内容
havt   |   当前状态：离线

总积分：56  2024年可用积分：0

注册时间： 2007-05-16

最后登录时间： 2007-05-16

空间发短消息加为好友

havt   发表于 2007/5/16 23:36:56

代码怎么下？
5楼 回复本楼

引用 havt 2007/5/16 23:36:56 发表于5楼的内容
wqeaz   |   当前状态：离线

总积分：58  2024年可用积分：0

注册时间： 2007-04-21

最后登录时间： 2007-06-15

空间发短消息加为好友

wqeaz   发表于 2007/6/15 1:26:05

kankan
6楼 回复本楼

引用 wqeaz 2007/6/15 1:26:05 发表于6楼的内容
Chennousstar   |   当前状态：离线

总积分：304  2024年可用积分：0

注册时间： 2006-12-01

最后登录时间： 2016-05-24

空间发短消息加为好友

Chennousstar   发表于 2007/6/26 14:48:21

经过一段时间的努力,通过侦听解析,西门子PPI协议终于被攻克了.
现以此协议做了个上位机调试软件,欢迎大家试用.
Email: Chennousstar@sina.com
一.基本功能
    1. 读写出寄存器的数值（字节、字、双字）
     2、进行元件（V、M、S、Q、I）的置、复位操作
     3. 读取C,T当前值
     4、可以读取元件（V、M、S、Q、I）的ON/OFF状态。
     5、可以登录并控制PLC的运行、停止。
     6.   图形曲线监控方式
     7.   图表添加监控方式
二. 主画面
三.图形及曲线监控方式
四.图表监控方式
(点击图形可看清细节).
本软件有偿转让源码.不同于市面上已出现
的所谓源码,实际上是封装控件,获取者只是
做简单调用,并不能理解PPI协议的实质,更
谈不上灵活运用或更复杂应用.本软件是真
正的源代码开放,不含任何自封装控件,用户
可快速掌握PPI协议通讯,可极大缩短项目的
开发时间及提高项目质量.
7楼 回复本楼

引用 Chennousstar 2007/6/26 14:48:21 发表于7楼的内容
nicholaseen   |   当前状态：离线

总积分：67  2024年可用积分：0

注册时间： 2008-06-07

最后登录时间： 2008-06-11

空间发短消息加为好友

nicholaseen   发表于 2008/6/7 11:05:04

谢谢了,非常感谢,呵呵,
8楼 回复本楼

引用 nicholaseen 2008/6/7 11:05:04 发表于8楼的内容
匿名   |   当前状态：离线

总积分：0  2024年可用积分：0

注册时间： 0001-01-01

最后登录时间： 0001-01-01

空间发短消息加为好友

匿名   发表于 2008/10/11 16:56:40

很  感谢LZ的无私
9楼 回复本楼

引用匿名 2008/10/11 16:56:40 发表于9楼的内容
tony_k   |   当前状态：离线

总积分：917  2024年可用积分：0

注册时间： 2008-09-27

最后登录时间： 2008-11-28

空间发短消息加为好友

tony_k   发表于 2008/10/13 14:28:48

非常感谢版主，，以后还有很多问题需要请教你；；；
10楼 回复本楼

引用 tony_k 2008/10/13 14:28:48 发表于10楼的内容

总共 9, 当前 1/1

高级回复 | 发新主题

发表新帖

控制工程师论坛

2016年积分排行