Beispiele | | | | | | - page 1 - |
| 
Micha12334 | allô gens, je versuchte la fois une simple App zur Gewichtskontrolle, zur Diskussion et zur Anschauung trop éditer.
Schreib, quoi ist mal, zerreißt es, quoi pourrait on besser faire. je sais, quoi comme erstes venez: Klammern enfernen,....ok venez encore.
Habe alles sur meinen Tab Lenovo 2 et Samsung S6 getestet. ça va 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 text1 = "Gewichts- \n kontrolle \n dans (kg) am: "
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.text[grid,1,1] text1
gui.text[grid,2,1] zeit1
gui.text[grid,1,2] "Gewicht am \n"+zeit2
gui.text[grid,2,2] altg
gui.text[grid,1,3] " Neueingabe:"
gui.text[grid,2,3] "HIER drücken" @proc1
gui.text[grid,1,4] "Differenz:"
gui.text[grid,2,5] "E N D E " @proc2
proc proc1
gui.background([grid,2,3],rgb(255,255,255))
msg.box zéro,zéro,"OKAY",»,@récente
endproc
proc récente btn txt
si str(btn) == 1
si txt <> 0
neug = txt
diff = altg - neug
diff = round(diff,[3])
gui.text[grid,2,4] diff
file.write("gewicht.txt",neug)
file.write("datum.txt",zeit1)
gui.text[grid,1,5] "Neugewicht \n= "+neug +" kg"
msg.box, " Gewicht ist gespeichert ",zéro,["OKAY"],zéro,go
endif
endif
endproc
proc go btn txt
si str(btn) == 1
proc2
endif
endproc
proc proc2
msg.box " AUF WIEDERSEHEN ",zéro,["OKAY"],zéro,E
sleep 5000
end
endproc
|
 | | | | | | |
| | | | | | | - page 1 - |
|
Micha12334 | - cela Problem avec qui Eingabebox tritt chez mir aussi sur. je schob es sur mon Android...
je comprends cela avec den Übereinanderlegen qui Textcontrols pas.
diff liegt sur 2,4 et neug chez 1,5. quoi ist ici faux?
cela sleep werde je pour deinem Vorschlag changement.
je remercie dir pour qui schnelle Antwort. Solche Korrekturen sommes une grand Aider pour mich.
Micha12333 |
| | | | | | |
| |  | @Micha:
chez
msg.box " AUF WIEDERSEHEN ",zéro,["OKAY"],zéro,E
verstehe je E pas weil e dans Deinem Beispiel sur aucun procaddr zeigt.
@Karl: Soll je sleep vlt. besser pour dev.thread.sleep Déplacer raus aus dem racine?
msgbox
sleep
end
führt oui seulement en supplément, dass 5 sekunden long aucun msgbox angezeigt volonté peux et après juste finissez wird. |
| | | | | | |
| |
Micha12334 | oui Karl, zeige mir s'il te plaît, comment cela allez. je teste ca avec einem timer....
cela "E" J'avais oublié rauszuhauen. quelquefois passiert so quoi am späten soir..... |
| | | | | | |
| | | HofK (23.02.2016)
Merkwürdig:
qui Eingabedialog Box avec OKAY erscheint zweimal, qui
Dialog "Gewicht ist gespeichert" pas.
Muss es, qui proc1 fehlt qui Auswertung qui paramètre ctrl state -
seulement chez State==1 sollte vous auslösen.
state=0: draufgetatzt
state=1: weggetatzt (sur state 1 vérifier pour Klick!)
state=2: weggetatzt außerhalb "Button" (User hat sich anders entschieden) |
| | | | | | |
| | 
HofK | cela gui.text avec den Stati 0, 1, 2 était wohl encore pas dokumentiert?
Klingt mais logisch.
@Micha:
gui.text [grid,s,z] "irgendwas"
erzeugt sur qui Gridzelle jeweils un nouveau Textcontrol.
qui Befehl liefert aussi un Handle des Controls zurück. cela peux/sollte on sich chez besoin (ist ici gegeben) dans einer Variablen z.B. hTxt merken. qui Text selbst ist erstmal vide (»).
var hTxt=gui.text [grid,2,4] »
voudrais on eh bien Text sur cela bestehende Textcontrol apporter, ensuite mus chez gui.text pas cela Handle einer Gridzelle, mais cela Handle eines bestehenden Textcontrols angegeben volonté. alors ici z.B. hTxt.
gui.text hTxt "irgendwas anderes"
dans deinem Beispiel konnte on voyons, comment qui eingegebenen payons wirklich übereinander "gezeichnet" volonté, là du im Verlauf plusieurs Textcontrols sur qui identischen cellule erzeugst si on neue Eingaben pouvoir. aussi cool pour Spezialeffekte.
Deinen "Fehler" habe je aussi selbst seulement gemacht. [...]  mon Einwand était ensuite, une extra Befehl gui.settext trop avons, qui seulement sur Textcontrols sans Fehlermeldung durchgeht.
mais comment toujours - es hat avant- et Nachteile. David muss abwägen. |
| | | | | | |
| |
Micha12334 | droite vielen Dank à Euch,
cela hilft mir plus et je hab dazugelernt!
tout autor publier je mon kleinen Test. 'Learn by doing' ist cela Motto pour mich.
Micha12334 |
| | | | | | |
| |
Micha12334 | allô gens, habe cela Programmchen "Gewichtskontrolle" révisée.
je crois, so pourrait on es veröffentlichen:
// InfinityProfan Program
// récente-g v0.0.1
// created 2016-02-29
grid =gui.grid(gui.hwnd,[2,5])
text1 = "Gewichts- \n kontrolle \n dans (kg) am: "
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.text [grid,1,1] text1
gui.text [grid,2,1] zeit1
gui.text [grid,1,2] "Gewicht am \n"+zeit2
gui.text [grid,2,2] altg
gui.text [grid,1,3] " Neueingabe:"
gui.text [grid,2,3] "HIER drücken" @proc1
gui.text [grid,1,4] "Differenz:"
gui.text [grid,2,5] "E N D E " @proc2
proc proc1 ctrl state
global grid
si state==1
gui.background([grid,2,3],rgb(255,255,255))
msg.box zéro,zéro,"OKAY",»,@récente
endif
endproc
proc récente btn txt
global grid,neug,altg,zeit1
si btn==1
si txt!=»
neug = txt
diff = altg - neug
diff = round(diff,[3])
gui.text[grid,2,4] diff
si diff < 0
gui.background([grid,1,4],rgb(150,50,50))
gui.background([grid,2,4],rgb(150,50,50))
endif
si 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.text[grid,1,5] "Neugewicht \n= "+neug +" kg"
msg.box " Gewicht ist gespeichert ",zéro,["OKAY"],zéro,@go
endif
endif
endproc
proc go btn
cas btn==1 : proc2
endproc
proc proc2
end msg.box " AUF WIEDERSEHEN ",zéro,["bye"]
endproc
Testet es selbst einmal et schaut pour bugs et optique-..... |
| | | | | | |
| | | suis déjà am drüberstürzen -
quasi avec la brosse à dents et Duschkopf dans qui main. ^ ^
ici un Vertipper sûrement: diff = round(diff,[3]) statt round(diff,3)
Tip: avec Funktion long une String trop long zwingen z.B. pour: mywert=long(file.read("file")) bzw. mywert=long file.read "file"
Mist, muss jadis à l'attaque... jusqu'à aujourd'hui soir! |
| | | | | | |
| | | | | | - page 2 - |
| |
HofK | chez
proc proc2
end msg.box " AUF WIEDERSEHEN ",zéro,["bye"]
endproc
wäre eventuell günstiger:
msg.toast " AUF WIEDERSEHEN "
end |
| | | | | | |
| |
Micha12334 | | oui, avec toast et box habe déjà rumgespielt. Toast sieht sur dem Samsung S6 besser aus, verliert sich mais sur meinem Tablet. là ist Box besser. cela liegt sûrement à den Größenverhältnissen zueinander.... |
| | | | | | |
| |
HofK | | qui Differenz wird chez mir ( Galaxy Note 2 im Querformat) vom Dialog überdeckt et ist ensuite pas sichtbar. |
| | | | | | |
| |
Micha12334 | serait es quelque chose apporter, "screen.rotation.top" einzufügen?
peut-être pourrait je aussi den Dialog changement... |
| | | | | | |
|
répondreOptions du sujet | 14.634 Views |
Themeninformationencet Thema hat 3 participant: |
(935)
Deutsch
English
Français
Español
Italia
