Infinity-Profan

Deutsch

Bitte um Quelltexte die Eurer Meinung nach funktionieren müssten,

es aber offensichtlich nicht tun.

Sozusagen ist dies ein vorab-Thema zu Infinity-Bugs etc.

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

19.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 5 -

@Klaus:

Da ist ein Fehler in deinem Code:

btn
btn.1=
btn.2=

das alleinstehende btn

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

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Micha12334

Eigentlich ist es normaler code, nicht's besonders, schau mal bitte drauf.
.

Kompilieren Markieren Separieren

grid  =gui.grid(gui.hwnd,[2,5])
text1 = "Gewichts- \n kontrolle \n  in (kg)  am: "
altg  = float(altg)
neug  = 0.00
neug  = float(neug)
zeit1 = time(7)
altg = file.read("masse.txt")
zeit2= file.read("heute.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 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.text[grid,2,4] diff
            file.write("masse.txt",neug)
            file.write("heute.txt",zeit1)
            gui.text[grid,1,5]  "Neugewicht \n= "+neug +" kg"
            msg.box, "  Gewicht  ist  gespeichert ",null,["OKAY"],null,@go

        endif

    endif

endproc

proc go btn txt

    if   str(btn) == 1

        proc2

    endif

endproc

proc proc2

    msg.toast " AUF  WIEDERSEHEN ",null,["OKAY"]
    end

endproc

XProfan X3
MS

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Micha12334

Ich weiß, alles noch mit Klammern, später mache ich es auch ohne diese...

XProfan X3
MS

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

So, hab ich mir geschnappt und begebe mich auf die Suche...

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

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Micha12334

Viel Glück!

XProfan X3
MS

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Zunächst: Wie toll ist das denn... - hätte nicht gedacht dass man mit Infinity schon sinnvoll programmieren kann.

bei proc1 hast Du die Params ctrl und state übersehen, speziell state nicht auf ==1 ausgewertet sodass die msgbox 2fach erzeugt wurde bei 1 Klick aufs Textfeld und der proc1 fehlte global grid.

Diese Zeile:
msg.box, " Gewicht ist gespeichert ",null,["OKAY"],null,@go
entspricht
msg.box(null," Gewicht...

Der Funktion neu fehlte global grid,neug,altg,zeit1.

Ich glaub so funktionierts:

Kompilieren Markieren Separieren

grid  =gui.grid(gui.hwnd,[2,5])
text1 = "Gewichts- \n kontrolle \n  in (kg)  am: "

altg  = 0
neug  = 0.00
zeit1 = time(7)
altg = file.read("masse.txt")
zeit2= file.read("heute.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 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.text[grid,2,4] diff
            file.write("masse.txt",neug)
            file.write("heute.txt",zeit1)
            gui.text[grid,1,5]  "Neugewicht \n= "+neug +" kg"
            msg.box "  Gewicht  ist  gespeichert ",null,["OKAY"],null,@go

        endif

    endif

endproc

proc go btn

    case btn==1 : proc2

endproc

proc proc2

    end msg.toast " AUF  WIEDERSEHEN ",null,["OKAY"]

endproc

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

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Und hierzu noch ein Tip:

Einfach:

Kompilieren Markieren Separieren

daten.neug=0.00
daten.zeit1=time(7)
daten.altg = file.read("masse.txt")
daten.zeit2= file.read("heute.txt")

und so muss man in einer Proc nicht:
global neug,altg,zeit1
schreiben sondern einfach nur global daten

Strukturen mit Infinity sind ganz herrlich und vollautomatisch.

So kann man statt:

Kompilieren Markieren Separieren

daten=[
    "neug"  = 0.00
    "zeit1" =time(7)
    "altg"  = file.read("masse.txt")
    "zeit2" = file.read("heute.txt")
]

genauso:

Kompilieren Markieren Separieren

daten.neug=0.00
daten.zeit1=time(7)
daten.altg = file.read("masse.txt")
daten.zeit2= file.read("heute.txt")

schreiben.

Testen mit print daten //zeigt komplette struktur

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

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

So, jederzeit gerne weitere Codes die funktionieren sollten!

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

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Micha12334

Recht vielen Dank für Deine schnelle Hilfe.
Beim testen der einzelnen Funktionen versuche ich auch gleich etwas brauchbares auf die Beine zu stellen. Dieses hier sieht auf meinem S6 ganz gut aus, auf dem Lenovo Tab 2 wirkt es etwas verloren. Wenn dann auch Größenänderung für Schrift etc. dazu kommt, kann man schon vergleichsweise etwas für Android tun....
Einen schönen Abend noch...

XProfan X3
MS

29.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

HofK

iF (29.02.2016)

@Klaus:

Da ist ein Fehler in deinem Code:

btn
btn.1=
btn.2=

das alleinstehende btn

Da haben wir den Salat, in deiner Vorgabe [...]

Kompilieren Markieren Separieren

 $alias grau1 rgb 50 50 50
 $alias grau2 rgb 90 90 90
var grid=gui.grid gui.hwnd,[1,3]
var grid2=gui.grid [grid,1,3],[3,3]
var grid3=gui.grid [grid2,1,3],[3,1]
var btn
btn.1=gui.myButton [grid2,1,1] "Befehls- Referenz"
btn.2=gui.myButton [grid2,3,1] "IDE Starten"
...

habe ich nach der erfreulichen Botschaft das var obsolet ist, dieses radikal entfernt.
var btn ging und btn.1=... war/ist dann auch ok.

Hatte damals auch nur mit btn1 = ... ohne Punkt und ohne vorheriges var btn experimentiert.

Fazit:
Kein var mehr, aber bei neuer Variable immer etwas zuweisen?
Notfalls
btn = null

XProfan 11

01.03.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

HofK

Schnell getestet:

Mit btn= null kommt etwas und dann der Fehler, mit

btn = ["1" "2"]
btn.1 = gui.irgendwas links "Tipp drauf \n- zieh weg"
btn.2 = gui.irgendwas rechts "Touch hier"

kommt kein Fehler mehr.

XProfan 11

01.03.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jau.

Also:

Kompilieren Markieren Separieren

btn=null
btn.0=10

entspricht null[0]=10 -

das wird dann (natürlich) quittiert mit einem Instruction Error.

Redeklarieren zu einem array einfach per:

Kompilieren Markieren Separieren

btn=[]

Wenn eine Variable gänzlich unverwendet ist dann reicht aber eine einfache Verwendung:

Kompilieren Markieren Separieren

print test

proc test

    daten.screens.infos.bubbletext="Rofl Mao"
    return daten

endproc

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

02.03.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

◄

1 2 3 456 7 8

►

Antworten

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

48.442 Betrachtungen

Unbenannt	vor 0 min.
iF	04.06.2018
Vgdd	10.06.2017
Wilfried Friebe	16.05.2017
Pebender	04.12.2016
Mehr...

Themeninformationen

Dieses Thema hat 5 Teilnehmer:

Referenz

arr
audio
chr
cls
dev
event
exec
file
float
gui
len
long
math
msg
ord
print
rgb
rnd
round
screen
str
time
trim

break
case
continue
if
while

end
global
include
proc
return

Infinity-Profan

Das müsste doch funktionieren... ?!

Antworten

Themenoptionen

48.442 Betrachtungen

Themeninformationen

Datenschutz