Foro | | | | - Page 1 - |
| Langer | Moin,
gibt es die Möglichkeit während des Programmablauf den "max. Wert" des SpinEdit Fensters zu ändern? Ich möchte erreichen das wenn der "Boardtyp" auf 1 steht, ich die "Board Ports" von 1 bis 4 einstellen kann und wenn der "Boardtyp" auf 2 gesetzt wird ich die "Board Ports" von 1 bis 5 einstellen kann. Hier mal meine Idee dazu, die leider nicht funktioniert da sich das Fenster deaktiviert wenn der Boardtyp auf 2 gesetzt wird.
Declare ZF&, ZGB&, ZECA&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
WindowStyle 1024
ZF& = @Create("Window",%HWnd,"Device - Controller",200,200,700,500)
'ZB& = @Create("Button",ZF&,"Übernehmen",350,80,120,30)
ZB1& = @Create("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Create("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& = @Create("SpinEdit",ZF&,"1;1;100",20,20,48,20)
@Create("Text",ZF&,"Controller Adresse",80,20,120,20)
'ZECP& = @Create("SpinEdit",ZF&,"1;1;2",20,50,48,20)
@Create("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Create("SpinEdit",ZF&,"1;1;4",20,80,48,20)
@Create("Text",ZF&,"Board Typ",80,80,120,20)
@Create("Text",ZF&,"Board Port",80,110,120,20)
'ZED& = @Create("SpinEdit",ZF&,"1;1;200",20,140,48,20)
@Create("Text",ZF&,"Device Adresse",80,140,120,20)
Whilenot Z&
IfNot Z1$ = "1"
If @GetText$(ZEB&) = "1"
DestroyWindow(ZEBP&)
ZEBP& = @Create("SpinEdit",ZF&,"1;1;4",20,110,48,20)
Z1$ = "1"'verhindert das die Schleife durchlaufen wird wenn das passende 'SpinEdit' gesetzt wurde
EndIf
EndIf
IfNot Z1$ = "2"
If @GetText$(ZEB&) = "2"
DestroyWindow(ZEBP&)
ZEBP& = @Create("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
ich nutze XProfanX4 |
| | | | |
| | « Dieser Beitrag wurde als Lösung gekennzeichnet. » | | H.Brill | Schau mal hier im Foro : [...]
Sähe dann auf deinen Code angepaßt so aus :
Declare ZF&, ZGB&, hSpin&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
WindowStyle 1024
ZF& = @Create("Window",%HWnd,"Device - Controller",200,200,700,500)
ZB1& = @Create("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Create("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)
@Create("Text",ZF&,"Controller Adresse",80,20,120,20)
@Create("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Create("SpinEdit",ZF&,"1;1;4",20,80,48,20)
ZEBP&= @Create("SpinEdit",ZF&,"1;1;4",20,140,48,20)
@Create("Text",ZF&,"Board Typ",80,80,120,20)
@Create("Text",ZF&,"Board Port",80,110,120,20)
@Create("Text",ZF&,"Device Adresse",80,140,120,20)
Z& = 0
hSpin& = GetHandle(ZF&, ItemId(ZEBP&) + 1)
Whilenot 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 dem von dir verlinkten Beitrag ist es auch nochmal erläutert.
Danke per die schnelle Aiuto |
| | | | |
|
AnswerThemeninformationenDieses Thema hat 2 subscriber: |