| |
| |
|
Walter | Salut,
habe Probleme avec SpinEdit:
dans FreeProfan V0.9 zeigt es sich weder comment gewohnt, encore peut es sich sur gettext$ auslesen.
dans V0.7 funktioniert es cependant (jeweils sowohl im Interpreter comme aussi comme exe).
.
declare T1&, S1&, B1&, B2&, _ende%
cls
'SpinEdit
S1&=Créer("SpinEdit",%Hwnd,"0; -100; 100",50,80,60,20)
'Button Test
B1&=Créer("Button",%Hwnd,"Test",50,200,150,20)
'Button Ende
B2&=Créer("Button",%Hwnd,"Ende",250,200,150,20)
'Ausgabe
T1&=Créer("Text",%Hwnd,"Wert des SpinEdits",50,300,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
si (%clé = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String dans SpinEdit=" + gettext$(s1&) + "; " + "Payer dans SpinEdit=" + str$(val(gettext$(s1&)))
elseif clicked(B2&)'Ende
_ende% = 1
endif
endwhile
|
|
| |
| |
| |
|
|
RGH | faute trouvé et korrigiert! je werde qui korrigierte Version juste hochladen!
Salut
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 | 18.01.2016 ▲ |
|
| |
|
|
Walter | |
| |
| |
| |
|
|
Walter | Salut,
cela früher beschriebene Problem ist dans qui neuen FreeProfan-Version oui gelöst, allerdings funktioniert qui Startwert pas (weder comme einfacher Startwert encore dans qui forme Startwert, sous- et Obergrenze), et qui Wert peut sich aussi pas mittels qui Pfeile ins Negative verstellen (trotz fehlender bzw. negativer Untergrenze).
declare T1&,T2&,T3&,T4&,S1&,S2&,B1&,B2&,_ende%
cls
'SpinEdit
S1&=Créer("SpinEdit",%Hwnd,50,50,80,60,20)
S2&=Créer("SpinEdit",%Hwnd,"50; -100; 100",50,120,60,20)
T3&=Créer("Text",%Hwnd,"SpinEdit S1 " + "%Hwnd,50,50,80,60,20", 130,80,400,20)
T4&=Créer("Text",%Hwnd,"SpinEdit S2 " + "%Hwnd,\q50; -100; 100\q,50,120,60,20", 130,120,400,20)
'Button Test
B1&=Créer("Button",%Hwnd,"Test",50,200,150,20)
'Button Ende
B2&=Créer("Button",%Hwnd,"Ende",250,200,150,20)
'Ausgabe
T1&=Créer("Text",%Hwnd,"Wert des SpinEdits S1",50,300,400,20)
T2&=Créer("Text",%Hwnd,"Wert des SpinEdits S2",50,340,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
si (%clé = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String dans SpinEdit S1 = " + gettext$(s1&) + "; " + "Payer dans SpinEdit = " + str$(val(gettext$(s1&)))
settext T2&,"String dans SpinEdit S2 = " + gettext$(s2&) + "; " + "Payer dans SpinEdit = " + str$(val(gettext$(s2&)))
elseif clicked(B2&)'Ende
_ende% = 1
endif
endwhile
Beste Grüße
Walter |
|
| |
| |
| |
|
|
RGH | Sorry, là était je wohl trop voreilig et habe deux trop ändernde Zeilen übersehen, qui pour cela mettons de Startwert et Bereich zuständig sommes.
dans qui prochain Version ist cela korrigiert!
Salut
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 | 25.01.2016 ▲ |
|
| |
|
|
Walter | |
| |
| |
| |
|
(949)
Deutsch
English
Français
Español
Italia
