[VB6] Leggere dati su RS-232

[dvde]

ok, grazie per l'aiuto.
Ora però è sorto un altro problema.
Dopo un determinato evendo hardware (esterno al programma) sulla seriale ricevo la combinazione " ;0802? "
Il problema è che non riesco a fare un confronto...

Ad esempio

Private Sub Form_Load()
If Peso = ";0802?" Then
led1.BackColor = vbGreen
Else
led1.BackColor = vbRed
End If
End Sub

alla ricezione della stringa il le1 non cambia colore

(led 1 è una semplice shape circolare)

Dove sbaglio?

[oregon]

Ma il confronto lo fai nella Form_Load?

[dvde]

perchè dove dovrei farlo?
tieni presente che non sono tanto esperto di programmazione

[oregon]

Sai quando viene chiamata la Form_Load ?

[dvde]

no

[oregon]

Beh ... la tua Form_Load viene chiamata solamente all'inizio del programma e solo quella volta.

In quel momento, non hai inizializzato il controllo MSComm, non hai ricevuto nulla, non puoi controllare nulla ...

Avevi detto che avevi risolto con un timer ... la if, per il controllo, va nella funzione del timer ...

[dvde]

gia provato anke sul timer, non funzia lo stesso...

[dvde]

posto l'intero programma per capirci meglio...

Sul form ho una TextBox e 2 Pulsanti.

---------------------------------------------------------
Dim dato As String 'dichiaro la varibile "dato"
---------------------------------------------------------

Private Sub Command1_Click()
Timer1.Enabled = True 'abilito il timer
MSComm1.CommPort = 1 'definisco quale porta uso
MSComm1.PortOpen = True 'apro la porta com1
MSComm1.Settings = "9600,n,8,1" 'definisco i parametri di connessione
End Sub

---------------------------------------------------------
Private Sub Command2_Click()
MsgBox (Mid(dato, 2, 4)) 'Premendo qua dovrebbe apparire solo il valore 802
End Sub
---------------------------------------------------------

Private Sub MSComm1_OnComm()
If MSComm1.PortOpen = True Then
dato = MSComm1.Input 'Leggo il contenuto del buffer di ricezione
If Len(dato) Then 'Se ho ricevuto qualcosa lo scrivo nella TextBox
Text1.Text = Text1.Text & dato
End If
End If
End Sub
---------------------------------------------------------

Private Sub Timer1_Timer()
Call MSComm1_OnComm 'Richiamo l'evento oncomm
End Sub
---------------------------------------------------------

:master:

[oregon]

O usi l'evento OnComm oppure il timer con la mscomm1.input ... non devi usare il timer che chiama l'evento ...

[dvde]

non funziona lo stesso...
non riesco a capire il perchè