Forum | | | | - Page 1 - |
| Langer | Moin,
there The Possibility during the Programmablauf whom "max. Wert" the SpinEdits Fensters To Change? i want achieve the if the "Boardtyp" on 1 standing, I The "Board Ports" of 1 To 4 take on can and if the "Boardtyp" on 2 staid becomes I The "Board Ports" of 1 To 5 take on can. here time my idea moreover, The unfortunately not functions there itself the window deaktiviert if the Boardtyp on 2 staid becomes.
Declare ZF&, ZGB&, ZECA&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Window Style 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("SpinEdits",ZF&,"1;1;100",20,20,48,20)
@Create("Text",ZF&,"Controller Adresse",80,20,120,20)
'ZECP& = @Create("SpinEdits",ZF&,"1;1;2",20,50,48,20)
@Create("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Create("SpinEdits",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("SpinEdits",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("SpinEdits",ZF&,"1;1;4",20,110,48,20)
Z1$ = "1"'prevented the The Loop go through becomes if the suitable 'SpinEdits' staid watts
EndIf
EndIf
Ifnot Z1$ = "2"
If @GetText$(ZEB&) = "2"
DestroyWindow(ZEBP&)
ZEBP& = @Create("SpinEdits",ZF&,"1;1;5",20,110,48,20)
Z1$ = "2"
EndIf
EndIf
sleep 100
If Clicked(ZB1&)
Z& = 1
@DestroyWindow(ZF&)
EndIf
EndWhile
End
plenty Regards Dirk
I use XProfanX4 |
| | | | |
| | « this Posting watts as Solution marked. » | | H.Brill | look time here in the Forum : [...]
Sähe then on your code angepaßt so from :
Declare ZF&, ZGB&, hSpin&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Window Style 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("SpinEdits",ZF&,"1;1;4",20,80,48,20)
ZEBP&= @Create("SpinEdits",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. | 12/31/20 ▲ |
| | |
| | Langer | Vielen Thanks functions fine. in the of you verlinkten Posting is it too again explains.
thanks for speedy Help |
| | | | |
|
AnswerThemeninformationenthis Topic has 2 subscriber: |