📄 2.frm
字号:
VERSION 5.00
Begin VB.Form ZJ
BorderStyle = 1 'Fixed Single
Caption = "Form2"
ClientHeight = 3510
ClientLeft = 4050
ClientTop = 4440
ClientWidth = 7350
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3510
ScaleWidth = 7350
Begin VB.Frame Frame2
Caption = "测速自检"
Height = 2535
Left = 4200
TabIndex = 5
Top = 120
Width = 2775
Begin VB.CommandButton CS_JUP
Caption = "跳过"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 9
Top = 1800
Width = 855
End
Begin VB.CommandButton CSZJ
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 7
Top = 1800
Width = 855
End
Begin VB.Label Label3
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Caption = "Label3"
Height = 375
Left = 75
TabIndex = 12
Top = 1320
Width = 780
End
Begin VB.Label Label5
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Caption = "Label5"
Height = 375
Left = 1800
TabIndex = 11
Top = 1320
Width = 810
End
Begin VB.Label Label4
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Caption = "Label4"
Height = 375
Left = 960
TabIndex = 10
Top = 1320
Width = 735
End
Begin VB.Label Label2
Caption = "Label2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 240
TabIndex = 6
Top = 600
Width = 2295
End
End
Begin VB.Frame Frame1
Caption = "测压自检"
Height = 2535
Left = 360
TabIndex = 2
Top = 120
Width = 2775
Begin VB.CommandButton CY_JUP
Caption = "跳过"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 8
Top = 1920
Width = 855
End
Begin VB.CommandButton CYZJ
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 3
Top = 1920
Width = 855
End
Begin VB.Label Label1
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 240
TabIndex = 4
Top = 720
Width = 2295
End
End
Begin VB.CommandButton Command1
Caption = "end"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 1
Top = 2880
Width = 975
End
Begin VB.CommandButton PLGO
Caption = "下一步"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 0
Top = 2880
Width = 975
End
End
Attribute VB_Name = "ZJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub
Private Sub CS_JUP_Click()
Dim outData1(1 To 1) As Byte
outData1(1) = 73
TX.MSComm1.Output = outData1
Label2.Caption = " 跳过测速自检"
PLGO.Enabled = True
End Sub
Private Sub CSZJ_Click()
CS_JUP.Enabled = False
Dim csdata(1 To 4), D1, D2, D3, T1, T2 As Long
Dim csData1(1 To 16) As Long
Dim outData1(1 To 1) As Byte, outData2(1 To 1) As Byte
Dim inData() As Byte
Dim dstart%
outData1(1) = 72
outData2(1) = 148
TX.MSComm1.InBufferCount = 0
inData = TX.MSComm1.Input
TX.MSComm1.Output = outData1
Label2.Caption = " 正在进行测速自检，请稍候..."
Do
DoEvents
Loop Until TX.MSComm1.InBufferCount >= 1
inData = TX.MSComm1.Input
dstart = LBound(inData)
If inData(dstart) = 149 Then
TX.MSComm1.Output = outData2
End If
For i = 1 To 16
Do
DoEvents
Loop Until TX.MSComm1.InBufferCount >= 1
inData = TX.MSComm1.Input
dstart = LBound(inData)
csData1(i) = inData(dstart)
TX.MSComm1.Output = outData2
Next i
csdata(1) = csData1(1) + csData1(2) * 256 + csData1(3) * 65536
csdata(2) = csData1(4) + csData1(5) * 256 + csData1(6) * 65536
csdata(3) = csData1(7) + csData1(8) * 256 + csData1(9) * 65536
csdata(4) = csData1(10) + csData1(11) * 256 + csData1(12) * 65536
D1 = csdata(2) - csdata(1)
D2 = csdata(3) - csdata(2)
D3 = csdata(4) - csdata(3)
If D1 < 0 Then
D1 = 16777216 + D1
End If
If D2 < 0 Then
D2 = 16777216 + D2
End If
If D3 < 0 Then
D3 = 16777216 + D3
End If
Label3.Caption = D1
Label4.Caption = D2
Label5.Caption = D3
T1 = 16750
T2 = 16780
If T1 <= D1 And D1 <= T2 Then
If 2 * T1 <= D2 And D2 <= 2 * T2 Then
If 4 * T1 <= D3 And D3 <= 4 * T2 Then
PLGO.Enabled = True
Label2.Caption = "测速自检已完成！"
CSZJ.Caption = "完成"
Else
Label2.Caption = " 测速自检未完成！请重试"
End If
Else
Label2.Caption = " 测速自检未完成！请重试"
End If
Else
Label2.Caption = " 测速自检未完成！请重试"
End If
End Sub
Private Sub CY_JUP_Click()
Dim outData1(1 To 1) As Byte
outData1(1) = 71
TX.MSComm1.Output = outData1
Label1.Caption = " 跳过测压自检"
CSZJ.Enabled = True
CS_JUP.Enabled = True
Label2.Caption = " 是否马上进行测速自检！"
End Sub
Private Sub CYZJ_Click()
CY_JUP.Enabled = False
Dim outData1(1 To 1) As Byte, CdataH(1 To 512) As Long, CdataL(1 To 512) As Long, Cdata2(1 To 512) As Variant
Dim i As Integer
Dim inData() As Byte
Dim dstart%
outData1(1) = 70
TX.MSComm1.Output = outData1
Label1.Caption = " 正在进行测压自检，请稍候..."
'检测自检读数程序段
'Do
' DoEvents
' Loop Until TX.MSComm1.InBufferCount >= 1024
' inData = TX.MSComm1.Input
' dstart = LBound(inData)
'For i = 1 To 512
'CdataH(i) = inData(dstart + 2 * i - 2)
'CdataH(i) = CdataH(i) * 256
'CdataL(i) = inData(dstart + 2 * i - 1)
'Cdata2(i) = CdataH(i) + CdataL(i)
'Next i
Do
DoEvents
Loop Until TX.MSComm1.InBufferCount >= 1
inData = TX.MSComm1.Input
dstart = LBound(inData)
If inData(dstart) = 146 Then
CSZJ.Enabled = True
CS_JUP.Enabled = True
Label1.Caption = "测压自检已完成！"
CYZJ.Caption = "完成"
Label2.Caption = " 是否马上进行测速自检！"
ElseIf inData(dstart) = 147 Then
Label1.Caption = "测压自检未完成！请重试"
End If
End Sub
Private Sub Form_Load()
Label1.Caption = " 是否马上进行测压自检？"
Label2.Caption = " 等待测速自检"
PLGO.Enabled = False
CSZJ.Enabled = False
CS_JUP.Enabled = False
TX.MSComm1.PortOpen = True
End Sub
Private Sub PLGO_Click()
TX.MSComm1.PortOpen = False
TPH.Visible = True
Unload ZJ
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -