Infinity-Profan

Español

Micha12334

¡Hola Personas, Yo versuchte veces una einfache App a Gewichtskontrolle, a Diskussion y a Anschauung ser editado.
Schreib, qué es schlecht, zerreißt lo, qué podría uno mejor hacer. Yo weiß, qué como erstes kommt: Klammern enfernen,....ok kommt todavía.
Posesiones alles en media Tab Lenovo 2 y Samsung S6 getestet. Geht así einigermaßen... (Lenovo = A:5.01, S6= A:5.1.1)

Kompilieren Marca Separación

/ /
// InfinityProfan Program
// Gewichtskontrolle v0.0.1
// created 2016-01-24
var grid  =gui.grid(gui.hwnd,[2,5])
var texto1 = "Gewichts- \n kontrolle \n  en (kg)  al: "
var altg  = float(altg)
var neug  = 0.00
var diff
var neug  = float(neug)
var zeit1 = time(7)
var zeit2
var E
//var btnE  = gui.button,[grid,2,5],"AUS",ende
altg = file.read("gewicht.txt")
zeit2= file.read("datum.txt")
gui.background(grid,rgb(50,50,50))
gui.background([grid,1,2],rgb(90,90,90))
gui.background([grid,2,2],rgb(90,90,90))
gui.background([grid,1,3],rgb(130,130,130))
gui.background([grid,2,3],rgb(130,130,130))
gui.background([grid,1,4],rgb(150,150,150))
gui.background([grid,2,4],rgb(150,150,150))
gui.background([grid,1,5],rgb(130,130,130))
gui.background([grid,2,5],rgb(100,0,0))
gui.texto[grid,1,1] texto1
gui.texto[grid,2,1] zeit1
gui.texto[grid,1,2] "Gewicht al \n"+zeit2
gui.texto[grid,2,2] altg
gui.texto[grid,1,3] "    Neueingabe:"
gui.texto[grid,2,3] "HIER drücken" @proc1
gui.texto[grid,1,4] "Differenz:"
gui.texto[grid,2,5] "E N D E " @proc2

proc proc1

    gui.background([grid,2,3],rgb(255,255,255))
    msg.box null,null,"OKAY","",@neu

ENDPROC

proc neu btn txt

    if str(btn) == 1

        if txt <> 0

            neug = txt
            diff = altg - neug
            diff = round(diff,[3])
            gui.texto[grid,2,4] diff
            file.write("gewicht.txt",neug)
            file.write("datum.txt",zeit1)
            gui.texto[grid,1,5]  "Neugewicht \n= "+neug +" kg"
            msg.box, "  Gewicht  es  gespeichert ",null,["OKAY"],null,go

        endif

    endif

ENDPROC

proc go btn txt

    if   str(btn) == 1

        proc2

    endif

ENDPROC

proc proc2

    msg.box " AUF  WIEDERSEHEN ",null,["OKAY"],null,E
    sleep 5000
    end

ENDPROC

lenovo-pic1.jpeg Prevista

99 kB

Hochgeladen:

23.02.2016

Ladeanzahl:

Descargar

lenovo-pic2.jpeg Prevista

103 kB

Hochgeladen:

23.02.2016

Ladeanzahl:

Descargar

s6-pic1.jpg Prevista

114 kB

Hochgeladen:

23.02.2016

Ladeanzahl:

Descargar

s6-pic2.jpg Prevista

118 kB

Hochgeladen:

23.02.2016

Ladeanzahl:

Descargar

XProfan X3
MS

23.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

HofK

Das

msg.box " AUF WIEDERSEHEN ",null,["OKAY"],null,E
sleep 5000
end

bringt no wegen

Referenz sleep:
"Achtung: bastante ähnlich como en Windows ha entonces el Programa auch no Tiempo para Mostrar. Por ejemplo voluntad auch Imprimir-Ausgaben sólo ausgegeben si la Hauptthread idle es y somit auch imprimir "Hallo Welt" con anschließendem sleep 5000 el Imprimir-Edición sólo después de 5 Sekunden zeigt.

Wer una Proc zeitversetzt ausführen möchte debería mejor el Función time(proc,ms) uso.
"

-----

El Texto Controls voluntad en dir übereinandergelegt siehe auch [...]

var hTxt=gui.texto[grid,2,4] "" // (korr. en 2,4 nachträglich)

proc neu btn txt
...
gui.texto hTxt diff
...

... schaue todavía más ...

Apéndice:
selbes en ...Neugewicht ...

23.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

HofK

Siehe Korr. (rot) y Apéndice en el Vorbeitrag

Merkwürdig:

Der Eingabedialog Box con OKAY erscheint zweimal, el
Diálogo "Gewicht es gespeichert" no.

Zum Test Yo hay de OKAY veces WEITER gemacht.

XProfan 11

23.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Was Yo sehe:

Kompilieren Marca Separación

var altg  = float(altg)
var neug  = float(neug)

como altg todavía no existiert en float(altg) es hay null,

float(null) ergibt 0, puede ser also igual var altg=0 escribir.

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

23.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Micha12334

- Das Problema con el Eingabebox tritt en me auch en. Yo schob lo en mein Android...
Yo verstehe el con el Übereinanderlegen el Textcontrols no.
diff liegt en 2,4 y neug en 1,5. Was es hier falso?
Das sleep voluntad Yo después de deinem Vorschlag ändern.
Yo danke dir para la respuesta rápida. Solche Korrekturen son una große Ayuda para mich.
Micha12333

XProfan X3
MS

23.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Micha:

En

msg.box " AUF WIEDERSEHEN ",null,["OKAY"],null,E

verstehe Yo E no porque e en Deinem Ejemplo en no procaddr zeigt.

Kompilieren Marca Separación

msg.box "Titel","Text","OK","VorgabeText",@myProc

proc myproc(btn,txt)

    imprimir "Es wurde Button "+str(btn)+" gewählt y eingegebene Texto lautet: "+txt

ENDPROC

@Karl: Soll Yo sleep vlt. mejor después de dev.thread.sleep mover fuera de el root?

msgbox
sleep
end

führt sí sólo dazu, dass 5 sekunden lang no msgbox adecuado voluntad kann y danach igual termina.

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

23.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Micha12334

Sí Karl, zeige me Por favor,, como el va. Yo teste dies con un timer....

Das "E" Se me había olvidado rauszuhauen. Manchmal passiert así qué al späten Abend.....

XProfan X3
MS

24.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

HofK (23.02.2016)

Merkwürdig:

Der Eingabedialog Box con OKAY erscheint zweimal, el
Diálogo "Gewicht es gespeichert" no.

Muss lo, el proc1 fehlt el Auswertung el Parámetro ctrl state -

sólo en State==1 debería ellos auslösen.

state=0: draufgetatzt
state=1: weggetatzt (en state 1 prüfen para Clic!)
state=2: weggetatzt außerhalb "Button" (User ha se anders entschieden)

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

24.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

HofK

Das gui.texto con el Stati 0, 1, 2 war wohl todavía no dokumentiert?
Klingt aber logisch.

@Micha:
gui.texto [grid,s,z] "irgendwas"
producido en el Gridzelle jeweils una neues Textcontrol.
Der Befehl liefert auch una Handle des Controls zurück. Das kann/debería uno se en Bedarf (es hier gegeben) en uno Variables z.B. hTxt merken. Der Texto incluso es primero leer ("").

var hTxt=gui.texto [grid,2,4] ""

Möchte uno nun Texto el bestehende Textcontrol bringen, entonces mus en gui.texto no el Handle uno Gridzelle, pero el Handle uno bestehenden Textcontrols angegeben voluntad. Also hier z.B. hTxt.

gui.texto hTxt "irgendwas anderes"

In deinem Ejemplo podría uno sehen, como eingegebenen Pagar wirklich übereinander "gezeichnet" voluntad, como du en el Progreso mehrere Textcontrols en el identischen Zelle erzeugst si uno neue Eingaben macht. Auch fresco para Spezialeffekte.

Su "Fehler" Yo auch incluso sólo gemacht. [...]

Mein Einwand war entonces, una extra Befehl gui.settext a haben, el sólo en Textcontrols sin Fehlermeldung durchgeht.

Aber como siempre - lo ha Vor- y Nachteile. David muss abwägen.

24.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Micha12334

Recht vielen Dank a Euch,
el hilft me más y yo tener dazugelernt!
Darum veröffentliche Yo mi pequeño Test. 'Learn by doing' es el Motto para mich.
Micha12334

XProfan X3
MS

24.02.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Micha12334

¡Hola Personas, habe el Programmchen "Gewichtskontrolle" überarbeitet.
Yo glaube, así podría uno lo veröffentlichen:

Kompilieren Marca Separación

// InfinityProfan Program
// neu-g v0.0.1
// created 2016-02-29
grid  =gui.grid(gui.hwnd,[2,5])
texto1 = "Gewichts- \n kontrolle \n  en (kg)  al: "
zeit
altg  = 0
neug  = 0.00
zeit1 = time(7)
altg = file.read("masse.txt")
zeit2= file.read("heute.txt")
gui.background(grid,rgb(0,0,100))
gui.background([grid,1,2],rgb(90,90,90))
gui.background([grid,2,2],rgb(90,90,90))
gui.background([grid,1,3],rgb(130,130,130))
gui.background([grid,2,3],rgb(130,130,130))
gui.background([grid,1,4],rgb(150,150,150))
gui.background([grid,2,4],rgb(150,150,150))
gui.background([grid,1,5],rgb(130,130,130))
gui.background([grid,2,5],rgb(0,0,100))
gui.texto [grid,1,1] texto1
gui.texto [grid,2,1] zeit1
gui.texto [grid,1,2] "Gewicht al \n"+zeit2
gui.texto [grid,2,2] altg
gui.texto [grid,1,3] "    Neueingabe:"
gui.texto [grid,2,3] "HIER drücken" @proc1
gui.texto [grid,1,4] "Differenz:"
gui.texto [grid,2,5] "E N D E " @proc2

proc proc1 ctrl state

    global grid

    if state==1

        gui.background([grid,2,3],rgb(255,255,255))
        msg.box null,null,"OKAY","",@neu

    endif

ENDPROC

proc neu btn txt

    global grid,neug,altg,zeit1

    if btn==1

        if txt!=""

            neug = txt
            diff = altg - neug
            diff = round(diff,[3])
            gui.texto[grid,2,4] diff

            if diff < 0

                gui.background([grid,1,4],rgb(150,50,50))
                gui.background([grid,2,4],rgb(150,50,50))

            endif

            if diff > 0

                gui.background([grid,1,4],rgb(50,150,50))
                gui.background([grid,2,4],rgb(50,150,50))

            endif

            file.write("masse.txt",neug)
            file.write("heute.txt",zeit1)
            gui.texto[grid,1,5]  "Neugewicht \n= "+neug +" kg"
            msg.box "  Gewicht  es  gespeichert ",null,["OKAY"],null,@go

        endif

    endif

ENDPROC

proc go btn

    caso btn==1 : proc2

ENDPROC

proc proc2

    end msg.box " AUF  WIEDERSEHEN ",null,["bye"]

ENDPROC

Testet lo incluso una vez y schaut después de bugs y Optik-.....

MS	01.03.2016 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita

Bin ya al drüberstürzen -

quasi con Zahnbürste y Duschkopf en el Hand. ^ ^

Hier una Vertipper sicher: diff = round(diff,[3]) en lugar de round(diff,3)

Tip: con Función long una String a long zwingen z.B. para: mywert=long(file.read("file")) o. mywert=long file.read "file"

Mist, muss längst los... a heute Abend!

XProfan X3
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

02.03.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

►