📄 frmregister.frm
字号:
Caption = "Tcp/Ip"
Height = 255
Index = 1
Left = 240
TabIndex = 1
Top = 1080
Width = 855
End
Begin VB.Frame FraTcp
Caption = "TCP/IP Setting"
Height = 1335
Left = 1200
TabIndex = 3
Top = 240
Width = 8535
Begin VB.TextBox SignText
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3480
MaxLength = 4
TabIndex = 41
Text = "0"
ToolTipText = "Hex"
Top = 300
Width = 735
End
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 495
Left = 6960
ScaleHeight = 495
ScaleWidth = 735
TabIndex = 38
Top = 233
Width = 735
End
Begin VB.OptionButton Option3
Caption = "Server"
Height = 255
Index = 0
Left = 600
TabIndex = 8
Top = 353
Width = 855
End
Begin VB.OptionButton Option3
Caption = "Client"
Height = 255
Index = 1
Left = 600
TabIndex = 7
Top = 840
Value = -1 'True
Width = 855
End
Begin VB.TextBox IpText
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6240
MaxLength = 15
TabIndex = 6
Text = "192.168.004.099"
ToolTipText = "网络IP"
Top = 787
Width = 1815
End
Begin VB.TextBox RemoteText
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3480
MaxLength = 5
TabIndex = 5
Text = "7100"
Top = 787
Width = 735
End
Begin VB.CommandButton CmdTCP
Caption = "Apply"
Height = 375
Left = 5160
TabIndex = 4
Top = 293
Width = 1215
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Transmit Sign:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 13
Left = 2055
TabIndex = 40
Top = 360
Width = 1275
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Remote IP:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 9
Left = 5160
TabIndex = 10
Top = 847
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Server Port:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 10
Left = 2280
TabIndex = 9
Top = 847
Width = 1050
End
End
Begin VB.Frame FraCom
Caption = "COM Setting"
Height = 1335
Left = 1200
TabIndex = 11
Top = 240
Width = 8535
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 495
Left = 6240
ScaleHeight = 495
ScaleWidth = 615
TabIndex = 37
Top = 660
Width = 615
End
Begin VB.ComboBox PortCb
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1080
Style = 2 'Dropdown List
TabIndex = 17
Top = 240
Width = 1455
End
Begin VB.ComboBox RateCb
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1080
Style = 2 'Dropdown List
TabIndex = 16
Top = 720
Width = 1455
End
Begin VB.ComboBox CheckCb
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4200
Style = 2 'Dropdown List
TabIndex = 15
Top = 240
Width = 1455
End
Begin VB.ComboBox DataCb
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4200
Style = 2 'Dropdown List
TabIndex = 14
Top = 720
Width = 1455
End
Begin VB.ComboBox StopCb
BeginProperty Font
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6840
Style = 2 'Dropdown List
TabIndex = 13
Top = 240
Width = 1455
End
Begin VB.CommandButton CmdCom
Caption = "Open"
Height = 375
Left = 6960
TabIndex = 12
Top = 720
Width = 1095
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "COM Port:"
Height = 195
Index = 4
Left = 240
TabIndex = 22
Top = 330
Width = 735
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Baud Rate:"
Height = 195
Index = 5
Left = 165
TabIndex = 21
Top = 840
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Check Way:"
Height = 195
Index = 6
Left = 3240
TabIndex = 20
Top = 330
Width = 885
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Data Bit:"
Height = 195
Index = 7
Left = 3240
TabIndex = 19
Top = 840
Width = 615
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Stop Bit:"
Height = 195
Index = 8
Left = 6120
TabIndex = 18
Top = 360
Width = 600
End
End
End
End
Attribute VB_Name = "FrmRegister"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim TemSkPort As Long, SAddr As Integer
Dim SockeLoadFlag As Boolean ''已经加载socke
Dim SockeWay As Boolean ''True:server,False:Client
Dim Sendcmd() As Byte
Dim AscFlag As Boolean
Dim DbClickFlag As Boolean
Dim MaxVisbleRows As Integer
Dim DopSitY As Integer
Dim SelFlag As Boolean
Dim SelGRow As Integer, SelGCol As Integer
Dim HsNoFlag As Boolean, LastGrid1Top As Long
Dim AutoStr As String
Dim ReceiveStr As String
Dim CmdID As Integer
Dim WFlag As Boolean ''写标志
Dim GetValFlag As Boolean
Private Sub AutoTimer_Timer()
If AutoStr <> "" Then
SendToK61 AutoStr
Else
Check2.Value = 0
End If
End Sub
Private Sub CbSlaveAddr_Click()
SAddr = CbSlaveAddr.ListIndex + 1
Call WritePrivateProfileStringA("NetInfo", "Slave", SAddr, SaveDevFile)
End Sub
Private Sub Check2_Click()
Dim i As Long
If Check2.Value = 0 Then
CmdSend.Enabled = True
Text1.Enabled = True
AutoTimer.Enabled = False
Else
CmdSend.Enabled = False
Text1.Enabled = False
i = Val(Text1.Text)
If i < 50 Or i > 60000 Then
i = 1500
Text1.Text = i
End If
AutoTimer.Interval = i
AutoTimer.Enabled = True
End If
End Sub
Private Sub CmdCls_Click()
SendText.Text = ""
End Sub
Private Sub CmdCom_Click()
Dim Settings As String
Dim j As Long
On Error GoTo ErrP
Me.Caption = "IDC611_Modbus_tool--Master"
If CmdCom.Caption = "Open" Then ''打开串口
Select Case CheckCb.ListIndex
Case 0
Settings = "N"
Case 1
Settings = "O"
Case 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -