[VBA] Lettore Badge

[venom86]

Ciao a tutti,
Stò sviluppando un programma per la gestione dei pagamenti e voglio introdurre delle tessere magnetiche le quali non fanno altro che darmi un numero seriale.
Il mio problema è:
1) come mi metto in ascolto della porta USB? (Il lettore è collegato tramite USB)
2) come faccio a ricevere il valore dal lettore?

Io ho delle buone basi di vba ma non così avanzate.
Se avete dei manuali per vba avanzato in italiano consigliatemeli pure.

Assieme al lettore di badge c'era già un programma per la simulazione da tastiera del s.n. oppure programmini demo per la ricezione, solo che lo vorrei sviluppare io e in VBA.

Grazie a tutti in anticipo.
Saluti

[MItaly]

Tipicamente, anche se sono collegati via USB, vanno in emulazione seriale. Ma in ogni caso, è difficile darti una risposta sensata senza vedere la documentazione dell'oggetto specifico...

[venom86]

http://www.nexustechnologies.it/inde...roducts_id=225

[MItaly]

· CD-ROM con programma di lettura delle tessere, Software Development Kit per l'integrazione con altri software, con esempi in VB6,VC6,C#,VB.NET, DELPHI e documentazione.

C'è un esempio in VB6, lo puoi portare quasi senza alcuna modifica in VBA...

[venom86]

Ci avevo già provato mettendo un file excel dentro la stessa cartellina,
ho creato un Form con le stesse caratteristiche.
Ho copiato in testa al modulo le funzioni e poi il codice.
Ma si ferma subito indicando la prima riga (una funzione) dicendo: "Errore di compilazione:
Costanti, stringhe di lunghezza fissa, matrici, tipi definiti dall'utente e istruzioni Declare non ammessi come membri Public di moduli di oggetto".
Quindi ho provato a metterle Private e si ferma dicendo: "Errore di compilazione: Utilizzo non valido dell'operatore AddressOf

Private Sub btAttiva_Click()  
HReader = NRFStartCallBack(cbCom.Text, AddressOf CallBackProc , 0)  
If HReader <= 0 Then  
Select Case HReader 
Case -2: MsgBox ("Porta seriale non utilizzabile") 
Case Else MsgBox ("Impossibile inizializzare il lettore") 
End Select 
Else  
btAttiva.Enabled = False   
btDisattiva.Enabled = True   
cbCom.Enabled = False  
End If  
 End Sub

[venom86]

Stavo notandoun paio di problemi.
1) non ho messo ricreato la popolazione della combox. "Da inserire solo COM1"
2) Il pulsante stop quando lo premo dice: "Errore di run-time '53': Impossibile trovare il file NexusRFU.dll".

Private Sub btDisattiva_Click()
NRFStop (HReader) 
Label5.Caption = "Disabilitato" 
btAttiva.Enabled = True 
btDisattiva.Enabled = False 
cbCom.Enabled = True 
End Sub

Quindi ho provato ad inserire la .dll
-> Strumenti
-->Riferimenti
--->Sfoglia...
---->Seleziono il file e mi da errore dicendo: "Impossibile aggiungere un riferimento al file specificato".

[MItaly]

La dll in questione non è una dll COM, per cui non va aggiunta ai riferimenti; piuttosto, sei sicuro che si trovi nella stessa directory del file Excel? Di che versione di Excel si tratta?

[venom86]

La directory è quella, Excel 2002.
Ho provato anche cosi ma niente

Public Sub m()  
On Error GoTo RigaErrore 
 
Shell ("Regsvr32.exe *C:\Users\OEM\Desktop\SDK\VB6\NexusRFU.dll* /u") 
RigaChiusura: 
Exit Sub 
RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura   
End Sub

[venom86]

Ho tolto gli *.
Il RegSvr32 mi dice: "C:\Users\OEM\Desktop\SDK\VB6\NexusRFU.dll" è stato caricato, ma il punto di ingresso DllUnregisterServer non è stato trovato.
Accertarsi che "C:\Users\OEM\Desktop\SDK\VB6\NexusRFU.dll" sia un file OCX o DLL valido, quindi riprovare.

[gibra]

Se NON è una DLL COM non va registrata.