calcul surface d'un rectangle pour me familiariser avec pb .

[kernadec]

non pas breton normand descendant de viking

je rappelle que ce code n'est pas de moi ! comme je l'ai dit dans le précédent poste

Au passage tu as sur ce forum des tutos pour débuter http://www.purebasic.fr/french/viewforum.php?f=21
et sur le forum anglais ce site de "blueznl" très bien également http://bluez.home.xs4all.nl/purebasic/

Cordialement

[klystron]

Ok Kernadec, merci pour les infos.
je m'aperçois que purebasic est tres puissant.
et tres bien fait au niveau editeur.
bonne soirée.

[klystron]

je cherche un exemple de code fenetre pour y loger les input longueur et largeur , et y mettre aussi le résultat.

[falsam]

Bonsoir klystron. Avant d'aller plus loin, est ce que tu sais gérer les instrusctions de test comme if , While, Select ?

[klystron]

non pas encore

[falsam]

Commençons par le bloc d'instruction If ... EndIf

Code : Tout sélectionner

Valeur.i = 5

If Valeur = 0 
  Debug "Attention la valeur doit etre différente de 0"
EndIf

Inutile je pense de préciser que nous testons la condition SI alors exécute ce qui suit puis FIN CONDITION.

Testes ce code puis change la variable Valeur en la remplaçant par 0.

[falsam]

Ensuite nous allons rendre le message d'erreur plus convivial.

Code : Tout sélectionner

Valeur.i = 5

If Valeur = 0 
  MessageRequester("Information", "Attention la valeur doit etre différente de 0")
EndIf

[klystron]

si la valeur =0 revenir au depart ?

[falsam]

si la valeur =0 revenir au depart ?

pas si vite

■ Le bloc d'instruction If .... Else ..... EndIf

Code : Tout sélectionner

Valeur.i = 5

If Valeur = 0 
  MessageRequester("Information", "Attention la valeur doit etre différente de 0")
Else
  MessageRequester("Information", "la valeur est bien différente de 0")
EndIf

[klystron]

si la valeur = 0 un message doit s'afficher

[falsam]

si la valeur = 0 un message doit s'afficher

Oui

[klystron]

else si non un autre message doit s'afficher

[falsam]

else si non un autre message doit s'afficher

Exactement.


■ Le bloc d'instruction Select ..... EndSelect

Code : Tout sélectionner

Valeur.i = 0

Select Valeur
  Case 1
    MessageRequester("Information", "1")
    
  Case 2 
    MessageRequester("Information", "2")
    
  Case 3
    MessageRequester("Information", "3")
    
  Default 
    MessageRequester("Information", "Vous devez renseigner 1, 2, ou 3")
EndSelect

A tester. Important pour la gestion de la fenêtre

[klystron]

un message doit apparaitre si j'ai oublié de cocher une case

[klystron]

une valeur supérieur a zero