invoer apparaat invoer beheren

[harolda1980]

Ik heb nu een invoer apparaat dat door windows 7 als keybord invoer apparaat gezien word.(USB barcode scanner).

Als je je cursor ergens neerzet en scant zet hij de cijfer code neer.
Maar voordat die invoer plaats vindt wil ik het en en ander controleren.

zoals of er in de textbox al een waarde staat alvorens een nieuwe waarde erin te scannen.

 

[harolda1980]

met deze code krijg ik het eerste cijfer van de barcode naar voren!


Hoe krijg ik nu de gehele barcode naar voren?

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

MsgBox Chr(KeyAscii)

End Sub

 

[error53]

Waarom programmeer je de scanner zelf niet. Ik heb dit regelmatif gedaan met symbolscanners. Je kunt echt daadwerkelijk alles programmeren op zo'n ding zelf.

 

[harolda1980]

Ik maak gebruik van een standaard usb scanner waar niks te programmeren valt.
ik had gehoopt dat ik de invoer vanuit de scanner in de code kan opvangen.

 

[error53]

Dat zal ook wel, alleen weet ik niet hoe

 

[harolda1980]

Ik zou voor de invoer van toetsenbord(scanner) de textbox leeg willen maken. Dan de nieuwe waarden erin willen laten zetten.

 

[Mark xl]

Is het mogelijk via een inputbox?
- Open de inputbox,
- Scan het product,
- Gebruik het resultaat van de inputbox om een bewerking op uit te voeren (vereist wel een OK klik van de gebruiker))

Of kijk of je iets kunt doen met een ander Excel Event

 

[harolda1980]

Ja is een optie het liefst wil ik dit doen in een apart Userform

 

[Mark xl]

Probeer dit testje eens uit

klik op de knop "testscherm"
klik op de knop "scan!"
probeer nu je barcode te scannen

Bekijk bijlage barcode.xls

 

[harolda1980]

Wat zou de actie na het scannen moeten zijn volgens jou?

 

[Mark xl]

ik verwacht dat de scanner zijn output in het textveld plaatst,
waarna het userform scan sluit en deze waarde terecht komt in het onderliggende userform.

deze eigenschap kun je gebruiken om te bewerken

 

[harolda1980]

Hij scant erin alleen blijft het tweede scherm terugkomen! Daarnaast is mijn lengte nu 8 cijfers

 

[Mark xl]

aha. even de waarde van

Private Const lngBAR_CODE_LENGTE As Long = 10

aanpassen naar 5 ofzo.

en eerst even op de stopknop drukken in de VBA editor / ctrl-break . lukt dat?

 

[harolda1980]

Dan gaat de waarde eraan. bij 5 krijg ik 5 cijfers en bij nul een foutmelding

 

[Mark xl]

Kijk, dat is mooi.
dan weten we wat.

Ik het het bestandje aangepast.

scan het product en druk op ok

nu wordt het verplaatst naar het onderliggende userform
Bekijk bijlage barcode2.xls

 

[harolda1980]

Als ik hem in foutopsporing doorloop gaat hij nu goed met lengte 8. Zodra ik hem echt officieel laat lopen komt hij in een oneindige loop terecht met het tweede formuliertje!

Die tweede is perfect. Alleen zou het ook zonder knop kunnen?

 

[Mark xl]

Dat wordt wat ingewikkeld zonder knop. maar met fixed barcode breedte komen we al een stuk verder
(als de lengte altijd 8 is)

dit bestand is eigenlijk hetzelfde als bestand 1 maar ik heb hem iets aangepast
Bekijk bijlage barcode3.xls

Hoe kom je in die oneindige loop terecht?
en welke excel versie heb je? want in 2007 heb ik het helaas niet, anders kon ik uitvissen waarom