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
» Planétarium virtuel.
par Pedro Alvarez Sam 21 Juil 2018 - 16:57

» Roues dentées
par jean_debord Sam 21 Juil 2018 - 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Joyeux Noël à tous !

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 803
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

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

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

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 24 Déc 2017 - 13: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 : 5980
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 - 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Dim 24 Déc 2017 - 14: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 : 5980
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 - 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 ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

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



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

MessageSujet: 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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jack
Admin
avatar

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

MessageSujet: 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.free-boards.net
JL35



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

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 16: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 : 1761
Date d'inscription : 13/09/2009

MessageSujet: Re: Joyeux Noël à tous !   Dim 24 Déc 2017 - 16: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 : 5980
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: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 : 173
Date d'inscription : 29/12/2016

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



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

MessageSujet: 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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

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

MessageSujet: Re: Joyeux Noël à tous !   Lun 25 Déc 2017 - 0: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 !
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: