| Mai 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | 1 | 2 | 3 | 4 | 5 | | 6 | 7 | 8 | 9 | 10 | 11 | 12 | | 13 | 14 | 15 | 16 | 17 | 18 | 19 | | 20 | 21 | 22 | 23 | 24 | 25 | 26 | | 27 | 28 | 29 | 30 | 31 | | |  Calendrier |
|
| | | Joyeux Noël à tous ! |  |
|
+5JL35 jjn4 papydall Yannick Marc 9 participants | | Auteur | Message |
|---|
Marc
Nombre de messages : 2397
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Joyeux Noël à tous ! Dim 24 Déc 2017 - 9:41 | |
| | |
| | | | Yannick
Nombre de messages : 8611
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Dim 24 Déc 2017 - 13:58 | |
| Je me joins à toi pour souhaiter à tous les Panoramiciens de joyeuses fêtes.  | |
| | | | papydall
Nombre de messages : 7009
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 14:12 | |
| Salut tout le monde. Je profite d’une légère amélioration de ma santé physique (le mental est toujours au beau fixe, Dieu merci !) pour vous souhaiter un joyeux Noël. Lancez le code suivant, et … Cliquez sur Démarrer (en bas à droite) puis cliquez sur Vois-la vidéo. Quand vous en avez assez, cliquez sur Retour (en bas à gauche) et pour tout quitter, cliquez sur le cadre bleu. Bon, je retourne défier ma maladie. - Code:
-
rem ============================================================================
rem Le père Noël
rem ============================================================================
Demarrer()
end
rem ============================================================================
SUB Demarrer()
label clic
dim f$
full_space 0 : color 0,0,0,255 : caption 0," Le père Noël"
Alpha 8 : top 8,10 : left 8,400 : font_bold 8 : font_size 8,24 : font_color 8,0,255,255
on_click 0,clic
f$ = "http://ekladata.com/4XIHMbP2PhFNIKpY6IIBVNclBcw/compte-rebour-noel-2017.swf"
dll_on "kgf.dll" : ' Adapter le chemin de la DLL
caption 8,"Veuillez patienter, chargement en cours ..."
HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
caption 8," Pour quitter cliquez sur ce cadre bleu"
END_SUB
rem ============================================================================
Clic:
terminate
return
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 ============================================================================
REM : le programme utilise KGF.DLL (merci à Klaus). Adapter la ligne 17 | |
| | | | jjn4
Nombre de messages : 2709
Date d'inscription : 13/09/2009
| | Sujet: +++ Dim 24 Déc 2017 - 14:29 | |
| Bon Noël et bonnes fêtes à tous !!!    @papydall : Magnifique ! Bravo encore ! Soigne-toi bien et bonne santé pour 2018 !  Et pour ceux qui s'ennuieraient, je vous publie à l'avance le jeu promis pour demain. Amusez-vous bien !!!   | |
| | | | papydall
Nombre de messages : 7009
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 14:41 | |
| Merci JJN4 Joyeux Noël et bonne santé à toi et à tous ceux qui te sont chers. Voici un cadeau pour toi, mais tu peux le partager avec tous nos amis Panoramiciens. - Code:
-
rem ============================================================================
rem Animation : Chevaux
rem ============================================================================
Demarrer()
end
rem ============================================================================
SUB Demarrer()
label clic
dim f$
full_space 0 : color 0,0,0,255 : caption 0,"Animation : Chevaux"
Alpha 10 : top 10,10 : left 10,100 : font_bold 10 : font_size 10,24 : font_color 10,0,255,255
on_click 0,clic
f$ = "http://www.gratilog.net/animations/Chevaux.swf"
dll_on "kgf.dll" : ' Adapter le chemin de la DLL
caption 10,"Veuillez patienter, chargement en cours ..."
HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
caption 10,"Cliquez puis re-cliquez sur les chevaux.... Pour quitter cliquez sur ce cadre bleu"
END_SUB
rem ============================================================================
Clic:
terminate
return
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 ============================================================================
| |
| | | | JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 14:49 | |
| Joyeux Noël à vous tous, les amis !  | |
| | | | papydall
Nombre de messages : 7009
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 15:20 | |
| - Code:
-
rem ============================================================================
rem Le père Noël
rem ============================================================================
Demarrer()
end
rem ============================================================================
SUB Demarrer()
label clic
dim f$
full_space 0 : color 0,0,0,255 : caption 0," Le père Noël"
Alpha 8 : top 8,10 : left 8,400 : font_bold 8 : font_size 8,24 : font_color 8,0,255,255
on_click 0,clic
f$ = "https://ahp.li/37b02758e08032ce1ebe.swf"
dll_on "kgf.dll" : ' Adapter le chemin de la DLL
caption 8,"Veuillez patienter, chargement en cours ..."
HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
caption 8," Pour quitter cliquez sur ce cadre bleu"
END_SUB
rem ============================================================================
Clic:
terminate
return
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 ============================================================================
| |
| | | | JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 15:51 | |
| Joli tout ça papydall ! Bon courage à toi, tous mes voeux et... Bon Noël ! | |
| | | | Jack
Admin
Nombre de messages : 2386
Date d'inscription : 28/05/2007
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 15:58 | |
| Joyeux Noël à tous !
Et bon courage à papydall. _________________  username : panoramic@jack-panoramic password : panoramic123 | |
| | | | JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 16:08 | |
| Joyeux Noël à toi Jack, et encore merci pour tout ! | |
| | | | jjn4
Nombre de messages : 2709
Date d'inscription : 13/09/2009
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 16:19 | |
| | |
| | | | papydall
Nombre de messages : 7009
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 16:31 | |
| Merci JJN4. Merci JL35, Merci Jack. Merci à tous. Et un cadeau pour les autres - Code:
-
rem ============================================================================
rem Musique de Fripouyette
rem ============================================================================
Demarrer()
end
rem ============================================================================
SUB Demarrer()
label clic
dim f$
full_space 0 : color 0,0,0,255 : caption 0,"Musique de Fripouyette"
Alpha 8 : top 8,10 : left 8,400 : font_bold 8 : font_size 8,24 : font_color 8,0,255,255
on_click 0,clic
f$ = "http://www.fripouyette.com/musique.swf"
dll_on "kgf.dll" : ' Adapter le chemin de la DLL
caption 8,"Veuillez patienter, chargement en cours ..."
HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
caption 8," Pour quitter cliquez sur ce cadre bleu"
END_SUB
rem ============================================================================
Clic:
terminate
return
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 ============================================================================
| |
| | | | Oscaribout
Nombre de messages : 471
Date d'inscription : 29/12/2016
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 16:43 | |
| A mon tour je vous souhaite de joyeuses fêtes de Noël et de fin d'année. | |
| | | | RMont
Nombre de messages : 233
Age : 81
Localisation : charente maritime
Date d'inscription : 29/12/2008
| | Sujet: Re: Joyeux Noël à tous ! Dim 24 Déc 2017 - 17:59 | |
| bonjour a tous. de passage sur le forum ,je vous souhaite un bon et joyeux Noel. | |
| | | | Minibug
Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Joyeux Noël à tous ! Lun 25 Déc 2017 - 0:48 | |
| Joyaux noël à tous ! Tiens bon Papydall, bon rétablissement...  | |
| | | | Contenu sponsorisé
| | Sujet: Re: Joyeux Noël à tous ! | |
| |
| | | | | | Joyeux Noël à tous ! | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
