📄 frmutility.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmUtility
Caption = "ModBus Utility (Ver 1.0.0)"
ClientHeight = 7515
ClientLeft = 60
ClientTop = 750
ClientWidth = 10095
Icon = "frmUtility.frx":0000
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7515
ScaleWidth = 10095
StartUpPosition = 2 '屏幕中心
Begin MSCommLib.MSComm MsCOM
Left = 9045
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
BaudRate = 19200
SThreshold = 2
InputMode = 1
End
Begin MSComctlLib.ImageList ImageList
Left = 9600
Top = -120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":0E42
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":2B4C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":399E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":47F0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":64FA
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":734C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":7666
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmUtility.frx":84B8
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 360
Left = 0
TabIndex = 23
Top = 0
Width = 10095
_ExtentX = 17806
_ExtentY = 635
ButtonWidth = 609
ButtonHeight = 582
Style = 1
ImageList = "ImageList"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 11
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ComSet"
Object.ToolTipText = "端口设置"
ImageIndex = 5
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ProtOpen"
Object.ToolTipText = "打开端口"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "CRC"
Object.ToolTipText = "CRC测试"
ImageIndex = 6
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Send"
Object.ToolTipText = "发送数据"
ImageIndex = 7
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Clcer"
Object.ToolTipText = "清空接收区"
ImageIndex = 1
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Help"
Object.ToolTipText = "Online Help"
ImageIndex = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "About"
Object.ToolTipText = "About CH2000M Utility"
ImageIndex = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Exit"
Object.ToolTipText = "退出"
ImageIndex = 8
EndProperty
EndProperty
BorderStyle = 1
Begin VB.Timer TmFlash
Enabled = 0 'False
Interval = 500
Left = 8610
Top = -30
End
End
Begin VB.CommandButton cmdExit
Caption = "退 出(E)"
Height = 615
Left = 8370
TabIndex = 5
Top = 6510
Width = 1545
End
Begin VB.CommandButton cmdClcer
Caption = "清空接收区(&C)"
Height = 615
Left = 6750
TabIndex = 4
Top = 6510
Width = 1620
End
Begin VB.CommandButton cmdSend
Caption = "发送数据(&S)"
Enabled = 0 'False
Height = 615
Left = 5130
TabIndex = 3
Top = 6510
Width = 1620
End
Begin VB.CommandButton cmdCRC
Caption = "CRC测试(&T)"
Height = 615
Left = 3510
TabIndex = 2
Top = 6510
Width = 1620
End
Begin VB.CommandButton cmdOpenCOM
Caption = "打开通讯口(&O)"
Height = 615
Left = 1890
TabIndex = 1
Top = 6510
Width = 1620
End
Begin VB.CommandButton cmdComSet
Caption = "通讯口设置(&P)"
Height = 615
Left = 270
TabIndex = 0
Top = 6510
Width = 1620
End
Begin VB.TextBox txtCRC
Alignment = 2 'Center
Height = 270
Left = 8940
Locked = -1 'True
TabIndex = 13
Text = "45CA"
Top = 6150
Width = 630
End
Begin VB.TextBox txtPSum
Alignment = 2 'Center
Height = 270
Left = 7290
MaxLength = 4
TabIndex = 12
Text = "0000"
Top = 6150
Width = 630
End
Begin VB.TextBox txtSAddr
Alignment = 2 'Center
Height = 270
Left = 5280
MaxLength = 4
TabIndex = 11
Text = "0000"
Top = 6150
Width = 630
End
Begin VB.TextBox txtCommand
Alignment = 2 'Center
Height = 270
Left = 3270
MaxLength = 2
TabIndex = 10
Text = "03"
Top = 6150
Width = 630
End
Begin VB.TextBox txtMAddr
Alignment = 2 'Center
Height = 270
Left = 1425
MaxLength = 2
TabIndex = 9
Text = "01"
Top = 6150
Width = 630
End
Begin TabDlg.SSTab SSTab
Height = 5025
Left = 255
TabIndex = 6
Top = 1035
Width = 9660
_ExtentX = 17039
_ExtentY = 8864
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "主机发送"
TabPicture(0) = "frmUtility.frx":930A
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame(1)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "从机响应"
TabPicture(1) = "frmUtility.frx":9326
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "lblMsg"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Frame(2)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "chkAutoSend"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "chkSetMax"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
Begin VB.CheckBox chkSetMax
Caption = "置最大值"
ForeColor = &H00808000&
Height = 180
Left = -66795
TabIndex = 31
Top = 150
Width = 1020
End
Begin VB.CheckBox chkAutoSend
Caption = "自动响应"
ForeColor = &H000040C0&
Height = 180
Left = -69645
TabIndex = 26
Top = 150
Width = 1020
End
Begin VB.Frame Frame
Caption = "响应数据"
Height = 4560
Index = 2
Left = -74880
TabIndex = 21
Top = 345
Width = 9420
Begin VB.TextBox txtHCommand
Height = 1335
Left = 60
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 28
Top = 3165
Width = 9285
End
Begin VB.TextBox txtData
Height = 2820
Left = 60
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Top = 330
Width = 9285
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33"
ForeColor = &H00C000C0&
Height = 165
Left = 105
TabIndex = 30
Top = 165
Width = 8820
End
End
Begin VB.Frame Frame
Caption = "数据"
Height = 4560
Index = 1
Left = 120
TabIndex = 19
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -