XProfan

Français

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.

Kompilieren Marque Séparation

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

XProfan X2

31.12.2020 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

H.Brill

exposition la fois ici im Forum : [...]

Sähe ensuite sur deinen Code ajusté so aus :

Kompilieren Marque Séparation

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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Langer

Vielen Dank