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 à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

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

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

» supprimé
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 | 
 

 Le départ du martien

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

avatar

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

MessageSujet: Le départ du martien   Lun 9 Juin 2014 - 12:32

Ca y est, c'est les vacances, et vous n'allez pas
me revoir pendant un bon bout de temps !!!!
Hein ? Qui a dit :
« Ouf, ça va nous faire des vacances ! » ?

Pour mon voyage vers Mars, au lieu de prendre les transports en commun,
j'ai décidé de m'acheter une soucoupe volante personnelle.

Alors, pour ce qui est des tous nouveaux modèles,
qui vont jusqu'à 14 fois la vitesse de la lumière,
utilisent l'hyperespace pour aller dans les autres galaxies
et qui ont un design à vous couper le souffle......!!!
Eh bien, sachez que ces modèles-là sont tout à fait hors de prix !!

Alors, j'ai dû me contenter d'un modèle plus ancien,
déclassé, paraît-il, davantage dans mes moyens.
Le vendeur m'a quand même assuré
qu'elle était équipée d'un moteur quantique.
Je vous ai d'ailleurs préparé une vidéo de mon futur départ (demain),
(voir programme ci-dessous)

Code:
rem ' Départ du martien
  dim i , j , k , v : rem Variables provisoires numériques
  dim cb , cg , cr : rem Couleurs du fond
  dim de : rem Dimension de l`Écran en X
  dim hs : rem Hauteur du Saut (de la soucoupe HS)
  dim hx , hy : rem Hasard en X et en Y
  dim mo : rem Moteur Out
  dim xx : rem emplacement de la soucoupe en X
  label boum , bruit , disc , fumee , main , moins , tete
  de=screen_x : xx=-750 : hs=5
 
rem form0
  width 0,de+800
  height 0,550
  cr=color_pixel_red(0,10,10)
  cg=color_pixel_green(0,10,10)
  cb=color_pixel_blue(0,10,10)
  caption 0," Le départ du martien"

alpha 50 : rem Zone d`affichage des messages
  left 50,10
  top 50,20
  font_size 50,30
  font_name 50,"Arial"
  caption 50," Le départ du martien"
  wait 2500
  caption 50,""
  wait 1500
  caption 50,"Attendez, quoi, le démarrage prend un certain temps !"

picture 100 : rem Emplacement de la fulgurante soucoupe
  left 100,xx
  top 100,100
  width 100,650
  height 100,300
  color 100,cr,cg,cb
  on_click 100,boum

rem Fonctionnement du programme
  gosub disc
  caption 50,""
  midi_on
  for k=0 to de+800 step 20
      left 100,xx+k-10
      top 100,95
      wait 50
      left 100,xx+k
      top 100,95+hs
      if k=520
        gosub tete
      end_if
      if k=600
        gosub main
      end_if
      if k=820
        gosub moins
      end_if
      gosub fumee
      gosub bruit
      if mo=1
        v=1-v
      end_if
      if key_down_code=27
        terminate
      end_if
  next k
  wait 400
  midi_off
  delete 100
  width 0,de
  caption 50,"Au revoir !  A dans quelques mois..."
  wait 3000
  terminate
rem Fin du programme

end : rem ' Début des routines -------------------------------------

boum: : rem Problème avec la soucoupe
  if color_pixel_red(100,mouse_x_position(100),mouse_y_position(100))=110
      hs=25
      mo=1
  end_if
return

bruit: : rem Léger ronronnement à peine audible que fait la soucoupe
      midi_instrument 127
      midi_play 50,11
return

disc: : rem Dessin de la soucoupe
  2d_target_is 100
  for i=1 to 360 step 1/40
      j=950+800*sin(i)
      if j<209
        2d_point 350+800*cos(i),j
      end_if
  next i
  for i=1 to 360 step 1/40
      j=-532+800*sin(i)
      if j>210
        2d_point 350+800*cos(i),j
      end_if
  next i
  2d_line 50,209,650,209
  2d_flood 100,200,220,220,255
  2d_flood 100,220,220,220,255
  for i=1 to 360 step 1/10
      j=150+100*sin(i)
      if j<155
        2d_point 350+80*cos(i),j
      end_if
  next i
  2d_poly_from 102,230
  2d_poly_to 90,250
  2d_poly_to 20,250
  2d_poly_to 0,240
  2d_poly_to 0,270
  2d_poly_to 20,260
  2d_poly_to 100,260
  2d_poly_to 118,232
  2d_flood 110,240,110,110,110
  2d_fill_color 200,200,255
  for i=230 to 470 step 120
      2d_circle i-20,185,10
      2d_circle i+20,235,10
  next i
  2d_poly_from 300,220
  2d_poly_to 280,237
  2d_poly_to 310,250
  2d_poly_to 330,235
  2d_poly_to 300,220
  for i=1 to 3
      2d_line 278+i*5,237-i*5,283+i*5,241-i*5
      2d_line 299+i*5,220+i*5,310+i*5,215+i*5
      2d_line 304+i*5,252-i*5,314+i*5,256-i*5
      2d_line 284+i*5,236+i*5,289+i*5,229+i*5
  next i
  2d_flood 300,230,255,0,0
  2d_poly_from 500,209
  2d_poly_to 520,180
  2d_poly_to 580,209
  for i=1 to 4
      2d_line 496+i*5,205-i*5,501+i*5,209-i*5
  next i
  for i=1 to 6
      2d_line 512+i*10,178+i*5,516+i*10,170+i*5
  next i
  2d_flood 520,200,255,255,0
  for i=1 to 360
      j=150+40*sin(i)
      if j<150
        2d_point 330+20*cos(i),j
      end_if
  next i
  2d_flood 335,140,0,255,0
  2d_circle 330,97,15
  2d_poly_from 420,153
  2d_poly_to 395,130
  2d_poly_to 415,110
  2d_poly_to 417,106
  2d_poly_to 411,107
  2d_poly_to 369,146
  2d_poly_to 369,149
  2d_poly_to 374,148
  2d_poly_to 388,135
  2d_poly_to 408,153
  2d_flood 410,151,200,200,255
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_line 330,82,335,60
  2d_line 330,82,327,66
return

fumee: : rem Légère brume que produit la soucoupe
  2d_target_is 0
  for i=1 to 100+300*v
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_point xx-110+k+hx,310+hy
      2d_point xx-110+k+hx,310+hy+rnd(5)
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_pen_color cr,cg,cb
      2d_circle xx-300+k+hx,310+hy,4
      2d_pen_color 0,0,0
  next i
return
 
main: : rem Salut de la main
  2d_target_is 100
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,0,255,0
return

moins: : rem Enlever la main
  2d_target_is 100
  2d_circle 330,97,15
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_pen_color cr,cg,cb
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,cr,cg,cb
  2d_pen_color 0,0,0
return

tete: : rem Dessin de la tête
  2d_target_is 100
  2d_circle 330,97,15
  for i=1 to 360
      j=106+18*sin(i)
      if j<92
        2d_point 330+18*cos(i),j
      end_if
  next i
  for i=1 to 360
      j=77+18*sin(i)
      if j>91
        2d_point 330+18*cos(i),j
      end_if
  next i
  2d_flood 330,105,0,255,0
  2d_fill_color 0,0,0
  2d_circle 330,92,4
  2d_poly_from 322,100
  2d_poly_to 324,103
  2d_poly_to 327,104
  2d_poly_to 333,104
  2d_poly_to 336,103
  2d_poly_to 338,100
return

Allez, au revoir, les amis !
A dans quelques mois !
(je vais dans un coin reculé de la planète Mars
où il n'y a ni télé, ni Internet !...)

P.S. : Ah, et bien évidemment, il y a encore une astuce à trouver...
Hum... hum..., qui va la trouver le premier ?...
 Laughing Laughing Laughing alien Laughing Laughing Laughing 
(que mon absence ne vous empêche surtout
pas de continuer à faire plein d'humour !)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Le départ du martien   Lun 9 Juin 2014 - 12:45

Bon voyage, tu vas nous manquer et j'espère que ta soucoupe arrivera en bon état...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Le départ du martien   Mer 11 Juin 2014 - 5:11

Je vois quel type de carburant utilise ta soucoupe, puisque tu as fait le plein d’humour.
Ça doit coûter une bagatelle, là-haut sur Mars !
A en croire la rumeur, à l’hémisphère Ouest de Mars le plein d’humour coûte racine carré de pi sur pi puissance un demi moins cher qu’à l’hémisphère droite !
Il est connu que les Martiens marchent sur la tête et se repèrent d’Ouest en EST et non de Haut en bas !

Un « coin où il n’y a ni télé ni Internet ! » ça ne peut être que le Paradis !
En Tunisien, je te dis : Saha lik  Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

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

MessageSujet: Re: Le départ du martien   Mer 11 Juin 2014 - 9:48

Bon voyage le martien,

Je me suis permis de réviser le moteur de ta soucoupe, maintenant il est propre et ton voyage se fera à une vitesse supraluminique.
Un conseil: n'oublie pas de fermer le cockpit, ça décoiffe...
Code:
rem ' Départ du martien
  dim i , j , k , v : rem Variables provisoires numériques
  dim cb , cg , cr : rem Couleurs du fond
  dim de : rem Dimension de l`Écran en X
  dim hs : rem Hauteur du Saut (de la soucoupe HS)
  dim hx , hy : rem Hasard en X et en Y
  dim mo : rem Moteur Out
  dim xx : rem emplacement de la soucoupe en X
  label boum , bruit , disc , fumee , main , moins , tete
  de=screen_x : xx=-750 : hs=0

rem form0
  width 0,de+800
  height 0,550
  cr=color_pixel_red(0,10,10)
  cg=color_pixel_green(0,10,10)
  cb=color_pixel_blue(0,10,10)
  caption 0," Le départ du martien"

alpha 50 : rem Zone d`affichage des messages
  left 50,10
  top 50,20
  font_size 50,30
  font_name 50,"Arial"
  caption 50," Le départ du martien"
  wait 2500
  caption 50,""
  wait 1000
  caption 50,"ATTENTION: j'ai mis le turbo ! "

picture 100 : rem Emplacement de la fulgurante soucoupe
  left 100,xx
  top 100,100
  width 100,650
  height 100,300
  color 100,cr,cg,cb
  on_click 100,boum

rem Fonctionnement du programme
  gosub disc
  caption 50,""
  midi_on
  for k=0 to de+800 step 20
      left 100,xx+k-10
      top 100,95
      ' wait 50
      left 100,xx+k
      top 100,95+hs
      if k=520
        gosub tete
      end_if
      if k=600
        gosub main
      end_if
      if k=820
        gosub moins
      end_if
      gosub fumee
      gosub bruit
      if mo=1
        v=1-v
      end_if
      if key_down_code=27
        terminate
      end_if
  next k
'  wait 10
  midi_off
'  delete 100
  width 0,de
  caption 50,"Au revoir !  A dans quelques mois..."
  wait 3000
  terminate
rem Fin du programme

end : rem ' Début des routines -------------------------------------

boum:
  if color_pixel_red(100,mouse_x_position(100),mouse_y_position(100))=110
      hs=25
      mo=1
  end_if
return

bruit:
wait 1
return
      midi_instrument 127
      midi_play 50,11
return

disc:
  2d_target_is 100
  for i=1 to 360 step 1/40
      j=950+800*sin(i)
      if j<209
        2d_point 350+800*cos(i),j
      end_if
  next i
  for i=1 to 360 step 1/40
      j=-532+800*sin(i)
      if j>210
        2d_point 350+800*cos(i),j
      end_if
  next i
  2d_line 50,209,650,209
  2d_flood 100,200,220,220,255
  2d_flood 100,220,220,220,255
  for i=1 to 360 step 1/10
      j=150+100*sin(i)
      if j<155
        2d_point 350+80*cos(i),j
      end_if
  next i
  2d_poly_from 102,230
  2d_poly_to 90,250
  2d_poly_to 20,250
  2d_poly_to 0,240
  2d_poly_to 0,270
  2d_poly_to 20,260
  2d_poly_to 100,260
  2d_poly_to 118,232
  2d_flood 110,240,110,110,110
  2d_fill_color 200,200,255
  for i=230 to 470 step 120
      2d_circle i-20,185,10
      2d_circle i+20,235,10
  next i
  2d_poly_from 300,220
  2d_poly_to 280,237
  2d_poly_to 310,250
  2d_poly_to 330,235
  2d_poly_to 300,220
  for i=1 to 3
      2d_line 278+i*5,237-i*5,283+i*5,241-i*5
      2d_line 299+i*5,220+i*5,310+i*5,215+i*5
      2d_line 304+i*5,252-i*5,314+i*5,256-i*5
      2d_line 284+i*5,236+i*5,289+i*5,229+i*5
  next i
  2d_flood 300,230,255,0,0
  2d_poly_from 500,209
  2d_poly_to 520,180
  2d_poly_to 580,209
  for i=1 to 4
      2d_line 496+i*5,205-i*5,501+i*5,209-i*5
  next i
  for i=1 to 6
      2d_line 512+i*10,178+i*5,516+i*10,170+i*5
  next i
  2d_flood 520,200,255,255,0
  for i=1 to 360
      j=150+40*sin(i)
      if j<150
        2d_point 330+20*cos(i),j
      end_if
  next i
  2d_flood 335,140,0,255,0
  2d_circle 330,97,15
  2d_poly_from 420,153
  2d_poly_to 395,130
  2d_poly_to 415,110
  2d_poly_to 417,106
  2d_poly_to 411,107
  2d_poly_to 369,146
  2d_poly_to 369,149
  2d_poly_to 374,148
  2d_poly_to 388,135
  2d_poly_to 408,153
  2d_flood 410,151,200,200,255
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_line 330,82,335,60
  2d_line 330,82,327,66
return

fumee:
return
  2d_target_is 0
  for i=1 to 100+300*v
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_point xx-110+k+hx,310+hy
      2d_point xx-110+k+hx,310+hy+rnd(5)
      hx=rnd(100)
      if odd(i)=1
          hx=99-hx
      end_if
      hy=rnd(100)
      if even(i)=1
          hy=99-hy
      end_if
      2d_pen_color cr,cg,cb
      2d_circle xx-300+k+hx,310+hy,4
      2d_pen_color 0,0,0
  next i
return

main:
  2d_target_is 100
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,0,255,0
return

moins:
  2d_target_is 100
  2d_circle 330,97,15
  2d_poly_from 350,147
  2d_poly_to 372,143
  2d_flood 355,147,0,255,0
  2d_circle 374,144,6
  2d_poly_from 341,90
  2d_poly_to 330,94
  2d_poly_to 344,98
  2d_flood 335,94,255,255,255
  2d_rectangle 341,90,343,98
  2d_poly_from 341,106
  2d_poly_to 334,104
  2d_poly_to 330,100
  2d_pen_color cr,cg,cb
  2d_poly_from 343,118
  2d_poly_to 370,95
  2d_poly_to 370,88
  2d_poly_to 374,93
  2d_poly_to 379,91
  2d_poly_to 376,96
  2d_poly_to 382,99
  2d_poly_to 373,99
  2d_poly_to 346,130
  2d_flood 347,120,cr,cg,cb
  2d_pen_color 0,0,0
return

tete:
  2d_target_is 100
  2d_circle 330,97,15
  for i=1 to 360
      j=106+18*sin(i)
      if j<92
        2d_point 330+18*cos(i),j
      end_if
  next i
  for i=1 to 360
      j=77+18*sin(i)
      if j>91
        2d_point 330+18*cos(i),j
      end_if
  next i
  2d_flood 330,105,0,255,0
  2d_fill_color 0,0,0
  2d_circle 330,92,4
  2d_poly_from 322,100
  2d_poly_to 324,103
  2d_poly_to 327,104
  2d_poly_to 333,104
  2d_poly_to 336,103
  2d_poly_to 338,100
return



Cela permettra que tu reviennes plus vite.
 lol! 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Le départ du martien   Mer 11 Juin 2014 - 11:18

Tu parles, sa fusée marche au gaz naturel ... Est-ce écologique ? Pas sûr d'après les 3 morts ayant respiré les fumées ...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 11 Juin 2014 - 15:29

Bonne vacances jjn4 !

@ Jean claude,

Je veux le même model...
 lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Le départ du martien   

Revenir en haut Aller en bas
 
Le départ du martien
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» New-York pour nos 25 ans/départ jeudi soir/YES!!!
» Clés de départ et d'arrivée
» meilleur moyen pour revenir au point de départ
» Je reviens toujours au point de départ
» Résiliation forfait pour départ a l'etranger

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: