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
» GRID_LOAD
par Jean Claude Aujourd'hui à 21:04

» Rotation d'une image d'un angle quelconque
par Jean Claude Aujourd'hui à 20:57

» HVIEWER
par Yannick Aujourd'hui à 20:31

» StratégoV8 et V9
par Jean Claude Aujourd'hui à 20:13

» KGF_dll - nouvelles versions
par Klaus Hier à 21:28

» Déformation d'image en trapèze
par mindstorm Hier à 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 La beauté des fractales

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

avatar

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

MessageSujet: La beauté des fractales   Lun 4 Mai 2015 - 3:45

Salut tout le monde

Chargez et exécuter le programme suivant.
Veuillez patienter, le téléchargement peut durer quelques secondes.
Une fois la page affichée, cliquez sur l’une des 20 fractales proposées.
Si la fractale ne s’affiche pas (c’est toujours comme ça la 1ère fois : mystère !) cliquez sur le cadre en bleu et ré-exécuter le programme une seconde fois : Cette fois ça ira beaucoup plus vite et les 20 fractales seront disponibles.

Vous devez disposer de KGF.DLL et n'oubliez pas d'adapter son chemin.

Code:
rem ============================================================================
rem                   La beauté des fractales
rem ============================================================================
rem  Je tiens à remercier Gerard35 pour son beau travail
rem ============================================================================
label terminer
dim f$,fin%
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 "c:\users\acer\desktop\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:
    fin% = dll_call1("KillProcessByHandle",handle(0))
rem ============================================================================

Bon divertissement !

PS : c’est un vrai mystère : il faut toujours relancer le programme deux fois : la 1ère pour  télécharger les images, la seconde pour les admirer.

Si tout se passe comme il se doit, vous risquez d'admirer quelque chose comme :
ceci:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: La beauté des fractales   Lun 4 Mai 2015 - 8:59

oui, il faut charger fermer et relancer mais c'est très beau.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mindstorm

avatar

Nombre de messages : 545
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: La beauté des fractales   Lun 4 Mai 2015 - 19:59

Papydall
je crois que tu vas avoir du mal a faire mieux
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8011
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 4 Mai 2015 - 20:08

C' est
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: La beauté des fractales   

Revenir en haut Aller en bas
 
La beauté des fractales
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Loto Beauté loulou - 10 décembre
» fractales de Juin
» fractales de Mai
» fractales de Mai
» fractales d'Avril

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: