vb程序写的纸币识别器问题

本帖最后由 哥不靠外表 于 2012-12-3 12:12 编辑

vb源码如下：
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '-----Sleep函数  用于延时 暂时用不到
Dim a As Integer
Dim aa As Integer
Dim zhibi As Integer
Private Sub Command1_Click()
timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Command2_Click()
Dim chtest_signal(5) As Byte
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H9
chtest_signal(4) = &H35
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
Timer2.Enabled = False
Text3.Text = 0
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1  '设置端口号为1
MSComm1.Settings = "9600,N,8,2 " '设置波特率9600 无校验  8位数据  2停止位
MSComm1.InBufferSize = 512 '设置返回接收缓冲区的大小,以字符为单位。
    MSComm1.OutBufferSize = 2
    If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '关串口
    MSComm1.RThreshold = 1 '设置并返回产生oncomm事件的字符数，以字符为单位. Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。
    MSComm1.SThreshold = 1 '
    MSComm1.InputLen = 0 '设置从接收缓冲区读取的字数,为0读取整个缓冲区
    MSComm1.InputMode = comInputModeBinary '以文本方度接收
  '  If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
    MSComm1.InBufferCount = 0 '清空接收缓冲区
   MSComm1.PortOpen = True '打开串行口
   Timer1.Enabled = False
   Timer2.Enabled = False
End Sub
Private Sub MSComm1_OnComm()
Dim buffer() As Byte
Dim i As Integer
Dim chtest_signal(2) As Byte
    Select Case MSComm1.CommEvent
        Case comEvReceive
        buffer = MSComm1.Input
        For i = 0 To UBound(buffer)
                strData = strData + Hex(buffer(i))
        Next i
            Text1.Text = strData
            Text1.SelStart = 7    '从text1的第7个内容开始
            Text1.SelLength = 3   '选取3个数据  从第7个以后开始的数据
            Text2.Text = Text1.SelText
         
   If Text2.Text = "EF4" Then
        Text3.Text = 20  '显示金额
         zhibi = 20
         End If
        If Text2.Text = "EF3" Then
        Text3.Text = 10   '显示金额
         zhibi = 10
         End If
        If Text2.Text = "EF2" Then
       Text3.Text = 5  '显示金额
        zhibi = 5
         End If
        If Text2.Text = "EF1" Then
         Text3.Text = 1   '显示金额
         zhibi = 1
         End If
         If Text2.Text = "EF5" Then
          Text3.Text = 50   '显示金额
          zhibi = 50
         End If
         
   If zhibi = 20 Then GoTo ww1  '避免重复识别，如果相同则跳转
        If Text2.Text = "EE4" Then
        Text3.Text = 20   '显示金额
        zhibi = 20
         End If
          If zhibi = 10 Then GoTo ww1
        If Text2.Text = "EE3" Then
        Text3.Text = 10    '显示金额
        zhibi = 10
         End If
          If zhibi = 5 Then GoTo ww1
        If Text2.Text = "EE2" Then
         Text3.Text = 5   '显示金额
         zhibi = 5
         End If
        If zhibi = 1 Then GoTo ww1
        If Text2.Text = "EE1" Then
          Text3.Text = 1    '显示金额
          zhibi = 1
         End If
       If zhibi = 50 Then GoTo ww1
         If Text2.Text = "EE5" Then
          Text3.Text = 50  '显示金额
          zhibi = 50
         End If
          Text3.Text = 0
ww1:
         Text3.Text = 0
         End Select
End Sub

Private Sub Timer1_Timer()
Dim chtest_signal(5) As Byte
Dim chtest_signal2(6) As Byte
Dim chtest_signal3(7) As Byte
Dim chtest_signal4(8) As Byte
a = a + 1
If a = 1 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H11
chtest_signal(4) = &H65
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 2 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H11
chtest_signal(4) = &H65
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 3 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H11
chtest_signal(4) = &H65
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 4 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H23
chtest_signal(4) = &HC9
chtest_signal(5) = &H88
MSComm1.Output = chtest_signal()
End If
If a = 5 Then
chtest_signal2(0) = &H7F
chtest_signal2(1) = &H80
chtest_signal2(2) = &H2
chtest_signal2(3) = &H26
chtest_signal2(4) = &HFC
chtest_signal2(5) = &H3B
chtest_signal2(6) = &H56
MSComm1.Output = chtest_signal2()
End If
If a = 6 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H25
chtest_signal(4) = &HDD
chtest_signal(5) = &H88
MSComm1.Output = chtest_signal()
End If
If a = 7 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H11
chtest_signal(4) = &H65
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 8 Then
chtest_signal4(0) = &H7F
chtest_signal4(1) = &H0
chtest_signal4(2) = &H4
chtest_signal4(3) = &H24
chtest_signal4(4) = &H3
chtest_signal4(5) = &H1
chtest_signal4(6) = &H12
chtest_signal4(7) = &H67
chtest_signal4(8) = &H57
MSComm1.Output = chtest_signal4()
End If
If a = 9 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H11
chtest_signal(4) = &H65
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 10 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H5
chtest_signal(4) = &H1E
chtest_signal(5) = &H8
MSComm1.Output = chtest_signal()
End If
If a = 11 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H19
chtest_signal(4) = &H56
chtest_signal(5) = &H2
MSComm1.Output = chtest_signal()
End If
If a = 12 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H11
chtest_signal(4) = &H65
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 13 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H9
chtest_signal(4) = &H36
chtest_signal(5) = &H8
MSComm1.Output = chtest_signal()
End If
If a = 14 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H12
chtest_signal(5) = &H2
MSComm1.Output = chtest_signal()
End If
If a = 15 Then
chtest_signal3(0) = &H7F
chtest_signal3(1) = &H0
chtest_signal3(2) = &H3
chtest_signal3(3) = &H2
chtest_signal3(4) = &H9F
chtest_signal3(5) = &H0
chtest_signal3(6) = &H21
chtest_signal3(7) = &HDA
MSComm1.Output = chtest_signal3()
End If
If a = 16 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &HA
chtest_signal(4) = &H3F
chtest_signal(5) = &H82
MSComm1.Output = chtest_signal()
End If
If a = 17 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H11
chtest_signal(5) = &H88
MSComm1.Output = chtest_signal()
End If
If a = 18 Then
chtest_signal3(0) = &H7F
chtest_signal3(1) = &H80
chtest_signal3(2) = &H3
chtest_signal3(3) = &H2
chtest_signal3(4) = &H9F
chtest_signal3(5) = &H0
chtest_signal3(6) = &H22
chtest_signal3(7) = &H66
MSComm1.Output = chtest_signal3()
End If
If a = 19 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &HA
chtest_signal(4) = &H3C
chtest_signal(5) = &H8
MSComm1.Output = chtest_signal()
End If
If a = 20 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H12
chtest_signal(5) = &H2
MSComm1.Output = chtest_signal()
End If
If a = 21 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H11
chtest_signal(5) = &H88
MSComm1.Output = chtest_signal()
End If
If a = 22 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H12
chtest_signal(5) = &H2
MSComm1.Output = chtest_signal()
a = 0
Timer1.Enabled = False
Timer2.Enabled = True
End If


End Sub

Private Sub Timer2_Timer()
Dim chtest_signal(5) As Byte
aa = aa + 1
If aa = 1 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H0
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H11
chtest_signal(5) = &H88
MSComm1.Output = chtest_signal()
End If
If aa = 2 Then
chtest_signal(0) = &H7F
chtest_signal(1) = &H80
chtest_signal(2) = &H1
chtest_signal(3) = &H7
chtest_signal(4) = &H12
chtest_signal(5) = &H2
MSComm1.Output = chtest_signal()
aa = 0
End If

End Sub




纸币识别器连pc机后  用串口精灵获得数据如下：
序号,时间,进程(PID),IO类型,COM口,数据长度,数据,
1,11:39:28,Vb6.exe(24316),IRP_MJ_CREATE,COM1,0,,
2,11:39:28,Vb6.exe(24316),IOCTL_SET_QUEUE_SIZE   ,COM1,8,
QueueSize.InSize: 512, QueueSize.OutSize: 2,
3,11:39:28,Vb6.exe(24316),IOCTL_SET_BAUD_RATE    ,COM1,4,
9600,
4,11:39:28,Vb6.exe(24316),IOCTL_CLR_RTS          ,COM1,0,,
5,11:39:28,Vb6.exe(24316),IOCTL_CLR_DTR          ,COM1,0,,
6,11:39:28,Vb6.exe(24316),IOCTL_SET_LINE_CONTROL ,COM1,3,
WordLength: 8
StopBits: 2
Parity:0(None)
,
7,11:39:28,Vb6.exe(24316),IOCTL_SET_CHARS        ,COM1,6,
Chars Eof: 26, Error: 0, break: 0, Event: 0, Xon: 17, Xoff: 19,
8,11:39:28,Vb6.exe(24316),IOCTL_SET_HANDFLOW     ,COM1,16,
DCB.fRtsControl=RTS_CONTROL_DISABLE
DCB.fDtrControl=DTR_CONTROL_DISABLE
DCB.fDsrSensitivity=FALSE
DCB->XonLim: 128
DCB->XoffLim: 128,
9,11:39:42,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 80 01 11 65 82  | ?#1#17e?,
10,11:39:42,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 80 01 F0 23 80  | ?#1e#?,
11,11:39:42,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 80 01 11 65 82  | ?#1#17e?,
12,11:39:42,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 80 01 F0 23 80  | ?#1e#?,
13,11:39:42,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 80 01 11 65 82  | ?#1#17e?,
14,11:39:42,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 80 01 F0 23 80  | ?#1e#?,
15,11:39:42,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 00 01 23 C9 88  | #0#1#é?,
16,11:39:42,Vb6.exe(24316),IRP_MJ_READ,COM1,10,
7F 00 05 F0 00 03 01 12 D6 6C  | #0#5e#0#3#1#18?l,
17,11:39:44,Vb6.exe(24316),IRP_MJ_WRITE,COM1,7,
7F 80 02 26 FC 3B 56  | ?#2&ü;V,
18,11:39:44,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 80 01 F0 23 80  | ?#1e#?,
19,11:39:44,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 00 01 25 DD 88  | #0#1%Y?,
20,11:39:44,Vb6.exe(24316),IRP_MJ_READ,COM1,7,
7F 00 02 F0 FC 08 22  | #0#2eü#8",
21,11:39:44,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 80 01 11 65 82  | ?#1#17e?,
22,11:39:44,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 80 01 F0 23 80  | ?#1e#?,
23,11:39:44,Vb6.exe(24316),IRP_MJ_WRITE,COM1,9,
7F 00 04 24 03 01 12 67 57  | #0#4$#3#1#18gW,
24,11:39:44,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 00 01 F0 20 0A  | #0#1e #10,
25,11:39:46,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 80 01 11 65 82  | ?#1#17e?,
26,11:39:46,Vb6.exe(24316),IRP_MJ_READ,COM1,6,
7F 80 01 F0 23 80  | ?#1e#?,
27,11:39:46,Vb6.exe(24316),IRP_MJ_WRITE,COM1,6,
7F 00 01 05 1E 08  | #0#1#5#8,
28,11:39:46,Vb6.exe(24316),IRP_MJ_READ,COM1,32,