English
Forum

SpinEdits in the program Change

 
- Page 1 -



Langer
Moin,

there The Possibility during the Programmablauf whom "max. Wert" the SpinEdits Fensters To Change?
i want achieve the if the "Boardtyp" on 1 standing, I The "Board Ports" of 1 To 4 take on can and if the "Boardtyp" on 2 staid becomes I The "Board Ports" of 1 To 5 take on can.
here time my idea moreover, The unfortunately not functions there itself the window deaktiviert if the Boardtyp on 2 staid becomes.
Declare ZF&, ZGB&, ZECA&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Window Style 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("SpinEdits",ZF&,"1;1;100",20,20,48,20)
@Create("Text",ZF&,"Controller Adresse",80,20,120,20)
'ZECP& = @Create("SpinEdits",ZF&,"1;1;2",20,50,48,20)
@Create("Text",ZF&,"Controller Port",80,50,120,20)
ZEB& = @Create("SpinEdits",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("SpinEdits",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("SpinEdits",ZF&,"1;1;4",20,110,48,20)
            Z1$ = "1"'prevented the The Loop go through becomes if the suitable 'SpinEdits' staid watts

        EndIf

    EndIf

    Ifnot Z1$ = "2"

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

            DestroyWindow(ZEBP&)
            ZEBP& = @Create("SpinEdits",ZF&,"1;1;5",20,110,48,20)
            Z1$ = "2"

        EndIf

    EndIf

    sleep 100

    If Clicked(ZB1&)

        Z& = 1
        @DestroyWindow(ZF&)

    EndIf

EndWhile

End

plenty Regards
Dirk

I use XProfanX4
 
12/31/20  
 



« this Posting watts as Solution marked. »


H.Brill
look time here in the Forum : [...] 

Sähe then on your code angepaßt so from :
Declare ZF&, ZGB&, hSpin&, ZECP&, ZEB&, ZEBP&, ZED&, CP$, ZB&, ZB1&, Z&, Z$, Z1$
Window Style 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("SpinEdits",ZF&,"1;1;4",20,80,48,20)
ZEBP&= @Create("SpinEdits",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.
12/31/20  
 




Langer
Vielen Thanks functions fine.
in the of you verlinkten Posting is it too again explains.

thanks for speedy Help
 
12/31/20  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

2.602 Views

Untitledvor 0 min.
Gast.0815 vor 6 Tagen
Normann Strübli02/03/23
Frank Reibold11/25/22
Langer12/05/21
More...

Themeninformationen

this Topic has 2 subscriber:

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


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie