| |
|
|
Walter | Hi, have Problems with SpinEdits: In FreeProfan V0.9 shows it itself weder How dwelt, yet can it itself over gettext$ read. In V0.7 functions it however (each sowohl in the Interpreter as well as as exe).
.
declare T1&, s1&, B1&, B2&, _ende%
cls
'SpinEdits
S1&=Create("SpinEdits",%Hwnd,"0; -100; 100",50,80,60,20)
'Button Test
B1&=Create("Button",%Hwnd,"Test",50,200,150,20)
'Button end
B2&=Create("Button",%Hwnd,"Ende",250,200,150,20)
'spending
T1&=Create("Text",%Hwnd,"Wert the SpinEdits",50,300,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String in SpinEdit=" + gettext$(s1&) + "; " + "Zahl in SpinEdit=" + st$(val(gettext$(s1&)))
elseif clicked(B2&)'end
_ende% = 1
endif
endwhile
|
|
|
| |
|
|
|
RGH | Error found and korrigiert! i'll The corrected version same Upload!
Greeting Roland |
|
|
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01/18/16 ▲ |
|
|
|
|
Walter | |
|
| |
|
|
|
Walter | Hi,
the former beschriebene trouble is in the new FreeProfan-Version Yes resolved, though functions the Startwert not (weder as plainer Startwert still in the shape Startwert, under- and ceiling), and the worth can itself neither through the Pfeile in that negatives adjust (withal fehlender or. negativer Untergrenze).
declare T1&,T2&,T3&,T4&,s1&,s2&,B1&,B2&,_ende%
cls
'SpinEdits
S1&=Create("SpinEdits",%Hwnd,50,50,80,60,20)
S2&=Create("SpinEdits",%Hwnd,"50; -100; 100",50,120,60,20)
T3&=Create("Text",%Hwnd,"SpinEdit s1 " + "%Hwnd,50,50,80,60,20", 130,80,400,20)
T4&=Create("Text",%Hwnd,"SpinEdit s2 " + "%Hwnd,\q50; -100; 100\q,50,120,60,20", 130,120,400,20)
'Button Test
B1&=Create("Button",%Hwnd,"Test",50,200,150,20)
'Button end
B2&=Create("Button",%Hwnd,"Ende",250,200,150,20)
'spending
T1&=Create("Text",%Hwnd,"Wert the SpinEdits s1",50,300,400,20)
T2&=Create("Text",%Hwnd,"Wert the SpinEdits s2",50,340,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String in SpinEdits s1 = " + gettext$(s1&) + "; " + "Zahl in SpinEdits = " + st$(val(gettext$(s1&)))
settext T2&,"String in SpinEdits s2 = " + gettext$(s2&) + "; " + "Zahl in SpinEdits = " + st$(val(gettext$(s2&)))
elseif clicked(B2&)'end
_ende% = 1
endif
endwhile
best Regards Walter |
|
|
| |
|
|
|
RGH | Sorry, there i was well To voreilig and I two To ändernde Lines overlooking, The for the settle of Startwert and area zuständig are.
in the next Version is the korrigiert!
Greeting Roland |
|
|
| XProfan X3Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 01/25/16 ▲ |
|
|
|
|
Walter | |
|
| |
|
|