📄 frmtest.frm
字号:
Const LEDR_DispMode = &H16 'disp mode 00-99
Const LEDR_SetStayTime = &H17 '0-255 Sec
'---------------------------------内部显示控制符--------------------------------------------------------------------------------
Const LEDD_LF = &H13 'shift_up a new line
Const LEDD_CR = &H14 'restart a new line
Private Sub Command1_Click()
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Dim l As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 8 '=最后元素序号
ReDim OutData(l)
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = ADDR_Myself 'RS232本机地址
OutData(4) = TYPE_Itself '接收本机
OutData(5) = SMMR_LinkMode '模式切换联机/脱机
OutData(6) = 1 '参数长度
OutData(7) = 3 '联机模式
OutData(l) = 0
For I = 3 To l - 1
OutData(l) = OutData(l) Xor OutData(I)
Next I
MSComm1.Output = OutData
End Sub
Private Sub Command10_Click()
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 27
ReDim OutData(l)
'Temp: //卡等待/有效/无效指令+参数长度(采用可变长度)+1字节语音显示参数+1字节内屏显示模式参数(总为0)+
' 1字节卡类型+2字节卡编号+6字节临时卡入场秒分时日月年+6字节临时卡出场秒分时日月年+
' 1字节费额小数点位数+2字节收费金额
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = ADDR_Myself 'RS232本机地址
OutData(4) = TYPE_Itself '接收本机
OutData(5) = PCMR_CardWait '卡有效指令+1字节参数
OutData(6) = 20 '参数长度
OutData(7) = 13 '语音
OutData(8) = 13 '显示
OutData(9) = 9 '卡类型
OutData(10) = 1 '卡编号
OutData(11) = 3 '
OutData(17) = 7 'year
OutData(16) = 1 'month
OutData(15) = 6 'day
OutData(14) = 12 'hour
OutData(13) = 0 'minute
OutData(12) = 0 'second
OutData(23) = 7 'year
OutData(22) = 1 'month
OutData(21) = 6 'day
OutData(20) = 13 'hour
OutData(19) = 0 'minute
OutData(18) = 0 'second
OutData(24) = 0 'moneyL
OutData(25) = 255 'moneyL
OutData(26) = 0 'moneyL
OutData(27) = 0 'CRC
For I = 3 To l - 1
OutData(l) = OutData(l) Xor OutData(I)
Next I
MSComm1.Output = OutData
End Sub
Private Sub Command11_Click()
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 8
ReDim OutData(l)
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = ADDR_Myself 'RS232本机地址
OutData(4) = TYPE_Itself '接收本机
OutData(5) = PCMR_CardInvalid '卡有效指令+1字节参数
OutData(6) = 1 '参数长度
OutData(7) = 0 '语音有效入场
OutData(8) = 0 'CRC
For I = 3 To l - 1
OutData(l) = OutData(l) Xor OutData(I)
Next I
MSComm1.Output = OutData
End Sub
Private Sub Command2_Click()
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 9
ReDim OutData(l)
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = 2 'ADDR_Myself 'RS232本机地址
OutData(4) = TYPE_Itself '接收本机
OutData(5) = PCMR_CardValid '卡有效指令+1字节参数
OutData(6) = 2 '参数长度
OutData(7) = 0 '语音有效入场
OutData(8) = 0 '语音有效入场
OutData(9) = 0 'CRC
For I = 3 To l - 1
OutData(l) = OutData(l) Xor OutData(I)
Next I
MSComm1.Output = OutData
End Sub
Private Sub Command3_Click()
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 17 '=最后元素序号
S1 = "最后元素"
l1 = 0
For I = 1 To Len(S1)
s = Mid(S1, I, 1)
If (s > Chr(127)) Then
l1 = l1 + 2
Else
l1 = l1 + 1
End If
Next I
l = l1 + 7
ReDim OutData(l)
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = 0 'CAN总线广播地址
' OutData(4) = TYPE_Itself '本机
'OutData(4) = ADDR_LedScreen
OutData(4) = TYPE_Itself '本机
OutData(5) = LEDR_Display
OutData(6) = l1 '参数长度
k = 7
For I = 1 To Len(S1)
s = Mid(S1, I, 1)
If (s > Chr(127)) Then
OutData(k) = Val("&H" + Mid(Hex(Asc(s)), 1, 2))
k = k + 1
OutData(k) = Val("&H" + Mid(Hex(Asc(s)), 3, 2))
Else
OutData(k) = Asc(s)
End If
k = k + 1
Next I
OutData(l) = 0
For I = 3 To l - 1
OutData(l) = OutData(l) Xor OutData(I)
Next I
MSComm1.Output = OutData
End Sub
Private Sub Command4_Click()
'卡等待/有效/无效指令+参数长度(采用可变长度)+1字节语音显示参数+1字节内屏显示模式参数(总为0)+1字节卡类型+2字节卡编号+3字节月卡有效期日月年
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 15
ReDim OutData(l)
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = 2 'ADDR_Myself 'RS232本机地址
OutData(4) = TYPE_Itself '接收本机
OutData(5) = PCMR_CardInvalid 'PCMR_CardWait '卡有效指令+1字节参数
OutData(6) = 8 '参数长度
OutData(7) = 16 '语音
OutData(8) = 0 '显示
OutData(9) = 6 '卡类型
OutData(10) = 2 '卡编号
OutData(11) = 0 '
OutData(14) = 7 'year
OutData(13) = 1 'month
OutData(12) = 6 'day
OutData(15) = 0 'CRC
For I = 3 To l - 1
OutData(l) = OutData(l) Xor OutData(I)
Next I
MSComm1.Output = OutData
End Sub
Private Sub Command5_Click()
Dim OutData() As Byte
Dim Data(256) As Byte
Dim RecordTotal As Integer
Const CONFirstLoadCardNum = 20 '<256
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
l = 8
ReDim OutData(l)
OutData(0) = CONCommSyn1
OutData(1) = CONCommSyn2
OutData(2) = CONCommSyn3
OutData(3) = 2 'ADDR_Myself 'RS232本机地址
OutData(4) = TYPE_Itself '接收本机
OutData(5) = PCMR_CardInvalid '卡有效指令+1字节参数
OutData(6) = 1 '参数长度
OutData(7) = 0 '语音有效入场
OutData(8) = 0 'CRC
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -