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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 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

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

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 | 
 

 Au clair de la lune

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: 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 : 5086
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 : 5613
Age : 67
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 : 5086
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 : 5613
Age : 67
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 : 5086
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 : 5086
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
-
» 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
» Pink TV pas en clair
» Bouquet en clair sur Bbox: GRAND CINÉMA du 30 Mai au 6 juin

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