XProfan

Windowtitle "Eierformel"
'  Fun-Programa (C)2009  by P. Pájaro carpintero, sin Gewähr. Urheber siehe "Q:"!
declarar t!,d!,t_wasser!,t_start!,t_innen!,sw%
T_Wasser!=99.8' para Seehöhe 130 m

mientras que 1

    cls
    imprimir ""
    imprimir "        Empirische Formel, en una Frühstücks-Ei perfekt a kochen"
    imprimir ""
    imprimir "  Q: kochen.exp.univie.ac.at/ostern_Ei.html"
    imprimir "  +--------------------------------------------------------------------+"
    imprimir "  ! Formel: t = 0.0016*d^2*ln(2*(t_Wasser-t_Start)/(t_Wasser-t_Innen)) !"
    imprimir "  +--------------------------------------------------------------------+"
    imprimir ""
    imprimir "   d = Ei-Durchesser en mm, mejor dijo: Der Durchmesser"
    imprimir "       uno Röhre, por el el Ei gerade todavía durchginge."
    imprimir ""
    imprimir "   t_Wasser = kochend, en Meereshöhe 100°C, Hochgebirge 96,5°"
    imprimir ""
    imprimir "   t_Start  = Ei-Temperatur beim Einlegen en kochendes Wasser:"
    imprimir "              Aus Kühlschrank: 4°C, sonst Raumtemperatur(~20°C)"
    imprimir ""
    imprimir "   t_Innen  = WEICHES EI: 62°C (Ovalbumin-Gerinnung schützt Dotter)"
    imprimir "              HARTES  EI: 82°C (Eigelb stockt)"
    imprimir "   Ergebnis:"
    imprimir ""
    imprimir "   t        = Kochdauer en Min. de Einlegen en viel kochendes Wasser"
    imprimir "   ----------------------------------------------------------------------"
    imprimir
    Localizar 24,4: imprimir "Ei-Durchmesser en mm (meist 40-50): ";:input d!
    Localizar 25,4: imprimir "Ei-Temperatur vorher: ";:input T_Start!
    Localizar 26,4: imprimir "Weich = 0,  Hart = 1: ";:input sw%
    T_Innen! = 62*(sw%=0) + 85*(sw%=1)

    if (T_Wasser!-T_Innen!)>0

        if (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!))

        más

            Imprimir ""
            Imprimir "  Ein Straussen-Ei???" : waitInput: romper

        endif

    más

        imprimir ""
        imprimir "  So va's no!" : waitInput : romper

    endif

    imprimir
    imprimir "   +--------------------------------------------------------------------+"
    imprimir "   !     Ihr ";

    if sw%=0: imprimir "weiches ";:endif

        if sw%=1: imprimir "hartes ";:endif

            imprimir "Ei benötigt genau ";

            if int(t!)>0: imprimir int(T!);" Minuten";:endif

                if (int(t!)>0) AND (int(t!)<t!):imprimir " y ";:endif

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

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

                    endwhile

                    end

Windowstyle 24:Título de la ventana "E I E R U H R":cls:font 2
Var alarmmin&=2:var alarmsec&=40'default 02:43
imprimir "\n (Ende con ESC-Taste)\n\n Bitte Minuten y Sekunden a para Alarm eingeben:"
imprimir "\n Alarmminuten = ";:input alarmmin&
imprimir "\n Alarmsekunden= ";:input alarmsec&
Ventana 150,20:cls rgb(220,200,255)
var az&=alarmmin&*60000+alarmsec&*1000
Declarar ti&,tn&:var tm&=&gettickcount
Repeat :tn&=ti&:ti&=&gettickcount-tm&

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

    más :waitinput 900:caso ti&>az&:beep

endif

until %key=27

End

Proc ms2minsec :parámetros ms&:declarar s&,w$,ms$,tmp$

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

If len(tmp$)=2 :w$="0"+tmp$ :más :w$=tmp$ :endif

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

ENDPROC