Problème avec Scrollbar

**riquet90** · 20/08/2010, 18h26

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** · 20/08/2010, 19h09

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** · 20/08/2010, 19h17

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 & "''"

**ProgElecT** · 20/08/2010, 20h36

' Get data from the PIC
a = RS232.Input

Je ne désire pas polémiquer, mais je n'ai jamais vue de PIC renvoyer Chr(0) ni de lettre, tout ceux que j’ai eu l’occasion d’utiliser (une vingtaine différents) renvoie un numérique avec chiffre, jamais sous forme hexadécimal.

**riquet90** · 22/08/2010, 17h48

Bonsoir,

merci pour vos explications
Je reste sur la même écrire de code précédent
j'ai changé

Code :

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

If len(a)>0

J'envoie par le port série la valeur 9
Je vois bien la valeur 9 dans DSP.Caption
Dans gauge.value , j'ai le mon résultat (

Code :

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

gauge.value=

Mais mon scrollbar est grisé ...
Avez une idée ?

Lorsque je suis en mode pas à pas, peut on afficher l'objet ?
Si oui, comment faut-il faire.
Merci d'avance

CC