XProfan

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

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