Question

VB与西门子S7-200PLC通过以太网通讯程序源代码

哪位高手写过VB与西门子S7-200PLC通过以太网通讯程序，能不能发一份给我学习学习，谢谢。邮箱：lyqiangfirst@qq.com

Answer 1

我做的台达的,西门子的也一样,你参考一下
Private Sub Command1_Click()
Dim strout As String
Dim str As String

Timer1.Enabled = False
str = "00050C30FF00" 'M1072 为PLC起动停止标志位。查地址表，M1072为OC30.FF00为置ON,0000为置OFF。
'以上都是固定格式，要牢记。
LRCC = LRC(str) '计算 str的lrc校验码。
strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
MSComm1.Output = strout
Timer1.Enabled = True
End Sub

Answer 2

我做的台达的,西门子的也一样,你参考一下
Private Sub Command1_Click()
Timer1.Enabled = False
str = "00050C30FF00" 'M1072 为PLC起动停止标志位。查地址表，M1072为OC30.FF00为置ON,0000为置OFF。
'以上都是固定格式，要牢记。
LRCC = LRC(str) '计算 str的lrc校验码。
strout = ":" + str + LRCC + Chr$(13) + Chr$(10) '欲传送之数据。13为D，10为A
MSComm1.Output = strout
Timer1.Enabled = TruEnd Sub

Answer 3

如果是CP243以太网模块，搜索WinTcpS7_CP2.Dll；
如果是200 Smart，搜索WinTcpS7_Smart.Dll;
祝好运。

Answer 4

我做的台达的,西门子的也一样,你参考一下
Private
Sub
Command1_Click()
Timer1.Enabled
=
False
str
=
"00050C30FF00"
'M1072
为PLC起动停止标志位。查地址表，M1072为OC30.FF00为置ON,0000为置OFF。
'以上都是固定格式，要牢记

Answer 5

看说明书，自己写