Problème If Vb.net

Utilisateur anonyme -  
 Utilisateur anonyme -
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

  1. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

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

    0
  2. Utilisateur anonyme
     
    J'en suis bien conscient mais comment je fais fonctionner mon code
    0
    1. Utilisateur anonyme
       
      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
    2. Polux31 Messages postés 7219 Statut Membre 1 204
       
      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
    3. Utilisateur anonyme
       
      oui je sais mais si j'insère un Endif cela ne fonctionne pas pouvez vous mlaidez avez vous un skype ou autre
      0
    4. Polux31 Messages postés 7219 Statut Membre 1 204
       
      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
    5. Utilisateur anonyme
       
      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