Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

»  Exemple de menu
Lun 26 Juin - 22:36 par Admin

Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendrier Calendrier


La beauté des fractales

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

La beauté des fractales

Message par Admin le Dim 11 Juin - 2:52

Code:

rem ============================================================================
rem                   La beauté des fractales
rem ============================================================================
rem  Je tiens à remercier Gerard35 pour son beau travail
rem ============================================================================
label terminer
dim f$
full_space 0 : color 0,0,0,255 : caption 0,"LA BEAUTE DES FRACTALES"
Alpha 10 : top 10,10 : left 10,20 : font_bold 10 : font_size 10,24 : font_color 10,0,255,255
caption 10,"Veuillez patienter, chargement en cours ... Pour sortir cliquez sur ce cadre bleu"
Alpha 20 : top 20,height(0)-100 : left 20,20 : font_bold 20 : font_size 20,24 : font_color 20,0,255,255
caption 20,"Si vous ne pouvez pas changer de fractale, cliquez sur le cadre bleu et ré-exécuter le programme"
on_click 0,terminer
dll_on "kgf.dll" : ' Adapter le chemin de la DLL
f$ = "http://serveur1.archive-host.com/membres/up/1773583014/mes_animations/diapo_jwf.swf"
HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
end
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 ============================================================================
Terminer:
    terminate
rem ============================================================================

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

Messages : 66
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

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

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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