form1.frm

条形码扫描器源码 条形码扫描器源码

  
  MsgBox "Choose your setting and press Open Port before scanning.", vbCritical, App.ProductName
  With StatusBar1
       .Panels(1).Text = "COM1"
       .Panels(2).Text = "9600"
       .Panels(3).Text = "E"
       .Panels(4).Text = "8"
       .Panels(5).Text = "1"
       .Panels(6).Text = "Press Open Port to use setting"
  End With
End Sub

Private Sub mnu1_Click()
  mnuopen.Enabled = True
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(5).Text = "1"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu1200_Click()

  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "1200"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu14400_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "14400"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu19200_Click()

  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "19200"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu2_Click()

  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(5).Text = "2"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu2400_Click()
 
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "2400"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu28800_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "28800"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu4800_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "4800"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu7_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(4).Text = "7"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu8_Click()

  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(4).Text = "8"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnu9600_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(2).Text = "9600"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnuClear_Click()
  List1.Clear
End Sub

Private Sub mnucom1_Click()
  If MSComm1.PortOpen = True Then
     MSComm1.PortOpen = False
  End If
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(1).Text = "COM1"
  MSComm1.CommPort = 1
End Sub

Private Sub mnucom2_Click()
  If MSComm1.PortOpen = True Then
     MSComm1.PortOpen = False
  End If
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(1).Text = "COM2"
  MSComm1.CommPort = 2
End Sub

Private Sub mnucom3_Click()
  If MSComm1.PortOpen = True Then
     MSComm1.PortOpen = False
  End If
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(1).Text = "COM3"
  MSComm1.CommPort = 3
End Sub

Private Sub mnucom4_Click()
  If MSComm1.PortOpen = True Then
     MSComm1.PortOpen = False
  End If
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(1).Text = "COM4"
  MSComm1.CommPort = 4
End Sub

Private Sub mnueven_Click()
 
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(3).Text = "E"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnuexit_Click()
  Unload Me
  End
End Sub

Private Sub mnumark_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(3).Text = "M"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnun_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(3).Text = "N"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnuodd_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(3).Text = "O"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnuopen_Click()

  If MSComm1.PortOpen = True Then
     MSComm1.PortOpen = False
  End If
  StatusBar1.Panels(6).Text = "Ready for scanner input."
  MSComm1.PortOpen = True
  
End Sub
Private Sub mnuspace_Click()
  
  StatusBar1.Panels(6).Text = "Press Open Port to use setting."
  StatusBar1.Panels(3).Text = "S"
  CheckMySettings = StatusBar1.Panels(2).Text + "," + StatusBar1.Panels(3).Text + "," + StatusBar1.Panels(4).Text + "," + StatusBar1.Panels(5).Text
  MSComm1.Settings = CheckMySettings
End Sub

Private Sub mnuVer_Click()

 Dim j As Integer
 fmrreadme.Caption = "Programmed by Mike Reed."
  Timer3.Enabled = True
  For j = 1 To 6
    FlashWindow Me.hwnd, 1
    Sleep 100
  Next j
  fmrreadme.Show
End Sub


Private Sub MSComm1_OnComm()
Dim CheckMyScan
Dim CheckForCR
Dim CountMe As Integer
Dim CountMy As Integer
Dim Number As Integer
On Error GoTo Mscomm11:
  If MSComm1.CommEvent = 2 Then
     txtinput.Text = MSComm1.Input
     CheckMyScan = txtinput.Text
     CountMe = Len(txtinput.Text)
     Number = 0
       Do Until CountMy = CountMe
            txtinput.SelStart = Number
            txtinput.SelLength = Len(txtinput.Text)
             CheckForCR = txtinput.SelText
             If CheckForCR = vbCr Then
                StatusBar1.Panels(6).Text = "Scanner is programed with CR."
                CheckMyScan = txtinput.Text
                List1.AddItem (CheckMyScan)
                Timer2.Enabled = True
                MSComm1.PortOpen = False
                MSComm1.PortOpen = True
                Exit Sub
             End If
             DoEvents
             Number = Number + 1
             CountMy = CountMy + 1
       Loop
     List1.AddItem (CheckMyScan)
     Timer1.Enabled = True
     MSComm1.PortOpen = False
     MSComm1.PortOpen = True
  End If
  Exit Sub
Mscomm11:
  MsgBox "A error in reading this bar code", vbOKOnly, App.ProductName
End Sub

Private Sub Timer1_Timer()
  StatusBar1.Panels(6).Text = "Ready for scanner input."
  Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
  StatusBar1.Panels(6).Text = "Ready for scanner input."
  Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
 Timer3.Enabled = False
End Sub