📄 frmmain.frm
字号:
Index = 2
Left = 150
TabIndex = 57
Top = 840
Width = 1215
_ExtentX = 2143
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
value = -1 'True
Caption = "16384"
End
Begin MsGen.msSwitch bttnBuffer
Height = 360
Index = 3
Left = 150
TabIndex = 58
Top = 1140
Width = 1215
_ExtentX = 2143
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "32768"
End
End
Begin VB.Frame Frame1
BackColor = &H00545249&
Caption = "采样速率"
ForeColor = &H000080FF&
Height = 1605
Left = 2520
TabIndex = 8
Top = 2640
Width = 1515
Begin MsGen.msSwitch bttnSamples
Height = 360
Index = 0
Left = 150
TabIndex = 59
Top = 240
Width = 1215
_ExtentX = 2143
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "11025"
End
Begin MsGen.msSwitch bttnSamples
Height = 360
Index = 1
Left = 150
TabIndex = 60
Top = 540
Width = 1215
_ExtentX = 2143
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "22050"
End
Begin MsGen.msSwitch bttnSamples
Height = 360
Index = 2
Left = 150
TabIndex = 61
Top = 840
Width = 1215
_ExtentX = 2143
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "24000"
End
Begin MsGen.msSwitch bttnSamples
Height = 360
Index = 3
Left = 150
TabIndex = 62
Top = 1140
Width = 1215
_ExtentX = 2143
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
value = -1 'True
Caption = "48000"
End
End
Begin VB.Timer tmrSweep
Enabled = 0 'False
Interval = 100
Left = 7320
Top = 4350
End
Begin VB.TextBox txtSweep
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 1470
TabIndex = 7
Text = "100"
Top = 4950
Width = 1305
End
Begin VB.TextBox txtSweep
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 1470
TabIndex = 6
Text = "1000"
Top = 4620
Width = 1305
End
Begin VB.TextBox txtSweep
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 1470
TabIndex = 5
Text = "100"
Top = 4320
Width = 1305
End
Begin VB.Timer tmrChop
Enabled = 0 'False
Interval = 5
Left = 6060
Top = 4350
End
Begin VB.Frame fraMod
BackColor = &H00545249&
Caption = "振幅调制"
ForeColor = &H000080FF&
Height = 615
Left = 9870
TabIndex = 0
Top = 4260
Width = 1935
Begin VB.HScrollBar hscMod
Height = 255
LargeChange = 10
Left = 450
Max = 100
TabIndex = 1
Top = 270
Width = 1395
End
Begin VB.Label lblAmpMod
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Comic Sans MS"
Size = 9
Charset = 238
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 255
Left = 60
TabIndex = 69
Top = 300
Width = 435
End
End
Begin VB.Frame fraOsc
Caption = "示波仪"
ForeColor = &H00800080&
Height = 1875
Left = 5550
TabIndex = 2
Top = 690
Width = 6285
Begin VB.PictureBox picOsc
AutoRedraw = -1 'True
BackColor = &H00004000&
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 120
ScaleHeight = 77
ScaleMode = 3 'Pixel
ScaleWidth = 397
TabIndex = 3
TabStop = 0 'False
Top = 240
Width = 6015
End
Begin VB.Line lin2
BorderColor = &H000000FF&
X1 = 6090
X2 = 6090
Y1 = 1440
Y2 = 1800
End
Begin VB.Line lin1
BorderColor = &H000000FF&
X1 = 120
X2 = 120
Y1 = 1440
Y2 = 1800
End
Begin VB.Line linGraph
BorderColor = &H00FF0000&
X1 = 120
X2 = 6090
Y1 = 1680
Y2 = 1680
End
Begin VB.Label lblGraph
Alignment = 2 'Center
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 238
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004000&
Height = 255
Left = 120
TabIndex = 4
Top = 1440
Width = 5895
End
End
Begin VB.Timer tmrMod
Left = 6900
Top = 4350
End
Begin MsGen.LCDDisplay LCDDisplay2
Height = 795
Left = 2490
TabIndex = 44
Top = 1770
Width = 2520
_ExtentX = 4445
_ExtentY = 1402
DCount = 5
End
Begin MsGen.msSwitch bttnOnOff
Height = 360
Index = 0
Left = 780
TabIndex = 67
Top = 5400
Width = 1035
_ExtentX = 2037
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
value = -1 'True
Caption = "关"
End
Begin MsGen.msSwitch bttnOnOff
Height = 360
Index = 1
Left = 1920
TabIndex = 68
Top = 5400
Width = 1065
_ExtentX = 1879
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "开"
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "周期(秒)."
ForeColor = &H0080FFFF&
Height = 255
Index = 2
Left = 330
TabIndex = 50
Top = 5010
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "结束频率."
ForeColor = &H0080FFFF&
Height = 255
Index = 1
Left = 330
TabIndex = 49
Top = 4680
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "起始频率."
ForeColor = &H0080FFFF&
Height = 255
Index = 0
Left = 330
TabIndex = 48
Top = 4365
Width = 1095
End
Begin VB.Label Label4
BackColor = &H00FFFFC0&
BackStyle = 0 'Transparent
Caption = "ms"
BeginProperty Font
Name = "Comic Sans MS"
Size = 14.25
Charset = 238
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 435
Index = 1
Left = 2010
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -