petit programme avec une procedure

bonjour à tous
voilà j'ai un programme que je n'arrive pas à creer correctement , le but de ce programme est d'augmenter de une unité une variable numérique à chaque fois que l'on presse sur un bouton
voici le code que j'ai placé dans le boutton,

Code:

---

1 2 3 4 5 6

Dim nombre1 As Short   nombre1 = TextBox1.Text essai(nombre1) TextBox2.Text = CStr(nombre1)

---

dans ce programme, la procédure est "essai", je l'ai mise dans un module standard dans le quel j'ai placé ce code:

Code:

---

1 2 3 4

Sub essai(ByRef result As Short) result = result + 1 End Sub

---

voila mon problème est que si j'écris "2" dans textbox1, et que je presse sur le bouton, textbox2.text va être égale à "3" mais le problème c'est que si je presse de nouveau sur le bouton il ne se passe rien , or j'aimerais que le textbox1 ne change pas de valeur mais que le textbox2 augmente de 1 chaque fois, donc égale à 4 et puis 5 et ainsi de suite

merci de laisser des explications les plus claires possibles. Et par la même occasion si vous pouviez m'expliquer aussi la différence entre les procédures sub et fonction et les mots-clés "Byval" et "Byref" , ce serait bien gentil

merci ^^ (suis débutant)

byval, une copie de la variable est passée
byref, c'est la variable elle meme qui est passée

donc dans ta sub si tu modifie la valeur d'unbyref, celui qui te l'a passé est aussi modifié, alors qu'avec byval c'est comme une autre variable que tu peux modifier sans que ca change la valeur de l'appelant

dans ton probleme il faudrait un peu plus de code pour localiser ton erreur
à savoir que dim initialise la variable à 0, sauf si ce dim est dans la classe et non dans la sub (dans ce cas mis à 0 seulement au chargement de la classe)

Moi je ferais ça sur l'événement click de ton bouton :

Code:

---

1 2 3 4

Dim nombre1 As Short = CType(Me.TextBox1.Text, Short) nombre1 += 1 Me.TextBox1.Text = nombre1.ToString

---

Pour bien faire, il faudrait biensur vérifier que la valeur du TextBox est numérique au risque d'avoir une erreur.

pouvez vous m'expliquer le bout de code :

Ctype(Me.TextBox1.Text, Short)
que fais ce bout de code?
ainsi que la dernière ligne:
Me.TextBox1.Text= nombre1.ToString

merci d'avance

Code:

---

1 2	Ctype(Me.TextBox1.Text, Short)

---

Le ... truc ... CType permet de changer le type d'un objet. Normallement, la valeur Me.TextBox1.Text est de type String et en appelant CType(...,Short), on convertit la valeur du type String vers le type Short ( on convertit une chaine vers un nombre ... ). Bien sur, une erreur est généré si la chaine n'est pas convertible :roll:

Code:

---

1 2	Me.TextBox1.Text= nombre1.ToString

---

nombre1 est un Short, nombre1.ToString est ... un String, et on assigne cette dernière valeur au texte de la TextBox1.

merci
:p