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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Micro-ondes trash

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

avatar

Nombre de messages : 1625
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 : 8002
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 : 5613
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 : 1625
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 : 5613
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 : 1625
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 : 5613
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 : 607
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 : 5086
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 : 5613
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
» 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: