XProfan

Italia

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.

Kompilieren Markieren Separieren

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

XProfan X2

31.12.2020 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

H.Brill

Schau mal hier im Foro : [...]

Sähe dann auf deinen Code angepaßt so aus :

Kompilieren Markieren Separieren

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 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Langer

Vielen Dank