日本JAPANESE熟睡人妻_久久99热只有频精品6狠狠_欧美一区内射最近更新_美女露100‰奶头18禁_日韩性生活一级片_国产三级无码内射在线看

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

Private Sub Form_Load()

  '設置本地任意可用端口,這樣系統會自動分配一個未被占用的端口

  Winsock1.LocalPort = 0

  Winsock2.LocalPort = 0

  '設置通信協議為 TCP 協議

  Winsock1.Protocol = sckTCPProtocol

  Winsock2.Protocol = sckTCPProtocol

  '開始監聽,等待客戶端連接

  Winsock1.Listen

  Winsock2.Listen

  '初始化PLC地址,IP,端口數據

  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 處于已連接狀態

  If Winsock1.State = sckConnected Then

    '構造 Modbus TCP 請求數據

    Dim PLC_Add As Long

    Dim dataToSend As Integer

    Dim dataToSend1 As Integer

    Dim dataToSend2 As Integer

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

    PLC_Add = Val(Add.Text)

    To_reg = Val(reg.Text)

    To_high = Val(high.Text)

    To_low = Val(low.Text)

    'MODBUSTCP報文

     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)

      '發送構造好的請求數據給 PLC

      Winsock1.SendData request

    Exit Sub

  

  Else

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

    MsgBox "Not connected to PLC."

  End If

  

End Sub


Private Sub Timer1_Timer()

  '定時器事件,用于周期性檢查連接狀態并更新界面

  If Winsock1.State = sckConnected Then

    '如果連接成功,將標簽的背景色設置為綠色(十六進制顏色值 &HC000&)

    connection.BackColor = &HC000&

  Else

    '如果未連接,將標簽的背景色設置為紅色(十六進制顏色值 &HFF&)

    connection.BackColor = &HFF&

  End If

    

End Sub



Private Sub Timer2_Timer()

  '定時器事件,用于周期性檢查連接狀態并重新連接

  If connection.BackColor = &HFF& Then

  '檢查 Winsock 的狀態,如果不是已關閉狀態

  If Winsock1.State <> sckClosed Then

    '關閉當前連接,以便重新連接到 PLC

    Winsock1.Close

    '確認連接IP地址及端口

    Timer3.Interval = 1

  End If

  If Winsock2.State <> sckClosed Then

    '關閉當前連接,以便重新連接到 PLC

    Winsock2.Close

    '確認連接IP地址及端口

    Timer3.Interval = 1

  End If

  

    '變量

    Dim plc_ip As String

    Dim plc_port As Integer

    '讀取IP及端口參數

    plc_ip = ip.Text

    plc_port = port.Text

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

    Winsock1.Connect plc_ip, plc_port

    Winsock2.Connect plc_ip, plc_port

    '停止IP地址及端口確認

    Timer3.Interval = 0

  End If

End Sub



Private Sub Command1_Click()

    '打開通訊設置窗口

    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

  '開關量轉換

  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

  '開關量轉換

  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

  '開關量轉換

  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

  '開關量轉換

  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

  '開關量轉換

  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

  '開關量轉換

  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


powtiger
狂人日妓
級別: 略有小成
精華主題: 0
發帖數量: 318 個
工控威望: 455 點
下載積分: 3369 分
在線時間: 127(小時)
注冊時間: 2014-03-04
最后登錄: 2025-07-28
查看powtiger的 主題 / 回貼
1樓  發表于: 2024-09-18 08:28
VB工程發一個上來學習啊
科技創造未來,人才決定明天!
tandekun
級別: 探索解密
精華主題: 0
發帖數量: 138 個
工控威望: 161 點
下載積分: 7766 分
在線時間: 44(小時)
注冊時間: 2021-12-17
最后登錄: 2025-07-14
查看tandekun的 主題 / 回貼
2樓  發表于: 2024-09-18 13:03
背景圖有點影響觀感
mhbxfys
趁年輕,走遍中國!
級別: 網絡英雄
精華主題: 0
發帖數量: 672 個
工控威望: 7028 點
下載積分: 7339 分
在線時間: 232(小時)
注冊時間: 2012-01-04
最后登錄: 2025-02-19
查看mhbxfys的 主題 / 回貼
3樓  發表于: 2024-09-19 11:16
大神啊
感謝每位朋友! 承接plc柜、電氣柜設計、定制。觸摸屏組態、調試。 藍海華騰變頻器代理,變頻器維修。。   QQ:545636511

主站蜘蛛池模板: 国产精品天美传媒沈樵 | 日韩人妻精品一区二区三区视频 | jizz18日本人在线播放 | 国产精品18禁免费无遮掩 | 久久久久久草莓香蕉步兵 | 国产午夜精品久久久久免费视 | 性欧美另类黑人巨大HD | 国产一区二区三区中文字幕 | 小12萝裸体无码视频 | 女人性高朝朝娇喘录音 | 色AV综合AV无码AV网站 | 久久视频这里只精品10 | 加勒比中文无码久久综合色 | 日日操影视 | 午夜精品久久久久久久99老熟妇 | 乱老熟女一区二区三区 | 亚洲精品一区23p | 亚洲揄拍窥拍久久国产自揄拍 | 久久精品国产亚洲av高清热 | 日韩在线成年视频人网站观看 | 性色av浪潮av色欲av | 亚洲av无码专区国产乱码4se | 国产精品久久久久久久久动漫 | 久久久国产精 | 黑鬼大战白妞高潮喷白浆 | 1024 最新合集 | 在线视频一区二区 | 在线免费成人 | 蜜桃视频在线网站 | 亚洲成AV人无码综合在线观看 | 久久久久亚洲国产av麻豆 | 成人麻豆视频 | AV无码久久久久不卡免费网站 | 麻豆国产VA免费精品高清在线 | 国产日韩在线观看视频 | 亚洲精品国产综合久久久久紧 | 国产va免费精品高清在线观看 | 姑娘第四集免费看视频 | 亚洲黄色免费观看 | 久久精品人妻中文系列 | 色欲人妻综合AAAAAAAA网 |