成人精品一区二区久久久 I 国产美女永久无遮挡 I 中文字幕+乱码+中文字幕明步 I 国产在视频一区二区三区吞精 I 日韩精品小视频 I 成人性生交大片免费4 I 免费aaa级毛片在线视频 I 一级片毛片 I 大型成人社区 I 国模在线播放 I 欧美大荫蒂毛茸茸视频 I 偷偷色噜狠狠狠狠的777米奇 I www.久久亚洲 I 日日搞夜夜操 I 亚洲成色777777女色窝 I 毛片黄色毛片 I 午夜片在线观看 I 国产一区二区三区中文字幕 I 天天干夜夜骑 I 日韩在线视频一区二区三区 I 久久久无码精品亚洲a片0000 I 写真福利片hd在线播放 I 欧美成人一区二免费视频 I 色噜噜狠狠爱综合视频 I 中文字幕无线码免费人妻 I 国产精品久久久久久久久久不蜜臀 I 欧美综合人人做人人爱 I 1024成人网色www I 国产精品视频一二三区 I 亚洲免费美女视频

趙云龍
級別: 正式會員
精華主題: 0
發(fā)帖數(shù)量: 7 個(gè)
工控威望: 55 點(diǎn)
下載積分: 264 分
在線時(shí)間: 10(小時(shí))
注冊時(shí)間: 2023-11-23
最后登錄: 2025-10-06
查看趙云龍的 主題 / 回貼
樓主  發(fā)表于: 2024-09-17 16:49
Option Explicit

Private Sub Form_Load()

  '設(shè)置本地任意可用端口,這樣系統(tǒng)會自動分配一個(gè)未被占用的端口

  Winsock1.LocalPort = 0

  Winsock2.LocalPort = 0

  '設(shè)置通信協(xié)議為 TCP 協(xié)議

  Winsock1.Protocol = sckTCPProtocol

  Winsock2.Protocol = sckTCPProtocol

  '開始監(jiān)聽,等待客戶端連接

  Winsock1.Listen

  Winsock2.Listen

  '初始化PLC地址,IP,端口數(shù)據(jù)

  Open App.Path & "\data\add.ini" For Binary As #1

  Add = StrConv(InputB$(LOF(1), 1), vbUnicode)

  Close #1

  Open App.Path & "\data\ip.ini" For Binary As #1

  ip = StrConv(InputB$(LOF(1), 1), vbUnicode)

  Close #1

  Open App.Path & "\data\port.ini" For Binary As #1

  port = StrConv(InputB$(LOF(1), 1), vbUnicode)

  Close #1

  reg.Text = "0"

  high.Text = "0"

  low.Text = "0"

End Sub



Private Sub SendData_Click()

  '如果 Winsock 處于已連接狀態(tài)

  If Winsock1.State = sckConnected Then

    '構(gòu)造 Modbus TCP 請求數(shù)據(jù)

    Dim PLC_Add As Long

    Dim dataToSend As Integer

    Dim dataToSend1 As Integer

    Dim dataToSend2 As Integer

    'Add PLC起始地址,reg:寄存器地址,high/low高低字節(jié)位(數(shù)據(jù))。

    PLC_Add = Val(Add.Text)

    To_reg = Val(reg.Text)

    To_high = Val(high.Text)

    To_low = Val(low.Text)

    'MODBUSTCP報(bào)文

     Dim request As String

    request = Chr(&H0) & Chr(&H1) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H6) & Chr(&H1) & Chr(&H6) & Chr(PLC_Add - 40001) & Chr(To_reg) & Chr(To_high) & Chr(To_low)

      '發(fā)送構(gòu)造好的請求數(shù)據(jù)給 PLC

      Winsock1.SendData request

    Exit Sub

  

  Else

    '如果未連接到 PLC,彈出消息提示

    MsgBox "Not connected to PLC."

  End If

  

End Sub


Private Sub Timer1_Timer()

  '定時(shí)器事件,用于周期性檢查連接狀態(tài)并更新界面

  If Winsock1.State = sckConnected Then

    '如果連接成功,將標(biāo)簽的背景色設(shè)置為綠色(十六進(jìn)制顏色值 &HC000&)

    connection.BackColor = &HC000&

  Else

    '如果未連接,將標(biāo)簽的背景色設(shè)置為紅色(十六進(jìn)制顏色值 &HFF&)

    connection.BackColor = &HFF&

  End If

    

End Sub



Private Sub Timer2_Timer()

  '定時(shí)器事件,用于周期性檢查連接狀態(tài)并重新連接

  If connection.BackColor = &HFF& Then

  '檢查 Winsock 的狀態(tài),如果不是已關(guān)閉狀態(tài)

  If Winsock1.State <> sckClosed Then

    '關(guān)閉當(dāng)前連接,以便重新連接到 PLC

    Winsock1.Close

    '確認(rèn)連接IP地址及端口

    Timer3.Interval = 1

  End If

  If Winsock2.State <> sckClosed Then

    '關(guān)閉當(dāng)前連接,以便重新連接到 PLC

    Winsock2.Close

    '確認(rèn)連接IP地址及端口

    Timer3.Interval = 1

  End If

  

    '變量

    Dim plc_ip As String

    Dim plc_port As Integer

    '讀取IP及端口參數(shù)

    plc_ip = ip.Text

    plc_port = port.Text

    '連接到指定的 PLC IP 地址和端口號,這里需替換為實(shí)際的 PLC IP 和端口

    Winsock1.Connect plc_ip, plc_port

    Winsock2.Connect plc_ip, plc_port

    '停止IP地址及端口確認(rèn)

    Timer3.Interval = 0

  End If

End Sub



Private Sub Command1_Click()

    '打開通訊設(shè)置窗口

    Form2.Show

End Sub



Private Sub ConnectToPLC_Click()

  '判斷通訊是否啟動連接

  If Timer2.Interval = 0 Then

     '開始連接

    Timer2.Interval = 1

  ElseIf Timer2.Interval = 1 Then

    '判斷通訊是否啟動連接

    If Winsock1.State <> sckClosed Then

    '停止連接

    Timer2.Interval = 0

    '斷開連接

    Winsock1.Close

    Winsock2.Close

    

    End If

    

  End If



End Sub



Private Sub Timer3_Timer()

    '讀取起始地址

    Open App.Path & "\data\add.ini" For Binary As #1

    '更新起始地址

    Add = StrConv(InputB$(LOF(1), 1), vbUnicode)

    Close #1

    '讀取IP地址

    Open App.Path & "\data\ip.ini" For Binary As #1

    '更新IP地址

    ip = StrConv(InputB$(LOF(1), 1), vbUnicode)

    Close #1

    '讀取端口

    Open App.Path & "\data\port.ini" For Binary As #1

    '更新端口

    port = StrConv(InputB$(LOF(1), 1), vbUnicode)

    Close #1

    '停止更新

    Timer3.Interval = 0

End Sub





Private Sub TCP0_Click(Index As Integer)

  '對齊寄存器地址

  If reg.Text <> 0 Then

    reg.Text = 0

  End If

  '開關(guān)量轉(zhuǎn)換

  If reg.Text = 0 Then

    If low.Text = 0 Then

      low.Text = 1

      SendData_Click

    ElseIf low.Text = 1 Then

      low.Text = 0

      SendData_Click

    End If

  End If



End Sub



Private Sub TCP1_Click(Index As Integer)

  '對齊寄存器地址

  If reg.Text <> 1 Then

    reg.Text = 1

  End If

  '開關(guān)量轉(zhuǎn)換

  If reg.Text = 1 Then

    If low.Text = 0 Then

      low.Text = 1

      SendData_Click

    ElseIf low.Text = 1 Then

      low.Text = 0

      SendData_Click

    End If

  End If



End Sub



Private Sub TCP2_Click(Index As Integer)

  '對齊寄存器地址

  If reg.Text <> 2 Then

    reg.Text = 2

  End If

  '開關(guān)量轉(zhuǎn)換

  If reg.Text = 2 Then

    If low.Text = 0 Then

      low.Text = 1

      SendData_Click

    ElseIf low.Text = 1 Then

      low.Text = 0

      SendData_Click

    End If

  End If



End Sub



Private Sub TCP3_Click(Index As Integer)

  '對齊寄存器地址

  If reg.Text <> 3 Then

    reg.Text = 3

  End If

  '開關(guān)量轉(zhuǎn)換

  If reg.Text = 3 Then

    If low.Text = 0 Then

      low.Text = 1

      SendData_Click

    ElseIf low.Text = 1 Then

      low.Text = 0

      SendData_Click

    End If

  End If



End Sub



Private Sub TCP4_Click(Index As Integer)

  '對齊寄存器地址

  If reg.Text <> 4 Then

    reg.Text = 4

  End If

  '開關(guān)量轉(zhuǎn)換

  If reg.Text = 4 Then

    If low.Text = 0 Then

      low.Text = 1

      SendData_Click

    ElseIf low.Text = 1 Then

      low.Text = 0

      SendData_Click

    End If

  End If



End Sub



Private Sub TCP5_Click(Index As Integer)

  '對齊寄存器地址

  If reg.Text <> 5 Then

    reg.Text = 5

  End If

  '開關(guān)量轉(zhuǎn)換

  If reg.Text = 5 Then

    If low.Text = 0 Then

      low.Text = 1

      SendData_Click

    ElseIf low.Text = 1 Then

      low.Text = 0

      SendData_Click

    End If

  End If


End Sub



Private Sub end_Click()

End

End Sub


ljh_li
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 18 個(gè)
工控威望: 137 點(diǎn)
下載積分: 510 分
在線時(shí)間: 242(小時(shí))
注冊時(shí)間: 2013-04-18
最后登錄: 2025-10-01
查看ljh_li的 主題 / 回貼
1樓  發(fā)表于: 55天前

主站蜘蛛池模板: av大全免费 | 免费又黄又爽又色的视频 | 免费国产黄网站在线观看 | 色综合色国产热无码一 | 精品色| 国产熟妇另类久久久久久 | 精品h动漫无遮挡在线看中文 | 狠狠色噜噜狠狠狠7777奇米 | 亚洲愉拍99热成人精品 | 欧美xxxx喷水 | 色噜噜狠狠色综合久 | 黄色福利视频网站 | 俺来也俺来啪色www色 | 免费无挡无摭十八禁视频 | 人妻丝袜乱经典系列 | 久久久久久久久久久久影院 | 少妇搡bbbb搡bbb搡老女王 | 无码吃奶揉捏奶头高潮视频 | 亚洲日本国产精品 | 欧美成人三级在线播放 | 天天操天天操天天操天天操 | 日韩国产图片区视频一区 | 国产又色 | av网站免费观看 | 羞羞影院午夜男女爽爽免费 | 4hu四虎永久在线观看 | 精品人妻大屁股白浆无码 | 午夜亚洲福利在线老司机 | 明星性猛交ⅹxxx乱大交 | 日韩精品在线看 | 亚洲加勒比久久88色综合 | 国产女人的高潮国语对白 | 欧美色妻 | 黄色在线免费播放 | 亚洲成人精品在线 | 什么网站可以看黄色片 | 在线观看日本 | 亚洲小说乱欧美另类 | 欧美一级片网站 | 色就色欧美 | 精品91久久久 | 好男人社区在线观看 | 少妇被粗大猛进去69影院 | av亚洲精华国产精华精 | 中文字幕日韩精 | 午夜影院色| 91精品国产综合久久久久影院不卡 | 国产chinesehdxxx宾 | 绯色av蜜臀一区二区中文字幕 | 国产无遮挡裸体免费视频在线观看 | 影音先锋久久 | 国产欧美日韩成人 | 国产精品一线二线三线 | 97视频在线 | 日本免费一区二区三区视频观看 | 精品不卡在线 | 国产精品久久久久久人妻精品18 | 香蕉人人超人人超碰超国产 | 国产91丝袜在线播放动漫 | 主站蜘蛛池模板: 蛛词}| 免费一区在线观看 | 国产大学生一级毛片绿象 | 福利在线一区二区 | 久久久久久激情 | 色屁屁www影院免费观看 | 亚洲国产精品一区二区手机 | 日韩精品一区在线播放 | 欧美日韩国产中文高清视频 | 亚洲精品成人网久久久久久 | 亚洲精品久久国产高清 | 国产无套精品一区二区三区 | 99精品丰满人妻无码a片 | 日本做受高潮又黄又爽 | 成人试看30分钟免费视频 | 国产精品人妻99一区二区 | 99国产在线播放 | 成人精品毛片国产亚洲av十九禁 | 亚洲色域网 | 国产91精品激烈高潮白浆 | 欧美大色网 | 国产免费一级淫片a级中文 大香蕉毛片 | 免费观看全黄做爰的视频 | 久草午夜 | 日本乱偷互换人妻中文字幕 | 又粗又大内射免费视频小说 | 中文字幕精品在线 | 在线观看你懂的网址 | 亚洲激情二区 | 中国一及毛片 | 国产精品自产拍在线观看中文 | 丰满人妻av无码一区二区三区 | 成人黄色片免费 | 成人av社区| 欧美美女性 | 亚洲高清偷拍一区二区三区 | 玩弄丰满少妇人妻视频 | 性色av一区二区三区 | 免费最爽乱淫无遮挡 | 国内大量揄拍人妻精品視頻 | www.四虎在线 | 欧美99久久精品乱码影视 | 久久精品国产99久久久小说 | 精品久久久久成人码免费动漫 | 中文字幕av专区dvd | 天天躁日日躁狠狠躁欧美巨大小说 | 欧美日韩国产免费 | 狠狠色丁香婷婷久久综合蜜芽 | 97久久精品国产一区二区片 | 亚州男人天堂 | 午夜国产一区二区 | 四虎永久在线精品免费网址 | 亚洲妓女综合网99 | 亚洲国产成人字幕久久 | 亚洲狠狠色丁香婷婷综合 | 久久亚洲精品无码网站 | 欧美性做爰毛片 | 青青草国产精品 | 一级性感毛片 | 日韩中文字幕亚洲精品欧美 | 主站蜘蛛池模板: 蛛词}| 日本伦奷在线播放 | 中文字幕人妻偷伦在线视频 | 久久天天躁狠狠躁夜夜2020一 | 亚洲人成一区 | 日韩视频在线免费 | 日韩精品无码av中文无码版 | 午夜熟女插插xx免费视频 | 国产精品久久久久影院老司 | 色xx综合网 | 亚洲va | 国产成人在线免费观看视频 | 久久亚洲国产成人精品性色 | 国产精品久久久免费 | 成人在线不卡 | 国产中文字幕视频 | 国产女人乱子对白av片 | 国产精品视频露脸 | 图片区小说区视频区 | 又湿又紧又大又爽a视频国产 | 五月天综合久久 | av网站免费线看精品 | 一本大道久久东京热无码av | 久久综合给合综合久久 | 特黄做受又粗又大又硬老头 | 波多野结衣一区二区三区高清av | 夜晚天天看视频 | 久久午夜无码鲁丝片秋霞 | 在线视频 欧美日韩 | 四房播色综合久久婷婷 | 丰满少妇人妻久久久久久 | 国产一区二区三区精品av | 国产亚洲欧美在线 | 久久久欧美国产精品人妻噜噜 | 人综合久合合 | 欧美性猛交ⅹxxx乱大交妖精 | 亚洲精品在线免费 | 色婷婷av一区二区三区之一色屋 | 国产在线无码视频一区 | 亚洲成人免费影院 | 久久久久久久91 | 巨胸喷奶水视频www免费网站 | 少妇的肉体在线观看 | 极品国产91在线网站 | 免费在线黄色网址 | 亚洲一区日韩在线 | 极品美女啪啪 | 国产成人综合一区人人 | 粉嫩虎白女毛片人体 | 好吊视频一区二区三区 | 日干夜干天天干 | 中文字幕2017 | 日本在线色视频 | 在线免费观看你懂的 | 另类专区欧美 | 久久人人爽人人爽人人av东京热 | 国产精品欧美精品 | 伊人66| 久久久亚洲裙底偷窥综合 | 亚洲熟妇无码一区二区三区导航 | 主站蜘蛛池模板: 蛛词}| 久久久网址 | 中文字字幕在线中文乱码 | 丰满人妻一区二区三区视频53 | 人妻精品动漫h无码 | 在线日韩av永久免费观看 | 亚洲无线卡一卡二 | 免费人成视频在线观看不卡 | 少妇又紧又爽又黄的视频 | 91成人海角社区 | 超碰97av| 国产第99页| 五月婷婷综合网 | 久久久精品妓女影院妓女网 | 白嫩少妇激情无码 | 高潮白浆女日韩av免费看 | 少妇高潮惨叫久久麻豆传 | 国产成人亚洲综合图区 | 久久精品久久久久久噜噜 | 青青操视频在线 | 在线成人国产天堂精品av | 日本一级片在线观看 | 又粗又猛又爽黄老大爷视频 | 免费女同毛片在线观看 | 毛片毛片毛片毛片毛片毛片毛片毛片 | 播放男人添女人下边视频 | 国产又色又爽又黄的网站免费 | 99热只有这里有精品 | 一区二区三区无码被窝影院 | 欧美人与性动交0欧美精一级 | 久久久精选 | 国产精品国产三级国产有见不卡 | 久久成人国产精品免费 | 国产爆乳无码视频在线观看3 | 日韩人妻精品一区二区三区视频 | 天天干天天射天天爽 | www.91福利 | 婷婷成人亚洲综合五月天 | 91免费精品 | 欧美天天综合色影久久精品 | 欧美成人精品在线 | 日韩视频无码中字免费观 | 老熟妇仑乱一区二区视頻 | 国精产品一区一区三区mba下载 | 无码专区人妻诱中文字幕 | 精品国产亚洲一区二区三区在线观看 | 成人免费乱码大片a毛片 | 干干操操 | 亚洲国产一区二区a毛片 | 欧美影视精品久久 | 99riav欧美丰满少妇视频 | 色婷婷精品久久二区二区6 国产做爰视频 | 国产精品水嫩水嫩 | 天堂v亚洲国产v第一次 | 人妻有码中文字幕在线 | 动漫av网 | 99久久久国产精品美女 | 视频精品一区二区 | 国产成人精品日本亚洲第一区 | 日韩免费高清 | 主站蜘蛛池模板: 蛛词}| 九七人人爽 | 亚洲欧美在线制服丝袜国产 | 国产午夜精品一区二区三区 | 午夜久久福利 | 影音先锋在线资源无码 | 成人免费网址 | 日韩精品无码久久久久久 | www网站在线免费观看 | 色花av | 日韩av无码精品人妻系列 | 亚洲熟妇久久精品 | 鲁鲁网亚洲站内射污 | 中文字幕久久波多野结衣av不卡 | 嫩草嫩草嫩草嫩草 | 国产成人黄色片 | 日本免费一区二区三区四区五六区 | 好吊妞这里只有精品 | 成人黄色三级 | 六月激情婷婷 | 老子影院午夜伦手机不四虎卡 | 精品国产一区二区三区久久久 | 日本a√在线| 咪咪色影院| 久久精品伊人波多野结衣 | 一区二区免费高清观看国产丝瓜 | 超薄丝袜足j好爽在线 | 姑娘第4集在线观看免费播放 | 久久精品久久精品久久39 | 69久久精品无码一区二区 | 成人亚洲a片v一区二区三区麻豆 | 丰满少妇高潮在线播放不卡 | 亚洲男人天堂2018 | av大片在线免费观看 | 无码av一区二区三区不卡 | 伊人av综合 | 亚洲综合在线五月 | 亚洲色欲色欱www在线 | 国产成人精品无码一区二区三区 | 国产免费人成网站x8x8 | 2020国产激情视频在线观看 | 欧美日韩无套内射另类 | 日本免费一区二区三区四区 | 尤物国产在线精品一区 | 天天射天天舔 | 色综合1| 国产啪视频1000部免费 | 香蕉久久久久 | 欧美日韩视频免费观看 | 美女极度色诱视频国产 | 黄色av网站免费看 | 亚洲vs成人无码人在线观看堂 | 少妇精品噜噜噜噜噜av | 国产高清色 | 欧美老熟妇乱人伦人妻 | 日韩精品无码综合福利网 | 成人理论视频 | 性生交大片免费看女人按摩摩 | 久久99国产乱子伦精品免费 | 亚洲免费中文字幕 |