Beispiele | | | | | | - 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)
/ /
// 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
|
 | | | | | | |
| | | | | | | - 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 |
| | | | | | |
| |  | @Micha:
En
msg.box " AUF WIEDERSEHEN ",null,["OKAY"],null,E
verstehe Yo E no porque e en Deinem Ejemplo en no procaddr zeigt.
@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. |
| | | | | | |
| |
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..... |
| | | | | | |
| | | 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) |
| | | | | | |
| | 
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. |
| | | | | | |
| |
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 |
| | | | | | |
| |
Micha12334 | ¡Hola Personas, habe el Programmchen "Gewichtskontrolle" überarbeitet.
Yo glaube, así podría uno lo veröffentlichen:
// 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-..... |
| | | | | | |
| | | 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! |
| | | | | | |
| | | | | | - 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 |
| | | | | | |
| |
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.... |
| | | | | | |
| |
HofK | | El Differenz se en me ( Galaxy Note 2 en el Querformat) vom Diálogo überdeckt y es entonces no sichtbar. |
| | | | | | |
| |
Micha12334 | sería hay algo bringen, "screen.rotation.top" einzufügen?
Tal vez podría Yo auch el Diálogo ändern... |
| | | | | | |
|
RespuestaTema opciones | 13.162 Views |
ThemeninformationenDieses Thema ha 3 subscriber: |
(323)
Deutsch
English
Français
Español
Italia
