📄 dlgzldztest.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form dlgZLDZTest
BorderStyle = 4 'Fixed ToolWindow
Caption = "直流电阻测试"
ClientHeight = 2970
ClientLeft = 2760
ClientTop = 3630
ClientWidth = 7995
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2970
ScaleWidth = 7995
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command4
Caption = "存储数据"
Enabled = 0 'False
Height = 495
Left = 5640
TabIndex = 16
Top = 2160
Width = 1215
End
Begin VB.Timer Timer1
Interval = 5000
Left = 0
Top = 1200
End
Begin MSCommLib.MSComm MSComm1
Index = 1
Left = 0
Top = 600
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 3
DTREnable = -1 'True
RThreshold = 1
BaudRate = 4800
StopBits = 2
InputMode = 1
End
Begin VB.CommandButton Command3
Caption = "试验序号选择"
Enabled = 0 'False
Height = 495
Left = 1320
TabIndex = 3
Top = 2160
Width = 1215
End
Begin MSCommLib.MSComm MSComm1
Index = 0
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 8
DTREnable = -1 'True
RThreshold = 1
InputMode = 1
End
Begin VB.CommandButton Command2
Caption = "消弧"
Enabled = 0 'False
Height = 495
Left = 4200
TabIndex = 1
Top = 2160
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "测试 "
Enabled = 0 'False
Height = 495
Left = 2760
TabIndex = 0
Top = 2160
Width = 1215
End
Begin VB.Label Label13
Alignment = 2 'Center
Height = 255
Left = 6480
TabIndex = 15
Top = 240
Width = 855
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "当前温度："
Height = 195
Left = 5520
TabIndex = 14
Top = 240
Width = 825
End
Begin VB.Label Label11
Height = 375
Left = 720
TabIndex = 13
Top = 120
Width = 2175
End
Begin VB.Line Line9
X1 = 6000
X2 = 6000
Y1 = 600
Y2 = 1680
End
Begin VB.Line Line8
X1 = 4680
X2 = 4680
Y1 = 600
Y2 = 1680
End
Begin VB.Line Line7
X1 = 3360
X2 = 3360
Y1 = 600
Y2 = 1680
End
Begin VB.Line Line6
X1 = 2040
X2 = 2040
Y1 = 600
Y2 = 1680
End
Begin VB.Line Line5
X1 = 7320
X2 = 7320
Y1 = 1680
Y2 = 600
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "质量标准"
Height = 195
Left = 2400
TabIndex = 12
Top = 720
Width = 720
End
Begin VB.Label Label9
Alignment = 2 'Center
Height = 375
Left = 2160
TabIndex = 11
Top = 1200
Width = 1095
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "检查项目"
Height = 195
Left = 1080
TabIndex = 10
Top = 720
Width = 720
End
Begin VB.Label Label7
Alignment = 2 'Center
Height = 375
Left = 840
TabIndex = 9
Top = 1200
Width = 1095
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "结果"
Height = 195
Left = 6480
TabIndex = 8
Top = 720
Width = 360
End
Begin VB.Label Label5
Alignment = 2 'Center
Height = 375
Left = 6120
TabIndex = 7
Top = 1200
Width = 1095
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "75摄氏度"
Height = 195
Left = 5040
TabIndex = 6
Top = 720
Width = 720
End
Begin VB.Line Line4
X1 = 720
X2 = 7320
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line3
X1 = 720
X2 = 7320
Y1 = 960
Y2 = 960
End
Begin VB.Line Line2
X1 = 720
X2 = 720
Y1 = 1680
Y2 = 600
End
Begin VB.Line Line1
X1 = 720
X2 = 7320
Y1 = 600
Y2 = 600
End
Begin VB.Label Label3
Height = 315
Left = 4830
TabIndex = 5
Top = 1200
Width = 1035
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "室温"
Height = 195
Left = 3840
TabIndex = 4
Top = 720
Width = 360
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 375
Left = 3480
TabIndex = 2
Top = 1200
Width = 1095
End
End
Attribute VB_Name = "dlgZLDZTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strRTemp As String
Dim strRFinal As String
Dim Recordcount As Integer
Option Explicit
Private Sub Command1_Click()
Call controlCommand1("011119", 0)
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Command2_Click()
Call controlCommand1("18", 0)
Command1.Enabled = False
Command4.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
dlgObjectSelection.Show vbModal
If ttrain = "100" Then
If ttype = "5" Then
Select Case tobj
Case " 0"
Label7.Caption = "AX之间直流电阻"
Label9.Caption = "0.73385±5%"
Case " 1"
Label7.Caption = "a1x1之间直流电阻"
Label9.Caption = "0.003812±5%"
Case " 2"
Label7.Caption = "a3c3之间直流电阻"
Label9.Caption = "0.001370±5%"
Case " 3"
Label7.Caption = "a3b3之间直流电阻"
Label9.Caption = "0.00370±5%"
Case " 4"
Label7.Caption = "a3x3之间直流电阻"
Label9.Caption = "0.007396±5%"
Case " 5"
Label7.Caption = "a2x2之间直流电阻"
Label9.Caption = "0.003812±5%"
Case " 6"
Label7.Caption = "a4b4之间直流电阻"
Label9.Caption = "0.00370±5%"
Case " 7"
Label7.Caption = "a4x4之间直流电阻"
Label9.Caption = "0.007396±5%"
Case " 8"
Label7.Caption = "a6b6之间直流电阻"
Label9.Caption = "0.002562±5%"
Case " 9"
Label7.Caption = "a6x6之间直流电阻"
Label9.Caption = "0.004141±5%"
Case Else
End Select
End If
ElseIf ttrain = "200" And ttype = "5" Then
Select Case tobj
Case " 0"
Label7.Caption = "AX之间直流电阻"
Label9.Caption = "1.0468±5%"
Case " 1"
Label7.Caption = "a1x1之间直流电阻"
Label9.Caption = "0.00237±5%"
Case " 2"
Label7.Caption = "a2x2之间直流电阻"
Label9.Caption = "0.004616±5%"
Case " 3"
Label7.Caption = "a3x3之间直流电阻"
Label9.Caption = "0.00237±5%"
Case " 4"
Label7.Caption = "a4x4之间直流电阻"
Label9.Caption = "0.004616±5%"
Case " 5"
Label7.Caption = "a5x5之间直流电阻"
Label9.Caption = "0.001606±5%"
Case " 6"
Label7.Caption = "a6x6之间直流电阻"
Label9.Caption = "0.00213±5%"
Case " 7"
Label7.Caption = "a1b1之间直流电阻"
Label9.Caption = "0.00137±5%"
Case " 8"
Label7.Caption = "a3b3之间直流电阻"
Label9.Caption = "0.00137±5%"
Case Else
End Select
ElseIf ttrain = "200" And ttype = "15" Then
Select Case tobj
Case " 0"
Label7.Caption = "绕组C1Y1"
Label9.Caption = "0.01717±5%"
Case " 1"
Label7.Caption = "绕组C2Y2"
Label9.Caption = "0.01717±5%"
Case " 2"
Label7.Caption = "绕组C3Y3"
Label9.Caption = "0.01717±5%"
Case " 3"
Label7.Caption = "绕组C4Y4"
Label9.Caption = "0.01717±5%"
Case Else
End Select
ElseIf ttrain = "200" And ttype = "21" Then
Select Case tobj
Case " 0"
Label7.Caption = "D1Z1"
Label9.Caption = "0.006678±5%"
Case " 1"
Label7.Caption = "D2Z2"
Label9.Caption = "0.006678±5%"
Case " 2"
Label7.Caption = "D3Z3"
Label9.Caption = "0.006678±5%"
Case " 3"
Label7.Caption = "D4Z4"
Label9.Caption = "0.006678±5%"
Case Else
End Select
ElseIf ttrain = "500" And ttype = "5" Then
Select Case tobj
Case " 0"
Label7.Caption = "AX之间直流电阻"
Label9.Caption = "0.513008±5%"
Case " 1"
Label7.Caption = "a1x1之间直流电阻"
Label9.Caption = "0.001303±5%"
Case " 2"
Label7.Caption = "a2x2之间直流电阻"
Label9.Caption = "0.001303±5%"
Case " 3"
Label7.Caption = "a3x3之间直流电阻"
Label9.Caption = "0.001303±5%"
Case " 4"
Label7.Caption = "a4x4之间直流电阻"
Label9.Caption = "0.001303±5%"
Case " 5"
Label7.Caption = "a5x5之间直流电阻"
Label9.Caption = "0.002718±5%"
Case " 6"
Label7.Caption = "a6x6之间直流电阻"
Label9.Caption = "0.002718±5%"
Case " 7"
Label7.Caption = "a7x7之间直流电阻"
Label9.Caption = "0.002085±5%"
Case " 8"
Label7.Caption = "a7x8之间直流电阻"
Label9.Caption = "0.00863±5%"
Case " 9"
Label7.Caption = "a9x9之间直流电阻"
Label9.Caption = "0.00863±5%"
Case Else
End Select
ElseIf ttrain = "500" And ttype = "15" Then
Select Case tobj
Case " 0"
Label7.Caption = "K1K11"
Case " 1"
Label7.Caption = "K1K12"
Case " 2"
Label7.Caption = "K1K13"
Case " 3"
Label7.Caption = "K2K21"
Case " 4"
Label7.Caption = "K2K22"
Case " 5"
Label7.Caption = "K2K23"
Case Else
End Select
Label9.Caption = "0.016655±5%"
ElseIf ttrain = "500" And ttype = "19" Then
Select Case tobj
Case " 0"
Label7.Caption = "K31K32"
Case " 1"
Label7.Caption = "K41K42"
Case Else
End Select
Label9.Caption = "0.0288±5%"
ElseIf ttrain = "500" And ttype = "24" Then
Select Case tobj
Case " 0"
Label7.Caption = "L1L10绕组直流电阻"
Case " 1"
Label7.Caption = "L2L20绕组直流电阻"
Case " 2"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -