📄 frmmain.frm
字号:
Begin VB.Shape shpBreakEvent
FillColor = &H00FF00FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Visible = 0 'False
Width = 255
End
Begin VB.Label lblBreak
AutoSize = -1 'True
Caption = "Break"
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 = 157
Top = 240
Width = 525
End
Begin VB.Shape shpRing
FillColor = &H0000FFFF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Visible = 0 'False
Width = 255
End
Begin VB.Label lblRing
AutoSize = -1 'True
Caption = "Ring"
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 = 156
Top = 480
Width = 420
End
Begin VB.Shape shpEOF
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 765
Visible = 0 'False
Width = 255
End
Begin VB.Label lblEOF
AutoSize = -1 'True
Caption = "EOF"
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 = 155
Top = 720
Width = 315
End
Begin VB.Shape shpBreakEventOff
FillColor = &H00800080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Width = 255
End
Begin VB.Shape shpRingOff
FillColor = &H00008080&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Width = 255
End
Begin VB.Shape shpEOFOff
BackColor = &H00800000&
BackStyle = 1 'Opaque
Height = 135
Index = 1
Left = 120
Top = 765
Width = 255
End
End
Begin VB.Frame fraPoll
Caption = "Poll Port"
Height = 2655
Index = 1
Left = 2400
TabIndex = 147
Top = 7800
Width = 1095
Begin VB.TextBox txtBuffer
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
MaxLength = 4
TabIndex = 151
Text = "0"
Top = 2200
Width = 855
End
Begin VB.CommandButton cmdApplyPoll
Caption = "Apply"
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
TabIndex = 150
Top = 600
Width = 855
End
Begin VB.TextBox txtPoll
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
MaxLength = 4
TabIndex = 149
Text = "0"
Top = 1200
Width = 855
End
Begin VB.CheckBox chkPoll
Caption = "Enable"
Height = 255
Index = 1
Left = 120
TabIndex = 148
Top = 240
Width = 795
End
Begin VB.Label lblReadAt
Alignment = 1 'Right Justify
Caption = "Read When Buffer Has A Count Of : "
Height = 555
Index = 1
Left = 120
TabIndex = 153
Top = 1560
Width = 875
End
Begin VB.Label lblInterval
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Time Interval "
Height = 195
Index = 1
Left = 75
TabIndex = 152
Top = 960
Width = 960
End
End
Begin VB.Frame fraInputLen
Caption = "Read x Characters At A Time"
Height = 615
Index = 1
Left = 3960
TabIndex = 143
Top = 7080
Width = 2655
Begin VB.TextBox txtCount
Alignment = 2 'Center
Enabled = 0 'False
Height = 285
Index = 1
Left = 1680
TabIndex = 146
Top = 225
Width = 855
End
Begin VB.OptionButton optCount
Caption = "Count Of"
Height = 255
Index = 1
Left = 720
TabIndex = 145
Top = 240
Width = 975
End
Begin VB.OptionButton optAll
Caption = "ALL"
Height = 255
Index = 1
Left = 120
TabIndex = 144
Top = 240
Value = -1 'True
Width = 615
End
End
Begin VB.PictureBox picScope
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 833
Index = 1
Left = 120
Picture = "frmMain.frx":05B0
ScaleHeight = 54
ScaleMode = 3 'Pixel
ScaleWidth = 431
TabIndex = 142
Top = 6000
Width = 6495
End
Begin VB.Frame fraComError
Caption = "Port Errors"
Height = 2655
Index = 1
Left = 3600
TabIndex = 131
Top = 7800
Width = 1225
Begin VB.Timer tmrErrors
Enabled = 0 'False
Index = 1
Interval = 250
Left = 720
Top = 1440
End
Begin VB.Shape shpSThresh
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 2445
Visible = 0 'False
Width = 255
End
Begin VB.Label lblSThresh
AutoSize = -1 'True
Caption = "Send"
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 = 141
Top = 2400
Width = 420
End
Begin VB.Shape shpFrame
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 285
Visible = 0 'False
Width = 255
End
Begin VB.Label lblFrame
AutoSize = -1 'True
Caption = "Frame"
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 = 140
Top = 240
Width = 525
End
Begin VB.Shape shpParity
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 525
Visible = 0 'False
Width = 255
End
Begin VB.Label lblParityError
AutoSize = -1 'True
Caption = "Parity"
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 = 139
Top = 480
Width = 630
End
Begin VB.Shape shpOverRun
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 1
Left = 120
Top = 765
Visible = 0 'False
Width = 255
End
Begin VB.Label lblOver
AutoSize = -1 'True
Caption = "Loss"
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -