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

Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendrier Calendrier


La beauté des fractales

Aller en bas

La beauté des fractales

Message par Papydall-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
Papydall-Admin
Admin

Messages : 94
Réputation : 0
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

Revenir en haut

- Sujets similaires

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