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
» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 23:07

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Pedro Alvarez Aujourd'hui à 22:45

» StratégoV8
par Jean Claude Aujourd'hui à 19:55

» probleme de touche (verr num)
par pascal10000 Aujourd'hui à 16:20

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:58

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 10274
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 En ligne
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: