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

我做的台达的,西门子的也一样,你参考一下
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

我做的台达的,西门子的也一样,你参考一下
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

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

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

看说明书，自己写