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
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

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

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

» Calculatrice
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

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 | 
 

 Pour mes petits-enfants et pour les vôtres

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

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 0:22

Salut tout le monde.

Comme je suis en manque d’idées et ne voulant pas voir mes mécanismes de programmation se rouiller, j’ai tenté de "recycler" certains programmes codés dans des langages autre que Panoramic.
Ce qui suit est une adaptation faite à l’intention de mes petits-enfants.
Si ça peut intéresser quelqu’un je serais content, sinon je serais content car j’ai fait de la gymnastique cérébrale !!
Et c'est bien pour le moral ! Wink

code 1

Code:

rem ============================================================================
rem       Lire un thermomètre
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,500 : height 0,800
    alpha 1 : top 1,10 : left 1,20 : font_bold 1 : font_size 1,18
    caption 1,"LECTURE D'UN THERMOMETRE" : application_title "Lecture d'un thermomètre"
    picture 10 : full_space 10 : width 10,360 : height 10,700
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,18
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,z,nb,h,temp,rep$
    repeat
        2d_fill_on : 2d_fill_color 0,255,0 : 2d_rectangle 0,0,360,700
        2d_fill_color 0,255,255 : 2d_rectangle 20,20,340,680
        2d_fill_color 0,0,0 : 2d_rectangle 158,80,202,630
        2d_circle 180,80,22 : 2d_circle 180,600,42
        2d_fill_color 255,255,255 : 2d_pen_color 255,255,255
        2d_rectangle 160,80,200,630 : 2d_circle 180,80,20 : 2d_circle 180,600,40
        2d_pen_color 0,0,0 : 2d_line 180,80,180,600
        2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 : 2d_circle 180,600,30
        2d_pen_color 0,0,0
        for i = 0 to 70
            z = i*6 : 2d_line 140,100+z,150,100+z : 2d_line 210,100+z,220,100+z
        next i
        for i = 0 to 7
            z = i*60 : 2d_line 100,100+z,150,100+z : 2d_line 210,100+z,260,100+z
        next i
        for i = 0 to 14
            z = i*30 : 2d_line 120,100+z,150,100+z : 2d_line 210,100+z,240,100+z
        next i
        2d_fill_color 0,255,255
        print_locate 070,078 : print "40"  : print_locate 260,078 : print "40"
        print_locate 070,138 : print "30"  : print_locate 260,138 : print "30"
        print_locate 070,198 : print "20"  : print_locate 260,198 : print "20"
        print_locate 070,258 : print "10"  : print_locate 260,258 : print "10"
        print_locate 070,318 : print "  0" : print_locate 260,318 : print "  0"
        print_locate 065,378 : print "-10" : print_locate 260,378 : print "-10"
        print_locate 065,438 : print "-20" : print_locate 260,438 : print "-20"
        print_locate 065,498 : print "-30" : print_locate 260,498 : print "-30"
        2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 : 2d_rectangle 170,520,190,600
        nb = int(rnd(70)) : h = nb*6 : temp = nb-30
        2d_rectangle 170,520-h,190,600
        repeat
            rep$ = message_input$("Lecture d'un thermomètre","Quelle est la température ?","")
        until numeric(rep$) > 0
        if val(rep$) = temp
           message "Bravo ! Le thermomètre indique " + str$(temp) + "°"
        else
           message "Erreur ! Le thermomètre indique " + str$(temp) + "°"
        end_if
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================


La suite c'est tout de suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 1:50

Code 2

Code:

rem ============================================================================
rem        Lire une éprouvette
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,500 : height 0,800
    alpha 1 : top 1,10 : left 1,50 : font_bold 1 : font_size 1,18
    caption 1,"LECTURE D'UNE EPROUVETTE" : application_title "Lecture d'une éprouvette"
    picture 10 : full_space 10 : width 10 ,375 : height 10,675
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,18
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,nb,hg,q,z,rep$
    repeat
       2d_fill_on : 2d_fill_color 255,255,0 : 2d_rectangle 0,0,375,675
       2d_fill_color 0,0,0 : 2d_poly_from 48,48 : 2d_pen_width 2
       2d_poly_to 302,48 : 2d_poly_to 302,600 : 2d_poly_to 73,600
       2d_poly_to 73,100 : 2d_poly_to 48,48 : 2d_flood 60,60,255,255,255
       2d_pen_width 1
       nb = int(rnd(19)+1) : hg = nb*25 : q = hg*2
       2d_fill_color 0,255,255 : 2d_rectangle 76-4,600-hg,300+2,600
       2d_pen_color 0,0,0
       for i = 0 to 19 : z = i*25 : 2d_line 250,100+z,300,100+z : next i
       for i = 0 to 09 : z = i*50 : 2d_line 200,100+z,300,100+z : next i
       2d_poly_from 302,600
       2d_poly_to 75,600 : 2d_poly_to 25,650 : 2d_poly_to 350,650 : 2d_poly_to 302,600
       2d_flood 300,620,0,0,0
       2d_fill_color 255,255,255
       print_locate 100,80 : print "1000 ml" : print_locate 110,130 : print "900 ml"
       print_locate 110,180 : print "800 ml" : print_locate 110,230 : print "700 ml"
       print_locate 110,280 : print "600 ml" : print_locate 110,330 : print "500 ml"
       print_locate 110,380 : print "400 ml" : print_locate 110,430 : print "300 ml"
       print_locate 110,480 : print "200 ml" : print_locate 110,530 : print "100 ml"
       repeat
          rep$ = message_input$("Lecture d'une éprouvette","Quelle quantité de liquide, en ml, l'éprouvette contient-elle ? ","")
       until numeric(rep$) > 0
       if val(rep$) = q
           message "BRAVO ! L'éprouvette contient " + str$(q) + " ml de liquide"
       else
           message "Erreur ! L'éprouvette contient " + str$(q) + " ml de liquide"
       end_if
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================

La suite c'est tout de suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc37



Nombre de messages : 456
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 1:51

Excellent !
Je mettrai en application ce programme dès demain, pour voir si les enfants savent lire correctement un thermomètre.

Merci Papydall !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



Nombre de messages : 456
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 1:54

2 ème programme tout aussi excellent !

Je le donne également à la maîtresse... qui est également ma femme.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 1:59

Merci Marc37.
C’est toujours un plaisir de te lire.
Mes hommages à la maîtresse... qui est également ta femme.

Code 3

Code:

rem ============================================================================
rem         Lire le rapporteur
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,900: height 0,650
    alpha 1 : top 1,10 : left 1,250 : font_bold 1 : font_size 1,18
    caption 1,"LIRE LE RAPPORTEUR"  : application_title "Lire le rapporteur"
    picture 10 : full_space 10 : width 10 ,800 : height 10,550
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local a,i,x,y,h1,h2,l1,l2,rep$
    repeat
        2d_fill_on : 2d_fill_color 255,255,0 : 2d_rectangle 0,0,800,550
        2d_pen_color 0,255,255 : 2d_poly_from 80+282,80+282
        for a = 0 to pi step pi/180
            2d_poly_to 80+282+282*cos(a),80+282-282*sin(a)
        next a
        2d_poly_to 80+282,80+282 : 2d_flood 80+282,80+282-10,0,255,255
        2d_pen_color 255,255,0 : 2d_poly_from  80+282,80+282
        for a = 0 to pi step pi/180
            2d_poly_to 80+282+200*cos(a),80+282-200*sin(a)
        next a
        2d_poly_to 80+282,80+282 : 2d_flood 80+282,80+282-10,255,255,0
        2d_pen_color 0,255,255 : 2d_fill_color 0,255,255 : 2d_rectangle  80,362,645,362+100
        2d_pen_color 0,0,0
        for i = 180 to 360
            x = pi*i/180
            h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
            h2 = int(sin(x)*260) : l2 = int(cos(x)*260)
            2d_line l1+362,h1+362,l2+362,h2+362
        next i
        for i = 180 to 360 step 10
            x = pi*i/180
            h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
            h2 = int(sin(x)*230) : l2 = int(cos(x)*230)
            2d_line l1+362,h1+362,l2+362,h2+362
            print_locate l2+362,h2+362 : print i-180
        next i
        for i = 180 to 360 step 5
            x = pi*i/180
            h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
            h2 = int(sin(x)*250) : l2 = int(cos(x)*250)
            2d_line l1+362,h1+362,l2+362,h2+362
        next i
        2d_fill_color 0,0,0 : 2d_circle 362,362,3
        2d_pen_width 2 : 2d_line 0,362,362,362
        y = int(rnd(175)+4) : x = (pi*y/180)+(pi*180/180)
        h1 = int(sin(x)*520) : l1 = int(cos(x)*520)
        h2 = int(sin(x)*3) : l2 = int(cos(x)*3)
        2d_line l1+362,h1+362,l2+362,h2+362
        repeat
           rep$ = message_input$("Lecture de rapporteur","Quelle est la mesure de l'angle en degrés ? ","")
        until numeric(rep$) > 0
        if val(rep$) = y
           message "BRAVO ! L'angle mesure " + str$(y) + "°"
        else
           message "Erreur ! L'angle mesure " + str$(y) + "°"
        end_if
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================


La suite c'est tout de suite.


Dernière édition par papydall le Mar 8 Déc 2015 - 2:40, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 2:12

code 4

Code:

rem ============================================================================
rem         Lire l'heure
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    dim_local t$
    width 0,700: height 0,800
    alpha 1 : top 1,10 : left 1,250 : font_bold 1 : font_size 1,18
    caption 1,"LIRE L'HEURE"  : application_title "Lire l'heure"
    alpha 2 : top 2,50 : left 2,100 : font_bold 2 : font_size 2,12
    t$ = "C'est le matin. Il n'est pas encore midi." + chr$(13)
    t$ = t$ + "Quelle heure est-il ? (sous la forme 00 h 00 mn)"
    caption 2,t$
    picture 10 : full_space 10 : width 10 ,620 : height 10,650
    top 10,100 : left 10,40 : 2d_target_is 10 : print_target_is 10 : font_size 10,28
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local a,i,x,y,h1,h2,l1,l2,heure,minutes,nh,nmn,rep$,t$,h$,m$,l,ok
    repeat
       ok = 0
       2d_pen_width 1
       2d_fill_on : 2d_fill_color 255,255,255 : 2d_rectangle 0,0,620,620
       2d_fill_color 0,255,255 : 2d_pen_color 0,255,255 : 2d_circle 310,310,300
       2d_fill_color 0,000,255 : 2d_pen_color 0,000,255 : 2d_circle 310,310,290
       2d_fill_color 0,255,255 : 2d_pen_color 0,255,255 : 2d_circle 310,310,285
       2d_fill_color 0,000,255 : 2d_pen_color 0,000,255 : 2d_circle 310,310,20
       2d_pen_color 0,0,0
       for i = -90 to 270 step 6
           x = pi*i/180
           h1 = int(sin(x)*220) : l1 = int(cos(x)*220)
           h2 = int(sin(x)*200) : l2 = int(cos(x)*200)
           2d_line l1+310,h1+310,l2+310,h2+310
       next i
       2d_pen_width 3
       for i = -90 to 270 step 30
           x = pi*i/180
           h1 = int(sin(x)*220) : l1 = int(cos(x)*220)
           h2 = int(sin(x)*180) : l2 = int(cos(x)*180)
           2d_line l1+310,h1+310,l2+310,h2+310
       next i
       2d_fill_color 0,255,255
' Utiliser les chiffres arabes ou les chiffres romains
       x = pi*-90/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+290,h1+310 : print "12" : ' "XII"
       x = pi*-60/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+280,h1+310 : print "1" : ' "I"
       x = pi*-30/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+280,h1+300 : print "2" : ' "II"
       x = pi*0/180 : h1 = int(sin(x)*280)   : l1 = int(cos(x)*280)
       print_locate l1+270,h1+280 : print "3" : ' "III"
       x = pi*30/180 : h1 = int(sin(x)*280)  : l1 = int(cos(x)*280)
       print_locate l1+270,h1+260 : print "4" : ' "IV"
       x = pi*60/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+290,h1+260 : print "5" : ' "V"
       x = pi*90/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+300,h1+260 : print "6" : ' "VI"
       x = pi*120/180 : h1 = int(sin(x)*280) :l1 = int(cos(x)*280)
       print_locate l1+310,h1+260 : print "7" : ' "VII"
       x = pi*150/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+320,h1+270 : print "8" : ' "VIII"
       x = pi*180/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+320,h1+280 : print "9" : ' "IX"
       x = pi*210/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+310+2,h1+300 : print "10" : ' "X"
       x = pi*240/180 : h1 = int(sin(x)*280) : l1 = int(cos(x)*280)
       print_locate l1+300+5,h1+305+3 : print "11" : ' "XI"
       2d_pen_color 0,0,255 : 2d_pen_width 15
       heure = int(rnd(11)) : minutes = int(rnd(59))
       nh = heure + (minutes/60) : nh =-90 + (nh*30)
       x = pi*nh/180 : h1 = int(sin(x)*120) : l1 = int(cos(x)*120)
       2d_line 310,310,l1+310,h1+310
       2d_pen_width 10
       nmn = -90+(minutes*6) : x = pi*nmn/180
       h1 = int(sin(x)*220) : l1 = int(cos(x)*220) : 2d_line 310,310,l1+310,h1+310
       2d_fill_color 0,255,255 : 2d_pen_color 0,255,255 : 2d_circle 310,310,2
       while ok = 0
         repeat
            rep$ = message_input$("Lecture de l'heure","Quelle heure est-il (sous forme 00 h 00 mn ? ","")
         until len(rep$) > 4
         l = len(rep$) : i = instr(rep$," ")
         if i > 0
            h$ = left$(rep$,i-1) : rep$ = right$(rep$,l-i-2) : ok = 1
         else
            message "ERREUR !!!" + chr$(13) + "N'oubliez pas les espaces !" : ok = 0
         end_if
       end_while
       i = instr(rep$," ")
       if i > 0 then m$ = left$(rep$,i-1)
       if (numeric(m$) > 0)
          if (val(h$) = heure) and (val(m$) = minutes)
             t$ = " Bonne réponse" + chr$(13)
          else
             t$ = "Mauvaise réponse !" + chr$(13)
          end_if
       else
          t$ = "mauvaise réponse !" + chr$(13)
       end_if
       h$ = str$(heure) : m$ = str$(minutes)
       if len(h$) < 2 then h$ = "0" + h$
       if len(m$) < 2 then m$ = "0" + m$
       if minutes < 10 then : m$ = "0"+ str$(minutes) : else : m$ = str$(minutes)
       t$ = t$ + "Il est " + h$ +" h " + m$ + " mn" : message t$
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================


La suite c'est tout de suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 2:43

Code 5

Code:

rem ============================================================================
rem           Mesurer une pointe en mm
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,1250: height 0,350
    alpha 1 : top 1,10 : left 1,350 : font_bold 1 : font_size 1,18
    caption 1,"MESURE D'UNE POINTE EN mm" : application_title "Mesure d'une pointe"
    picture 10 : full_space 10 : width 10 ,1120 : height 10,220
    top 10,50 : left 10,50 : 2d_target_is 10 : print_target_is 10
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,18
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,d,d1,long,lg,lg1,cmm,mmm,rep$,t$
    repeat
       2d_fill_on : 2d_fill_color 0,0,255 : 2d_rectangle 0,0,1120,220
       2d_fill_color 255,255,255 : 2d_rectangle 10,10,1110,210
       2d_fill_color 0,0,0 : 2d_pen_color 0,0,0
       d = 100 : for i = 0 to 010 : d1 = d*i : 2d_rectangle 40+d1,90,42+d1,170 : next i
       d = 010 : for i = 0 to 110 : d1 = d*i : 2d_rectangle 40+d1,90,42+d1,110 : next i
       d = 050 : for i = 0 to 021 : d1 = d*i : 2d_rectangle 40+d1,90,42+d1,130 : next i
       2d_fill_color 255,255,255
       print_locate 45,150 : print "mm"
       print_locate 130,150 : print "1" : print_locate 230,150 : print "2"
       print_locate 330,150 : print "3" : print_locate 430,150 : print "4"
       print_locate 530,150 : print "5" : print_locate 630,150 : print "6"
       print_locate 730,150 : print "7" : print_locate 830,150 : print "8"
       print_locate 930,150 : print "9" : print_locate 1030,150 : print "10"
       long = int(rnd(98)+1) : lg = long*10+40 : lg1 = lg-20
       cmm = int(long/10) : mmm = mod(long,10)
       2d_pen_color 0,0,0 : 2d_poly_from 40,80
       2d_poly_to 45,80   : 2d_poly_to 45,70 : 2d_poly_to lg1,70 : 2d_poly_to lg,60
       2d_poly_to lg1,50  : 2d_poly_to 45,50 : 2d_poly_to 45,40  : 2d_poly_to 40,40
       2d_poly_to 40,80   : 2d_flood 42,75,0,0,0
       2d_pen_color 255,0,0 : 2d_line lg,60,lg,90 : 2d_line 40,80,40,90
       repeat
          rep$ = message_input$("Lecture d'une pointe","Quelle est, en mm, la longueur de la pointe ? ","")
       until numeric(rep$) > 0
       if val(rep$) = long
          t$ = "BRAVO ! "
       else
          t$ = "Erreur ! La pointe mesure " + str$(cmm) + " cm et " + str$(mmm) + " mm ou " + str$(long) + " mm"
       end_if
       t$ = t$ + chr$(13) + str$(cmm) + " cm et " + str$(mmm) + " mm soit : " + str$(long) + " mm"
        message t$
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================


La suite c'est tout de suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 3:16

Code 6


Code:

rem ============================================================================
rem         Combien dois-je payer ?
rem ============================================================================
Init()
Demarrer()
end
rem ============================================================================
SUB Init()
    width 0,1100: height 0,700 :left 0,130 : top 0,100
    alpha 1 : top 1,10 : left 1,250 : font_bold 1 : font_size 1,18
    caption 1,"COMBIEN DOIS-JE PAYER ?"  : application_title "Combien dois-je payer ?"
    picture 10 : full_space 10 : width 10,1000 : height 10,600
    top 10,50 : left 10,40 : 2d_target_is 10 : print_target_is 10 : font_size 10,28
    font_name 10,"arial": font_bold 10 : font_color 10,0,0,0 : font_size 10,14
END_SUB
rem ============================================================================
SUB Demarrer()
    dim_local i,x,y,h1,h2,l1,l2,nb,nb1,brep,tarifa$,tarifb$,comment$,rep$,prix$,t$
    repeat
       2d_fill_on : 2d_fill_color 0,0,128 : 2d_rectangle 0,0,1000,600
       2d_fill_color 255,255,255 : 2d_rectangle 650,50,950,120
       2d_fill_color 255,255,0 : 2d_rectangle 650,150,950,450
       2d_fill_color 255,255,255
       print_locate 710,55 : print "Tarifs postaux"
       print_locate 670,80 : print "France Métropolitaine"
       2d_fill_color 0,255,255 : 2d_rectangle 650,120,950,170
       print_locate 670,130 : print "Poids jusqu'à"
       print_locate 850,130 : print "Tarifs"
       2d_fill_color 255,255,0
       print_locate 770,180 : print "20 g "
       print_locate 870,180 : print "0.76 € "
       print_locate 770,210 : print "50 g "
       print_locate 870,210 : print "1.25 € "
       print_locate 870,240 : print "1.90 € "
       print_locate 870,270 : print "3.05 € "
       print_locate 870,300 : print "4.10 € "
       print_locate 870,330 : print "5.35 € "
       print_locate 870,360 : print "6.80 €"
       print_locate 870,390 : print "7.30 € "
       print_locate 760,240 : print "100 g "
       print_locate 760,270 : print "250 g "
       print_locate 760,300 : print "500 g "
       print_locate 750,330 : print "1000 g "
       print_locate 750,360 : print "2000 g "
       print_locate 750,390 : print "3000 g "
       2d_pen_color 0,0,0 : 2d_poly_from 107,127
       2d_poly_to 493,127 : 2d_poly_to 593,573 : 2d_poly_to 17,573 : 2d_poly_to 107,127
       2d_flood 493,130,0,0,0
       2d_poly_from 110,130
       2d_poly_to 490,130 : 2d_poly_to 590,570 : 2d_poly_to 20,570 : 2d_poly_to 110,130
       2d_flood 490,135,0,255,255
       2d_fill_color 0,128,0 : 2d_pen_color 0,128,0 : 2d_rectangle 195,20,395,80
       2d_pen_width 8
       2d_pen_color 255,0,0 : 2d_line 195,50,395,50 : 2d_line 295,20,295,80
       2d_line 295,20,280,5 : 2d_line 295,20,310,5
       2d_fill_color 128,0,128 : 2d_pen_color 128,0,128 : 2d_rectangle 145,80,445,100
       2d_fill_color 0,128,128 : 2d_pen_color 0,128,128 : 2d_rectangle 150,570,200,600
       2d_rectangle 410,570,460,600 : 2d_rectangle 220,100,370,130
       2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 : 2d_circle 300,350,202
       2d_fill_color 255,255,255 : 2d_pen_color 255,255,255 : 2d_circle 300,350,200
       2d_fill_color 0,0,255 : 2d_pen_color 0,0,255 : 2d_circle 300,350,10
       2d_pen_color 0,0,0 : 2d_pen_width 1
       for i = -90 to 270 step 3.6
           x = pi*i/180
           h1 = int(sin(x)*130) : l1 = int(cos(x)*130)
           h2 = int(sin(x)*120) : l2 = int(cos(x)*120)
           2d_line l1+300,h1+350,l2+300,h2+350
       next i
       2d_pen_width 3
       for i = -90 to 270 step 18
           x = pi*i/180
           h1 = int(sin(x)*140) : l1 = int(cos(x)*140)
           h2 = int(sin(x)*120) : l2 = int(cos(x)*120)
           2d_line l1+300,h1+350,l2+300,h2+350
       next i
       2d_fill_color 255,255,255
       x = pi*-90/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+295,h1+350 : print "0"
       x = pi*0/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+270,h1+335 : print "250"
       x = pi*90/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+285,h1+330 : print "500"
       x = pi*180/180 : h1 = int(sin(x)*180) : l1 = int(cos(x)*180)
       print_locate l1+295,h1+335 : print "750"
       x = pi*-72/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+350 : print "50g"
       x = pi*-54/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+350 : print "100"
       x = pi*-36/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+345 : print "150"
       x = pi*-18/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "200"
       x = pi*18/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "300"
       x = pi*36/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "350"
       x = pi*54/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "400"
       x = pi*72/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "450"
       x = pi*108/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "550"
       x = pi*126/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "600"
       x = pi*144/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "650"
       x = pi*162/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "700"
       x = pi*198/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "800"
       x = pi*216/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "850"
       x = pi*234/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "900"
       x = pi*252/180 : h1 = int(sin(x)*160) : l1 = int(cos(x)*160)
       print_locate l1+290,h1+340 : print "950"
       nb = int(rnd(99)+1) : brep = nb*10 : nb1 = nb -125 : nb1 = int(nb1*3.6)
       2d_pen_color 0,0,255 : 2d_pen_width 5
       x = pi*nb1/180 : h1 = int(sin(x)*120) : l1 = int(cos(x)*120)
       2d_line 300,350,l1+300,h1+350
       if brep > 000 then tarifa$ = "0.76" : tarifb$ = "0,76" : comment$ = "C'est inférieur à 20 g"
       if brep > 020 then tarifa$ = "1.25" : tarifb$ = "1,25" : comment$ = "C'est entre 20 g et 50 g"
       if brep > 050 then tarifa$ = "1.90" : tarifb$ = "1,90" : comment$ = "C'est entre 50 g et 100 g"
       if brep > 100 then tarifa$ = "3.05" : tarifb$ = "3,05" : comment$ = "C'est entre 100 g et 250 g"
       if brep > 250 then tarifa$ = "4.10" : tarifb$ = "4,10" : comment$ = "C'est entre 250 g et 500 g"
       if brep > 500 then tarifa$ = "5.35" : tarifb$ = "5,35" : comment$ = "C'est entre 500 g et 1000 g"
       repeat
           rep$ = message_input$("A la poste","Combien dois-je payer ? ","")
       until numeric(rep$) > 0
       prix$ = rep$
       if len(prix$) = 3 then prix$ = prix$ + "0"
       if prix$ = tarifa$ or prix$ = tarifb$
          t$ = "C'est bon !"
       else
          t$ = "Erreur !"
       end_if
       t$ = t$ + chr$(13) + "Ce colis pèse " + str$(brep) + " g"
       t$ = t$ + chr$(13) + comment$ + chr$(13)
       t$ = t$ + "On doit donc payer " + tarifb$ + " €."
       message t$
    until message_information_yes_no("Une autre lecture ?") <> 1
    terminate
END_SUB
rem ============================================================================


Fin de la série. sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 8:48

Merci Papydall pour cette compilation Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 15:46

Il n'y a pas de quoi, Jicehel.
Merci à toi d'avoir regardé mes codes.Razz
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1086
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 17:08

Bonjour à tous! Smile
Merci Papydall pour ces codes! Mes filles vont certainement s'en servir dès qu'elles rentrent de l'école!
A+ Wink  Wink  Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   Mar 8 Déc 2015 - 18:28

Merci bignono.
Plein  de bisous à tes filles !  I love you
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Pour mes petits-enfants et pour les vôtres   

Revenir en haut Aller en bas
 
Pour mes petits-enfants et pour les vôtres
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Pour mes petits-enfants et pour les vôtres
» bannière pour mon site ( première animation)
» GPS Garmin pour Maroc
» Cartes gratuites pour GPSMap 62S ?
» Idéo ? Pour moi, c'est reparti pour un an

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: