| |
| |
|
Walter | ¡Hola,
habe Problemas con SpinEdit:
In FreeProfan V0.9 zeigt lo weder como gewohnt, todavía lässt lo encima gettext$ auslesen.
In V0.7 funktioniert lo sin embargo (jeweils sowohl en el Interpreter como auch como exe).
.
declarar T1&, S1&, B1&, B2&, _ende%
cls
'SpinEdit
S1&=Crear("SpinEdit",%Hwnd,"0; -100; 100",50,80,60,20)
'Button Test
B1&=Crear("Button",%Hwnd,"Test",50,200,150,20)
'Button Ende
B2&=Crear("Button",%Hwnd,"Ende",250,200,150,20)
'Edición
T1&=Crear("Text",%Hwnd,"Wert des SpinEdits",50,300,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String en SpinEdit=" + gettext$(s1&) + "; " + "Zahl en SpinEdit=" + str$(val(gettext$(s1&)))
elseif clicked(B2&)'Ende
_ende% = 1
endif
endwhile
|
|
| |
| |
| |
|
|
RGH | Fehler gefunden y korrigiert! Yo voluntad el korrigierte Versión igual hochladen!
Saludo
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 | ¡Hola,
el früher beschriebene Problema es en el neuen FreeProfan-Versión sí gelöst, allerdings funktioniert el Startwert no (weder como einfacher Startwert aún en el Form Startwert, Bajo- y Obergrenze), y Valor lässt se auch no mittels el Pfeile en el Negative verstellen (trotz fehlender o. negativer Untergrenze).
declarar T1&,T2&,T3&,T4&,S1&,S2&,B1&,B2&,_ende%
cls
'SpinEdit
S1&=Crear("SpinEdit",%Hwnd,50,50,80,60,20)
S2&=Crear("SpinEdit",%Hwnd,"50; -100; 100",50,120,60,20)
T3&=Crear("Text",%Hwnd,"SpinEdit S1 " + "%Hwnd,50,50,80,60,20", 130,80,400,20)
T4&=Crear("Text",%Hwnd,"SpinEdit S2 " + "%Hwnd,\q50; -100; 100\q,50,120,60,20", 130,120,400,20)
'Button Test
B1&=Crear("Button",%Hwnd,"Test",50,200,150,20)
'Button Ende
B2&=Crear("Button",%Hwnd,"Ende",250,200,150,20)
'Edición
T1&=Crear("Text",%Hwnd,"Wert des SpinEdits S1",50,300,400,20)
T2&=Crear("Text",%Hwnd,"Wert des SpinEdits S2",50,340,400,20)
'Hauptschleife
_ende%=0
whilenot _ende%
waitinput
if (%key = 2)
_ende% = 1
elseif clicked(B1&)'Test
settext T1&,"String en SpinEdit S1 = " + gettext$(s1&) + "; " + "Zahl en SpinEdit = " + str$(val(gettext$(s1&)))
settext T2&,"String en SpinEdit S2 = " + gettext$(s2&) + "; " + "Zahl en SpinEdit = " + str$(val(gettext$(s2&)))
elseif clicked(B2&)'Ende
_ende% = 1
endif
endwhile
Beste Grüße
Walter |
|
| |
| |
| |
|
|
RGH | Sorry, como war Yo wohl a voreilig y habe zwei a ändernde Zeilen übersehen, el para el Setzen de Startwert y Zona zuständig son.
In el nächsten Versión es el korrigiert!
Saludo
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 | |
| |
| |
| |
|
(848)
Deutsch
English
Français
Español
Italia
