FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» un nouveau editeur panobasic
par Jean Claude Aujourd'hui à 10:18

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:07

» Le compilateur.
par Pedro Alvarez Aujourd'hui à 8:36

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Utile pour Noêl

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
FRANKI30



Nombre de messages : 28
Date d'inscription : 14/11/2010

MessageSujet: Utile pour Noêl   Lun 6 Déc 2010 - 23:22

Code:
REM 'Calcul de la masse corporelle Franki30
label calcule,fin
dim poids,taille,imc,TAILLEFIN
 left 0,200
 width 0,300
 height 0,310
 caption 0,"Calcul de la Masse Corporelle..."

 edit 1
 top 1,25
 left 1,50
width 1,50

 edit 2
 top 2,70
 left 2,50
 width 2,50

 button 3
 top 3,250
 left 3,200
 caption 3,"Quit"
 alpha 4

 top 4,160
 left 4,110
2d_pen_color 255,0,0
 2d_rectangle 109,159,177,178
 color 4,255,255,255

top 0,100
 2D_pen_color 0,0,0
 2d_rectangle 10,10,200,50
 print_locate 10,5

 print "Entrer votre poids..."
print_locate 105,33
print "Kg."
rem ' taille
2d_rectangle 10,60,200,100
print_locate 10,55
print "Entrer votre taille..."
print_locate 105,79
print "Mètre."

2d_rectangle 10,120,290,150
print_locate 11,130
print "Valeur de l'Indice de Masse Corporelle."
2d_rectangle 10,205,250,250
print_locate 30,200
print "Résultat du calcul."

calcule:
 display
 if numeric(text$(1))=1 and numeric(text$(2))=1

 poids=VAL(TEXT$(1))
 taille=VAL(TEXT$(2))
 TAILLEFIN=TAILLE*TAILLE
 IF POIDS>150

 imc=poids/TAILLEFIN
 POIDS=150
  MESSAGE "Infèrieur a 150 KG"
 text 1,"150"
 goto calcule
 end_if

 print_locate 115,160
 if imc=>18 and imc=<25
 print_locate 80,220

 print "- Normal-"

 end_if
if imc=>26 and imc=<30
print_locate 80,220
print "-Surpoids-"



 end_if
 if imc=>31
 print_locate 80,220
 print "- Obèse -"

 end_if
 IF IMC>18
print_locate 128,160
 print INT( imc);"  "
 END_IF
 end_if


 on_click 3,fin
 goto calcule
fin:
 terminate


Dernière édition par Jack le Mar 7 Déc 2010 - 21:10, édité 2 fois (Raison : Source mis entre des balises CODE)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Utile pour Noêl   Mar 7 Déc 2010 - 0:21

Il est sympa, ton programme ! Un conseil, pour la forme: colle ton code entre deux balises "code" (disponibles dans la première ligne de la barre d'outils). L'affichage est plus conforme, et on peut prendre le code avec shift/click gauche _ control/C. C'est plus simple.

Je me suis permis de modifier légèrement ton programme, pour le passer en mode "évènementiel". J'ai laissé tes lignes de code - j'en ai mis certaines en parenthèses et j'ai rajouté mes suggestions. Changement du mode d'emploi: on remplit les cases, puis on clique sur "Calculer".

Voici le code: (entre deux balises "code")
Code:
REM 'Calcul de la masse corporelle Franki30
label calcule,fin
dim poids,taille,imc,TAILLEFIN
left 0,200
width 0,300
height 0,310
caption 0,"Calcul de la Masse Corporelle..."

edit 1
top 1,25
left 1,50
width 1,50

edit 2
top 2,70
left 2,50
width 2,50

button 3
top 3,250
left 3,200
caption 3,"Quit"
alpha 4

top 4,160
left 4,110
2d_pen_color 255,0,0
2d_rectangle 109,159,177,178
color 4,255,255,255

button 5
top 5,160
left 5,20
caption 5,"Calculer"
on_click 5,calcule
alpha 6
top 6,220
left 6,40
alpha 7
top 7,220
left 7,150

top 0,100
2D_pen_color 0,0,0
2d_rectangle 10,10,200,50
print_locate 10,5

print "Entrer votre poids..."
print_locate 105,33
print "Kg."
rem ' taille
2d_rectangle 10,60,200,100
print_locate 10,55
print "Entrer votre taille..."
print_locate 105,79
print "Mètre."

2d_rectangle 10,120,290,150
print_locate 11,130
print "Valeur de l'Indice de Masse Corporelle."
2d_rectangle 10,205,250,250
print_locate 30,200
print "Résultat du calcul."

on_click 3,fin

end

calcule:
' display
caption 7,""
caption 6,""
if (numeric(text$(1))=1) and (numeric(text$(2))=1)

    poids=VAL(TEXT$(1))
    taille=VAL(TEXT$(2))
    TAILLEFIN=TAILLE*TAILLE
    IF POIDS>150

'        imc=poids/TAILLEFIN
        POIDS=150
        MESSAGE "Infèrieur a 150 KG"
        text 1,"150"
'        goto calcule
        return
    end_if

    imc=poids/TAILLEFIN
'    print_locate 115,160
    if imc=>18 and imc=<25
'        print_locate 80,220

'        print "- Normal-"
        caption 6,"- Normal-"

    end_if
    if imc=>26 and imc=<30
'        print_locate 80,220
'        print "-Surpoids-"
        caption 6,"-Surpoids-"


    end_if
    if imc=>31
'        print_locate 80,220
'        print "- Obèse -"
        caption 6,"- Obèse -"

    end_if
    IF IMC>18
'        print_locate 128,160
'        print INT( imc);" "
        caption 7,str$(int(imc))
    END_IF
end_if


' on_click 3,fin
' goto calcule
return

fin:
terminate

EDIT

Ton programme m'indique fort justement que je suis en surpoids, et les Fêtes ne vont rien arranger...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
FRANKI30



Nombre de messages : 28
Date d'inscription : 14/11/2010

MessageSujet: IMC   Mar 7 Déc 2010 - 20:40

Bonsoir klaus , oui il est plus sympa comme ca.
Je découvre au fur et a mesure, j'essaye de retrouver mes marques de reprendre mes reflex.
En ceux qui concerne Noêl c'est qu'une fois par an alors bon pas grave !!!!
On trichera en changeant les paramètres du programmes. Twisted Evil
Merci et a plus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Utile pour Noêl   

Revenir en haut Aller en bas
 
Utile pour Noêl
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» La Freebox révolution : utile pour moi ?
» hauteurs des ponts de Chen
» Mise à jour manuelle de Windows Vista
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Les inutilitaires-
Sauter vers: