Prikazi cijelu temu 14.08.2012 17:14
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Bar kod čitac i SetFocus
Bar kod se spaja na COM port.
Slijedeci kod koristim (pomogao mi je Gjoreski):

PreuzmiIzvorni kôd (Text):
  1. Private Sub MSComm1_OnComm()                                    ' Linija 1
  2.  Static stEvent1             As String                          ' Storage for an Modem event
  3.  Dim stComChar              As String * 1                       ' Temporary storage for received comm port data
  4.      Select Case msComm1.CommEvent
  5.         Case comEvReceive                                       ' Received RThreshold # of chars.
  6.                  Do
  7.                stComChar = msComm1.Input                        ' read 1 character .Inputlen = 1
  8.                 Select Case stComChar
  9.                     Case vbLf                                   ' Ignore linefeeds
  10.                     Case vbCr                                   ' The CR indicates the end of the Receive String
  11.                         If Len(stEvent1) > 0 Then
  12.                           ProcessEvent1 stEvent1                  ' Process the Modem event
  13.                           stEvent1 = ""
  14.                         End If
  15.                     Case Else
  16.                         stEvent1 = stEvent1 + stComChar           ' Save everything between CR's
  17.             End Select
  18.          Loop While msComm1.InBufferCount                       ' Loop until all characters in receive buffer are processed
  19.      End Select
  20. End Sub

PreuzmiIzvorni kôd (Text):
  1. Private Sub Form_Unload(Cancel As Integer)
  2.      If msComm1.PortOpen Then
  3.         msComm1.PortOpen = False
  4. End If

PreuzmiIzvorni kôd (Text):
  1. Private Sub Form_Load()
  2.  
  3.  Dim CommPort As String
  4.  
  5.  msComm1.CommPort = 1                                ' Opcija porta
  6.  msComm1.Settings = "4800,N,8,1"
  7.  If CommPort <> "" Then msComm1.CommPort = CommPort
  8.  msComm1.PortOpen = True
  9.  msComm1.DTREnable = True
  10.  msComm1.RTSEnable = True
  11.  msComm1.RThreshold = 1                                    ' Generate a receive event on every character received
  12.  msComm1.InputLen = 1                                      ' Read the receive buffer 1 char at a time
  13. End Sub

PreuzmiIzvorni kôd (Text):
  1. Private Sub ProcessEvent1(stEvent1 As String)                               ' Linija 1
  2. BarkodPolje = stEvent1
  3. 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.