Infinity-Profan

cls rgb 255 0 0

mientras que c<10; c++

    a=rnd(10^c)/10^5
    imprimir c+" : "+a+" : "+str.humanizeFloatValueToString a 5

wend

imprimir str.humanizeFloatValueToString 5.56789 4 "," "0"// must 5,5679, its.

proc str.humanizeFloatValueToString v n chComma

    caso chComma==null : chComma=","
    v=''+round v*10^n

    mientras que str.len(v)<n;v="0"+v;wend

        v=str.en el(v,chComma,len(v)-n+1)
        volver v[0]==chComma?v="0"+v:v

    ENDPROC

.// Ausschnitt de Hauptdatei „gewicht“.
.
.
.
.
gui.texto [grid,2,1] "GEWICHTSEINGABE VON X.XXX"
gui.texto [gd1,2,2] "EINGABE DER AKTUELLEN WERTE" @eingabe
gui.texto [gd2,2,2] " TABELLE DER LETZTEN WERTE" @ausgabe
gui.texto [grid,2,5] "Abschaltung sin Eingabe después de 15 Sekunden"

proc ausgabe crtl status

    if status == 0

    endif

    include GEW-AUS.inc

ENDPROC

.
.
.
.
­__________________________________
.
./// Ausschnitt de Expediente "gew-de.inc“
.
.
.
.
.
gui.texto[gd,1,4] texto5 @loesch
gui.texto[gd,2,4] texto6 @de
z = gui.texto [gd,1,2] date
gui.gravity z,1,0
t = gui.texto [gd,2,2] gewicht
gui.gravity t,1,0

proc loesch

    gui.background [gd, 1,4], rgb 90  90 150
    gui.background [gd, 1,4], rgb 90  90 150
    file.chdir file.getdir.sdcard// Auslesen
    file.chdir "gewicht"
    file.del "masse.txt"
    file.chdir file.getdir.sdcard
    file.chdir "datum"
    file.del "heute.txt"
    msg.toast " Daten gelöscht"
    de

ENDPROC

proc de ctrl stat

    if state == 0

        //gui.background [gd, 2,4], rgb 150  90  90
        msg.toast "        ENDE UND ZURÜCK         "

    endif

    end

ENDPROC