Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports Microsoft.VisualBasic
Public Class Form1
Dim s As Socket = Nothing
Dim bbc As Socket = Nothing
Dim monitor_soket As Socket = Nothing
Dim reset_soket As Socket = Nothing
Dim readerror_soket As Socket = Nothing
Dim modbustest_soket As Socket = Nothing
Dim t, g, monitor, reset_a, readerror, modbustest As Thread
Dim i, j, send, AAK As Integer
Private se As Socket
Dim K As String
Dim receivebyte As Byte()
Dim ii As Integer
Dim showmessage, showmessage1, st As String
Dim bytes(300) As Byte
Dim sendbyte1(300), sendbyte2(300), sendbyte3(300), sendbyte4(300), sendbyte5(650) As Byte
Dim receivebyte1(300), receivebyte2(300), receivebyte3(300), receivebyte4(300), receivebyte10(300) As Byte
Dim sendbyte(11) As Byte
Dim ccd As Boolean
Dim communication_count As Integer
Dim timearray(12) As Byte
Dim send_ok As Boolean
Dim send_length_a, send_length_b, send_length_c, send_length_d As Integer
Dim mt_string, xinh, xinh1, xinh2, xinh3, xinh4 As String
Dim time_count As Integer
Dim time_en As Boolean
Dim r_w_content As Byte
Dim r_w_en As Boolean
Dim rdcontent As Integer
Dim show1 As Boolean
Dim read_ok As Boolean
Dim start_server As Boolean
Dim count_time As Integer
Dim tmp_type As Integer
Dim gab, gab1, atemp2 As UInteger
Dim atemp, atemp1 As UInteger
Dim atempstring As String
Dim station, station_1 As Integer
Dim xinhao As String
Dim nsx_str, pm_str As String
Dim mw10, mw11, mw12, mw13, mw14, mw15, mw16, mw17 As Integer
Dim step_read As Boolean
Dim step_a, step_temp1, step_temp2 As Integer
Dim status_com, status_com1 As Integer
Dim chr_temp, chr_temp1 As String
Dim step_send, send_step1, mw_ad, flag, offset, times, mw_ad1, type_send As Integer
Dim send_ok1 As Boolean
Dim status(21), read_error As Boolean
Dim step_send_1 As Long
Dim address_modbus, len_modbus, content_modbus As Integer
Dim array_1_enable(30), array_2_enable(5), array_3_enable(30) As Boolean
Dim mt_n, nsx_n, pm_n, cyc_temp As Integer
Dim nsx_st(20) As Long
Dim offset_tcp As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim temp_st As String
Dim tempcombox, tmpbox As Integer
While tempcombox < 10
tempcombox = tempcombox + 1
If tempcombox <= 5 Then
ComboBox1.Items.Add(tempcombox)
' ComboBox2.Items.Add(tempcombox.ToString + "#站")
End If
End While
'TextBox2.Text = 1234
ComboBox5.Items.Add("A型") : ComboBox5.Items.Add("D型") : ComboBox5.Items.Add("P型") : ComboBox5.Items.Add("H型")
ComboBox8.Items.Add("A型") : ComboBox8.Items.Add("D型") : ComboBox8.Items.Add("P型") : ComboBox8.Items.Add("H型")
ComboBox9.Items.Add("A型") : ComboBox9.Items.Add("D型") : ComboBox9.Items.Add("P型") : ComboBox9.Items.Add("H型")
ComboBox11.Items.Add("A型") : ComboBox11.Items.Add("D型") : ComboBox11.Items.Add("P型") : ComboBox11.Items.Add("H型")
ComboBox10.Items.Add("A型") : ComboBox10.Items.Add("D型") : ComboBox10.Items.Add("P型") : ComboBox10.Items.Add("H型")
ComboBox17.Items.Add("A型") : ComboBox17.Items.Add("E型")
ComboBox16.Items.Add("A型") : ComboBox16.Items.Add("E型")
ComboBox15.Items.Add("A型") : ComboBox15.Items.Add("E型")
ComboBox14.Items.Add("A型") : ComboBox14.Items.Add("E型")
ComboBox13.Items.Add("A型") : ComboBox13.Items.Add("E型")
ComboBox18.Items.Add("A型") : ComboBox18.Items.Add("E型")
ComboBox24.Items.Add("A型") : ComboBox24.Items.Add("E型")
ComboBox23.Items.Add("A型") : ComboBox23.Items.Add("E型")
ComboBox22.Items.Add("A型") : ComboBox22.Items.Add("E型")
ComboBox21.Items.Add("A型") : ComboBox21.Items.Add("E型")
ComboBox20.Items.Add("A型") : ComboBox20.Items.Add("E型")
ComboBox19.Items.Add("A型") : ComboBox19.Items.Add("E型")
ComboBox30.Items.Add("A型") : ComboBox30.Items.Add("E型")
ComboBox29.Items.Add("A型") : ComboBox29.Items.Add("E型")
ComboBox27.Items.Add("A型") : ComboBox27.Items.Add("E型")
ComboBox28.Items.Add("A型") : ComboBox28.Items.Add("E型")
ComboBox26.Items.Add("A型") : ComboBox26.Items.Add("E型")
ComboBox25.Items.Add("A型") : ComboBox25.Items.Add("E型")
ComboBox36.Items.Add("A型") : ComboBox36.Items.Add("E型") : ComboBox34.Items.Add("A型") : ComboBox34.Items.Add("E型")
ComboBox35.Items.Add("A型") : ComboBox35.Items.Add("E型") : ComboBox33.Items.Add("A型") : ComboBox33.Items.Add("E型")
ComboBox32.Items.Add("A型") : ComboBox32.Items.Add("E型") : ComboBox31.Items.Add("A型") : ComboBox31.Items.Add("E型")
ComboBox42.Items.Add("A型") : ComboBox42.Items.Add("E型") : ComboBox40.Items.Add("A型") : ComboBox40.Items.Add("E型")
ComboBox41.Items.Add("A型") : ComboBox41.Items.Add("E型") : ComboBox39.Items.Add("A型") : ComboBox39.Items.Add("E型")
ComboBox38.Items.Add("A型") : ComboBox38.Items.Add("E型") : ComboBox37.Items.Add("A型") : ComboBox37.Items.Add("E型")
For tempcombox = 0 To 59
ComboBox2.Items.Add(CStr(tempcombox))
ComboBox7.Items.Add(CStr(tempcombox))
ComboBox6.Items.Add(CStr(tempcombox))
ComboBox12.Items.Add(CStr(tempcombox))
Next tempcombox
For tempcombox = 0 To 23
ComboBox53.Items.Add(CStr(tempcombox))
ComboBox54.Items.Add(CStr(tempcombox))
ComboBox55.Items.Add(CStr(tempcombox))
ComboBox56.Items.Add(CStr(tempcombox))
Next tempcombox
For tempcombox = 0 To 998
Select Case Len(CStr(tempcombox))
Case 1 : temp_st = "00" + CStr(tempcombox)
Case 2 : temp_st = "0" + CStr(tempcombox)
Case 3 : temp_st = CStr(tempcombox)
End Select
' ComboBox43.Items.Add("40" + temp_st)
If (tempcombox + 1) < 127 Then
' ComboBox45.Items.Add(CStr(tempcombox + 1))
End If
Next tempcombox
' ComboBox44.Items.Add("300ms")
' ComboBox44.Items.Add("500ms")
' ComboBox44.Items.Add("1000ms")
' ComboBox44.Items.Add("2000ms")
' ComboBox44.Items.Add("5000ms")
For tempcombox = 0 To 30
ComboBox4.Items.Add(tempcombox)
Next tempcombox
For tempcombox = 0 To 30
ComboBox3.Items.Add(tempcombox)
Next tempcombox
TextBox12.Text = "192.168.2.2"
For tmpbox = 1 To 200
' ComboBox7.Items.Add(tmpbox)
Next tmpbox
For tmpbox = 1 To 50
' ComboBox2.Items.Add(tmpbox)
' ComboBox6.Items.Add(tmpbox)
Next tmpbox
' ComboBox5.Items.Add("上海")
' ComboBox5.Items.Add("北京")
' ComboBox5.Items.Add("天津")
' ComboBox5.Items.Add("重庆")
' ComboBox12.Items.Add("脱扣")
' ComboBox12.Items.Add("报警")
ComboBox53.SelectedIndex = 5
ComboBox54.SelectedIndex = 10
ComboBox55.SelectedIndex = 15
ComboBox56.SelectedIndex = 20
ComboBox2.SelectedIndex = 0
ComboBox7.SelectedIndex = 0
ComboBox6.SelectedIndex = 0
ComboBox12.SelectedIndex = 0
' ComboBox43.SelectedIndex = 0
' ComboBox45.SelectedIndex = 0
' ComboBox12.SelectedIndex = 0
ComboBox1.SelectedIndex = 0
' ComboBox2.SelectedIndex = 0
ComboBox3.SelectedIndex = 0
ComboBox4.SelectedIndex = 0
' ComboBox6.Selected
modbus_tcp_monitor_breaker.rar_modbus_tcp
版权申诉
34 浏览量
2022-09-20
22:23:42
上传
评论
收藏 12KB RAR 举报
寒泊
- 粉丝: 74
- 资源: 1万+