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
» Mac OS X sierra
par Irikte Aujourd'hui à 11:38

» Concours de Morpions
par Froggy One Aujourd'hui à 10:29

» Synedit Parameters
par Jean Claude Aujourd'hui à 10:08

» Bienvenue à Irikte
par UltraVox Aujourd'hui à 10:04

» Recherche de traductions de mots (@Klaus).
par Klaus Aujourd'hui à 9:44

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 22:52

» Panoramic et ses curiosités
par Jack Hier à 8:15

» Utilitaire de suppression de fichiers
par Yannick Ven 23 Juin 2017 - 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Au clair de la lune

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

avatar

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

MessageSujet: Au clair de la lune   Mer 11 Mar 2015 - 6:00

Le Forum est terriblement silencieux ces derniers jours et ça me fait peur !
Essayant de briser ce silence trop lourd, vous trouvez sur mon webdav un zip assez lourd (22.3 MB).
C’est Au_clair_de_la_lune.zip qui contient :

• Au_clair_de_la_lune.bas
• Au_clair_de_la_lune.exe
• Au_clair_de_la_lune.wav
• Lune1_d.bmp
• Lune1_g.bmp
• Lune2_d.bmp
• Lune2_g.bmp

Je l’ai fais pour ma petite-fille, mais j’aime bien le partager avec vous.
Alors, si ça vous dit de retrouver cette comptine, passez par mon webdav !


NB
Il va sans dire (mais il va mieux en le disant) que vous voudrez bien régler le volume de vos haut-parleurs pour vous faire bercer par la douce voix qui chantera pour vous « au clair de la lune »
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4937
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Au clair de la lune   Mer 11 Mar 2015 - 14:22

Ça c'est pour ma petite fille et mon petit fils...

Voici la version pour W8, avec l'ajout de on_close 0 pour un arrêt plus rapide.

A noter que j'ai du modifier le temps de pause à 4000 pour que le texte soit synchronisé avec le son.

Code:
rem ============================================================================
rem           A ma petite-fille
rem          Au clair de la lune
rem ============================================================================
label arrete

width 0, screen_x/2 : height 0,560 : top 0, 100 : left 0,200
color 0,230,210,65 : caption 0,"<CLICK> pour arrêter" : on_click 0,arrete
on_close 0,arrete
alpha 1 : top 1,2 : left 1,210 : font_name 1,"comic sans ms" : font_size 1,24
font_bold 1 : font_color 1, 0,0,255 : caption 1,"Au clair de la lune"

picture 2 : left 2,50 : top 2 ,5 : width 2,70 : height 2,33 : file_load 2,"lune1_g.bmp"
picture 3 : left 3,width(0)-110 : top 3 ,5 :width 3,60 : height 3,33 : file_load 3,"lune1_d.bmp"
picture 4 : left 4,50 : top 4,200 : width 4,300 : height 4,262 : file_load 4, "lune2_g.bmp"
picture 5 : left 5,370 : top 5,200 : width 5,300 : height 5,262 : file_load 5, "lune2_d.bmp"
display
2d_pen_color 255,255,0 : 2d_pen_width 10 : 2d_rectangle 50,50,width(0)-50,150
2d_pen_color 150,050,0 : 2d_pen_width 10 : 2d_fill_color 230,210,65 : 2d_rectangle 60,60,width(0)-60,140

alpha 20 :left 20,65 : top 20,65 : font_bold 20 : font_size 20,34
color 20, 230,210,65 : font_name 20,"arial" : font_color 20,100,150,200

sound 30 : file_load 30,"Au_clair_de_la_lune.wav" : play 30
Afficher()

arrete:
 terminate
 
rem ============================================================================
SUB Afficher()
    dim_local t$,spc$ ,p,i
    p = 3000-50 : spc$ = string$(7," ")
    pause 4000 :' à ajuster pour synchroniser le défilement du texte
    read t$
    while upper$(t$) <> "FIN"
       t$ = spc$ + t$  : caption 20,t$ : pause p : read t$
    end_while
    pause 5000
    for i = height(0) to 0 step -10
        height 0, i : pause 100
    next i
END_SUB
rem ============================================================================
data   "Au clair de la lune,"
data   "Mon ami Pierrot,"
data   "Prête-moi ta plume"
data   "Pour écrire un mot,"
data   "Ma chandelle est morte,"
data   "Je n'ai plus de feu,"
data   "Ouvre-moi ta porte"
data   "Pour l'amour de Dieu."
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."
data   "Au clair de la lune,"
data   "Pierrot répondit :"
data   "Je n'ai pas de plume,"
data   "Je suis dans mon lit."
data   "Va chez la voisine, "
data   "Je crois qu'elle y est,"
data   "Car dans sa cuisine,"
data   "On bat le briquet."
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."
data   "Au clair de la lune,"
data   "S'en fut Arlequin"
data   "Frapper chez la brune"
data   "Elle répond soudain"
data   "- Qui frappe de la sorte ?"
data   "Il dit à son tour :"
data   "Ouvrez votre porte,"
data   "Pour le Dieu d'amour !"
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."
data   "Au clair de la lune,"
data   "On n'y voit que peu."
data   "On chercha la plume,"
data   "On chercha du feu."
data   "En cherchant d'la sorte,"
data   "Je n'sais c'qu'on trouva"
data   "Mais je sais qu'la porte"
data   "Sur eux se ferma."
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."

data "FIN"
rem ============================================================================


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

avatar

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

MessageSujet: Re: Au clair de la lune   Mer 11 Mar 2015 - 19:10

Jean Claude a écrit:
Ça c'est pour ma petite fille et mon petit fils...

Les points de suspension, c’est pour indiquer que c’est aussi pour toi, n’est-ce-pas ? Laughing
Si c’est ainsi, c’est aussi mon cas.
Merci pour la retouche du code.
Au clair de la lune.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4937
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Au clair de la lune   Mer 11 Mar 2015 - 20:09

Non, les points de suspension c'est pour une autre petite fille qui n'a que 3 mois et une autre qui est attendue d'ici à un mois.  Very Happy  

Une question: Sur W7, la synchronisation du texte avec le son est-elle la même ?
Ou est-ce que tu avais un décalage avec PAUSE 5000 ? Ce qui voudrait dire que cette PAUSE dépend des performances du PC et pas de l'OS.

Simple curiosité.

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

avatar

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

MessageSujet: Re: Au clair de la lune   Mer 11 Mar 2015 - 20:59

Pour satisfaire ta curiosité:

Sur W7, la synchronisation du texte avec le son est parfaite avec ses valeurs

Code:

SUB Afficher()
    dim_local t$,spc$ ,p,i
    p = 3000-50 : spc$ = string$(7," ")
    pause 5000 : read t$
    while upper$(t$) <> "FIN"
       t$ = spc$ + t$  : caption 20,t$ : pause p : read t$
    end_while
    pause 5000
    for i = height(0) to 0 step -10
        height 0, i : pause 100
    next i
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4937
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Au clair de la lune   Mer 11 Mar 2015 - 22:23

Reste à savoir si cela vient de W8 ou si c'est une question de rapidité du PC.

Merci pour ta réponse.

A+

PS: je viens d'avoir une idée, je vais tester sur le PC de ma femme qui est en en W7.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4937
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Au clair de la lune   Mer 11 Mar 2015 - 22:47

Bon, je viens de tester sur le PC portable de ma femme sous W7 avec la version que j'ai faite pour mon PC sous W8.

Question affichage des images, c'est pas terrible, (je vais être obligé de faire une version pour son PC).
Question synchronisation c'est bon avec PAUSE 5000, comme pour le mien sous W8.

Conclusion: le problème de synchronisation vient bien des performances du PC (c'est que je crois)
Et le problème d'affichage (à mon avis) viendrait plus de la taille de l'écran que de la version de Windows.

Moralité: il va falloir que l'on trouve un système pour que les tailles et positions des objets Panoramic, ainsi que les images puissent s'afficher correctement quelque-soit la taille de l'écran et de ses bords.
Et cela pour rendre les programmes portables d'un PC à l'autre sans être obliger de retoucher le code.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Au clair de la lune   

Revenir en haut Aller en bas
 
Au clair de la lune
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Recrute [Projet: Artworks & site] Lune Ecarlate - MMORPG
» Télé Melody en clair le 04/11/2011
» Les chaines C+ en clair jusqu'au 9 octobre sur Bbox
» TCM a 15 ans... la chaîne en clair jusqu'au 24 juin sur Bbox TV
» L'homme n'aurait jamais marché sur la lune !

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: