Italia
Foro

SpinEdit im Programm ändern

 
- Page 1 -



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



« Dieser Beitrag wurde als Lösung gekennzeichnet. »


H.Brill
Schau mal hier im Foro : [...] 

Sähe dann auf deinen Code angepaßt so aus :
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  
 




Langer
Vielen Dank funktioniert ausgezeichnet.
In dem von dir verlinkten Beitrag ist es auch nochmal erläutert.

Danke per die schnelle Aiuto
 
31.12.2020  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

2.643 Views

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

Themeninformationen

Dieses Thema hat 2 subscriber:

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


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie