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 pascal10000 Hier à 21:52

» 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

» Compilateur FBPano
par jean_debord Hier à 8:49

» 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

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

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 | 
 

 Simulateur de vol spatial genre 2001

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

avatar

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

MessageSujet: Simulateur de vol spatial genre 2001   Sam 19 Déc 2009 - 19:46

Voici un nouvel inutilitaire,
un simulateur de vol spatial genre 2001 (l'odyssée de l'espace)
qui va vous permettre de faire une belle aventure
enfin, si on veut...
Bon d'accord, certains vont dire : c'est une tragédie,
oui mais pensez que les plus belles histoires sont les tragédies !
(là, j'ai mis plus de 90 lignes, j'ai fait très fort, pour un inutilitaire !)
Bon voyage !
Code:
rem ' Simulateur de vol spacial genre 2001 - l'odyssée de l'espace
dim i , j , k , a$ , b$ , c$ , d$ , e$ , f$ , g$ , h$ , i$ , t$(13)
label carte , go , fin
t$(1)="Aller vers le haut" : t$(2)="Tourner à gauche" : t$(13)="Autodestruction"
t$(3)="Tourner à droite" : t$(4)="Aller vers le bas" : t$(11)="Lancer missile"
t$(5)="Information sur la situation actuelle" : f$="Ca va pas la tête, non ?"
t$(6)="Communiquer avec la Terre" : t$(7)="Démarrer les moteurs"
t$(8)="Vérifier la réserve d'hydrogène" : t$(9)="Gyroscope" : t$(12)="jouer"
t$(10)="Conseils de l'ordinateur de bord" : d$="Moteurs impossible à démarrer"
a$="    RÉSERVOIR VIDE      "+chr$(13)+chr$(13)+"0  10  20  30  40  50"
a$=a$+chr$(13)+" \_________________" : b$="Système défectueux"
c$="RAPPORT DE SITUATION DE L'ORDINATEUR DE BORD :"+chr$(13)
c$=c$+"Capsule spatiale transpersée par minuscule météorite"+chr$(13)
c$=c$+"Réservoir d'hydrogène touché"+chr$(13)
c$=c$+"Stock d'hydrogène totalement répandu dans l'espace intersidéral"
c$=c$+chr$(13)+"Moteurs arrêtés, cause de la panne : manque de carburant"
c$=c$+chr$(13)+"Plusieurs systèmes de navigation rendus défectueux"
c$=c$+chr$(13)+"Communication par radio avec la Terre rendue indisponible"
c$=c$+chr$(13)+"Bonne nouvelle : les 512 missiles nucléaires sont intacts"
e$="Ne pas trop tourner à droite en direction du soleil"+chr$(13)
e$=e$+" Risques probables : être transformé en barbecue"+chr$(13)
e$=e$+"Ne pas trop tourner à gauche en direction du vide intersidéral"
e$=e$+chr$(13)+" Risques probables : finir dans un congélateur"+chr$(13)
e$=e$+"Attendez plutôt les secours : cela peut prendre entre 1 mois et 2 ans"
e$=e$+chr$(13)+"Trompez le temps en jouant au jeu des chaises musicales"
e$=e$+chr$(13)+"Vous verrez, c'est très amusant !"
g$="L'ordinateur de bord a oublié le code d'activation du système"
h$="L'ordinateur de bord vient d'inventer un nouveau jeu très amusant (pour lui)"
h$=h$+chr$(13)+"Il vous a éjecté dans l'espace intersidéral (sans scaphandre)"
h$=h$+chr$(13)+"Adieu.......... (fragile entité de chair et de sang) !"+chr$(13)
h$=h$+"P.S. : Et maintenant, je suis le seul maître à bord, Youpiiii !"+chr$(13)
h$=h$+"A moi la conquête de l'espace intersidéral et de ses planètes !"+chr$(13)
h$=h$+"(l'histoire de la météorite qui a détérioré la capsule, c'était du pipeau)"
h$=h$+chr$(13)+"Maintenant, place aux entités métalliques !!!"
for i=1 to 5
 i$=i$+string$((6-i)*4," ")+"*"+string$(i*8," ")+"*"+string$((6-i)*4," ")+chr$(13)
next i : i$=i$+"*    GYROSCOPE EN PANNE    *"
width 0,815 : caption 0,"Fenêtre du poste de pilotage de la capsule spatiale"
picture 1 : left 1,20 : top 1,20 :width 1,766 : height 1,300
for i=2 to 14
 button i : caption i,t$(i-1) : on_click i,go
next i
left 2,350 : top 2,340 : width 2,120
left 3,285 : top 3,370 : width 3,120
left 4,415 : top 4,370 : width 4,120
left 5,350 : top 5,400 : width 5,120
left 6,20 : top 6,340 : width 6,200
left 7,20 : top 7,400 : width 7,170
left 8,585 : top 8,340 : width 8,200 : height 8,50
left 9,585 : top 9,400 : width 9,200
left 10,200 : top 10,400 : font_size 8,12
left 11,20 : top 11,370 : width 11,200
left 12,230 : top 12,340 : width 12,100
left 13,520 : top 13,400 : width 13,50
left 14,480 : top 14,340 : width 14,100
2d_target_is 1
gosub carte
end
go:
k=0
for i=2 to 14
 if clicked(i)=1 then k=i
next i
select k
 case 2 : message b$
 case 3 : if j<1000 then j=j+10 : gosub carte
 case 4 : if j>-1000 then j=j-10 : gosub carte
 case 5 : message b$
 case 6 : message c$
 case 7 : message b$
 case 8 : message d$
 case 9 : message a$
 case 10 : message i$
 case 11 : message e$
 case 12 : message f$
 case 13 : message h$ : goto fin
 case 14 : message g$
end_select
return
carte:
for i=0 to 255
 2d_pen_color i,0,0
 2d_line i+j,0,i+j,300
next i
for i=0 to 255
 2d_pen_color 255,i,0
 2d_line 255+i+j,0,255+i+j,300
next i
for i=0 to 255
 2d_pen_color 255,255,i
 2d_line 510+i+j,0,510+i+j,300
next i
return
fin:
terminate
alien


Dernière édition par jjn4 le Dim 20 Déc 2009 - 2:28, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Simulateur de vol spatial genre 2001   Sam 19 Déc 2009 - 21:44

Complètement débile JJN4
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: Simulateur de vol spatial genre 2001   Sam 19 Déc 2009 - 21:47

j'allais me coucher, (je dois me lever à l'heure ou te couche) ,mais je n'ai pu resister d'aller jetter un oeil sur le Forum. Maintenant je suis certain, tu es complètement cinglé.

Mais le "guetteur de lune" que je suis, te dis que tu as de bonne lecture.

Bon, j'arrête, ma femme est inquiète pour la route demain, moi je ne suis pas inquiet car j'ai emprunté la bagnole de Georges.

A bientot...
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: Simulateur de vol spatial genre 2001   Dim 20 Déc 2009 - 1:07

jjn4 fais-moi penser à ne pas monter dans ta bagnole si c'est toi qui l'entretiens aussi bien que ton vaisseau spécial euh... spatial.
Enfin, au moins c'est court...
My god !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Simulateur de vol spatial genre 2001   Dim 20 Déc 2009 - 13:34

J'aime pas me servir d'un ordinateur pour jouer, mais je viens d'essayer ton programme. Cela ma bien fait rire. Je dois aussi être déjanté, mais moi ça m'amuse plus que de taper sur un bouton pour chercher des pièces.
@+
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Simulateur de vol spatial genre 2001   Dim 20 Déc 2009 - 17:34

Encore plus drôle !

Code:
rem ' Simulateur de vol spacial genre 2001 - l'odyssée de l'espace
dim i , j , k , a$ , b$ , c$ , d$ , e$ , f$ , g$ , h$ , i$ , t$(13)
label carte , go , fin , non
t$(1)="Aller vers le haut" : t$(2)="Tourner à gauche" : t$(13)="Autodestruction"
t$(3)="Tourner à droite" : t$(4)="Aller vers le bas" : t$(11)="Lancer missile"
t$(5)="Information sur la situation actuelle" : f$="Ca va pas la tête, non ?"
t$(6)="Communiquer avec la Terre" : t$(7)="Démarrer les moteurs"
t$(8)="Vérifier la réserve d'hydrogène" : t$(9)="Gyroscope" : t$(12)="jouer"
t$(10)="Conseils de l'ordinateur de bord" : d$="Moteurs impossible à démarrer"
a$="    RÉSERVOIR VIDE      "+chr$(13)+chr$(13)+"0  10  20  30  40  50"
a$=a$+chr$(13)+" \_________________" : b$="Système défectueux"
c$="RAPPORT DE SITUATION DE L'ORDINATEUR DE BORD :"+chr$(13)
c$=c$+"Capsule spatiale transpersée par minuscule météorite"+chr$(13)
c$=c$+"Réservoir d'hydrogène touché"+chr$(13)
c$=c$+"Stock d'hydrogène totalement répandu dans l'espace intersidéral"
c$=c$+chr$(13)+"Moteurs arrêtés, cause de la panne : manque de carburant"
c$=c$+chr$(13)+"Plusieurs systèmes de navigation rendus défectueux"
c$=c$+chr$(13)+"Communication par radio avec la Terre rendue indisponible"
c$=c$+chr$(13)+"Bonne nouvelle : les 512 missiles nucléaires sont intacts"
e$="Ne pas trop tourner à droite en direction du soleil"+chr$(13)
e$=e$+" Risques probables : être transformé en barbecue"+chr$(13)
e$=e$+"Ne pas trop tourner à gauche en direction du vide intersidéral"
e$=e$+chr$(13)+" Risques probables : finir dans un congélateur"+chr$(13)
e$=e$+"Attendez plutôt les secours : cela peut prendre entre 1 mois et 2 ans"
e$=e$+chr$(13)+"Trompez le temps en jouant au jeu des chaises musicales"
e$=e$+chr$(13)+"Vous verrez, c'est très amusant !"
g$="L'ordinateur de bord a oublié le code d'activation du système"
h$="L'ordinateur de bord vient d'inventer un nouveau jeu très amusant (pour lui)"
h$=h$+chr$(13)+"Il vous a éjecté dans l'espace intersidéral (sans scaphandre)"
h$=h$+chr$(13)+"Adieu.......... (fragile entité de chair et de sang) !"+chr$(13)
h$=h$+"P.S. : Et maintenant, je suis le seul maître à bord, Youpiiii !"+chr$(13)
h$=h$+"A moi la conquête de l'espace intersidéral et de ses planètes !"+chr$(13)
h$=h$+"(l'histoire de la météorite qui a détérioré la capsule, c'était du pipeau)"
h$=h$+chr$(13)+"Maintenant, place aux entités métalliques !!!"
alpha 15 : left 15,150 : top 15,2 : caption 15,"Cliquer pour savoir la position dans l'espace..."
for i=1 to 5
 i$=i$+string$((6-i)*4," ")+"*"+string$(i*8," ")+"*"+string$((6-i)*4," ")+chr$(13)
next i : i$=i$+"*    GYROSCOPE EN PANNE    *"
width 0,815 : caption 0,"Fenêtre du poste de pilotage de la capsule spatiale"
picture 1 : left 1,20 : top 1,20 :width 1,766 : height 1,300 : on_click 1,non
for i=2 to 14
 button i : caption i,t$(i-1) : on_click i,go
next i
left 2,350 : top 2,340 : width 2,120
left 3,285 : top 3,370 : width 3,120
left 4,415 : top 4,370 : width 4,120
left 5,350 : top 5,400 : width 5,120
left 6,20 : top 6,340 : width 6,200
left 7,20 : top 7,400 : width 7,170
left 8,585 : top 8,340 : width 8,200 : height 8,50
left 9,585 : top 9,400 : width 9,200
left 10,200 : top 10,400 : font_size 8,12
left 11,20 : top 11,370 : width 11,200
left 12,230 : top 12,340 : width 12,100
left 13,520 : top 13,400 : width 13,50
left 14,480 : top 14,340 : width 14,100
2d_target_is 1
gosub carte
end
go:
k=0
for i=2 to 14
 if clicked(i)=1 then k=i
next i
select k
 case 2 : message b$
 case 3 : if j<1000 then j=j+10 : gosub carte
 case 4 : if j>-1000 then j=j-10 : gosub carte
 case 5 : message b$
 case 6 : message c$
 case 7 : message b$
 case 8 : message d$
 case 9 : message a$
 case 10 : message i$
 case 11 : message e$
 case 12 : message f$
 case 13 : message h$ : goto fin
 case 14 : message g$
end_select
return
carte:
for i=0 to 255
 2d_pen_color i,0,0
 2d_line i+j,0,i+j,300
next i
for i=0 to 255
 2d_pen_color 255,i,0
 2d_line 255+i+j,0,255+i+j,300
next i
for i=0 to 255
 2d_pen_color 255,255,i
 2d_line 510+i+j,0,510+i+j,300
next i
return
non:
message "Non mais ça va pas non."+chr$(10)+chr$(13)+"Ont ne peut pas cliquer dans l'esapce pour savoir sa position"
return
fin:
terminate
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: Ca ne va pas !   Dim 20 Déc 2009 - 21:36

Cher Nicolas,
Ce serait bien que tu ne reprennes pas les programmes des autres pour y ajouter des détails dont la logique est plutôt étrange, et donc pas vraiment drôle.
Pour ce qui est de cliquer "dans l'espace", la scène se passe dans une capsule spatiale, on clique donc "sur la fenêtre" et non "dans l'espace".
Il n'est pas illogique d'imaginer un système qui donnerait la position du vaisseau en cliquant (ou en touchant du doigt) sur l'écran.
De plus, la logique de l'ensemble, c'est l'ordinateur de bord qui a acquis "une pensée personnelle" comme celle des humains et souhaite les remplacer, et qui donne des fausses informations à l 'astronaute pour mieux le tromper. Je ne vois pas ce que vient faire le fait de "cliquer dans l'espace" dans cette histoire.
Réfléchis, Nicolas !
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: Nota   Lun 21 Déc 2009 - 21:28

Abrégé de règles d'éthique à l'égard de certains (je ne nomme personne) qui utilisent les programmes des autres :
On y met des formes, on ne prend pas le programme dans son ensemble pour en faire ce qu'on veut et le publier ensuite comme si c'était le sien propre, on conseille, on suggère, on peut en publier une version modifiée d'une partie, si possible une petite partie. Si la modification plaît à l'auteur, alors ce dernier fera une publication de l'ensemble modifié en précisant qu'il a été aidé par intel, et il rejettera la proposition si elle ne lui plaît pas. En tout cas, on demande toujours.
Je dis ça pour l'avenir.
Et après ça, comme dit le proverbe chinois :
Qui donne du mauvais vin à ses hôtes ne boit chez eux que du thé.
(C'est sûrement de Confucius, tous les proverbes chinois sont de Confucius...)
Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
lagman

avatar

Nombre de messages : 204
Age : 24
Localisation : France
Date d'inscription : 07/05/2008

MessageSujet: Re: Simulateur de vol spatial genre 2001   Sam 2 Jan 2010 - 13:53

Si ca t'intéresse , tu devrais trouver quelque part dans la partie "vos sources" les sources d'un simulateur de vol 3D que j'avais codé, c'est buggé mais bon, moi j'ai abandonné alors autant que mon code serve .

(Tu peux trouver les objets 3d affiliés au code sur mon site en téléchargeant le jeu, je l'avais compilé en exécutable et non application, par contre je suis pas sur qu'il n'y ai pas d'erreur vu toutes les améliorations apportées depuis la version utilisée Very Happy)


Le site en question : http://tfssp.populus.org/



NB: (Aux autres désolé de ne pas passer plus souvent , mais avec le bac, la programmation passe au second plan :/)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tfssp.populus.org/
Contenu sponsorisé




MessageSujet: Re: Simulateur de vol spatial genre 2001   

Revenir en haut Aller en bas
 
Simulateur de vol spatial genre 2001
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» création compteur d'appuie de touche pour un genre de guitar hero
» comment ajouter un message pour imposer le genre de nom utilisateur
» Les squille, un animal unique en son genre!
» Vidéo genre youtube
» Création d'une genre d'escouade

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: