Foro | | | | - Página 1 - |
| Langer | Moin,
hay el Möglichkeit während des Programmablauf el "max. Wert" des SpinEdit Fensters a ändern? Yo möchte erreichen el si la "Boardtyp" en 1 es, Yo el "Board Ports" de 1 a 4 einstellen kann y si la "Boardtyp" en 2 gesetzt se Yo el "Board Ports" de 1 a 5 einstellen kann. Hier veces mi Concepto dazu, el por desgracia, no funktioniert como se el Ventana deaktiviert si la Boardtyp en 2 gesetzt se.
Declarar ZF&, ZGB&, ZECA&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Ventana de Estilo 1024
ZF& = @Crear("Window",%HWnd,"Device - Controller",200,200,700,500)
'ZB& = @Crear("Button",ZF&,"Übernehmen",350,80,120,30)
ZB1& = @Crear("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Crear("GridBox",ZF&,"Controller Adresse;0;120;Controller Port;0;120;Board Typ;0;100;Board Port;0;100;Device Adresse;0;100;Steueradresse;0;200",1,0,200,700,500)
'ZECA& = @Crear("SpinEdit",ZF&,"1;1;100",20,20,48,20)
@Crear("Text",ZF&,"Controller Adresse",80,20,120,20)
'ZECP& = @Crear("SpinEdit",ZF&,"1;1;2",20,50,48,20)
@Crear("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Crear("SpinEdit",ZF&,"1;1;4",20,80,48,20)
@Crear("Text",ZF&,"Board Typ",80,80,120,20)
@Crear("Text",ZF&,"Board Port",80,110,120,20)
'ZED& = @Crear("SpinEdit",ZF&,"1;1;200",20,140,48,20)
@Crear("Text",ZF&,"Device Adresse",80,140,120,20)
Sinestar encargado Z&
Caso negativo Z1$ = "1"
If @GetText $(ZEB&) = "1"
DestroyWindow(ZEBP&)
ZEBP& = @Crear("SpinEdit",ZF&,"1;1;4",20,110,48,20)
Z1$ = "1"'verhindert el el Bucle durchlaufen se si el passende 'SpinEdit' gesetzt wurde
EndIf
EndIf
Caso negativo Z1$ = "2"
If @GetText $(ZEB&) = "2"
DestroyWindow(ZEBP&)
ZEBP& = @Crear("SpinEdit",ZF&,"1;1;5",20,110,48,20)
Z1$ = "2"
EndIf
EndIf
sleep 100
If Clicked(ZB1&)
Z& = 1
@DestroyWindow(ZF&)
EndIf
EndWhile
End
viel Grüsse Dirk
Yo nutze XProfanX4 |
| | | | |
| | « Dieser Contribución wurde como Solución gekennzeichnet. » | | H.Brill | Schau veces hier en el Foro : [...]
Sähe entonces en deinen Code angepaßt así de :
Declarar ZF&, ZGB&, hSpin&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Ventana de Estilo 1024
ZF& = @Crear("Window",%HWnd,"Device - Controller",200,200,700,500)
ZB1& = @Crear("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Crear("GridBox",ZF&,"Controller Adresse;0;120;Controller Port;0;120;Board Typ;0;100;Board Port;0;100;Device Adresse;0;100;Steueradresse;0;200",1,0,200,700,500)
@Crear("Text",ZF&,"Controller Adresse",80,20,120,20)
@Crear("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Crear("SpinEdit",ZF&,"1;1;4",20,80,48,20)
ZEBP&= @Crear("SpinEdit",ZF&,"1;1;4",20,140,48,20)
@Crear("Text",ZF&,"Board Typ",80,80,120,20)
@Crear("Text",ZF&,"Board Port",80,110,120,20)
@Crear("Text",ZF&,"Device Adresse",80,140,120,20)
Z& = 0
hSpin& = GetHandle(ZF&, ItemId(ZEBP&) + 1)
Sinestar encargado Z&
WaitInput
If Clicked(ZEB&)
If GetText $(ZEB&) = "1"
SendMessage(hSpin&,$467,0,1)
SendMessage(hSpin&,$46f,1,4)
ElseIf GetText $(ZEB&) = "2"
SendMessage(hSpin&,$467,0,1)
SendMessage(hSpin&,$46f,1,5)
EndIf
ElseIf Clicked(ZB1&)
Z& = 1
@DestroyWindow(ZF&)
EndIf
EndWhile
End
|
| | | Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 31.12.2020 ▲ |
| | |
| | Langer | Vielen Dank funktioniert ausgezeichnet. In el de dir verlinkten Contribución es auch otra vez erläutert.
Gracias para rápido Ayuda |
| | | | |
|
RespuestaThemeninformationenDieses Thema ha 2 subscriber: |