Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Novembre 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  

Calendrier Calendrier


Animations pour les Mathématiques

Aller en bas

Animations pour les Mathématiques

Message par Papydall-Admin le Ven 23 Fév - 16:57

Code:
rem ============================================================================
rem        Animations pour les Mathématiques         
rem ============================================================================

Init()
Choix()

end
rem ============================================================================
SUB Init()
    label clic,choix
    dim url$,f$
    full_space 0 : color 0,0,0,255 : caption 0,"Animation maths"
    Alpha 8 : top 8,10 : left 8,400 : font_bold 8 : font_size 8,24 : font_color 8,0,255,255
    on_click 0,choix
    url$ = "http://mslp.ac-dijon.fr/_fichiers/animations/maths/flash/"
    dll_on "kgf.dll" : ' Adapter le chemin de la DLL
END_SUB
rem ============================================================================
SUB Choix()
    dim_local i
    form 1 : full_space 1 : command_target_is 1 : color 1,250,150,50
    for i = 10 to 260 step 10
        option i : top i, i*2.5 : left i,100 : font_bold i : font_size i,12
        width i,800 : height i,30 : font_name i,"tahoma" : font_color i,0,0,255
        on_click i,clic
    next i
    button 5 : top 5,height(1)-100 : left 5,width(1)-200 : font_bold 5 : caption 5,"Quitter"
    on_click 5,clic
    caption 010,"Utilisation du Rapporteur."
    caption 020,"La Symétrie Centrale."
    caption 030,"La Symétrie Axiale."
    caption 040,"Tracer un Cercle."
    caption 050,"Construire la perpendiculaire à une droite passant par un point (à l’équerre)."
    caption 060,"Construire la perpendiculaire à une droite passant par un point (au compas)."
    caption 070,"Tracer la Bissectrice d’un angle au compas."
    caption 080,"Tracer la Bissectrice d’un angle au compas."
    caption 090,"Tracer la Médiatrice d’un segment au compas."
    caption 100,"Tracer la Médiatrice d’un segment au compas."
    caption 110,"Construire un Triangle Isocèle."
    caption 120,"Construire un Triangle Équilatéral."
    caption 130,"Construire le Projeté d’un point sur une Droite perpendiculairement à une autre Droite."
    caption 140,"Compléter un Parallélogramme connaissant 2 côtés consécutifs."
    caption 150,"Propriété de Thalès. (1)"
    caption 160,"Propriété de Thalès. (2)"
    caption 170,"Développer a * (b + c)"
    caption 180,"Développer (a+b) * (c + d)"
    caption 190,"Aire d’un Rectangle."
    caption 200,"Aire d’un Parallélogramme."
    caption 210,"Aire d’un Trapèze."
    caption 220,"Aire d’un Triangle. (1)"
    caption 230,"Aire d’un Triangle. (2)"
    caption 240,"Le Camembert d’Archimède."
    caption 250,"Théorème de Pythagore."
    caption 260,"Le Théorème de Thalès."
END_SUB
rem ============================================================================
Choix:
  show 1
return
rem ============================================================================
Clic:
    select number_click
        case 005 : terminate
        case 010 : f$ = url$ + "01_Rapporteur.swf"
        case 020 : f$ = url$ + "02_Symetrie_Centrale.swf"
        case 030 : f$ = url$ + "03_Symetrie_Axiale.swf"
        case 040 : f$ = url$ + "04_Cercle_4.swf"
        case 050 : f$ = url$ + "05_Perpend_Equerre.swf"
        case 060 : f$ = url$ + "06_Perpend_Compas.swf"
        case 070 : f$ = url$ + "07a_Bissectrice.swf"
        case 080 : f$ = url$ + "07b_Bissectrice.swf"
        case 090 : f$ = url$ + "08a_Mediatrice.swf"
        case 100 : f$ = url$ + "08b_Mediatrice.swf"
        case 110 : f$ = url$ + "09_Triangle_Iso.swf"
        case 120 : f$ = url$ + "10_Triangle_Equil.swf"
        case 130 : f$ = url$ + "11_Projete_Point.swf"
        case 140 : f$ = url$ + "12_Parallelogramme.swf"
        case 150 : f$ = url$ + "Ppte_Thales_1.swf"
        case 160 : f$ = url$ + "Ppte_Thales_2.swf"
        case 170 : f$ = url$ + "Develop_1x2.swf"
        case 180 : f$ = url$ + "Develop_2x2.swf"
        case 190 : f$ = url$ + "Aire1_Rectangle.swf"
        case 200 : f$ = url$ + "Aire2_Parallelogramme.swf"
        case 210 : f$ = url$ + "Aire3_Trapeze.swf"
        case 220 : f$ = url$ + "Aire4_Triangle1.swf"
        case 230 : f$ = url$ + "Aire4_Triangle2.swf"
        case 240 : f$ = url$ + "H_Archimede.swf"
        case 250 : f$ = url$ + "H_Pythagore.swf"
        case 260 : f$ = url$ + "H_Thales.swf"
       
       
    end_select
    hide 1
    caption 8,"Veuillez patienter, chargement en cours ..."
    HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
    caption 8," Pour revenir aux choix cliquez sur ce cadre bleu"
return
rem ============================================================================

rem ============================================================================
SUB HTML_In_PANORAMIC(Flash$,xo,yo,larg,haut)
    dim_local hnd%, res%, url$, q$, WB1%
    q$ = chr$(34)
    file_open_write 9999,"flash.html"
    file_writeln 9999,"<embed src='"+Flash$+"'"+q$+" width="+q$+str$(larg)+q$+" height="+q$+str$(haut)+q$+">"
    file_close 9999
    hnd% = handle(0)
    url$ = "file://" + dir_current$ + "/flash.html"
    WB1% = dll_call1("WB_Create",hnd%)
    res% = dll_call5("WB_Locate",WB1%,xo,yo,larg+50,haut+50)
    res% = dll_call2("WB_Url",WB1%,adr(url$))
    file_delete "flash.html"
END_SUB
rem ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 68
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum