📄 form2.frm
字号:
Begin VB.Label Label24
BackColor = &H00000000&
Caption = "Label24"
ForeColor = &H000000FF&
Height = 255
Left = 1200
TabIndex = 24
Top = 3000
Width = 1215
End
Begin VB.Label Label23
BackColor = &H00000000&
Caption = "Label23"
ForeColor = &H000000FF&
Height = 255
Left = 1200
TabIndex = 23
Top = 2760
Width = 1215
End
Begin VB.Label Label22
BackColor = &H00000000&
Caption = "Label22"
ForeColor = &H000000FF&
Height = 255
Left = 1200
TabIndex = 22
Top = 2520
Width = 1215
End
Begin VB.Label Label21
BackColor = &H00000000&
Caption = "Label21"
ForeColor = &H000000FF&
Height = 255
Left = 1200
TabIndex = 21
Top = 2280
Width = 1215
End
Begin VB.Label Label20
BackColor = &H00000000&
Caption = "Label20"
ForeColor = &H000000FF&
Height = 255
Left = 1200
TabIndex = 20
Top = 2040
Width = 1215
End
Begin VB.Label Label15
BackColor = &H00000000&
Caption = "Label15"
ForeColor = &H0000FF00&
Height = 255
Left = 480
TabIndex = 19
Top = 1560
Width = 615
End
Begin VB.Label Label14
BackColor = &H00000000&
Caption = "Label14"
ForeColor = &H0000FF00&
Height = 255
Left = 480
TabIndex = 18
Top = 1320
Width = 615
End
Begin VB.Label Label13
BackColor = &H00000000&
Caption = "Label13"
ForeColor = &H0000FF00&
Height = 255
Left = 480
TabIndex = 17
Top = 1080
Width = 735
End
Begin VB.Label Label12
BackColor = &H00000000&
Caption = "Label12"
ForeColor = &H0000FF00&
Height = 252
Left = 480
TabIndex = 16
Top = 600
Width = 612
End
Begin VB.Label Label10
BackColor = &H00000000&
Caption = "Label10"
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 15
Top = 1560
Width = 1215
End
Begin VB.Label Label9
BackColor = &H00000000&
Caption = "Label9"
ForeColor = &H0000FF00&
Height = 255
Left = 1080
TabIndex = 14
Top = 1320
Width = 1215
End
Begin VB.Label Label8
BackColor = &H00000000&
Caption = "Label8"
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 13
Top = 1080
Width = 1215
End
Begin VB.Label Label7
BackColor = &H00000000&
Caption = "Label7"
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 12
Top = 600
Width = 1215
End
Begin VB.Label Label5
BackColor = &H80000006&
Caption = "Time/div"
ForeColor = &H00FFFFFF&
Height = 255
Index = 16
Left = 480
TabIndex = 2
Top = 4200
Width = 735
End
Begin VB.Label Label5
BackColor = &H80000006&
Caption = "Zoom"
ForeColor = &H00FFFFFF&
Height = 255
Index = 15
Left = 480
TabIndex = 1
Top = 3960
Width = 735
End
Begin VB.Label Label5
BackColor = &H80000006&
Caption = "Rate"
ForeColor = &H00FFFFFF&
Height = 255
Index = 14
Left = 480
TabIndex = 0
Top = 3720
Width = 735
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private offsetvoltage As Long
Private Sub Form_Unload(Cancel As Integer)
'关闭前保存当前配置
savecurini
End Sub
Private Sub HScroll1_Change()
Call SETSELECTCHANNEL
Call SETBOARD
Call SETDISPLAY
Call setv1_v2
End Sub
Private Sub HScroll10_Change()
If Form2.HScroll9.Value <> 4 Then
paraon = 1
Dso29.Timer1.Enabled = False
Dso29.Timer1.Interval = 3000
Dso29.Timer1.Enabled = True
triggerdisflag = 1
Call setlevel
Call refreshscreen1
End If
End Sub
Private Sub HScroll11_Change()
paraon = 1
Call settrigslop
End Sub
Private Sub HScroll12_Change()
Call setrate
Call timedivacq
Call DISTANCEA_B
End Sub
Private Sub HScroll13_Change()
Call setzoom
Call timedivacq
Call DISTANCEA_B
End Sub
Private Sub HScroll14_Change()
Call settrigmode
End Sub
Private Sub HScroll16_Change()
Call setprobe
Call setv1_v2
End Sub
Private Sub HScroll2_Change()
setsize
End Sub
Private Sub HScroll5_Change()
paraon = 1
Call setcoupling
End Sub
Private Sub HScroll6_Change()
Call SETDISPLAY
End Sub
Private Sub HScroll7_Change()
paraon = 1
Call DIV_ATTEU
Call setoffset
Call setv1_v2
End Sub
Private Sub HScroll8_Change()
paraon = 1
Dso29.Timer1.Enabled = False
Dso29.Timer1.Interval = 3000
Dso29.Timer1.Enabled = True
triggerdisflag = 1
Call setoffset
Call refreshscreen1
Call setv1_v2
End Sub
Private Sub HScroll9_Change()
Select Case Form2.HScroll9.Value
Case aCH0
objectcolor = Form1.Text17.ForeColor
Case aCH1
objectcolor = Form1.Text18.ForeColor
Case aCH2
objectcolor = Form1.Text19.ForeColor
If board_model = dso2902_128 Or board_model = dso2902_256 Or board_model = dso2902_512 Then
objectcolor = Form1.Text1.ForeColor
Call VScroll2_Change(0)
End If
Case aCH3
objectcolor = Form1.Text20.ForeColor
If board_model = dso2902_128 Or board_model = dso2902_256 Or board_model = dso2902_512 Then
objectcolor = Form1.Text1.ForeColor
Call VScroll2_Change(0)
End If
Case 4
objectcolor = Form1.Text1.ForeColor
Call VScroll2_Change(0)
End Select
Form2.Label20.ForeColor = objectcolor
Form2.Label21.ForeColor = objectcolor
Form2.Label22.ForeColor = objectcolor
Form2.Label23.ForeColor = objectcolor
paraon = 1
Call SetTrigCh
Dso29.Timer1.Enabled = False
Dso29.Timer1.Interval = 3000
Dso29.Timer1.Enabled = True
triggerdisflag = 1
Call refreshscreen1
End Sub
Private Sub Label3_Click()
'Form2.PopupMenu TDDD
End Sub
Private Sub Label4_Click()
'Form2.PopupMenu TYYY
End Sub
Private Sub Label5_Click(Index As Integer)
'Dso29.PopupMenu menurate
End Sub
Private Sub Option1_Click()
Call SETSELECTCHANNEL '选择模拟输入通道1~4
Call SETDISPLAY
Call setprobe
Call DIV_ATTEU
Call setoffset
Call setcoupling
Call setv1_v2 '设置显示电压差
End Sub
Private Sub Option2_Click()
Call SETSELECTCHANNEL
Call SETDISPLAY
Call setprobe
Call DIV_ATTEU
Call setoffset
Call setcoupling
Call setv1_v2
End Sub
Public Sub VScroll2_Change(Index As Integer)
If Form2.HScroll9.Value <> 0 And Form2.HScroll9.Value <> 1 Then
paraon = 1
v_tshd = Form2.VScroll2(0).Value
v_tshd2 = v_tshd
Call set_threshold(Index)
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -