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
» quel est ce comportement de Panoramic_editor
par JL35 Aujourd'hui à 16:38

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» Découpe dans une image
par JL35 Hier à 22:00

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Micro-ondes trash

Aller en bas 
AuteurMessage
jjn4

avatar

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

MessageSujet: Micro-ondes trash   Lun 1 Fév 2016 - 17: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 : 8015
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

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



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

avatar

Nombre de messages : 5746
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 - 18: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 : 1679
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 1 Fév 2016 - 18: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 : 5746
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 - 18: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 : 1679
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 1 Fév 2016 - 18: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 : 5746
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 - 18:58

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

avatar

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

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

que d’imagination! :) :) :)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Micro-ondes trash   Lun 1 Fév 2016 - 20: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 : 5746
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 - 21: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
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
» plus de casque ni micro reconnu

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: