Español
Foro

SpinEdit en el Programa ändern

 
- Página 1 -



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.
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
 
31.12.2020  
 



« 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 :
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  
 




Langer
Vielen Dank funktioniert ausgezeichnet.
In el de dir verlinkten Contribución es auch otra vez erläutert.

Gracias para rápido Ayuda
 
31.12.2020  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

2.588 Views

Untitledvor 0 min.
Gast.0815 vor 5 Tagen
Normann Strübli03.02.2023
Frank Reibold25.11.2022
Langer05.12.2021
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

Langer (2x)
H.Brill (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie