[VB6] Leggere dati su RS-232

[dvde]

Ciao a tutti.

Dovrei realizzare un semplicissimo programma (per me non tanto) che alla pressione di un pulsante sul form mi legga le 4 cifre che dovrebbere essere in uscita sulla seriale e me le trascriva su una label.

Sapete aiutarmi?

In particolare trovo difficoltà sulla lettura e memorizzazione della stringa.

Grazie 1000

[oregon]

Linguaggio? Regolamento?

[dvde]

chiedo scusa per essemi dimenticato di inserire il linguaggio di programmazione.
Sorry :rollo:

[oregon]

Devi utilizzare il componente MSCOMM (che dovrai caricare sul form) per dialogare con la seriale.

Ovviamente dovrai impostare le proprieta' (numero porta, velocita', parametri di comunicazione) e poi usare i metodi per inviare/ricevere i dati ...

[dvde]

Già fatto.
Il codice l'ho scritto così...

Private Sub Command1_Click()
Dim MSComm1 As MSCommLib.MSComm
Set MSComm1 = New MSCommLib.MSComm
Dim Peso As Variant
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Peso = MSComm1.Input
Text1.Text = Peso
MSComm1.PortOpen = False
End Sub

solo che quando clikko sul pulsante mi appare un errore del tipo "Invalid use on NEW keyword" e il debug si posiziona su "Set MSComm1 = New MSCommLib.MSComm".
Come mai?

[oregon]

Il controllo lo devi aggiungere tra quelli gia' presenti da menu

Progetto -> Componenti

e una volta aggiunto, lo trascini sul form.

[dvde]

Il controllo mscomm è gia sul form (l'icona col telefono)...
forse è il programma errato. tu ke dici?

[oregon]

Se e' gia' sul form allora perche' tenti di istanziarlo? Usa quello ...

Private Sub Command1_Click()
Dim Peso As String

MSComm1.CommPort = 1
MSComm1.PortOpen = True

Peso = MSComm1.Input

Text1.Text = Peso
MSComm1.PortOpen = False
End Sub

... in questo codice manca l'impostazione della velocita' e dei parametri della seriale ... a meno che tu non l'abbia impostato nelle proprieta' del controllo ...

[dvde]

problema risolto con un timer che esegue

label1.caption = mscomm1.input

[oregon]

Ok ... mi sembrava dovessi leggere solamente nua volta ...