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 à 16:47

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

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

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 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

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

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 | 
 

 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 : 1625
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 : 6018
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 : 5086
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: