📄 dlgjydzxsbtest.frm
字号:
Top = 3960
Width = 735
End
Begin VB.Label Label7
Caption = "吸收比"
BeginProperty Font
Name = "Microsoft Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4440
TabIndex = 22
Top = 2280
Visible = 0 'False
Width = 615
End
Begin VB.Label Label5
Height = 375
Left = 7680
TabIndex = 19
Top = 3960
Width = 1215
End
Begin VB.Label Label3
Height = 495
Left = 5520
TabIndex = 13
Top = 480
Width = 1215
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "当前试验类型："
Height = 195
Left = 4200
TabIndex = 3
Top = 1080
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "当前试验电压："
Height = 195
Left = 4200
TabIndex = 2
Top = 480
Width = 1260
End
End
Attribute VB_Name = "dlgJYDZXSBTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim nowVoltage As Integer
Dim strVoltage As String
Dim nowTest As Integer
Dim strTest As String
Dim Recordcount As Integer
Option Explicit
Private Sub CancelButton_Click()
Dim strCommand As String
strCommand = "58"
Call controlCommand1(strCommand, 0)
End Sub
Private Sub Command1_Click()
Dim count As Long
Dim falseCount As Integer
Dim strCommand As String
Dim strTemp1 As String
Dim strTemp2 As String
For nowVoltage = 0 To 3
If Option1(nowVoltage).Value = True Then
Exit For
End If
Next
Select Case nowVoltage
Case 0
strCommand = "50"
strVoltage = "50"
strTemp1 = "500V"
Case 1
strCommand = "51"
strVoltage = "51"
strTemp1 = "1000V"
Case 2
strCommand = "52"
strVoltage = "52"
strTemp1 = "2.5KV"
Case 3
strCommand = "53"
strVoltage = "53"
strTemp1 = "5KV"
Case Else
MsgBox "您未选择试验电压，程序将按默认电压500V进行试验！", vbOKOnly, "提示"
strCommand = "50"
strVoltage = "50"
strTemp1 = "500V"
End Select
Label3.Caption = ""
Call controlCommand1(strCommand, 0)
Timer1.Interval = 500
Timer1.Enabled = True
Frame1.Enabled = False
Frame2.Enabled = False
Text2.Text = "选择了" & strTemp1 + Chr(13) + Chr(10) + Text2.Text
End Sub
Private Sub Command2_Click()
dlgObjectSelection.Show vbModal
If tobj <> "" Then
Command3.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Dim strCommand As String
strCommand = "57"
Call controlCommand1(strCommand, 0)
End Sub
Private Sub Command4_Click()
Dim valTemp
If ttrain = "100" And ttype = "6" Then
byqData(76) = Label10.Caption
Select Case tobj
Case " 0"
byqData(77) = Label6.Caption
byqData(78) = Label8.Caption
valTemp = Val(Label6.Caption)
Case " 1"
byqData(80) = Label6.Caption
byqData(81) = Label8.Caption
valTemp = Val(Label6.Caption)
Case " 2"
byqData(83) = Label6.Caption
byqData(84) = Label8.Caption
valTemp = Val(Label6.Caption)
Case " 3"
byqData(86) = Label6.Caption
byqData(87) = Label8.Caption
valTemp = Val(Label6.Caption)
Case Else
End Select
ElseIf ttrain = "100" And ttype = "17" Then
Select Case tobj
Case " 0"
hgqData(10) = Label6.Caption
valTemp = Val(Label6.Caption)
Case " 1"
hgqData(11) = Label8.Caption
valTemp = Val(Label8.Caption)
Case Else
End Select
ElseIf ttrain = "100" And ttype = "21" Then
Select Case tobj
Case " 0"
dkqData(31) = Label6.Caption
valTemp = Val(Label6.Caption)
Case " 1"
dkqData(33) = Label8.Caption
valTemp = Val(Label8.Caption)
Case Else
End Select
ElseIf ttrain = "200" And ttype = "6" Then
byqData(76) = Label10.Caption
Select Case tobj
Case " 0"
byqData(77) = Label6.Caption
byqData(78) = Label8.Caption
Case " 1"
byqData(80) = Label6.Caption
byqData(81) = Label8.Caption
Case " 2"
byqData(83) = Label6.Caption
byqData(84) = Label8.Caption
Case " 3"
byqData(86) = Label6.Caption
byqData(87) = Label8.Caption
Case " 4"
byqData(89) = Label6.Caption
byqData(90) = Label8.Caption
Case " 5"
byqData(92) = Label6.Caption
byqData(93) = Label8.Caption
Case Else
End Select
ElseIf ttrain = "200" And ttype = "22" Then
Select Case tobj
Case " 0"
dkqData(98) = Label6.Caption
' byqData(99) = Label8.Caption
valTemp = Val(Label6.Caption)
Case " 1"
dkqData(100) = Label6.Caption
' byqData(81) = Label8.Caption
valTemp = Val(Label6.Caption)
Case " 2"
dkqData(102) = Label6.Caption
' byqData(84) = Label8.Caption
valTemp = Val(Label6.Caption)
Case " 3"
dkqData(104) = Label6.Caption
' byqData(87) = Label8.Caption
valTemp = Val(Label6.Caption)
Case Else
End Select
ElseIf ttrain = "500" And ttype = "6" Then
byqData(76) = Label10.Caption
Select Case tobj
Case " 0"
byqData(77) = Label6.Caption
byqData(78) = Label15.Caption
byqData(79) = Label8.Caption
Case " 1"
byqData(80) = Label6.Caption
byqData(81) = Label15.Caption
byqData(82) = Label8.Caption
Case " 2"
byqData(83) = Label6.Caption
byqData(84) = Label15.Caption
byqData(85) = Label8.Caption
Case " 3"
byqData(86) = Label6.Caption
byqData(87) = Label15.Caption
byqData(88) = Label8.Caption
Case " 4"
byqData(89) = Label6.Caption
byqData(90) = Label15.Caption
byqData(91) = Label8.Caption
Case " 5"
byqData(92) = Label6.Caption
byqData(93) = Label15.Caption
byqData(94) = Label8.Caption
Case " 6"
byqData(95) = Label6.Caption
byqData(96) = Label15.Caption
byqData(97) = Label8.Caption
Case " 7"
byqData(98) = Label6.Caption
byqData(99) = Label15.Caption
byqData(100) = Label8.Caption
Case " 8"
byqData(101) = Label6.Caption
byqData(102) = Label15.Caption
byqData(103) = Label8.Caption
Case " 9"
byqData(104) = Label6.Caption
byqData(105) = Label15.Caption
byqData(106) = Label8.Caption
Case Else
End Select
ElseIf ttrain = "500" And ttype = "20" Then
Select Case tobj
Case " 0"
dkqData(98) = Label6.Caption
dkqData(99) = Label8.Caption
Case " 1"
dkqData(100) = Label6.Caption
dkqData(101) = Label8.Caption
Case Else
End Select
ElseIf ttrain = "500" And ttype = "25" Then
Select Case tobj
Case " 0"
dkqData(165) = Label6.Caption
dkqData(166) = Label8.Caption
Case " 1"
dkqData(167) = Label6.Caption
dkqData(168) = Label8.Caption
Case " 2"
dkqData(169) = Label6.Caption
dkqData(170) = Label8.Caption
Case " 3"
dkqData(171) = Label6.Caption
dkqData(172) = Label8.Caption
Case Else
End Select
ElseIf ttrain = "500" And ttype = "31" Then
Select Case tobj
Case " 0"
hgqData(10) = Label6.Caption
hgqData(11) = Label8.Caption
Case " 1"
hgqData(12) = Label6.Caption
hgqData(13) = Label8.Caption
Case Else
End Select
End If
Command4.Enabled = False
End Sub
Private Sub Command5_Click()
Dim strCommand As String
Dim strTemp2 As String
For nowTest = 0 To 2
If Option2(nowTest).Value = True Then
Exit For
End If
Next
Select Case nowTest
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -