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 | 
 

 Micro-ondes trash

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: Micro-ondes trash   Lun 1 Fév 2016 - 19:37

Qui d'entre vous n'a jamais rêvé de décongeler son steak
dans un micro-ondes que vous auriez fabriqué vous-même
uniquement à l'aide du langage panoramic ?
Eh bien voilà, ne cherchez plus, c'est fait.
Bon appétit !
Code:
rem ' Micro-ondes
  dim a$ , i% , j% , k% , tc%
  label how , quoi , voir
 
rem form0
  left 0,400
  top 0,100
  width 0,800
  height 0,480
  color 0,150,150,150
  caption 0,"Micro-ondes"

picture 10 : rem Porte
  left 10,100
  top 10,80
  width 10,400
  height 10,280
  2d_target_is 10
  fermer()
 
button 20
  left 20,600
  top 20,20
  width 20,160
  height 20,50
  font_bold 20
  font_size 20,12
  caption 20,"Explications"
  on_click 20,quoi
 
for i%=1 to 3
  button i%*10+40
      inactive i%*10+40
      left i%*10+40,620
      top i%*10+40,i%*90-10
      width i%*10+40,120
      height i%*10+40,80
      font_bold i%*10+40
      font_size i%*10+40,20
      caption i%*10+40,i%
      on_click i%*10+40,how
next i%

button 80
  inactive 80
  left 80,600
  top 80,350
  width 80,160
  height 80,50
  font_bold 80
  font_size 80,12
  caption 80,"Ouvrir"
  on_click 80,voir

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

how:
  tc%=number_click
  select tc%/10-4
      case 1 : un()
      case 2 : deux()
      case 3 : trois()
  end_select
return

sub deux()
  inactive tc%
  marche()
  active 80
  caption 80,"Ouvrir"
end_sub

sub fermer()
  2d_clear
  2d_pen_color 0,0,0
  2d_fill_color 0,0,0
  2d_fill_diagonal_cross
  2d_rectangle 0,0,400,280
end_sub

sub marche()
  midi_on
      midi_volume 127
      for i%=1 to 60
        left 0,400+int(rnd(11))-5
        top 0,100+int(rnd(11))-5
        if tc%=70
            if i%=38
              left 0,380
              top 0,70
              midi_instrument 127
              midi_play 60,9
              left 0,400
              top 0,100
            end_if
            if i%=40
              left 0,415
              top 0,75
              midi_instrument 127
              midi_play 60,9
              left 0,400
              top 0,100
            end_if
        end_if
        midi_instrument 127
        midi_play int(rnd(20))+21,10
      next i%
  midi_off
end_sub

sub one()
  2d_circle 162,103,28
  2d_circle 150,100,7
  2d_circle 175,100,7
  2d_circle 150,100,3
  2d_circle 175,100,3
  2d_circle 200,175,65
  2d_line 138,68,140,88
  2d_line 138,68,155,80
  2d_line 178,66,165,78
  2d_line 178,66,179,85
  2d_pen_width 20
  2d_line 145,190,125,230
  2d_line 175,190,155,230
  2d_circle 115,230,2
  2d_circle 150,230,2
  for i%=255 to 265
      2d_circle i%,210-(i%/5-50)*45,2
  next i%
  2d_circle 264,64,2
  2d_circle 260,60,2
  2d_circle 256,58,2
  2d_circle 252,58,2
  2d_circle 248,60,2
  2d_circle 244,62,2
  2d_flood 150,100,0,0,0
  2d_flood 175,100,0,0,0
  2d_flood 162,110,0,0,0
  2d_flood 200,180,0,0,0
  2d_flood 145,75,0,0,0
  2d_flood 175,70,0,0,0
  2d_flood 178,117,0,0,0
  2d_pen_width 1
  for i%=10 to 360 step 7
      for j%=10 to 360 step 15
        2d_line 200+55*sin(i%),175+55*cos(i%),200+55*sin(i%)+20*sin(j%),175+55*cos(i%)+20*cos(j%)
      next j%
  next i%
end_sub

sub ouvrir()
  2d_clear
  2d_fill_off
  select tc%/10-4
      case 1 : one()
      case 2 : two()
      case 3 : three()
  end_select
end_sub

quoi:
  inactive 20
  application_title "Le pourquoi du comment :"
  a$="  Vous avez enfin réussi à coincer ce sale chat qui pissait sur votre balcon"+chr$(13)
  a$=a$+"et prenait vos vasques de fleurs pour des litières, en l'attirant dans"+chr$(13)
  a$=a$+"votre micro-ondes où vous aviez laissé traîner un vieux morceau de viande,"+chr$(13)
  a$=a$+"et vous lui en avez claqué la porte au nez !"+chr$(13)+chr$(13)
  a$=a$+"  Aussi, d'une main rageuse, vous allez pouvoir lui rendre la monnaie"+chr$(13)
  a$=a$+"de sa pièce. Bien sûr, votre grand coeur va vous commander de rester"+chr$(13)
  a$=a$+"indulgent et de ne lui appliquer les 3 niveaux d'ondes que un par un..."
  message a$
  active 50
return

sub three()
  inactive 80
  for i%=1 to 3500
      j%=int(rnd(400))+1
      k%=int(rnd(280))+1
      2d_line j%,k%,j%+10*sin(i%),k%+10*cos(i%)
  next i%
  2d_fill_color 255,255,255
  2d_circle 180,10,12
  2d_circle 180,13,3
  2d_flood 180,13,0,0,0
  2d_fill_off
  pause 999
  for i%=10 to 269
      2d_pen_color 255,255,255
      2d_fill_color 255,255,255
      2d_circle 180,i%,12
      2d_pen_color 0,0,0
      2d_circle 180,i%+1,12
      2d_circle 180,i%+4,3
      2d_flood 180,i%+4,0,0,0
      2d_fill_off
      pause 10
  next i%
end_sub

sub trois()
  inactive tc%
  marche()
  active 80
  caption 80,"Ouvrir"
end_sub

sub two()
  2d_circle 162,103,38
  2d_circle 145,95,12
  2d_circle 170,90,7
  2d_circle 150,90,3
  2d_circle 170,90,3
  2d_circle 200,175,65
  2d_line 120,22,134,80
  2d_line 120,22,155,70
  2d_line 178,16,165,68
  2d_line 178,16,185,75
  2d_pen_width 20
  2d_line 145,190,125,230
  2d_line 175,190,155,230
  2d_circle 115,230,2
  2d_circle 150,230,2
  for i%=255 to 265
      2d_circle i%,210-(i%/5-50)*45,2
  next i%
  2d_flood 150,90,0,0,0
  2d_flood 170,90,0,0,0
  2d_flood 162,110,0,0,0
  2d_flood 200,180,0,0,0
  2d_flood 130,60,0,0,0
  2d_flood 175,60,0,0,0
  2d_flood 180,125,0,0,0
  2d_pen_width 1
  for i%=10 to 360 step 7
      for j%=10 to 360 step 20
        2d_line 200+65*sin(i%),175+65*cos(i%),200+65*sin(i%)+20*sin(j%),175+65*cos(i%)+20*cos(j%)
      next j%
  next i%
  for i%=10 to 360 step 5
      2d_line 265,68,265+35*sin(i%),68+35*cos(i%)
  next i%
end_sub

sub un()
  inactive 20
  inactive tc%
  marche()
  active 80
  caption 80,"Ouvrir"
end_sub

voir:
  if caption$(80)="Ouvrir"
      caption 80,"Fermer"
      ouvrir()
      if tc%=70
        inactive 80
      end_if
  else
      if tc%<70
        active tc%+1*10
      end_if
      inactive 80
      fermer()
  end_if
return
lol! lol! lol! alien lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Yannick

avatar

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

MessageSujet: re   Lun 1 Fév 2016 - 20:07



Dernière édition par ygeronimi le Lun 1 Fév 2016 - 22:14, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Micro-ondes trash   Lun 1 Fév 2016 - 20:27

Je ne savais pas que les Martiens sont si cruels !
J’aurais préféré en faire de ce chat un bon steak à déguster pour fêter ta réconciliation avec Panoramic_Editor qui a, enfin, accepté de tourner sur ton PC !
Mais bon, personne n'est parfait, mais ton code l'est!

@ygeronimi

Je n'arrive pas à afficher ce que tu as posté!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Lun 1 Fév 2016 - 20:33

Il a affiché un petit bonhomme animé qui se roule par terre de rire.
lol! alien lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

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

MessageSujet: Re: Micro-ondes trash   Lun 1 Fév 2016 - 20:40

Pourquoi il ne s’affiche pas chez moi ?
As-tu contaminé mon PC par télépathie ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Lun 1 Fév 2016 - 20:45

Hum, possible...
Les micro-ondes peuvent être très nocives,
(surtout avec un four MO fabriqué de façon artisanale) !
Mad Very Happy alien Laughing bom
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

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

MessageSujet: Re: Micro-ondes trash   Lun 1 Fév 2016 - 20:58

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
pascal10000

avatar

Nombre de messages : 518
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Micro-ondes trash   Lun 1 Fév 2016 - 21:08

que d’imagination! :) :) :)
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: Micro-ondes trash   Lun 1 Fév 2016 - 22:27

JJN4 a écrit:
Il a affiché un petit bonhomme animé qui se roule par terre de rire.

Hé oui, je vois ce que Papydall n'a pas pu voir... n'est-ce pas Ygeronimi....



A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Micro-ondes trash   Lun 1 Fév 2016 - 23:25

Hé bien je vois maintenant ce que je devais voir !
Comment ?
C’est après avoir validé un message me disant que flash a besoin d’autorisations ... ou quelque chose de ce genre.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Micro-ondes trash   

Revenir en haut Aller en bas
 
Micro-ondes trash
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» tr/trash.gen
» Micro sans fil pour FR3_sb
» Connecteur micro B
» Trend Micro TITANIUM AntiVirus+ 2012 gratuit pour un an
» Micro ou casque-micro de bonne qualité

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: