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
» StratégoV8 et V9
par Minibug Aujourd'hui à 21:47

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 21:28

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

» Mah-Jong américain
par Jean Claude Hier à 19:37

» Problème avec Deepl
par Klaus Hier à 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

» HVIEWER
par Klaus Mer 10 Jan 2018 - 2:06

» 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

» Bonne fêtes de fin d'année ! Meilleurs Vœux 2018 !
par Jicehel Jeu 4 Jan 2018 - 17:28

» Mah-Jong international
par jjn4 Jeu 4 Jan 2018 - 16:55

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 | 
 

 Joyeux Noël à tous !

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



Nombre de messages : 582
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Joyeux Noël à tous !   Dim 24 Déc 2017 - 11:41

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Dim 24 Déc 2017 - 15:58

Je me joins à toi pour souhaiter à tous les Panoramiciens
de joyeuses fêtes.

santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 16: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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

Nombre de messages : 1656
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 24 Déc 2017 - 16:29

Bon Noël et bonnes fêtes à tous !!!
drunken jocolor cherry santa
@papydall :
Magnifique ! Bravo encore !
Soigne-toi bien
et bonne santé pour 2018 !
cheers cheers cheers
Et pour ceux qui s'ennuieraient,
je vous publie à l'avance
le jeu promis pour demain.
Amusez-vous bien !!!
jocolor alien geek cherry santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

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

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 16: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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 6069
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 16:49

Joyeux Noël à vous tous, les amis !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 17: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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 6069
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 17:51

Joli tout ça papydall ! Bon courage à toi, tous mes voeux et... Bon Noël !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jack
Admin
avatar

Nombre de messages : 1779
Date d'inscription : 28/05/2007

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 17:58

Joyeux Noël à tous !
Et bon courage à papydall.

_________________
username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.free-boards.net
JL35



Nombre de messages : 6069
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 18:08

Joyeux Noël à toi Jack, et encore merci pour tout !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1656
Date d'inscription : 13/09/2009

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 18:19

Beaux cadeaux de Noël, papydall !
Le chœur des chevaux est tordant !
Laughing alien Laughing
santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

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

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 18: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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Oscaribout



Nombre de messages : 83
Date d'inscription : 29/12/2016

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 18:43

A mon tour je vous souhaite de joyeuses fêtes de Noël et de fin d'année.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 190
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 19:59

bonjour a tous.
de passage sur le forum ,je vous souhaite un bon et joyeux Noel.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2479
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Joyeux Noël à tous !   Lun 25 Déc 2017 - 2:48

Joyaux noël à tous ! cheers

Tiens bon Papydall, bon rétablissement... sunny
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Contenu sponsorisé




MessageSujet: Re: Joyeux Noël à tous !   

Revenir en haut Aller en bas
 
Joyeux Noël à tous !
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Joyeux Noël à Tous !!!
» UN TRES BON LUNDI DE PAQUES A VOUS TOUS
» bonjour a toutes et tous
» Décocher tous les radiobutton ?
» bonjour à tous

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage-
Sauter vers: