XProfan

Windowtitle "Eierformel"
'  Fun-Programme (C)2009  by P. Specht, sans Gewähr. Urheber siehe "Q:"!
declare t!,d!,t_wasser!,t_start!,t_innen!,sw%
T_Wasser!=99.8' pour Seehöhe 130 m

tandis que 1

    cls
    imprimer »
    imprimer "        Empirische Formel, um un Frühstücks-ouf parfait trop kochen"
    imprimer »
    imprimer "  Q: kochen.exp.univie.ac.at/ostern_Ei.html"
    imprimer "  +--------------------------------------------------------------------+"
    imprimer "  ! Formel: t = 0.0016*d^2*ln(2*(t_Wasser-t_Start)/(t_Wasser-t_Innen)) !"
    imprimer "  +--------------------------------------------------------------------+"
    imprimer »
    imprimer "   d = ouf-Durchesser dans mm, besser dit: qui Durchmesser"
    imprimer "       einer Röhre, par qui cela ouf justement encore durchginge."
    imprimer »
    imprimer "   t_Wasser = kochend, sur Meereshöhe 100°C, Hochgebirge 96,5°"
    imprimer »
    imprimer "   t_Start  = ouf-température beim Einlegen dans kochendes l'eau:"
    imprimer "              Aus Kühlschrank: 4°C, sonst Raumtemperatur(~20°C)"
    imprimer »
    imprimer "   t_Innen  = WEICHES EI: 62°C (Ovalbumin-Gerinnung schützt Dotter)"
    imprimer "              HARTES  EI: 82°C (jaune d'ouf stockt)"
    imprimer "   Ergebnis:"
    imprimer »
    imprimer "   t        = Kochdauer dans Min. ab Einlegen dans viel kochendes Wasser"
    imprimer "   ----------------------------------------------------------------------"
    imprimer
    Localiser 24,4: imprimer "Ei-Durchmesser dans mm (meist 40-50): ";:input d!
    Localiser 25,4: imprimer "Ei-température auparavant: ";:input T_Start!
    Localiser 26,4: imprimer "Weich = 0,  dur = 1: ";:input sw%
    T_Innen! = 62*(sw%=0) + 85*(sw%=1)

    si (T_Wasser!-T_Innen!)>0

        si (2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))>0

            T! = 0.0016*d!*d!*ln(2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))

        d'autre

            Imprimer »
            Imprimer "  un Straussen-ouf???" : waitInput: pause

        endif

    d'autre

        imprimer »
        imprimer "  So allez's pas!" : waitInput : pause

    endif

    imprimer
    imprimer "   +--------------------------------------------------------------------+"
    imprimer "   !     son ";

    si sw%=0: imprimer "weiches ";:endif

        si sw%=1: imprimer "hartes ";:endif

            imprimer "Ei nécessaire oui c'est ca ";

            si int(t!)>0: imprimer int(T!);" Minuten";:endif

                si (int(t!)>0) AND (int(t!)<t!):imprimer " et ";:endif

                    si (int(t!)<t!):imprimer int((t!-int(t!))*60+.5); " Sekunden!";:endif

                        imprimer tab(73);"!"
                        imprimer "   +--------------------------------------------------------------------+"
                        beep
                        WaitInput

                    endwhile

                    end

Windowstyle 24:Titre de la fenêtre "E I E R U H R":cls:font 2
Var alarmmin&=2:var alarmsec&=40'default 02:43
imprimer "\n (Ende avec ESC-bouton)\n\n s'il te plaît Minuten et Sekunden jusqu'à zum Alarm eingeben:"
imprimer "\n Alarmminuten = ";:input alarmmin&
imprimer "\n Alarmsekunden= ";:input alarmsec&
Fenêtre 150,20:cls rgb(220,200,255)
var az&=alarmmin&*60000+alarmsec&*1000
Déclarer ti&,tn&:var tm&=&gettickcount
Repeat :tn&=ti&:ti&=&gettickcount-tm&

si ti&>tn&:Windowtitle "Laufzeit: "+ms2minsec(az&-ti&)

    d'autre :waitinput 900:cas ti&>az&:beep

endif

until %clé=27

Fin

Proc ms2minsec :parameters ms&:declare s&,w$,ms$,tmp$

w$="00:00":s&=ms&/1000:ms&=s&/60:tmp$=str$(ms&)+»

Si len(tmp$)=2 :w$="0"+tmp$ :d'autre :w$=tmp$ :endif

    s&=s&-ms&*60:cas s&<10:w$="0"
    Retour @str$(s&)

ENDPROC