[VB6] Colloquio con stampante di barcode tramite seriale

[donini]

ciao a tutto il forum, premetto che ho fatto richiesta del mio problema su un altro forum ma senza risultati.
il mio problema è il seguente, sto cercando di fare un programma pe una stampante di codici a barre ma non riesco a fare niente, la stampante è una Godex EZ 4TT e dal suo manuale ho preso questo esempio per poi convertilo in visual basic ma non succede niente .
link del manuale della stampante.
http://www.godex.com.tw/eng_pages/download/manual.htm

esempio preso dal manuale

^Q30,0,0
^W50
^H5
^S2
^Q30,0,2
^L
BG,20,100,3,3,100,0,1,12345678901234567
E

esempio riconvertito in visual basic da me

Private ETX As String
Private STX As String
Private vbCr As String
Private ETB As String
Private ESC As String


Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.ListIndex + 1
End Sub



Private Sub Command1_Click()
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.Output = STX & "Q30,0,0" & vbCr
MSComm1.Output = STX & "W50" & vbCr
MSComm1.Output = STX & "H5" & vbCr
MSComm1.Output = STX & "S2" & vbCr
MSComm1.Output = STX & "Q30,0,2" & vbCr
MSComm1.Output = STX & "L" & vbCr
MSComm1.Output = STX & "BG,20,100,3,3,100,0,1,12345678901234567" & vbCr
MSComm1.Output = STX & "E" & vbCr
MSComm1.Output = STX & "C4" & vbCr
End Sub

grazie

[oregon]

Intanto la variabile STX non ha alcun contenuto ... quindi e' inutile inserirlo (anzi, non comprendo il senso di questa variabile nel tuo programma).

Inoltre, ed e' la cosa piu' grave, e' che hai dichiarato

Private vbCr As String

e quindi hai "nascosto" il valore della costante vbCr che e' quello che ti serve.
In questo modo, essendo vbCr vuota, non invii il return alla stampante e probabilmente il problema e' proprio quello.

Anche le altre variabili non servono (perche' le hai inserite?) ... quindi, elimina tutto il blocco

Private ETX As String
Private STX As String
Private vbCr As String
Private ETB As String
Private ESC As String

e prova

[donini]

ho provato in questo modo ma mi da errore run time 8015 (impossibile impostare lo stato di comunicazione .é possibile che vi siano uno o piu parametri di comunicazione non validi)

Private CR As String




Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.ListIndex + 1
End Sub



Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "Q30,0,0" & CR
MSComm1.Output = "W50" & CR
MSComm1.Output = "H5" & CR
MSComm1.Output = "S2" & CR
MSComm1.Output = "Q30,0,2" & CR
MSComm1.Output = "C14" & CR
MSComm1.Output = "L" & CR
MSComm1.Output = "BG,20,100,3,3,100,0,1,12345678901234567" & CR
MSComm1.Output = "E" & CR


End Sub

hai provato a dare una occhiata al manuale?

[oregon]

NON mi hai capito ...

NON DEVI USARE le variabili vuote ma la costante gia' definita dal VB !

Originariamente inviato da donini
Private CR As String

Elimina questa variabile!

E poi, perche' hai modificato il codice dell'esempio? Ci sono delle linee in cui il comando comincia con il carattere ^ ... quindi

MSComm1.Output = "^Q30,0,0" & vbCr

Altri comandi non sono preceduti da tale carattere ... fai attenzione ...

[donini]

ho provato cosi ma mi da lo stesso errore precedentemente segnalato

Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.ListIndex + 1
End Sub



Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "^Q30,0,0" & vbCr
MSComm1.Output = "^W50" & vbCr
MSComm1.Output = "^H5" & vbCr
MSComm1.Output = "^S2" & vbCr
MSComm1.Output = "^Q30,0,2" & vbCr
MSComm1.Output = "^C14" & vbCr
MSComm1.Output = "L" & vbCr
MSComm1.Output = "BG,20,100,3,3,100,0,1,12345678901234567" & vbCr
MSComm1.Output = "E" & vbCr


End Sub

[oregon]

Ma in quale riga ti da' l'errore? E perche' prima non te lo dava dato che non e' cambiato nulla che riguardi il setup della comunicazione?

Hai fatto altre modifiche? Il codice e' tutto qui? Quando indichi il nome della porta COM1 (o quella che e')? Il valore di MScomm1.Port qual e' ?

[donini]

mi da errore in questa riga
MSComm1.PortOpen = True
il codice per il momento è tutto qui in quando è un piccola prova di comunicazione.
sono sicuro che la stampante funziona e anche il cavo di comunicazione e i parametri sono gisti ,perche li ho provati con il software che la godex mette ha disposizione .

[donini]

problema risolto il problema era che c' era un parametro nel settaggio della macchina sbagliato , grazie di nuovo

[oregon]

Originariamente inviato da donini
problema risolto il problema era che c' era un parametro nel settaggio della macchina sbagliato , grazie di nuovo

Sì ... ma stampa?

[donini]

si tutto ok grazie Oregon