Infinity-Profan

Français

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)

Kompilieren Marque Séparation

/ /
// 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

lenovo-pic1.jpeg Preview

99 kB

Hochgeladen:

23.02.2016

Downloadcounter:

Download

lenovo-pic2.jpeg Preview

103 kB

Hochgeladen:

23.02.2016

Downloadcounter:

Download

s6-pic1.jpg Preview

114 kB

Hochgeladen:

23.02.2016

Downloadcounter:

Download

s6-pic2.jpg Preview

118 kB

Hochgeladen:

23.02.2016

Downloadcounter:

Download

XProfan X3
MS

23.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

HofK

cela

msg.box " AUF WIEDERSEHEN ",zéro,["OKAY"],zéro,E
sleep 5000
end

bringt es pas à cause de

référence sleep:
"Achtung: entier ähnlich comment chez Windows hat ensuite cela Programme aussi aucun Zeit pour Montrer. Beispielsweise volonté aussi Imprimer-Ausgaben seulement ausgegeben si qui Hauptthread idle ist et somit aussi imprimer "Hallo Welt" avec anschließendem sleep 5000 qui Imprimer-Ausgabe seulement pour 5 Sekunden zeigt.

qui une Proc zeitversetzt effectuer voudrais sollte besser qui Funktion time(proc,ms) verwenden.
"

-----

qui Text Controls volonté chez dir übereinandergelegt siehe aussi [...]

var hTxt=gui.text[grid,2,4] » // (korr. sur 2,4 nachträglich)

proc récente btn txt
...
gui.text hTxt diff
...

... schaue encore plus ...

Nachtrag:
selbes chez ...Neugewicht ...

23.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

HofK

Siehe Korr. (rouge) et Nachtrag im Vorbeitrag

Merkwürdig:

qui Eingabedialog Box avec OKAY erscheint zweimal, qui
Dialog "Gewicht ist gespeichert" pas.

Zum Test habe je là aus OKAY la fois WEITER gemacht.

XProfan 11

23.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

quoi je vois:

Kompilieren Marque Séparation

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

là altg encore pas existiert dans float(altg) ist es là zéro,

float(zéro) ergibt 0, peux on alors juste var altg=0 écrivons.

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

23.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

XProfan X3
MS

23.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@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.

Kompilieren Marque Séparation

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

proc myproc(btn,txt)

    imprimer "Es wurde Button "+str(btn)+" gewählt et qui eingegebene Text lautet: "+txt

endproc

@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.

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

23.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

XProfan X3
MS

24.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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)

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

24.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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.

24.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

XProfan X3
MS

24.02.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Micha12334

allô gens, habe cela Programmchen "Gewichtskontrolle" révisée.
je crois, so pourrait on es veröffentlichen:

Kompilieren Marque Séparation

// 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-.....

MS	01.03.2016 ▲ Vollständiges citation Absatzweise Citation Zeilenweise Citation

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!

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

02.03.2016 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

►