Forum & Help | | | | | | - Page 1 - |
|  | selected Source The Eurer opinion to functions müssten,
But evident not do.
Sozusagen is this one beforehand-Subject to Infinity-Bugs etc. |
| | | | | | |
| | | | | | - Page 6 - |
| | 
HofK | this fehlerhafte Progrämmchen offenbart a small effect.
$alias f1 rgb 50 50 250 // Constant (Präkompilierer)
p=2 q=7
Test p q
proc Test a b
global f1
cls f1
print a + b
endproc
with Syntax Verify goes it saponaceous through, but the Kompilierer get naturally a problem and bleats, because the Präkompilierer it The row
global rgb 50 50 250 vorsetzt.
evident results The Syntaxprüfung to the $alias replacement - or? |
| | | | | | |
| | | Sorry, you hadn't whom integrally new Kompilierer - the reacted now differently.
Seither however so, that first $alias durchwirkt and then becomes from:
naturally this:
and this becomes "korrekt" bemängelt with unexpected keyword rgb at global in main: Test.
The Syntaxprüfung comes first to $alias. |
| | | | | | |
| | | | mist still bow in the kompi, möcht I today yet ran |
| | | | | | |
| | | | so, now first again something Time into Kompilierer To stick, the yet here and there Bugs has. time look I today hinbekomme. RC comes anyway always hither and shining erstmals tangible. Libs- interface missing yet so one Infinity infinite strain can. |
| | | | | | |
| | | | Nachtrag: If something not functions as always Please report! |
| | | | | | |
| | 
Micha12334 | Hello Profaner,
I need Your Help.The already showed, but with Eurer Help modified File "neu_g" (Gewichtseingabe) would like I contact with of/ one small List the last association Daten; File aufzaehlung (aufzaehlung)
both Files functions particular on Samsung s6 and Lenovo tab2 well.
either from the end the File input same pass over in Date Aufzaehlung or
both Files grab on The equal gespeicherten Files volume.txt and today.txt back.
what would The best idea and How could I this release?
enclosed both Daeien
//
// InfinityProfan Program
// new-g v0.0.2
// created 2016-02-29
grid =gui.grid(gui.hwnd,[2,5])
Text1 = " control \n in kg on the: "
time
altg = 0
neug = 0.00
time1 = time(7)
altg = file.read("masse.txt")
time2= 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(50,150,50))
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] time1
gui.Text [grid,1,2] "Gewicht on the \n"+time2
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 zero,zero,["kg eingegeben"],"",@new
endif
endproc
proc new btn txt
global grid,neug,altg,time1
if btn==1
if txt!=""
neug = txt
diff = neug - altg
diff = round(diff,[3])
gui.Text[grid,2,4] diff
if diff < 0
gui.background([grid,1,4],rgb(50,150,50))
gui.background([grid,2,4],rgb(50,150,50))
gui.Text[grid,2,4] "\n\nabgenommen"
endif
if diff > 0
gui.background([grid,1,4],rgb(150,50,50))
gui.background([grid,2,4],rgb(150,50,50))
gui.Text[grid,2,4] "\n\nzugenommen"
endif
file.write("masse.txt",neug)// complete address prompt?
file.write("heute.txt",time1)
gui.Text[grid,1,5] "Neugewicht \n= "+neug +" kg" @go
endif
endif
endproc
proc go btn
case btn==1 : proc2
endproc
proc proc2
msg.box " weight is stored ",neug,["weiter"]
end
endproc
and File Aufzaehlung:
//
// InfinityProfan Program
// enumeration v0.0.2
// created 2016-02-28
// in cobalt
//print screen.rotation screen.rotation.top
gd = gui.grid gui.hwnd,[2,14]
//gui.height gui.grid 1020
global grid, gd, weight, date, x, b, a,d,t
Text1 = "Eingaben:"
Text2 = " weight / kg"
Text5 = " data löschen"
Text6 = " E n D E "
x=st(x)
weight = file.read("masse.txt")// here complete address prompt?
date = file.read("heute.txt")
gui.background gd, rgb 130 130 130
gui.background [gd, 1,1], rgb 0 0 255
gui.background [gd, 2,1], rgb 125 125 255
gui.background [gd, 1,2], rgb 130 130 130
gui.background [gd, 2,2], rgb 125 125 125
gui.background [gd, 1,3], rgb 255 255 255
gui.background [gd, 2,3], rgb 255 255 255
gui.background [gd, 1,4], rgb 255 0 0
gui.background [gd, 2,4], rgb 0 0 255
gui.height [gd,1,1] 3500
gui.height [gd,2,1] 46000
gui.height [gd,3,1] 200
gui.height [gd,4,1] 3500
gui.Text[gd,1,1] Text1
gui.Text[gd,2,1] Text2
gui.Text[gd,1,4] Text5 @loesch
gui.Text[gd,2,4] Text6 @from
z = gui.Text [gd,1,2] date
gui.gravity z,1,0
t = gui.Text [gd,2,2] weight
gui.gravity t,1,0
// weight1 = 80.123 only for tests
x = "\n" + weight1
y = "\n" + time(7)
file.write("masse.txt",x,true)//later delete, there data of new-g come should
file.write("heute.txt",y,true)// - the same --
proc loesch
gui.background [gd, 1,4], rgb 90 90 150
gui.background [gd, 1,4], rgb 90 90 150
file.del("masse.txt")
file.del("heute.txt")
msg.toast " data gelöscht"
from
endproc
proc from
gui.background [gd, 2,4], rgb 150 90 90
msg.toast " ENDE UND ZURÜCK "
end
endproc
what would The best Solution? |
| | | | | | |
| |
HofK | Micha12334 (09.03.2016)
... or
both Files grab on The equal gespeicherten Files volume.txt and today.txt back.
moreover can with the Dateisystem works and on self gewähltem place Save/loading, see Bsp. [...]  |
| | | | | | |
| |
Micha12334 | Thank you,
i'll it time so try, so How You it in the example viewed have. |
| | | | | | |
| |
Micha12334 | thanks Klaus,
your suggestion with the Dateisystem To works is successful.
now can I two unterschiedlichen Programs on data back-
grab.
with the opportunity would like I on the following Problemchen allude:
with the Zuweisung the variables with gravity must in each drop one space stand. it can itself of course kompilieren, crashes but startup (open) ex.
example: X = gui.text__ [grid,1,2] something => gui.gravity X,1,0 |
| | | | | | |
| |
Micha12334 | Hello people,
I had short a question.
How can I force, that a whole number with Nachkommazahlen, means nobodies aufgefüllt becomes:
with 'round' can I of course to that example 5,6789 on 2 to put rounds (5,68), but How 5 on 5,00 ? |
| | | | | | |
| |
Micha12334 | my Solution not working, How I thought:
if X = long(X)
X = st(X)
X = float(X+",00")
endif |
| | | | | | |
| | 
Michael
W. | | | | | XProfan X3System: Windows 8/10, XProfan X4 Programmieren, das spannendste Detektivspiel der Welt. | 03/20/16 ▲ |
| | |
|
AnswerTopic-Options | 49.185 Views |
Themeninformationenthis Topic has 5 subscriber: |
(463)
Deutsch
English
Français
Español
Italia