Forum | | | | - page 1 - |
| Langer | Moin,
gibt es qui Possibilité au cours de des Programmablauf den "max. Wert" des SpinEdit Fensters trop changement? je voudrais erreichen cela si qui "Boardtyp" sur 1 steht, je qui "Board Ports" de 1 jusqu'à 4 einstellen peux et si qui "Boardtyp" sur 2 gesetzt wird je qui "Board Ports" de 1 jusqu'à 5 einstellen peux. ici la fois mon concept en supplément, qui malheureusement pas funktioniert là sich cela la fenêtre deaktiviert si qui Boardtyp sur 2 gesetzt wird.
Déclarer ZF&, ZGB&, ZECA&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Fenêtre Style 1024
ZF& = @Créer("Window",%HWnd,"Device - Controller",200,200,700,500)
'ZB& = @Créer("Button",ZF&,"Übernehmen",350,80,120,30)
ZB1& = @Créer("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Créer("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& = @Créer("SpinEdit",ZF&,"1;1;100",20,20,48,20)
@Créer("Text",ZF&,"Controller Adresse",80,20,120,20)
'ZECP& = @Créer("SpinEdit",ZF&,"1;1;2",20,50,48,20)
@Créer("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Créer("SpinEdit",ZF&,"1;1;4",20,80,48,20)
@Créer("Text",ZF&,"Board Typ",80,80,120,20)
@Créer("Text",ZF&,"Board Port",80,110,120,20)
'ZED& = @Créer("SpinEdit",ZF&,"1;1;200",20,140,48,20)
@Créer("Text",ZF&,"Device Adresse",80,140,120,20)
Whilenot Z&
Si non Z1$ = "1"
Si @GetText $(ZEB&) = "1"
DestroyWindow(ZEBP&)
ZEBP& = @Créer("SpinEdit",ZF&,"1;1;4",20,110,48,20)
Z1$ = "1"'verhindert cela qui Boucle durchlaufen wird si cela passende 'SpinEdit' gesetzt wurde
EndIf
EndIf
Si non Z1$ = "2"
Si @GetText $(ZEB&) = "2"
DestroyWindow(ZEBP&)
ZEBP& = @Créer("SpinEdit",ZF&,"1;1;5",20,110,48,20)
Z1$ = "2"
EndIf
EndIf
sleep 100
Si Clicked(ZB1&)
Z& = 1
@DestroyWindow(ZF&)
EndIf
Endwhile
Fin
viel Grüsse Dirk
je nutze XProfanX4 |
| | | | |
| | « cette Beitrag wurde comme Solution gekennzeichnet. » | | H.Brill | exposition la fois ici im Forum : [...]
Sähe ensuite sur deinen Code ajusté so aus :
Déclarer ZF&, ZGB&, hSpin&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Fenêtre Style 1024
ZF& = @Créer("Window",%HWnd,"Device - Controller",200,200,700,500)
ZB1& = @Créer("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Créer("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)
@Créer("Text",ZF&,"Controller Adresse",80,20,120,20)
@Créer("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Créer("SpinEdit",ZF&,"1;1;4",20,80,48,20)
ZEBP&= @Créer("SpinEdit",ZF&,"1;1;4",20,140,48,20)
@Créer("Text",ZF&,"Board Typ",80,80,120,20)
@Créer("Text",ZF&,"Board Port",80,110,120,20)
@Créer("Text",ZF&,"Device Adresse",80,140,120,20)
Z& = 0
hSpin& = GetHandle(ZF&, ItemId(ZEBP&) + 1)
Whilenot Z&
WaitInput
Si Clicked(ZEB&)
Si 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
Fin
|
| | | 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. dans dem de dir verlinkten Beitrag ist es aussi nochmal erläutert.
merci pour qui schnelle Aider |
| | | | |
|
répondreOptions du sujet | 2.642 Views |
Themeninformationencet Thema hat 2 participant: |