XProfan

Titre de la fenêtre "Sättigungsampel qui Deutschen Apothekervereinigung"
' source: Public Domain - www.apothekenumschau.de - 23570513937.pdf
' Bezeichnung, Kalorien pro Gramm, Ampelfarbe (red,yellow,green = r y g)
Fenêtre Style 24:font 2:Fenêtre %maxx*0.4,%maxy*0.8
locate 2,2:imprimer "     Eintrag                          Kalorien je Gramm \n"
Var Werte$="# Brot \n"+\
"y, Schwarzbrot, 1.9 - 2.2 \n"+\
"y, Graubrot, 1.9 - 2.2 \n"+\
"r, Weißbrot, 2.5 \n"+\
"r, Knäckebrot, 3.2 \n"+\
"r, Croissant, 4.3 \n"+\
\
"#Beilagen avec Kohlenhydraten \n"+\
\
"g, Kartoffeln, 0.7 \n"+\
"g, Kartoffelsalat avec Essig et Öl, 1.0 \n"+\
"y, Kartoffelsalat avec mayonnaise, 2.1 \n"+\
"g, Kartoffelkloßteig (Ö: Kartoffelknödel), 1.1 \n"+\
"g, Bratkartoffeln, 1.3 \n"+\
"g, Reis, 1.1 \n"+\
"g, Nudeln, 1.4 \n"+\
"g, Vollkornnudeln, 1.4 \n"+\
"y, Kroketten, 1.9 \n"+\
"y, Spätzle, 1.8 \n"+\
"r, Pommes frites (aus Friteuse), 2.9 \n"+\
\
"# Fleisch \n"+\
\
"g, Hähnchenbrustfilet, 1.0 \n"+\
"g, Putenschnitzel, 1.0 \n"+\
"g, Rindfleisch maigre, 1.0 \n"+\
"g, le veau maigre, 1.0 \n"+\
"g, Rindersteak, 1.2 \n"+\
"y, Rinderhackfleisch (Ö: Faschiertes), 2.2 \n"+\
"r, viande hachée gemischt (Ö: Fettes Faschiertes), 2.6 \n"+\
"g, Schweineschnitzel nature, 1.1 \n"+\
"r, Schweineschnitzel paniert, 3.2 \n"+\
"g, Schweinskotelett, 1.5 \n"+\
"y, Frikadelle/Bullette/Fleischpflanzerl/Ö: Faschiertes Laibchen, 2.1 \n"+\
"y, Ente, 2.3 \n"+\
"r, oie, 3.4 \n"+\
\
"# fromage \n"+\
\
"g, Frischkäse 5 % Fett absolu, 1.1 \n"+\
"g, Kräuterquark_(Ö:Topfen), 1.4 \n"+\
"y, Mozzarella light, 1.6 \n"+\
"g, Speisequark 40% FiT, 1.4 \n"+\
"y, Frischkäse 16 % Fett absolu, 2.0 \n"+\
"r, Mozzarella, 2.5 \n"+\
"r, Frischkäse 60 % Fett, 2.9 \n"+\
"r, Gouda, 3.5 \n"+\
"r, Edamer, 3.5 \n"+\
"r, Raclette. 45 % FiT, 3.5 \n"+\
"r, camembert 45 % FiT, 2.9 \n"+\
"r, Mascarpone, 4.6 \n"+\
\
"# Wurst & Aufschnitt \n"+\
\
"g, Gekochter jambon, 1.3 \n"+\
"g, Kalter Braten, 1.4 \n"+\
"g, Geräucherter jambon, 1.5 \n"+\
"g, Energiearme Wurst/Würstchen, 0.8 - 1.3 \n"+\
"y, Bierschinken, 1.7 \n"+\
"r, Landjäger, 4.6 \n"+\
"r, Wiener Würstchen/Gelbwurst/Ö: Frankfurter, 2.8 \n"+\
"r, Bratwurst, 3.1 \n"+\
"r, salami, 3.7 \n"+\
"r, paté de foie, 3.0 \n"+\
"r, Leberkäs, 3.0 \n"+\
\
"# fruit & légumes \n"+\
\
"g, fruit (im Durchschnitt), 0.5 \n"+\
"r, Trockenobst (im Durchschnitt), 2.7 \n"+\
"g, Grüner salade, 0.1 \n"+\
"y, Salatsoße, 0.3 - 4.5 \n"+\
"g, légumes (im Durchschnitt), 0.2 \n"+\
"g, Tiefkühlgemüse, 0.2 - 1.2 \n"+\
"r, Oliven noir, 3.5 \n"+\
\
"# Fette \n"+\
\
"r, Öl, 9.0 \n"+\
"r, Butter, 8.0 \n"+\
"r, margarine, 8.0 \n"+\
"r, Becel plus, 4.5 \n"+\
"r, Halbfettbutter/-margarine, 3.7 \n"+\
\
"# Süßer Brotaufstrich \n"+\
\
"r, Honig, 3.3 \n"+\
"r, Konfitüre / la confiture, 2.7 \n"+\
"r, Nussnougatcreme, 5.2 \n"+\
\
"# Fertiggerichte & Fastfood \n"+\
\
"g, Suppen, 0.3 - 0.8 \n"+\
"g, Eier, 1.5 \n"+\
"g, Eintöpfe (Konserve), 0.2 - 0.9 \n"+\
"y, Hamburger, 2.4 \n"+\
"y, Döner, 2.1 \n"+\
"y, Fischstäbchen, 2.0 \n"+\
"r, Tiefkühlpizza, 2.1 - 2.9 \n"+\
\
"# Müsli / yaourt \n"+\
\
"g, yaourt avec Früchten - gezuckert 1.5% Fett, 0.8 \n"+\
"g, yaourt avec Früchten - gezuckert 3.5% Fett, 0.9 \n"+\
"r, Müsli (trocken), 3.1 - 4.4 \n"+\
"r, Fruchtriegel / Müsliriegel, 3.2 - 4.2 \n"+\
\
"# Fisch \n"+\
\
"g, Seelachs, 0.8 \n"+\
"g, Zander, 0.8 \n"+\
"g, cabillaud, 0.8 \n"+\
"g, Krabben, 0.9 \n"+\
"g, Forelle, 1.0 \n"+\
"y, Sushi, 1.6 \n"+\
"y, maquereau, 1.8 \n"+\
"y, saumon, 2.0 \n"+\
"y, Heringsfilet dans Tomatensoße, 2.0 \n"+\
"r, Panierter Fisch, 3.2 \n"+\
\
"# Soßen \n"+\
\
"g, Braune jusqu'à helle Soßen, 0.4 - 1.1 \n"+\
"g, Tomatensauce, 0.6 - 1.3 \n"+\
"g, Saure la crème (Ö: Sauermilch), 1.2 \n"+\
"y, Cocktailsoße, 2.0 \n"+\
"r, sauce Holandaise, 4.4 - 5.7 \n"+\
"r, Pesto, 3.6 - 5.8 \n"+\
"r, mayonnaise, 7.4 \n"+\
"r, la crème (Ö: Obers), 3.1 \n"+\
"r, Crème Fraiche, 3.8 \n"+\
\
"# Knabbereien \n"+\
\
"r, Nüsse, 5.7 - 7.0 \n"+\
"r, Kartoffelchips, 5.3 \n"+\
"r, Reiskräcker, 3.8 \n"+\
"r, Popcorn, 3.7 \n"+\
"r, Salzstangen Ö: Soletti, 3.5 \n"+\
\
"# Süßigkeiten / Desserts \n"+\
\
"g, Pudding (aus dem Kühlregal), 0.6 - 1.2 \n"+\
"g, Milchreis (aus dem Kühlregal), 0.6 - 1.2 \n"+\
"y, Sahnepudding, 1.5 - 1.6 \n"+\
"y, glace, 1.4 - 2.9 \n"+\
"y, Kaiserschmarrn, 2.4 \n"+\
"r, Vollmilchschokolade, 5.4 \n"+\
"r, Weiße Schokolade, 5.4 \n"+\
"r, Edelbitterschokolade, 5.3 \n"+\
"r, massepain, 4.9 \n"+\
"r, Tiramisu (selbst gemacht), 2.6 \n"+\
"r, Mousse (Schokolade+vanille+vin:selbst gemacht), 3.3 \n"+\
\
"# Kuchen \n"+\
\
"y, Obstkuchen aus Hefeteig, 1.8 \n"+\
"r, Rührkuchen, 3.6 \n"+\
"r, Sahnetorte (Ö: Topfentorte), 3.7 \n"+\
"r, Blätterteiggebäck, 3.3 \n"+\
\
"# Getränke \n"+\
\
"g, l'eau, 0 \n"+\
"g, Light-Limonaden, 0 \n"+\
"g, thé, 0 \n"+\
"g, café sans Mildch et Zucker, 0 \n"+\
"r, un jus de fruit, 0.5 \n"+\
"r, Limonade, 0.4 \n"+\
"r, Cola, 0.6 \n"+\
"g, Cola light, 0 \n"+\
"g, Cola Zero, 0 \n"+\
"r, Alkoholfreies bière, 0.3 \n"+\
"r, bière, 0.4 \n"+\
"r, Rotwein, 0.8 \n"+\
"r, Weißwein, 0.8 \n"+\
"r, Sekt, 0.8 \n"+\
"r, Likör, 2.4 \n"+\
"r, Whisky, 2.4 \n"+\
"r, lait (1.5 % Fett), 0.5 \n"+\
"r, lait (3.5 % Fett), 0.6"
'werte$=translate$(werte$," ",»)
declare zwi$[]:zwi$[]=explode(werte$,"\n"):clear werte$
declare n&,feu$[],Item$[],Wert$[]

whileloop 0,sizeof(zwi$[])-1 :cas left$(zwi$[&loop],1)="#":continue

    feu$[n&]=substr$(zwi$[&Boucle],1,»)
    Item$[n&]=substr$(zwi$[&Boucle],2,»)
    Wert$[n&]=substr$(zwi$[&Boucle],3,»)
    inc n&

endwhile

clear zwi$[]

whileloop 0,n&-1

    Select feu$[&Boucle]

        caseof "g":color 15,2

        caseof "y":color 0,14

        caseof "r":color 15,12

    endselect

    imprimer tab(6);Item$[&Boucle],
    color 0,15:imprimer tab(50);Wert$[&Boucle]

    si %csrlin > 40

        waitinput
        cls
        locate 2,2:imprimer "     Eintrag                       Kalorien je Gramm \n"

    endif

endwhile

waitinput
Fin