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
» I Love You
par papydall Aujourd'hui à 2:58

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Feu d'artifice

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
jjn4

avatar

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

MessageSujet: Feu d'artifice   Mar 13 Juil 2010 - 20:05

Pour vous inviter à encore mieux célébrer la fête nationale,
je vous ai concocté un petit feu d'artifice.
S'il n'y a pas de feu d'artifice dans votre village.
vous pourrez toujours regarder celui-là !
Je voulais vous mettre également du son (Baoummm !)
mais les sound ne fonctionnant pas,
vous devrez vous contenter d'un film muet.

Je vous souhaite à tous un bon 14 juillet !
jocolor drunken bom cherry cheers
Code:
rem ' Feu d'artifice
dim c1 , c2 , c3 , f , g , h , i , j , k , x , y
k=1 : f=1
height 0,500
caption 0,"FEU D'ARTIFICE - Cliquez sur le ciel pour arrêter"
color 0,0,0,0 : display
for g=1 to 200
 c1=rnd(155)+100 : c2=rnd(155)+100 : c3=rnd(155)+100
 h=int(rnd(4))+1 : y=int(rnd(300))+50 : k=0-k
 for i=500 to y step -1
  2d_pen_color c1,c2,c3
  2d_point 300+10*log(i)*h*k,i
  for j=1 to 500 : next j : ' on peut changer le 500, ça dépend de la vitesse des ordinateurs
  2d_point 300+10*log(i)*h*k,i
 next i
 for j=1 to 3000
  2d_pen_color 0,0,0
  i=int(rnd(500-y))+y
  2d_point 300+10*log(i)*h*k,i
 next j
 x=300+10*log(y)*h*k
 2d_pen_color c1,c2,c3
 for i=1 to 100
  for j=1 to int(rnd(4))+1
  k=0-k
  next j
  for j=1 to int(rnd(4))+1
  f=0-f
  next j
  if g/h=int(g/h)
  2d_pen_color rnd(155)+100,rnd(155)+100,rnd(155)+100
  end_if
  2d_line x,y,x+int(rnd(150))*k,y+int(rnd(150))*f
 next i
 wait 500
 cls
 if clicked(0)=1 then exit_for
next g
terminate


Dernière édition par jjn4 le Mar 13 Juil 2010 - 21:47, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



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

MessageSujet: Re: Feu d'artifice   Mar 13 Juil 2010 - 20:17

Pas mal, même si un peu stylisé mais bon, avec si peu de lignes de code. Je trouve que la tempo est mieux à 1000 qu'à 500 (mais c'est juste pour pinailler, comme toi).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mar 13 Juil 2010 - 20:24

Non, non, tu as raison !
le tempo de la ligne 13 est à moduler,
car il dépend de la vitesse des ordinateurs.
J'ai essayé wait 1, mais c'était trop lent.
geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Feu d'artifice   Mar 13 Juil 2010 - 21:08

Pour le son, tu peux mettre la version avec son. Ceux qui ont une ancienne version, et il doit y en avoir quelques-uns, peuvent l'essayer avec. Si tu as toi aussi une ancienne version, tu peux aussi envoyer un exe avec le fichier.

Je ne vais pas essayé tout de suite, vu la lenteur à cette heure de mon ordi. Il rame par derrière, et bien souvent je me retrouve avec impossible to run Panoramic, et tout s'efface. C'est vraiment la m.. parfois!!
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 9:49

Voila un code qui va plaire à Sergeauze (et à moi aussi d'ailleurs).

Tu maitrises bien la 2D JJN4.
@Papinailleur, moi j'aime le tempo à 100 car à 1000 c'est un feu d'artifice au ralentit

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



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

MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 16:33

Non, non, je me suis mal exprimé, quand je disais la tempo je voulais dire le Wait à 1000 au lieu de 500, sinon l'affichage est trop bref. Et ça ça ne dépend pas de la machine, c'est 0,5 ou 1 seconde.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mer 14 Juil 2010 - 17:23

C'est curieux, j'allais te répondre que 500 me suffisait pour le wait,
mais je viens de rééssayer et j'observe qu'avec 500,
hier c'était d'une vitesse pas trop rapide,
et aujourd'hui, ça va nettement plus vite
si bien que le 1000 convient mieux, quoique ce soit un peu plus lent
que le temps sur lesquel je l'avais programmé hier.
C'est curieux, ça, que les ordinateurs soient plus lents
certains jours que d'autres !
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 17:29

J'essangerai volontiers le mien contre les vôtres. Question vitesse, je bats tout les recors de lenteur par moment.
J'en reste là, je sors pour me calmer.
Revenir en haut Aller en bas
JL35



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

MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 17:41

jjn4, entre temps tu as vu le feu d'artifice (comme moi hier soir) et tu as pu constater que 1000 était plus réaliste que 500, voilà la seule explication plausible.

cosmos, il va falloir songer sérieusement à investir dans un nouveau pc et mettre ta machine antédiluvienne à la brocante. Tu aurais dû profiter des soldes, il y avait des affaires à faire.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 18:07

C'est vrai que vu les programmes que tu fais Cosmos, çà doit être pénible.

As-tu cheché des bonnes occases sur le net ? par exemple "le bon coin", çà doit pouvoir se trouver à pas cher.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 18:28

Ceci est une parenthèse mais vu ma retraite et 2 ados au lycée, c'est avec la banque que je dois jonglé, et l'ordi, c'est niet! (voila un mot que je ne sais pas écrire). l'ordi que j'ai est une occase sur le net.
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: +++   Mer 14 Juil 2010 - 20:16

@ Papy35 :
Mais non, le feu d'artifice (le vrai), c'est pour ce soir !
Peut-être que les ordinateurs ont des humeurs, aussi,
qui ferait varier leur vitesse ?
Alors, dans ce cas, on peut conseiller à Cosmos
de coller 3 tartes au sien pour lui faire avoir une humeur plus rapide !
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



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

MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 21:46

Je croirais plutôt que même avec une tartelette il va rendre l'âme... alors prudence.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Feu d'artifice   Mer 14 Juil 2010 - 22:57

Si je fous trois tartes à mon ordi, ce sera avec la main, pour lui apprendre à faire son travail. Je crois qu'à partir de ce moment là, vous ne me verrez plus sur ce forum. Vous pourrez crier un ouf de soulagement.
Mais quel bien ça me ferais parfois de le faire. Peut-être qu'en tapant dessus, cela ferait un feu d'artifice!

Je relis le post de jjn4, j'avais pas compris l'allusion. Ah si je pouvais prendre des vacances, je réagirais mieux.
Revenir en haut Aller en bas
JL35



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

MessageSujet: Re: Feu d'artifice   Jeu 15 Juil 2010 - 0:17

@jjn4 si tu mets un wait 5, ou même 3 (wait 1 est trop rapide) à la place de ta boucle ligne 13, ça le fait bien, et ça ne dépend plus de la vitesse du pc (sauf peut-être pour cosmos).
J'aime bien l'idée de la trajectoire non linéaire de la fusée, c'est plus réaliste.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Feu d'artifice   Jeu 15 Juil 2010 - 11:02

Citation :
J'aime bien l'idée de la trajectoire non linéaire de la fusée, c'est plus réaliste.
Oui et j'ajoute la symétrie suivant que la fusée parte à droite ou à gauche.
Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Sam 17 Juil 2010 - 12:07

@Papy35
On ne doit pas avoir les mêmes ordinateurs.
Si je n'ai pas mis wait 1 à la ligne 13, c'est que cela donnait
une montée de fusée désespérément lente.
Pourtant, j'aurais pensé qu'un wait
aurait donné des temps constants :
wait 1 = 1/1000 de sec ???
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



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

MessageSujet: Re: Feu d'artifice   Sam 17 Juil 2010 - 14:16

Je pense que pour les petits Wait ce n'est pas significatif, il y a le temps de déroulement du programme wait qui doit intervenir, et que ce n'est viable que pour les wait plus importants. Wait 1 je pense que ça ne veut pas dire grand chose, en durée.
En tout cas, moi je vois la différence entre wait 2 et wait 10 par exemple (mais je n'ai pas chronométré... Very Happy ).
Pourtant je n'ai pas une bête de course, un Acer dans les premiers prix (et même le premier prix à l'époque il y a 2 ou 3 ans. Premier prix en coût, pas en vitesse Very Happy )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Jeu 22 Juil 2010 - 14:10

Je voulais profiter du retour de fonctionnement du sound
pour sonoriser mon feu d'artifice.
J'ai essayé avec monimage.eu et imageshack.us
pour mettre les sons voulus sur le forum
en même temps qu'une version modifiée du programme,
mais pas moyen d'envoyer des sons wav avec ces 2 sites.
Si bien qu'on en reste au point de départ !
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Feu d'artifice   Jeu 22 Juil 2010 - 14:45

Tu n'as pas essayé de faire un zip complet de ton programme. Normalement pour un dossier ça marche, si le dossier ne dépasse pas les limites imposées.
Avec Archive-Host ça marche.
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: +++   Mar 3 Aoû 2010 - 1:15

Voici trois sons (à télécharger et mettre à l'emplacement du programme) :

2shared.com/audio/W5_GQCPk/Explo-1.html
sous le nom de Explo-1.wav
2shared.com/audio/KVs6x1_v/Explo-2.html
Sous le nom de Explo-2.wav
2shared.com/audio/9g4UT-CR/Explo-3.html
Sous le nom de Explo-3.wav

Avec le programme de feu d'artifice modifié (avec des sons, maintenant) :
Code:
rem ' Feu d'artifice
dim c1 , c2 , c3 , f , g , h , i , j , k , x , y
k=1 : f=1
height 0,500
caption 0,"FEU D'ARTIFICE - Cliquez sur le ciel pour arrêter"
color 0,0,0,0 : display
sound 1
for g=1 to 200
 c1=rnd(155)+100 : c2=rnd(155)+100 : c3=rnd(155)+100
 h=int(rnd(4))+1 : y=int(rnd(300))+50 : k=0-k
 for i=500 to y step -1
  2d_pen_color c1,c2,c3
  2d_point 300+10*log(i)*h*k,i
  for j=1 to 500 : next j : ' on peut changer le 500, ça dépend de la vitesse des ordinateurs
  2d_point 300+10*log(i)*h*k,i
 next i
 for j=1 to 3000
  2d_pen_color 0,0,0
  i=int(rnd(500-y))+y
  2d_point 300+10*log(i)*h*k,i
 next j
 x=300+10*log(y)*h*k
 2d_pen_color c1,c2,c3
 for i=1 to 100
  for j=1 to int(rnd(4))+1
  k=0-k
  next j
  for j=1 to int(rnd(4))+1
  f=0-f
  next j
  if g/h=int(g/h)
  2d_pen_color rnd(155)+100,rnd(155)+100,rnd(155)+100
  end_if
  2d_line x,y,x+int(rnd(150))*k,y+int(rnd(150))*f
 next i
 i=int(rnd(3))+1
 if file_exists("Explo-"+str$(i)+".wav")=1
  file_load 1,"Explo-"+str$(i)+".wav"
  play 1
 end_if
 wait 500
 cls
 if clicked(0)=1 then exit_for
next g
for g=1 to 12
 x=int(rnd(500))+1 : y=int(rnd(400))+1
 for i=1 to 100
  for j=1 to int(rnd(4))+1
  k=0-k
  next j
  for j=1 to int(rnd(4))+1
  f=0-f
  next j
  2d_pen_color rnd(155)+100,rnd(155)+100,rnd(155)+100
  2d_line x,y,x+int(rnd(150))*k,y+int(rnd(150))*f
 next i
next g
if file_exists("Explo-3.wav")=1
 file_load 1,"Explo-3.wav"
 play 1
 wait 2500
end_if
terminate


Dernière édition par jjn4 le Ven 6 Aoû 2010 - 17:15, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Feu d'artifice   Mar 3 Aoû 2010 - 12:20

Avec le son, c'est mieux.

Tu devrais ajouter un bouquet final... Heu si j'abuse pas. Embarassed

En tout cas c'est réussi. cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Feu d'artifice   Mer 4 Aoû 2010 - 13:56

Pas pressé de répondre le petit bon'home vert! No
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mer 4 Aoû 2010 - 14:02

Je trouve ta suggestion intéressante et je vais m(y pencher.
(oui, oui, ben ça vient !)
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

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

MessageSujet: +++   Ven 6 Aoû 2010 - 15:02

Et v'la l'travail !
Il suffit de demander...

(ci-dessus en page 2, le programme a été changé de façon à
ce que cela finisse par un bouquet final !)

Ah, il devient beau, ce feu d'artifice !
Presque mieux que les vrais !
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Contenu sponsorisé




MessageSujet: Re: Feu d'artifice   

Revenir en haut Aller en bas
 
Feu d'artifice
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Feu d'artifice
» J'vais tester. [4/4] A noter!

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