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