Discussion :

[guefrachi]

bonjour
j'ai crée une procédure comme suit

Code :

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

1
2
3
4
Private Sub envoi(Volts As Single,chan As Long)
    Dim Value As Long
'code à exécuter
End Sub

lorsque je le fait appel;

Code :

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

envoi(1.5,1)

un message d'erreur s'affiche : "= expected"

je ne sait pas pourquoi?

Merci d'avance

[250rgv]

Si tu est bien en vb6, lors de l'appel d'un sub (ou d'une fonction), si tu utilise les parenthèses, tu doit faire l'appel avec call. Et inversement, si tu n'utilise pas call, tu ne met pas les parenthèses.

[guefrachi]

bonsoir
tu as raison, le problème est résolu. Merci
mais je veux mentionner une chose que j'ai remarquée;

si j'ai à faire appel à la procédure ou fonction avec des variables comme

Code :

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

envoi(a,b)

la déclaration doit se faire avec byval

Code :

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

1
2
3
4
Private Sub envoi(byval Volts As Single,byval chan As Long)
    Dim Value As Long
'code à exécuter
End Sub

Merci encore

[250rgv]

Je ne comprends pas ta remarque. Tu veut dire que si tu ne déclare pas tes variables en byval, l'appel provoque une erreur ?

Avec ce code

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
 
Option Explicit
 
Private Sub envoi1(a As Single, b As Double)
  '...
End Sub
 
Private Sub envoi2(ByRef a As Single, ByRef b As Double)
  '...
End Sub
 
Private Sub envoi3(ByVal a As Single, ByVal b As Double)
  '...
End Sub
 
Private Sub Command1_Click(Index As Integer)
  Select Case Index
  Case 0
    Call envoi1(0, 0)
    Call envoi2(0, 0)
    Call envoi3(0, 0)
  Case 1
    envoi1(0,0)
    envoi2(0,0)
    envoi3(0,0)
  Case 2
    envoi1 0, 0
    envoi2 0, 0
    envoi3 0, 0
  End Select
End Sub

, seuls les appels du case 1 provoquent bien une erreur (de syntaxe).

Code :

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

call envoi(a,b)

,

Code :

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

envoi(a,b)

ou

Code :

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

envoi a,b

?

[guefrachi]

prends cet exemple simple

Code :

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

1
2
3
Private Sub somme(a As Single, b As Single)
Command15.Caption = a + b
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub Command15_Click()
Dim a, b As Single
a = 5
b = 6
somme a, b
 
End Sub

lorsque je clic sur command15 ce message d'erreur s'affiche: "byref argument type mismatch"

maintenant si je déclare la sub comme suit (avec byval)

Code :

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

1
2
3
4
 
Private Sub somme(ByVal a As Single, ByVal b As Single)
Command15.Caption = a + b
End Sub

ça marche bien et j'aurais 11 comme caption du command15 lorsque je clic la dessus

et si je fais

Code :

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

1
2
3
4
5
Private Sub Command15_Click()
 
somme 5, 6
 
End Sub

ça marche sans ajouter byval

j'éspére que c'est clair

[Delbeke]

Quand tu declare tes variable ainsi

Code :

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

Dim a, b As Single

a est défini come variant, seul b est un single
If faut faire

Code :

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

Dim a as Single, b as Single

En passant tes arguments ByVal, c'est la valeur qui est passée à la fonction, Vb se charge alors en interne de faire les convertions dans le bon type.
Si pour un débutant, la permissivité de Vb est grandiose, Elle masque potentiellement une source d'erreur.