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
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

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

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

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» 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

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

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 | 
 

 Pan(oram)ique chez les martiens

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: Pan(oram)ique chez les martiens   Ven 5 Fév 2010 - 21:35

Mesdames et Messieurs !!!

Asseyez-vous et tenez-vous bien...
car ce jour est un grand jour,
qui va rester marqué à jamais dans les annales...
Vous allez vivre maintenant un instant absolument exceptionnel...

En effet, voici en exclusivité...
le premier programme d'origine extra-terrestre diffusé sur ce site !!!
Et, j'espère que vous mesurez tout l'honneur que nous font les martiens...
il est fabriqué en langage panoramic !!!

Bon alors, attendez-vous bien à ce qu'il soit un peu atypique, quand même, hein !

- D'abord, il est vert, ce qui est normal étant donnée son origine.
- Ensuite, les objets-système n'y fonctionnent pas exactement comme chez nous.
- Et enfin, il est écrit en martien, alors évidemment...

Je ne sais pas ce qu'il en est pour vous, mais personnellement,
j'ai quand même du mal avec cette langue.

Et puis enfin, à quoi sert leur programme ? Alors là...
Je crois qu'ils nous ont envoyé ça pour nous aider à apprendre leur langue,
mais je n'en suis pas sûr...
Si vous arrivez à mieux comprendre...
Code:
rem ' Le premier programme d'origine Extra-Terrestre - Pg-ET
dim i , j , x , y , a$ , x$ , q$(10) , ind , i2 , i3
label langue , ouvre , affiche , 3d , quit
x=800 : rem longueur de la Form
y=450 : rem hauteur de la Form
q$(0)="  " : q$(1)=chr$(162) : q$(2)=chr$(163) : q$(3)=chr$(164)
q$(4)=chr$(165) : q$(5)=chr$(167) : q$(6)=chr$(181) : q$(7)=chr$(208)
q$(8)=chr$(215) : q$(9)=chr$(222) : q$(10)=chr$(254)
for i=1 to 15 : gosub langue : x$=x$+a$+chr$(13) : next i
border_hide 0 : color 0,0,40,255 : width 0,x : height 0,y
picture 1 : width 1,x : height 1,30 : 2d_target_is 1
for i=0 to 3 : 2d_pen_color 0,200-i*10,0 : 2d_line 0,i,x,i : next i
for i=4 to 22 : 2d_pen_color 0,i*4+120,0 : 2d_line 0,i,x,i : next i
for i=23 to 29 : 2d_pen_color 0,200-(i-22)*8,0 : 2d_line 0,i,x,i : next i
alpha 2 : left 2,27 : top 2,4 : font_color 2,255,255,255 : font_bold 2
color 2,0,180,0 : font_size 2,10
alpha 3 : left 3,2 : top 3,30 : width 3,x-4 : height 3,y-33 : color 3,236,233,216
picture 4 : left 4,5 : top 4,6 : width 4,18 : height 4,18
color 4,233,249,251 : 2d_target_is 4 : 2d_pen_color 255,51,0
2d_circle 9,9,8 : 2d_circle 9,9,6 : 2d_pen_color 51,51,153
2d_line 6,11,11,11 : 2d_circle 10,7,2 : 2d_pen_width 2 : 2d_line 8,6,8,11
picture 5 : left 5,x-25 : top 5,6 : width 5,20 : height 5,20
color 5,230,110,85 : 2d_target_is 5 : 2d_pen_color 255,255,255
2d_pen_width 2 : 2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20
2d_line 0,20,20,20 : 2d_line 4,14,14,4 : 2d_line 4,4,14,14
picture 6 : left 6,x-48 : top 6,6 : width 6,20 : height 6,20
color 6,0,170,0 : 2d_target_is 6 : 2d_pen_color 255,255,255
2d_pen_width 2 : 2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20
2d_line 0,20,20,20 : 2d_pen_width 1 : 2d_line 5,5,5,15 : 2d_line 5,15,15,15
2d_line 15,15,15,5 : 2d_pen_width 3 : 2d_line 5,5,15,5
picture 7 : left 7,x-71 : top 7,6 : width 7,20 : height 7,20
color 7,0,170,0 : 2d_target_is 7 : 2d_pen_color 255,255,255 : 2d_pen_width 2
2d_line 0,0,0,20 : 2d_line 0,0,20,0 : 2d_line 20,0,20,20 : 2d_line 0,20,20,20
2d_pen_width 3 : 2d_line 5,14,13,14 : color 0,0,170,0
gosub langue : caption 2,a$ : on_click 5,quit

edit 8 : left 8,20 : top 8,260 : width 8,400
button 9 : left 9,398 : top 9,262 : width 9,20 : height 9,18
font_name 9,"Webdings" : font_size 9,10 : caption 9,"5" : on_click 9,ouvre
alpha 10 : left 10,20 : top 10,260 : width 10,400 : height 10,1
alpha 11 : left 11,21 : top 11,259 : width 11,398 : height 11,1
alpha 12 : left 12,21 : top 12,61 : hide 12 : on_click 12,affiche
color 10,0,0,0 : color 11,255,255,255  : color 12,255,255,255
scene3d 13 : left 13,550 : top 13,200 : width 13,150 : height 13,150
picture 14 : left 14,100 : top 14,340 : width 14,60 : height 14,40 : color 14,236,233,216
picture 15 : left 15,250 : top 15,340 : width 15,60 : height 15,40 : color 15,236,233,216
2d_target_is 14 : 2d_pen_color 0,170,0 : 2d_fill_color 0,255,0 : 2d_circle 30,20,20
2d_fill_color 0,0,0 : 2d_circle 30,20,7 : hide 14
2d_target_is 15 : 2d_pen_color 0,170,0 : 2d_fill_color 0,255,0 : 2d_circle 30,20,20
2d_fill_color 0,0,0 : 2d_circle 30,20,7 : hide 15

end

langue:
a$=""
for j=1 to int(rnd(35)+23)
 a$=a$+q$(int(rnd(11)))
next j
return

ouvre:
if ind=0
 for j=260 to 60 step -1
  top 10,j : height 10,260-j
  top 11,j+1 : height 11,261-j
 next j : show 12 : caption 12,x$ : ind=1
else
 hide 12
 for j=60 to 260
  top 10,j : height 10,260-j
  top 11,j+1 : height 11,261-j
 next j : ind=0
end_if
return

affiche:
gosub langue : text 8,a$ : gosub ouvre : gosub 3d
return

3d:
i=int(rnd(7)) : if i=i2 then goto 3d
3d_delete_all : i3=i3+1
select i
 case 0 : 3d_cube 1,1
 case 1 : 3d_cone 1,1,1
 case 2 : 3d_cylinder 1,1,0.2,0.4
 case 3 : 3d_dodecahedron 1
 case 4 : 3d_sphere 1,0.8
 case 5 : 3d_teapot 1
 case 6 : 3d_torus 1,0.6,0.4
end_select
3d_color 1,0,200,0 : i2=i
if i3>5 then show 14 : show 15
return

quit:
terminate
lol!


Dernière édition par jjn4 le Sam 6 Fév 2010 - 12:07, édité 3 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Pan(oram)ique chez les martiens   Ven 5 Fév 2010 - 22:01

SUPER, JJN4, je savais déjà que les martiens utilisaient des COMBO(s) avec la flèche vers le haut. En fait, je connais bien ce language car il ressemble beaucoup à certains de mes codes ( ceux que je n'ai pas publier, car trop compliqué pour le commun des mortels, même Jack ne comprendrait pas).
Si quelqu'un à besoin de cours de Martiens, je peut donner un coup de main à JJN4 qui je pense va être débordé.

je vous l'ai écrit en-vert et contre tous. A+

Suspect alien

Nimporte quoi ! 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: +++   Ven 5 Fév 2010 - 22:16

Et encore, t'as pas vu les yeux... !
Laughing alien Laughing

PS: Alors, cette fois-ci, est-ce :
un Stresstilitaire, un Alientilitaire, un Espionagtilitaire ?
Mystère !


Dernière édition par jjn4 le Sam 6 Fév 2010 - 12:12, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Pan(oram)ique chez les martiens   Sam 6 Fév 2010 - 0:11

J'ai bien aimé ton combo à l'envers.
Bravo !
Revenir en haut Aller en bas
JL35



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

MessageSujet: Re: Pan(oram)ique chez les martiens   Sam 6 Fév 2010 - 1:31

Cela dit, il y en a qui n'ont pas grand chose à faire !
Franchement, publier un programme de Mars !
En février...
C'est n'importe quoi...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Pan(oram)ique chez les martiens   

Revenir en haut Aller en bas
 
Pan(oram)ique chez les martiens
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» soldes chez free !!
» Abonnement gratuit chez Free
» Spam et cheval de troie chez FREE et les autres FAI
» Visite chez Capitole
» "Oregon 450T en test gràce à un prêt chez Décathlon" vs Oziexplorer

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: