Predmet:Bar kod čitac i SetFocus
Bar kod se spaja na COM port.
Slijedeci kod koristim (pomogao mi je Gjoreski):
PreuzmiIzvorni kôd (Text):Private Sub MSComm1_OnComm() ' Linija 1
Static stEvent1 As String ' Storage for an Modem event
Dim stComChar As String * 1 ' Temporary storage for received comm port data
Select Case msComm1.CommEvent
Case comEvReceive ' Received RThreshold # of chars.
Do
stComChar = msComm1.Input ' read 1 character .Inputlen = 1
Select Case stComChar
Case vbLf ' Ignore linefeeds
Case vbCr ' The CR indicates the end of the Receive String
If Len(stEvent1) > 0 Then
ProcessEvent1 stEvent1 ' Process the Modem event
stEvent1 = ""
End If
Case Else
stEvent1 = stEvent1 + stComChar ' Save everything between CR's
End Select
Loop While msComm1.InBufferCount ' Loop until all characters in receive buffer are processed
End Select
End Sub
PreuzmiIzvorni kôd (Text):Private Sub Form_Unload(Cancel As Integer)
If msComm1.PortOpen Then
msComm1.PortOpen = False
End If
PreuzmiIzvorni kôd (Text):Private Sub Form_Load()
Dim CommPort As String
msComm1.CommPort = 1 ' Opcija porta
msComm1.Settings = "4800,N,8,1"
If CommPort <> "" Then msComm1.CommPort = CommPort
msComm1.PortOpen = True
msComm1.DTREnable = True
msComm1.RTSEnable = True
msComm1.RThreshold = 1 ' Generate a receive event on every character received
msComm1.InputLen = 1 ' Read the receive buffer 1 char at a time
End Sub
PreuzmiIzvorni kôd (Text):Private Sub ProcessEvent1(stEvent1 As String) ' Linija 1
BarkodPolje = stEvent1
End Sub
Kako da napravim provjeru da li se kursor nalazi na zeljenoj poziciji? Jednostavno da iskljucim bar kod ako nije na zeljenom polju. Nadam se da sam bila razumljiva.
Pokusavala sam nesto kao:
If BarkodPolje.SetFocus=True then
dalje
else
end if
Ocigledno tako neide. Svaka pomoc bi dobro dosla.
Hvala.
Pozdrav, Amela
Ovaj post je ureden
1
puta. Posljednja izmjena 14.08.2012 17:17 od strane Amelasar.