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
» un nouveau editeur panobasic
par Jean Claude Aujourd'hui à 10:18

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:07

» Le compilateur.
par Pedro Alvarez Aujourd'hui à 8:36

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
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 : 1594
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 : 5920
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 : 1594
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 : 4989
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 : 5920
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 : 1594
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 : 5920
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 : 4989
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 : 1594
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 : 5920
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 : 5920
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 : 4989
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 : 1594
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 : 5920
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 : 1594
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 : 1594
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 : 4989
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 : 4989
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 : 1594
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 : 1594
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
» feu d'artifice
» script pour pluie d'images : feu d'artifice
» J'vais tester. [4/4] A noter!
» A la recherche d'un site de script

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 :: Les inutilitaires-
Sauter vers: