Français
Forum

SpinEdit im Programme changement

 
- page 1 -



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



« cette Beitrag wurde comme Solution gekennzeichnet. »


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

Sähe ensuite sur deinen Code ajusté so aus :
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  
 




Langer
Vielen Dank funktioniert ausgezeichnet.
dans dem de dir verlinkten Beitrag ist es aussi nochmal erläutert.

merci pour qui schnelle Aider
 
31.12.2020  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.642 Views

Untitledvor 0 min.
Gast.0815 vor 15 Tagen
Normann Strübli03.02.2023
Frank Reibold25.11.2022
Langer05.12.2021
plus...

Themeninformationen

cet Thema hat 2 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie