成全高清免费完整观看,日韩一区二区三免费高清,欧美在线看欧美视频免费,日本无码专区无码二区

beiye1234
級別: 略有小成
精華主題: 0
發帖數量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發表于: 2011-04-15 20:36
請教各位關于VB6.0與S7-200以太網通訊(Winsock),本人剛接觸VB6.0。
要求:對Q0.3置1
VB6.0程序如下
Private Sub Command1_Click()

Dim sendstr(7) As Byte
sendstr(0) = &H1 '站地址
sendstr(1) = &H5 '功能碼
sendstr(2) = &H0
sendstr(3) = &H3 '目標地址
sendstr(4) = &HFF
sendstr(5) = &H0 '線圈置1
sendstr(6) = &H0 '校驗碼
sendstr(7) = &H0 '校驗碼
Dim astr As String
Dim i   As Integer
For i = 0 To 7
astr = astr & Chr(sendstr(i))
Next
SockServer.SendData astr

End Sub

Private Sub Form_Load()
SockServer.LocalPort = 2000    
SockServer.RemoteHost = "192.168.1.60" ‘PLC地址
SockServer.RemotePort = 1 ’PLC站地址
End Sub

用以太網鏈接測試,沒效果。

這個程序那個地方有問題?應該怎么改。
[ 此帖被beiye1234在2011-04-16 11:21重新編輯 ]

<sup id="t49uz"><pre id="t49uz"></pre></sup>
    <xmp id="t49uz"><sup id="t49uz"><pre id="t49uz"></pre></sup>
    <sup id="t49uz"><font id="t49uz"></font></sup>
    <sup id="t49uz"></sup>
    主站蜘蛛池模板: 日韩高清在线亚洲专区| 松阳县| 日本不卡一区二区在线| 鄢陵县| 乐山市| 无棣县| 塘沽区| 日本成本人av动画无码| 日本在高清av手机| 抚松县| 久久无码专区国产精品S| 巴中市| 博野县| 成全在线观看免费高清完整版动漫 | 国产999精品成人网站| 健康| 日本熟妇乱子a片| 平利县| 三根一起进菊眼H男男视频| 久久亚洲精品无码va白人极品| 暖暖完整版免费视频中文| 日日噜噜夜夜狠狠视频| GOGO**无码一区二区| 少妇厨房与子伦hd| 青川县| 无码一区二区三区| 亚洲综合无码无在线观看| JLZZZJLZZZ国产免费观看| 三原县| 欧美高清一区三区在线专区| 伊通| 日本无遮掩裸身图片| 大庆市| 祁连县| 成人做爰A片免费看网站性晶| 渭南市| 欧美成va视频网站| 欧美精品高清在线观看| 微山县| 磐安县| 高青县|