XProfan

English

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.

Compile Mark Separation

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

XProfan X2

12/31/20 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

H.Brill

look time here in the Forum : [...]

Sähe then on your code angepaßt so from :

Compile Mark Separation

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Langer

Vielen Thanks