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
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

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

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
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

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 | 
 

 Recettes pour les fondus de cuisine moderne

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: Recettes pour les fondus de cuisine moderne   Dim 27 Juin 2010 - 19:43

Ah, ça fait longtemps que je n'avais pas fait un inutilitaire !

Celui-ci est un livre de recettes pour les gourmets.
Je suis sûr que ça va beaucoup intéresser Jean-Claude !

Evidemment, vous allez vous dire : mais en quoi est-ce un inutilitaire ?
Eh bien, essayez donc mes recettes, vous verrez bien, et vous pourrez alors me dire si vous souhaitez que je vous invite à manger chez moi !
Dites, vous croyez que je pourrai faire inclure ce programme dans le Gault et Millau ?

Code:
rem ' Cuisine-Moderne
dim a$ , h , i , j , k : rem Variables provisoires
dim c$(100) : rem Cuissons
dim i$(100) : rem Ingrédients
dim nc : rem Nombre de Cuissons
dim ni : rem Nombre d`Ingrédients
dim nr : rem Nombre de Recettes
dim r$(100) , p$(100) : rem Recettes et Plats
label recette , repere

data "Steak sauce strasbourgeoise" , "des steaks bien tendres"
data "Poulet sauce savoyarde" , "un poulet fermier"
data "Canard sauce fermière" , "un canard bien dodu"
data "Dorade à la coréenne", "une grosse dorade"
data "Canard sauce diplomate" , "un canard sauvage"
data "Suprême de volaille Gertrude" , "un poulet fermier"
data "Dinde Marigny" , "une dinde de bonne taille"
data "Poulet sauté grande duchesse" , "un poulet bio"
data "Coq bonne femme" , "un coq de ferme"
data "Chevreuil sauce Montmorency" , "un gigot de chevreuil"
data "Cailles à la mode de Caën" , "autant de cailles que d'invités"
data "Faisan du sultan" , "un beau faisan bien dodu"
data "Lapin sauce garenne" , "un lapin bien dodu"
data "Châteaubriants à l'américaine" , "de larges tranches de boeuf"
data "Marcassin sauce suprême" , "un beau marcassin"
data "Sanglier à la sauce des bois" , "un gigot de sanglier"
data "Porc sauce exotique" , "de belles côtes de porc"
data "Canard laqué sauce orientale" , "un beau canard chez le traiteur chinois"
data "Veau fermière" , "de belles tranches de veau"
data "Agneau sauce innocent" , "de belles côtes d'agneau"
data "Mouton sauce lupus" , "un gigot de mouton"
data "Boeuf à la russe" , "des tranches de rumsteack"
data "Kangourou sauce australienne" , "un gogot de kangourou"
data "Autruche sauce dinosaure" , "un gigot d'autruche"
data "Bison à la mode indienne" , "de belles tranches de bison"
data "Crevettes à la mode vendéenne" , "2 kg de grosses crevettes"
data "Langouste à la mode de Paris" , "une belle langouste"
data "Carpe du 8 vendémiaire" , "une belle carpe d'au moins 2 kg"
data "Saumon à la hussarde" , "de belles tranches de saumon"
data "Thon façon Napoléon" , "de belles tranches de thon rouge"
data "Morue à la papelarde" , "de belles tranches de morue"
data "Lotte royale" , "de belles tranches de lotte"
data "Civet d'oie des îles sauvages" , "une grosse oie"
data "Civet de lièvre sauce Titanic" , "un beau lièvre bien dodu et faisandé"
data "Ragoût de mouton façon Torquemada" , "des morceaux de mouton dans le collier"
data "Gigot de mouton sans façon" , "un beau gigot de mouton"
data "fin1" , "fin1"
data "du ketchup" , "des cornichons" , "du nutella" , "du chocolat" , "de l'ail"
data "du paprika" , "du curry" , "du coulis de fraise" , "des pommes de terre"
data "du jaune d'oeuf" , "du blanc d'oeuf" , "un oeuf entier" , "du persil"
data "de la mayonnaise" , "de la moutarde" , "de la sauce tomate" , "du lait"
data "une échalote émincée" , "un oignon émincé" , "du thym" , "du vin blanc"
data "de l'essence de térébenthine" , "du dissolvant" , "un morceau de savon"
data "du vin rouge" , "du whisky" , "des câpres" , "de la farine" , "du beurre"
data "de la sauce rouille" , "du viandox" , "du miel" , "du bouillon cube"
data "de l'encre de chine" , "des feuilles de menthe" , "de la vanille"
data "de la harissa" , "du citron" , "du vinaigre" , "de la cannelle"
data "du gingembre" , "du piment de Cayenne" , "des feuilles d'anis"
data "fin2"
data "Mettez à cuire au four" , "Faites mijoter" , "Faites cuire à l'étouffée"
data "Faites cuire à feu vif" , "Faites cuire dans une marmite remplie d'eau"
data "Faites cuire dans une casserole" , "Faites rôtir à four chaud"
data "Faites cuire au micro-ondes" , "Faites cuire au court-bouillon"
data "Plongez le tout dans une friteuse"
data "fin3"

repeat
 nr=nr+1 : read r$(nr) : read p$(nr)
until r$(nr)="fin1"
nr=nr-1

repeat
 ni=ni+1 : read i$(ni)
until i$(ni)="fin2"
ni=ni-1

repeat
 nc=nc+1 : read c$(nc)
until c$(nc)="fin3"
nc=nc-1

width 0,800 : caption 0,"RECETTES DE CUISINE MODERNE"

alpha 1
left 1,25 : top 1,20 : font_bold 1
caption 1,"Choisissez votre recette"

list 2
left 2,25 : top 2,40 : width 2,205 : height 2,380
for i=1 to nr : item_add 2,r$(i) : next i
on_click 2,recette

memo 3
left 3,235 : top 3,40 : width 3,525 : height 3,380
bar_vertical 3

for i=4 to 8
 alpha i : hide i
 left i,i*50+150 : top i,10 : font_size i,14
 font_name i,"Wingdings 2" : caption i,chr$(225)
next i

alpha 9
left 9,225 : top 9,5 : font_size 9,20 : hide 9
font_name 9,"Wingdings" : caption 9,chr$(78)

end

recette:
clear 3 : hide 9
item_add 3,r$(item_index(2))
item_add 3,string$(30,"-")
item_add 3,"Vous prenez "+p$(item_index(2))
item_add 3,"Vous ajoutez :"
for i=1 to int(rnd(8))+6
repere:
 h=int(rnd(ni))+1 : k=0
 for j=1 to count(3)
  if " - "+i$(h)=item_read$(3,j) then k=1
 next j
 if k=1 then goto repere
 item_add 3," - "+i$(h)
next i
a$="" : k=int(rnd(4))+1 : if k>1 then a$="s"
item_add 3,c$(int(rnd(nc))+1)+" pendant "+str$(k)+" heure"+a$
item_add 3,"Servez bien chaud"
item_add 3,"et bon appétit."
item_add 3,""
k=int(rnd(4))+2
item_add 3,"Estimation de nos gourmets : "+string$(k,"*")
for i=4 to 8
 if i>k+3
  hide i
 else
 show i
end_if
next i : k=0
for i=1 to count(3)
 if right$(item_read$(3,i),5)="lvant" or right$(item_read$(3,i),5)="thine"
  show 9
  k=1
 end_if
next i
if k=1
 item_add 3,"Conseil du chef :"
 item_add 3,"  goûtez donc d'abord avant de décider de manger"
end_if
return
Ah, petite précision, avant de manger,
lorsque vous voyez apparaître le symbole qu'ont choisi les pirates pour leur drapeau,
suivez scrupuleusement le conseil du chef :
(qui a quelquefois des accès de créativité un peu débridés)
ne faites pas les morfals, et goûtez donc d'abord...
lol!
Vous vous souvenez que l'histoire drôle située sur mon site est renouvelée chaque dimanche ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



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

MessageSujet: Re: Recettes pour les fondus de cuisine moderne   Dim 27 Juin 2010 - 22:43

Ça tombe bien, j'avais plus faim ! Evil or Very Mad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Recettes pour les fondus de cuisine moderne   Lun 28 Juin 2010 - 9:05

Hé! JJN4, t'aurais pas forcé sur le JaJa ce week-end.

Pour ma part, j'ai parcouru ce livre de recette et je dois dire que je n'en éssairais aucune. Dabort je n'ai pas de casserole assez grande pour y mettre un marcassin pig et pas de micro-onde qui cuise pendant 2 heures. Quand a certains ingrédients ne cherchez pas à l'alimentation mais plutôt à la droguerie du coin.
Pour manger cette cuisine il faut "aller à Thouars" et par hasard.

Un conseil, si tu veux toujours faire paraitre dans le Gault et Millau, va dabord te jeter du pont ( de Millau).

drunken geek Y sont pas tous enfermés lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Recettes pour les fondus de cuisine moderne   

Revenir en haut Aller en bas
 
Recettes pour les fondus de cuisine moderne
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Avez-vous eue un appel de DirectBuy pour 50,000$ pour une cuisine à Ottawa ?
» Rendu Cuisine
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie

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: