📄 frmmain.frm
字号:
Left = 2505
TabIndex = 252
Top = 360
Width = 390
End
Begin VB.Label lblPort
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "Port"
Height = 195
Index = 1
Left = 450
TabIndex = 251
Top = 360
Width = 315
End
Begin VB.Label lblParityReplace
AutoSize = -1 'True
Caption = "Parity Replace"
Height = 195
Index = 1
Left = 2250
TabIndex = 250
Top = 975
Width = 1035
End
End
Begin VB.CommandButton cmdReceive
Caption = "Receive"
Height = 495
Index = 1
Left = 1320
TabIndex = 175
Top = 7800
Width = 975
End
Begin VB.ListBox lstData
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3420
Index = 1
ItemData = "frmMain.frx":05AC
Left = 120
List = "frmMain.frx":05AE
TabIndex = 174
Top = 2400
Width = 6495
End
Begin VB.Frame fraOutput
Caption = "Output"
Height = 855
Index = 1
Left = 1320
TabIndex = 171
Top = 8520
Width = 975
Begin VB.OptionButton optBinaryOut
Caption = "Binary"
Height = 255
Index = 1
Left = 120
TabIndex = 173
Top = 480
Value = -1 'True
Width = 735
End
Begin VB.OptionButton optStringOut
Caption = "String"
Height = 255
Index = 1
Left = 120
TabIndex = 172
Top = 240
Width = 735
End
End
Begin VB.CommandButton cmdClear
Caption = "Clear"
Height = 375
Index = 1
Left = 120
TabIndex = 170
Top = 7200
Width = 1095
End
Begin VB.Frame fraRThreshold
Caption = "Receive Threshold Count"
Height = 615
Index = 1
Left = 1320
TabIndex = 166
Top = 7080
Width = 2535
Begin VB.CommandButton cmdApplyRThresh
Caption = "Apply"
Enabled = 0 'False
Height = 285
Index = 1
Left = 1680
TabIndex = 169
Top = 225
Width = 735
End
Begin VB.TextBox txtRThreshold
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 960
TabIndex = 168
Top = 225
Width = 615
End
Begin VB.CheckBox chkRThreshold
Caption = "Enable"
Height = 255
Index = 1
Left = 120
TabIndex = 167
Top = 240
Width = 795
End
End
Begin VB.Frame fraLineControl
Caption = "Line Toggle"
Height = 1695
Index = 1
Left = 120
TabIndex = 162
Top = 7680
Width = 1095
Begin VB.CommandButton cmdDTR
Caption = "DTR"
Height = 375
Index = 1
Left = 120
TabIndex = 165
Top = 1200
Width = 735
End
Begin VB.CommandButton cmdRTS
Caption = "RTS"
Height = 375
Index = 1
Left = 120
TabIndex = 164
Top = 720
Width = 735
End
Begin VB.CommandButton cmdBreak
Caption = "BREAK"
Height = 375
Index = 1
Left = 120
TabIndex = 163
Top = 240
Width = 735
End
Begin VB.Shape shpDTR
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 1200
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpRTS
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 720
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpBreak
FillColor = &H00FF00FF&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 240
Visible = 0 'False
Width = 135
End
Begin VB.Shape shpDTROff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 1200
Width = 135
End
Begin VB.Shape shpRTSOff
FillColor = &H00008000&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 720
Width = 135
End
Begin VB.Shape shpBreakOff
FillColor = &H00800080&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 840
Top = 240
Width = 135
End
End
Begin VB.Frame fraHolding
Caption = "Holding"
Height = 975
Index = 1
Left = 1320
TabIndex = 158
Top = 9480
Width = 975
Begin VB.Label lblCD
AutoSize = -1 'True
Caption = "CD"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 161
Top = 720
Width = 210
End
Begin VB.Shape shpCD
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Visible = 0 'False
Width = 255
End
Begin VB.Label lblDSR
AutoSize = -1 'True
Caption = "DSR"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 160
Top = 480
Width = 315
End
Begin VB.Shape shpDSR
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Visible = 0 'False
Width = 255
End
Begin VB.Label lblCTS
AutoSize = -1 'True
Caption = "CTS"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 420
TabIndex = 159
Top = 240
Width = 315
End
Begin VB.Shape shpCTS
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Visible = 0 'False
Width = 255
End
Begin VB.Shape shpCDOff
FillColor = &H00008080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Width = 255
End
Begin VB.Shape shpDSROff
FillColor = &H00000080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Width = 255
End
Begin VB.Shape shpCTSOff
FillColor = &H00008000&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Width = 255
End
End
Begin VB.Frame fraLineDetect
Caption = "Detection"
Height = 975
Index = 1
Left = 120
TabIndex = 154
Top = 9480
Width = 1095
Begin VB.Timer tmrLineDetect
Enabled = 0 'False
Index = 1
Interval = 250
Left = 840
Top = 720
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -