📄 frmregister.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MsComCtl.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FrmRegister
Caption = "IDC611_Modbus_tool--Master"
ClientHeight = 7605
ClientLeft = 60
ClientTop = 345
ClientWidth = 10215
Icon = "FrmRegister.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7605
ScaleWidth = 10215
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton CmdSave
Caption = "Save"
Enabled = 0 'False
Height = 375
Left = 360
TabIndex = 49
Top = 6960
Width = 975
End
Begin VB.CommandButton CmdExit
Caption = "&Exit"
Height = 375
Left = 1680
TabIndex = 43
Top = 6960
Width = 975
End
Begin VB.Timer ReNetTimer
Enabled = 0 'False
Interval = 5000
Left = 8520
Top = 4800
End
Begin MSWinsockLib.Winsock Winsock1
Index = 0
Left = 8880
Top = 4800
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer AutoTimer
Enabled = 0 'False
Left = 5760
Top = 6360
End
Begin VB.Timer ComTimer
Enabled = 0 'False
Interval = 100
Left = 6360
Top = 4800
End
Begin MSCommLib.MSComm MSComPort
Left = 6840
Top = 4800
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InputMode = 1
End
Begin VB.Timer OverTimer
Enabled = 0 'False
Left = 7920
Top = 3720
End
Begin MSComctlLib.ImageList ImageList1
Left = 8400
Top = 3720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmRegister.frx":0CCA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmRegister.frx":19A4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmRegister.frx":1DF6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmRegister.frx":2248
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmRegister.frx":269A
Key = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame1
Caption = "Operate"
ForeColor = &H00FF0000&
Height = 5535
Index = 1
Left = 120
TabIndex = 23
Top = 1920
Width = 9975
Begin RichTextLib.RichTextBox SendText
Height = 1935
Left = 240
TabIndex = 42
Top = 2520
Width = 5175
_ExtentX = 9128
_ExtentY = 3413
_Version = 393217
Enabled = -1 'True
ScrollBars = 2
TextRTF = $"FrmRegister.frx":2AEC
End
Begin VB.TextBox Text2
Height = 375
Left = 6600
MaxLength = 3
TabIndex = 39
Text = "Text2"
Top = 480
Visible = 0 'False
Width = 975
End
Begin VB.Frame Frame1
Caption = "Register option"
Height = 2175
Index = 0
Left = 240
TabIndex = 32
Top = 240
Width = 2535
Begin VB.Frame Frame1
Caption = "Access"
Height = 735
Index = 3
Left = 240
TabIndex = 46
Top = 1320
Width = 2055
Begin VB.OptionButton Option1
Caption = "Read"
Height = 255
Index = 0
Left = 240
TabIndex = 48
Top = 300
Value = -1 'True
Width = 735
End
Begin VB.OptionButton Option1
Caption = "Write"
Height = 255
Index = 1
Left = 1200
TabIndex = 47
Top = 300
Width = 735
End
End
Begin VB.TextBox StartText
Alignment = 2 'Center
Height = 285
Left = 1560
MaxLength = 5
TabIndex = 44
Text = "1"
ToolTipText = "0~32767"
Top = 360
Width = 735
End
Begin VB.TextBox NumText
Alignment = 2 'Center
Height = 285
Left = 1560
MaxLength = 3
TabIndex = 33
Text = "1"
ToolTipText = "1~127"
Top = 840
Width = 735
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Start Address:"
Height = 195
Index = 0
Left = 480
TabIndex = 45
Top = 405
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Register Number:"
Height = 195
Index = 2
Left = 240
TabIndex = 34
Top = 885
Width = 1230
End
End
Begin VB.Frame Frame1
Caption = "Other option"
Height = 2160
Index = 2
Left = 2880
TabIndex = 30
Top = 240
Width = 2535
Begin VB.TextBox Text4
Enabled = 0 'False
Height = 285
Left = 1440
TabIndex = 54
Top = 1680
Width = 735
End
Begin VB.TextBox Text3
Height = 285
Left = 240
MaxLength = 5
TabIndex = 52
Top = 1680
Width = 735
End
Begin VB.OptionButton Option4
Caption = "ASC"
Height = 195
Index = 0
Left = 240
TabIndex = 51
Top = 720
Width = 735
End
Begin VB.OptionButton Option4
Caption = "Hex"
Height = 195
Index = 1
Left = 1440
TabIndex = 50
Top = 720
Value = -1 'True
Width = 735
End
Begin VB.ComboBox CbSlaveAddr
Height = 315
Left = 1440
Style = 2 'Dropdown List
TabIndex = 36
Top = 300
Width = 855
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Version: V2.0.0"
ForeColor = &H00FF0000&
Height = 195
Index = 15
Left = 240
TabIndex = 57
Top = 1080
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "==>"
Height = 195
Index = 14
Left = 1080
TabIndex = 56
Top = 1725
Width = 270
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "signed"
Height = 195
Index = 11
Left = 1560
TabIndex = 55
Top = 1440
Width = 465
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Unsigned"
Height = 195
Index = 1
Left = 240
TabIndex = 53
Top = 1440
Width = 675
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Slave Address:"
Height = 195
Index = 3
Left = 240
TabIndex = 31
Top = 360
Width = 1065
End
End
Begin VB.CommandButton CmdCls
Caption = "&Clear"
Height = 375
Left = 240
TabIndex = 29
Top = 4560
Width = 975
End
Begin VB.CommandButton CmdSend
Caption = "&Send"
Height = 375
Left = 1560
TabIndex = 28
Top = 4560
Width = 975
End
Begin VB.Frame Frame2
Height = 855
Left = 2880
TabIndex = 24
Top = 4540
Width = 2535
Begin VB.CheckBox Check2
Caption = "Automatism"
Height = 375
Left = 240
TabIndex = 26
Top = 240
Width = 1215
End
Begin VB.TextBox Text1
Height = 285
Left = 1440
MaxLength = 5
TabIndex = 25
Text = "1500"
ToolTipText = "50~60000"
Top = 285
Width = 615
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "ms"
Height = 195
Index = 12
Left = 2160
TabIndex = 27
Top = 330
Width = 195
End
End
Begin MSFlexGridLib.MSFlexGrid MSGrid
Height = 5175
Left = 5520
TabIndex = 35
Top = 240
Width = 4335
_ExtentX = 7646
_ExtentY = 9128
_Version = 393216
Cols = 4
FixedCols = 0
End
End
Begin VB.Frame Frame1
Caption = "Communication Setting"
Height = 1815
Index = 4
Left = 120
TabIndex = 0
Top = 0
Width = 9975
Begin VB.OptionButton Option2
Caption = "COM"
Height = 255
Index = 0
Left = 240
TabIndex = 2
Top = 480
Value = -1 'True
Width = 735
End
Begin VB.OptionButton Option2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -