Problème If Vb.net

Fermé
Utilisateur anonyme - 11 oct. 2014 à 00:47
 Utilisateur anonyme - 11 oct. 2014 à 14:22
Salut a vous.
Voici mon code : https://pastebin.com/0Qj76WN6
Je voudrais savoir comment faire ce calcul sans avoir un problème avec if j'ai déja essayé avec if et cela ne fonctionne pas ils me demandent de mettre End if mais cela nefonctionnerai pas
enfait je chercherai a faire une condition dans un code contenant Then

Merci pour vos réponses :)

2 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 oct. 2014 à 04:46
Bonjour,

Le problème ne vient pas du If mais des ElseIf ...


0
Utilisateur anonyme
11 oct. 2014 à 09:08
J'en suis bien conscient mais comment je fais fonctionner mon code
0
Utilisateur anonyme
11 oct. 2014 à 09:11
Je fais comment car je sais pas moi j'ai cherche partout sur le web en français en anglais et rien c'est surement car je l'ai mal prononcé
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 oct. 2014 à 10:03
Ce ne sont pourtant pas les explications et exemples qui manquent sur le web pour l'utilisation de If ... Then .... Else .... ElseIf .... End If !!!!
0
Utilisateur anonyme
11 oct. 2014 à 10:05
oui je sais mais si j'insère un Endif cela ne fonctionne pas pouvez vous mlaidez avez vous un skype ou autre
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
11 oct. 2014 à 10:14
Non je n'ai pas skype.

A première vue, tous les ElseIf sont inutiles ...
Pour tester les textboxes, une seule condition suffit: Si les conditions ne sont pas remplies, il faut sortir de la procédure, sinon le reste du code s'exécute avec une erreur.

SI textbox1 = vide OU textbox2 = vide OU textbox3 = vide ALORS
Message
Sortir de la procédure
FIN SI
0
Utilisateur anonyme
11 oct. 2014 à 10:18
je crois que j'ai trouvé mais juste dis moi si je peux faire un code qui dit juste plus de problème avec le if j'ai troiuvé : If Val(TextBox4.Text) ^ 2 = Val(TextBox2.Text) ^ 2 + Val(TextBox3.Text) ^ 2 Then
TextBox4.Text = ("Rectangle")
ElseIf TextBox4.Text = ("Non Rectangle") Then
0