programme de parité

salut je suis débutant en vb et j'aimerai crée un programme permettant de vérifier si un nombre est pair ou non

http://img132.imageshack.us/img132/2658/ttp1.jpg

voila mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btnverifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnverifier.Click Dim a As Integer, b As Integer a = Val(textbox1) b = a Mod 2 If b = 0 Then label1.Text = "le nombre" & a & "est pair" Else label1.Text = "le nombre" & a & "est imlpair" End If End Sub

---

mais lorsque je debug mon programme vb m'affiche que j'ai une erreur dans l'instruction val(textbox1)

Pour récupérer la valeur d'une textbox, tu dois utiliser sa propriété .text
donc,

Code:

---

a = TextBox1.Text

---

et tu peux ne pas remplir le textbox et cliquer sur le bouton pour voir ce qui ne va pas dans ton code