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

beiye1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 255 個(gè)
工控威望: 282 點(diǎn)
下載積分: 914 分
在線時(shí)間: 250(小時(shí))
注冊時(shí)間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 2011-04-15 20:36
請教各位關(guān)于VB6.0與S7-200以太網(wǎng)通訊(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 '目標(biāo)地址
sendstr(4) = &HFF
sendstr(5) = &H0 '線圈置1
sendstr(6) = &H0 '校驗(yàn)碼
sendstr(7) = &H0 '校驗(yàn)碼
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

用以太網(wǎng)鏈接測試,沒效果。

這個(gè)程序那個(gè)地方有問題?應(yīng)該怎么改。
[ 此帖被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>
    主站蜘蛛池模板: 达尔| 乱大交做爰XXXⅩ久久久| 日本在高清av不卡| 日本a级视频在线播放| 杭锦后旗| 兴国县| 云和县| 性一交一乱一交A片久久四色| 沂南县| 亚洲综合无码无在线观看| 页游| 大地资源中文二页在线观看| 国产全肉乱妇杂乱视频| 三年在线观看完整版免费高清| 依兰县| 日韩av在线观看一区免费| 日本免费播放av一区二区三区| 及笄承欢H全肉| 锡林浩特市| 性做爰A片欧美激情艳妇20P| 欧美毛片性情免费播放| 辽阳市| 温泉县| 国产免费又色又爽粗视频| 精品国产av无码一区二区三区| 西乡县| 护士被院长添的欲仙欲死| 临高县| 漂亮人妻洗澡被强公bd| 滕州市| 成全电影大全在线观看| 石台县| 富民县| 凤山市| 日本高清视频在线一本视频| 洞头县| 黄山市| 东乡县| 云和县| 成全在线观看免费完整版的| 欧美大胆生殖艺术照|