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
» Gestionnaire de Projets Panoramic
par Minibug Aujourd'hui à 2:10

» Mah-Jong européen new-look
par jjn4 Hier à 16:35

» Button_picture
par pascal10000 Hier à 11:41

» Pourquoi le compilateur stagne
par Minibug Hier à 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Hier à 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Hier à 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Hier à 10:00

» KGF_dll - nouvelles versions
par pascal10000 Mer 13 Déc 2017 - 17:27

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Mystère avec la beauté fractale !

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

avatar

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

MessageSujet: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 2:59

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 3:20

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

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

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 3:33

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 3:42

Bizarre. Chez moi, ça marche parfaitement. La première fois, il faut attendre quelques instants -d'ailleurs, une barre de progression s'affiche:

Lorsqu'elle arrive au bout, l'image suivante apparaît:


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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

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

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 4:00

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:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 4:15

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

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

MessageSujet: re   Jeu 16 Mar 2017 - 5: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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 5:25

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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 11:08

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...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

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

MessageSujet: Re: Mystère avec la beauté fractale !   Jeu 16 Mar 2017 - 14:32

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Mystère avec la beauté fractale !   

Revenir en haut Aller en bas
 
Mystère avec la beauté fractale !
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Accordéon acoustique avec prise mystérieuse
» j ai des souci , je debute depuis ce jour avec linux fedora
» Lecture video interrompue avec mise en tampon
» probleme avec les cellules d'excel sur la mise en forme
» [Résolu]Mis a jour impossible avec Antivir

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: