[risolto] barcode scanner

[Gianluigi]

Io ora non ti voglio sgridare, ma scusa tanto si può sapere che caspita vuoi?

Vuoi distinguere fra codice scritto da tastiera e codice scannerizzato?
Ma per quale motivo?
Se lo scanner non funziona come fai a inserire il codice?

Comunque un modo, sempre di Charlie, per distinguere ci sarebbe ma ti devi spiegare bene prima, altrimenti ... arrangiati. 

[vuott]

Vuott può insegnarci qualcosa di magico... 

Sempre che si comprenda quali siano i suoi fini.

naderit, ma tu "cosa" devi fare ?

   scusa tanto si può sapere che caspita vuoi?
... ti devi spiegare bene prima, altrimenti ... arrangiati. 

Sembrava che io fossi il matto/deficiente.

[naderit]

pensavo fosse molto chiara la mia domanda fin dall'inizio, bastava leggere attentamente.
grazie

[vuott]

pensavo fosse molto chiara la mia domanda fin dall'inizio, bastava leggere attentamente.

Evidentemente no lo è.   

[naderit]

naderit, ma tu "cosa" devi fare ?

evitare che l'utente inserisca da tastiera un carattere oltre a quello letto dallo scanner

[vuott]

evitare che l'utente inserisca da tastiera un carattere oltre a quello letto dallo scanner

Va bene. (Se però è semplicemente questo, ti dico che l'esempio di codice con form_KeyPress() è fuorviante, confonde le idee di chi legge, perché non si capisce il motivo per il quale hai mostrato quel codice !)

Oh, ma perché non hai voluto optare per una normale variabile di tipo Stringa, che fosse anche Globale, come ti ha poi suggerico arco ?

[vuott]

 

[naderit]

ok, e come memorizzo il codice letto dallo scanner in una variabile stringa?
la variabile da me usata è globale.

Codice: [Seleziona]

Private a As String ' variabile globale '
Private b As String ' variabile globale'

Public Sub form_KeyPress()
   a = Key.Text  'barcode letto dallo scanner in emulazione di tastiera, singolo carattere'
   b = b & a
   Print b
End

[vuott]

come memorizzo il codice letto dallo scanner in una variabile stringa?

Scusa........... una domanda:  ma... tu con quale codice "intercetti", "raccogli", insomma "come leggi" i dati ritornati dalla pistola USB per i Codici a barre ?   

Più tecnicamente: come leggi i dati provenienti in scrittura da una porta seriale USB ?

[vuott]

...ma forse a me sfugge qualcosa  , poiché non ho mai operato con il Codice a Barre:  scusami, per intercettare il Codice a Barre è sufficiente l'evento "_KeyPress( )" ?

[naderit]

si il barcode scanner è collegato alla porta usb è settato in emulazione di tastiera, nel momento che leggo un codice a barre esempio quello dell'immagine, mi restituisce il codice numerico 803208900017. 

[naderit]

si con l'evento KeyPress del FormMain "catturo" il codice.
Ora stavo provando un'altra strada, leggere direttamente dalla porta seriale USB.

[vuott]

... leggere direttamente dalla porta seriale USB.

...ma, se l'evento "_KeyPress( )" è predisposto in tale caso a compiere questo lavoro, leggere invece direttamente dalla porta USB rende tutto un po' più complicato.   

[vuott]

Codice: [Seleziona]

Private a As String ' variabile globale '
Private b As String ' variabile globale'

Public Sub form_KeyPress()
   a = Key.Text  'barcode letto dallo scanner in emulazione di tastiera, singolo carattere'
   b = b & a
   Print b
End

Scusa, ma questo tuo codice non va bene ?  Perché ?   

[Gianluigi]

Codice: [Seleziona]

' Gambas class file


Public Sub form_Open()

  TextBox1.SetFocus 'Per essere sicuro che la text box sia pronta a ricevere l'input

End

Public Sub TextBox1_KeyPress() 'È necessario sapere se viene ricevuto il return (fine codice)

  Dim sCode As String

  Label1.text = ""

  If Key.Code = Key.Return Then 'Se return è stato ricevuto
    sCode = TextBox1.Text
    Label1.text = ConvalidaCodice(sCode)
    TextBox1.text = ""
    TextBox1.SetFocus 'Pronto a ricevere il prossimo codice
  Else
    Label1.text = "#Codice non valido!"
    TextBox1.text = ""
    TextBox1.SetFocus 'Pronto a ricevere il prossimo codice
  Endif

End

Private Function ConvalidaCodice(sCode As String) As String
  
  ' Qui inserisci tutti i controlli e se va bene restituisci il codice oppure errore.
  ' Se uno ha inserito con la tastiera un refuso questo non succede, giusto? Otterrai un altro numero...
  If Len(sCode) = 13 Then Return sCode
  ' If...
  ' Oppure lo fai con If ... Else If ... Select Case ...
  Return "#Codice non valido!"
  
End

Io, come suppongo anche altri, non ho una pistola lettore di codici a barre, pertanto se facciamo delle domande è perché stiamo proponendo soluzioni alla cieca.
Sia chiaro che questa è l'ultima volta che cerco di aiutare qualcuno che neanche si degna di rispondere alle domande che gli faccio.