utilisation de private sub()

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

Code:

---

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:

---

envoi(1.5,1)

---

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

je ne sait pas pourquoi?

Merci d'avance

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.

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:

---

envoi(a,b)

---

la déclaration doit se faire avec byval

Code:

---

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

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:

---

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:

---

call envoi(a,b)

---

,

Code:

---

envoi(a,b)

---

ou

Code:

---

envoi a,b

---

?

prends cet exemple simple

Code:

---

1 2 3

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

---

Code:

---

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:

---

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:

---

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

Quand tu declare tes variable ainsi

Code:

---

Dim a, b As Single

---

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

Code:

---

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.

Citation:

---

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

Code:

---

Dim a as Single, b as Single

---

---

c vrai, c'était juste un problème de déclaration, ma remarque n'était pas à ça place.

Merci pour toutes vos réponses