Discussion :

[riquet90]

Bonjour,

J'envoie par l'intermédiaire de la RS232 d'un PIC une valeur 9 par exemple
à mon PC.
J'ai ce code en VB6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private gv As Integer
Private a As String
Private Sub Command1_Click()
If RS232.PortOpen = False Then
PORT(0).Enabled = False
PORT(1).Enabled = False
RS232.PortOpen = True
Timer1.Enabled = True
Command1.Caption = "ONLINE"
Else
PORT(0).Enabled = True
PORT(1).Enabled = True
RS232.PortOpen = False
Timer1.Enabled = False
Command1.Caption = "START"
End If
End Sub
Private Sub Command2_Click()
If RS232.PortOpen = True Then
Timer1.Enabled = False
RS232.PortOpen = False
End If
End
End Sub
Private Sub Port_Click(Index As Integer)
RS232.CommPort = Index + 1
End Sub
Private Sub Timer1_Timer()
' Get data from the PIC
a = RS232.Input
' Pull numeric data out
gv = Val(Left$(a, 3))
' Verify the data is valid
If Len(a) > 2 Then
' The data is okay, do something with it.
gauge.Value = 255 - gv
DSP.Caption = a
End If
End Sub

Je retrouve bien ma valeur en a.
mais la gauge.Value et DSP.caption ne changent pas
Gauge est scroll Bar .DSP est Label
Avez vous une idée?

Merci d'avance

CC

[ProgElecT]

Je retrouve bien ma valeur en a

vérification simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'....
MsgBox "valeur de la variable ''a'': " & a & vbCrLf & "longueur de la variable ''a'': " & Len(a)
If Len(a) > 2 Then ' The data is okay, do something with it.
'....

[babaothe]

salut

c'est la valeur de gv qui compte.
tu l'as définie ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gv = Val(Left$(a, 3))

Or, si a commence par exemple par une lettre, ===>> gv = 0 ===>> la valeur de ta scrollbar restera donc à 255
mets également un doevents dans ton évènement timer

EDIT :
regarde par ailleurs un exemple de ce qui arriverait si ta chaîne a commençait par un caractère nul de terminaison (chr(0))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
a = Chr(0) & "444"
MsgBox "bien que la variable a ait pour longueur " & Len(a) & ", elle vaut " & Val(a) & " et contient " & "''" & a & "''"