Infinity-Profan

cls rgb 255 0 0

while c<10; c++

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

wend

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

proc str.humanizeFloatValueToString v n chComma

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

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

        v=str.ins(v,chComma,len(v)-n+1)
        return v[0]==chComma?v="0"+v:v

    endproc

.// Ausschnitt aus Hauptdatei „gewicht“.
.
.
.
.
gui.text [grid,2,1] "GEWICHTSEINGABE VON X.XXX"
gui.text [gd1,2,2] "EINGABE DER AKTUELLEN WERTE" @eingabe
gui.text [gd2,2,2] " TABELLE DER LETZTEN WERTE" @ausgabe
gui.text [grid,2,5] "Abschaltung ohne Eingabe nach 15 Sekunden"

proc ausgabe crtl status

    if status == 0

    endif

    include GEW-AUS.inc

endproc

.
.
.
.
­__________________________________
.
./// Ausschnitt aus File "gew-aus.inc“
.
.
.
.
.
gui.text[gd,1,4] text5 @loesch
gui.text[gd,2,4] text6 @aus
z = gui.text [gd,1,2] date
gui.gravity z,1,0
t = gui.text [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"
    aus

endproc

proc aus ctrl stat

    if state == 0

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

    endif

    end

endproc