Page 2 sur 10
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:01
par 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
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:09
par 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.
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:28
par klystron
je cherche un exemple de code fenetre pour y loger les input longueur et largeur , et y mettre aussi le résultat.
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:34
par falsam
Bonsoir klystron. Avant d'aller plus loin, est ce que tu sais gérer les instrusctions de test comme if , While, Select ?
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:39
par klystron
non pas encore
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:46
par 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.
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:49
par 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
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:50
par klystron
si la valeur =0 revenir au depart ?
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:52
par falsam
klystron a écrit :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
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:56
par klystron
si la valeur = 0 un message doit s'afficher
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:57
par falsam
klystron a écrit :si la valeur = 0 un message doit s'afficher
Oui
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:58
par klystron
else si non un autre message doit s'afficher
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 21:59
par falsam
klystron a écrit :else si non un autre message doit s'afficher
Exactement.
■ Le bloc d'instruction
Select ..... EndSelectCode : 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
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 22:03
par klystron
un message doit apparaitre si j'ai oublié de cocher une case
Re: calcul surface d'un rectangle pour me familiariser avec
Publié : mar. 02/déc./2014 22:05
par klystron
une valeur supérieur a zero