Problème avec Scrollbar

Version imprimable

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:

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

Citation:

Je retrouve bien ma valeur en a

vérification simple

Code:

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.
'....

20/08/2010, 19h17
babaothe

correction mauvaise manoeuvre
salut

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

Code:

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:

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

Citation:

' 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.
22/08/2010, 17h48
riquet90

Bonsoir,

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

Code:

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:

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
22/08/2010, 19h24
ProgElecT

Citation:

Envoyé par riquet90

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

Vérifies la propriété Enabled du ScrollBar, elle doit être True

Citation:

Envoyé par riquet90

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

Cliques sur le bouton dans la barre des tâches de windows
23/08/2010, 10h25
riquet90

Merci pour la réponse
cela fonctionne