XProfan

Español

Langer

Moin,

hay el Möglichkeit während des Programmablauf el "max. Wert" des SpinEdit Fensters a ändern?
Yo möchte erreichen el si la "Boardtyp" en 1 es, Yo el "Board Ports" de 1 a 4 einstellen kann y si la "Boardtyp" en 2 gesetzt se Yo el "Board Ports" de 1 a 5 einstellen kann.
Hier veces mi Concepto dazu, el por desgracia, no funktioniert como se el Ventana deaktiviert si la Boardtyp en 2 gesetzt se.

Kompilieren Marca Separación

Declarar ZF&, ZGB&, ZECA&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Ventana de Estilo 1024
ZF& = @Crear("Window",%HWnd,"Device - Controller",200,200,700,500)
'ZB& = @Crear("Button",ZF&,"Übernehmen",350,80,120,30)
ZB1& = @Crear("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Crear("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& = @Crear("SpinEdit",ZF&,"1;1;100",20,20,48,20)
@Crear("Text",ZF&,"Controller Adresse",80,20,120,20)
'ZECP& = @Crear("SpinEdit",ZF&,"1;1;2",20,50,48,20)
@Crear("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Crear("SpinEdit",ZF&,"1;1;4",20,80,48,20)
@Crear("Text",ZF&,"Board Typ",80,80,120,20)
@Crear("Text",ZF&,"Board Port",80,110,120,20)
'ZED& = @Crear("SpinEdit",ZF&,"1;1;200",20,140,48,20)
@Crear("Text",ZF&,"Device Adresse",80,140,120,20)

Sinestar encargado Z&

    Caso negativo Z1$ = "1"

        If @GetText $(ZEB&) = "1"

            DestroyWindow(ZEBP&)
            ZEBP& = @Crear("SpinEdit",ZF&,"1;1;4",20,110,48,20)
            Z1$ = "1"'verhindert el el Bucle durchlaufen se si el passende 'SpinEdit' gesetzt wurde

        EndIf

    EndIf

    Caso negativo Z1$ = "2"

        If @GetText $(ZEB&) = "2"

            DestroyWindow(ZEBP&)
            ZEBP& = @Crear("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

Yo nutze XProfanX4

XProfan X2

31.12.2020 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

H.Brill

Schau veces hier en el Foro : [...]

Sähe entonces en deinen Code angepaßt así de :

Kompilieren Marca Separación

Declarar ZF&, ZGB&, hSpin&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Ventana de Estilo 1024
ZF& = @Crear("Window",%HWnd,"Device - Controller",200,200,700,500)
ZB1& = @Crear("Button",ZF&,"Fertig",350,130,120;30)
ZGB& = @Crear("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)
@Crear("Text",ZF&,"Controller Adresse",80,20,120,20)
@Crear("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Crear("SpinEdit",ZF&,"1;1;4",20,80,48,20)
ZEBP&= @Crear("SpinEdit",ZF&,"1;1;4",20,140,48,20)
@Crear("Text",ZF&,"Board Typ",80,80,120,20)
@Crear("Text",ZF&,"Board Port",80,110,120,20)
@Crear("Text",ZF&,"Device Adresse",80,140,120,20)
Z& = 0
hSpin& = GetHandle(ZF&, ItemId(ZEBP&) + 1)

Sinestar encargado 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 Cita Zeilenweise Cita

Langer

Vielen Dank