[VB6] Usare un adattatore USB/seriale

[multijet]

Buona sera a tutti.Il quesito che vorrei porre e' relativo all'utilizzo di un adattatore usb-seriale.Non conosco questo tipo di periferica.la domanda e' la seguente:il software che ho realizzato legge dalla porta sreriale dei dati provenienti da una strumentazione.Visto che ormai non tutti i portatili sono dotati di porta seriale,se collego un adattatore di questi,come va modificato il codice sorgente?
Grazie

[oregon]

In genere l'adattatore ha un driver che simula la presenza di una porta seriale.

Quindi, molto probabilmente, se utilizzi i componenti standard (per esempio MSCOMM) non dovrai fare nessuna modifica al software ...

[multijet]

Ok.Grazie della info.

[GraficInside]

Io in passato feci delle applicazioni VB6 che usavano la seriale e dopo un pò di ricerche trovai il driver per adattatore usb-rs232 che emulava perfettamente la seriale non dovresti aver problemi

[multijet]

Oggi parlavo con un collega di questi adattatori usb-seriale.Lui mi diceva che dipende molto dalla quantita' di dati e dalla velocita' di trasmissione dell'apparecchiatura collegata alla seriale e quindi la compatibilita' di funzionamento tra la vecchia rs 232 e gli adattatori non e' poi cosi' scontata

[oregon]

Se cerchi bene, dovresti trovarne uno adatto alle tue necessita' (che non si sa quali siano ...).

[multijet]

Le ho esposte in calce:leggere i dati da una strumentazione elettronica (Metrolab ,sito www.metrolab.com)attraverso la porta seriale RS 232.

[oregon]

Ok ... ma non si sa quale device vuoi interfacciare ne' quali siano le sue caratteristiche ... il sito e' molto ampio ...

In ogni caso, se viene gestito un colloquio seriale standard, un qualsiasi adattatore, come ti ho detto, che emuli una porta COM tramite un device driver, va benissimo.

In ogni caso, la cosa migliore e' fare una prova ... acquista un convertitore e provalo ...

[multijet]

Questa e' la routine che utilizzo per interrogare il device connesso alla seriale:

Do
ENQ$ = Chr$(5)
Principale.MSComm1.InBufferCount = 0
Principale.MSComm1.Output = ENQ$
Do
For TW = 1 To 10
Sleep (90)
DoEvents
Next TW



Loop Until (Principale.MSComm1.InBufferCount >= 11) Or (Principale.MSComm1.InBufferCount = 0)
fr$ = Principale.MSComm1.Input
If (Right((Right((RTrim(fr$)), 1)), 1) = "T") Then
TestMetrolab = Right((Right((RTrim(fr$)), 1)), 1)
Call ControlloErroriMetrolab(TestMetrolab)
If IIMM = True Then
Exit Sub
End If
ElseIf (Left$(fr$, 1) <> "L") Then
TestMetrolab = Left$(fr$, 1)
Call ControlloErroriMetrolab(TestMetrolab)
If IIMM = True Then
Exit Sub
End If
Else
Exit Do
End If
Loop
LL = Len(fr$)
f = val(Mid$(fr$, 2, LL - 1)) * 1000000!

[oregon]

Originariamente inviato da multijet
Questa e' la routine che utilizzo per interrogare il device connesso alla seriale:

E quindi?