(901)  Registro

Español
Beispiele

Gewichtskontrolle

 
- Página 1 -



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)
KompilierenMarcaSeparació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

99 kB
Hochgeladen:23.02.2016
Ladeanzahl: 164
Descargar
103 kB
Hochgeladen:23.02.2016
Ladeanzahl: 116
Descargar
114 kB
Hochgeladen:23.02.2016
Ladeanzahl: 122
Descargar
118 kB
Hochgeladen:23.02.2016
Ladeanzahl: 124
Descargar
 
23.02.2016  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 1 -



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
 
23.02.2016  ▲
 



@Micha:

En

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

verstehe Yo E no porque e en Deinem Ejemplo en no procaddr zeigt.
KompilierenMarcaSeparació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.
 
23.02.2016  ▲
 




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.....
 
24.02.2016  ▲
 



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)
 
24.02.2016  ▲
 




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  ▲
 




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
 
24.02.2016  ▲
 




Micha12334
¡Hola Personas, habe el Programmchen "Gewichtskontrolle" überarbeitet.
Yo glaube, así podría uno lo veröffentlichen:
KompilierenMarcaSeparació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  ▲
 



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!
 
02.03.2016  ▲
 



 
- Página 2 -



HofK
En
proc proc2

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

wäre eventuell günstiger:

msg.toast " AUF WIEDERSEHEN "
end
 
02.03.2016  ▲
 




Micha12334
Sí, con toast y box habe ya rumgespielt. Toast sieht en el Samsung S6 mejor de, verliert se aber en mi Tablet. Dort es Box mejor. Das liegt sicher a el Größenverhältnissen zueinander....
 
02.03.2016  ▲
 




HofK
El Differenz se en me ( Galaxy Note 2 en el Querformat) vom Diálogo überdeckt y es entonces no sichtbar.
 
02.03.2016  ▲
 




Micha12334
sería hay algo bringen, "screen.rotation.top" einzufügen?
Tal vez podría Yo auch el Diálogo ändern...
 
02.03.2016  ▲
 



◄
12

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

14.616 Views

Untitledvor 0 min.
DB HoKi28.02.2020
p.specht07.12.2018
Micha1233408.07.2017
bloniTec30.08.2016
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

Micha12334 (7x)
HofK (5x)
iF (4x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie