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
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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 : 10072
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 :: Les inutilitaires-
Sauter vers: