Mystère avec la beauté fractale !

Salut tout le monde.

Pourquoi il faut TOUJOURS lancer le programme suivant deux fois de suite pour qu’il s’exécute ?
Remarque :
La 1ère fois, le programme se contente de charger les fractales (durée 20s environ) mais ne réagit pas aux clicks de la souris.
La seconde fois, le chargement est immédiat et les clicks sont pris en considérations.
La 3ème fois est identique à la 1ère.
La 4ème fois se comporte comme la seconde.
Etc.
Ça marche toujours par deux !
Avez-vous une explication à ce mystère ?

Voici le code et n’oubliez pas d’adapter le chemin de KGF.DLL en ligne 14

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 ============================================================================

La solution consiste à attendre un peu après avoir chargé le fichier dans le WebBrowser et avant de le supprimer:

Code:: 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$))
pause 1000
file_delete "flash.html"
END_SUB

Tu supprimais le fichier avant que le WebBrowser n'ai pu finir son chargement...

Les graphismes sont superbes !

Merci Klaus pour ta réponse, mais ça ne marche pas chez moi, même si j’augmente la pause ou si je mets en REM la ligne file_delete "flash.html".
Il me faut lancer une seconde fois le programme Crying or Very sad

Bizarre. Chez moi, ça marche parfaitement. La première fois, il faut attendre quelques instants -d'ailleurs, une barre de progression s'affiche:
$Mystère avec la beauté fractale ! Aa112$
Lorsqu'elle arrive au bout, l'image suivante apparaît:
$Mystère avec la beauté fractale ! Aa210$

Effectivement, pendant le chargement, le clic est inactif, car le WebBrowser monopolise le système pour le chargement. Mais ensuite, tout rentre dans l'ordre, et ce dès le premier lancement.

Je ne parle pas du clic pendant le chargement, mais après l’affichage de la barre de progression et l’affichage de l’image, tout clic sur les boutons fractale 0 à fractale19 reste inactif.
Ce n’est qu’au deuxième lancement du programme que je peux visualiser les différentes fractales.

fractale 0:

fractale 1:

fractale 19:

Ben oui, j'avais bien compris, mais chez moi, dès le premier lancement, du moment que la première page est affichée, je êux cliquer sur tous les boutons et cea réagit - j'obtiens les différents graphismes. Je ne sais pas du tout d'où vient ton problème. Et je précise que ces derniers mois, aucun changement n'est intervenu dans les fonctions de gestion du WebBrowser.

Sujet: re $Mystère avec la beauté fractale ! Empty$ Jeu 16 Mar 2017 - 3:21

Il a fallu que je relance le programme mais bon...
...je vois que la solution est en chemin.
Laughing

Perso, j' adore la 5
Laughing

Je n’arrive pas à comprendre pourquoi ce comportement chez moi.
Pourtant un autre programme similaire fonctionne du 1er coup !

Code:: rem ============================================================================
rem Jukbox
rem ============================================================================
rem Je tiens à remercier Marlou12 pour son beau travail
rem ============================================================================
label terminer
dim f$
full_space 0 : color 0,0,0,255 : caption 0,"Serge Reggiani"
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)-80 : left 20,400 : font_bold 20 : font_size 20,24 : font_color 20,0,255,255
caption 20,"Cliquez sur ON, puis sur A ... J"

on_click 0,terminer
dll_on "kgf.dll" : ' Adapter le chemin de la DLL

f$ = "http://www.animsite.fr/site/marlene10/jukebox/jukebox.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 ============================================================================

Nouveaux essais ce matin:
j'arrive à reproduire ton problème. Mais ça n'arrive pas toujours...

Cela arrive si je lance le programme juste après avoir chargé une page dans Firefox. Alors la barre de défilement passe lentement de 0 à 100 % avant d'afficher l'écran initial. Puis, on peut déplacer la souris qui change de forme en passant sur un des boutons, mais ces boutons ne réagissent pas au clic. Au secin lancement, la barre de défilement s'arrête après 1 %, le programme affiche directement la première image, et tout est réactif.

Je n'ai pas d'explication pour ce phénomène, d'autant que la même technique fonctionne dans un autre programme...

Merci Klaus pour tes essais.
Tu as décrit parfaitement ce que j’obtiens moi-même.
Ça arrive systématiquement chez moi, même si je suis hors connexion.

» Encore un mystère, mais avec les opérations
» La beauté des nombres
» Mystère sur file_find_first$ et compagnie
» Mystère: la commande "caption" ne marche plus?!
» Encore une fractale de Mandelbrot.