Door een waardelijst klikken

[Sanne]

Ik ben op zoek geweest naar een manier om door een variabele waardenlijst heen te "klikken" met buttons.

 

Als je de waarde van een waardelijst wilt wijzigen, dan moet je met je muis naar die waardenlijst gaan en zelf een nieuwe waarde kiezen met een klik op de waarde die je wilt selecteren.

 

Maar wat ik wilde, waren 2 knoppen naast de waardenlijst, waarmee ik de volgende en de vorige waarde van de waardenlijst kon selecteren.

 

Hierbij mijn eerste versie.

 

Graag commentaar, want er is ongetwijfeld ruimte voor verbetering.

fmpClickValuelist_v1.fp7

[Gido_]

playfull

De knoppen zou ik wel naast elkaar zetten, want zo maak je het nog vermoeiender dan het al was

 

Technische beoordeling laat ik aan mijn superieuren over

[rmw]

Zou je niet met de value-functie wat kunnen?

 

Let ( 
[
xRichting = 1 ;  //kan via een scriptparameter, maar wordt nu direct ingesteld: de stapgrootte positief of negatief
xWaarden = "¶" & ValueListItems ( Get ( FileName ) ; "DoorTeLopenLijst" ) & "¶" ;
xStartPos = Position ( xWaarden ; "¶" & InTeStellenVeld & "¶" ; 1 ; 1 ) ;
xStartNum = PatternCount ( Left ( xWaarden ; xStartPos - 1 ) ; "¶" ) + 1 ; 
xTotaalNum = PatternCount ( xWaarden ; "¶" ) ;
xNieuwNum = xStartNum + xRichting
] ; 

Case (
xNieuwNum = 0 ; GetValue ( xWaarden ; xTotaalNum - 1 ) ; //vanwege naloop ¶ corrigeren
xNieuwNum = xTotaalNum ; GetValue ( xWaarden ; 2 ) ; //vanwege voorloop ¶ geen 1 maar 2 gebruiken
GetValue ( xWaarden ; xNieuwNum + 1 )  //corrigeren voor voorloop ¶
)

)

 

Het 'gedoe' met de voorloop en naloop return voorkomt dat er delen van waarden voor hele waarden worden aangezien.

 

DoorTeLopenLijst is de waardelijst die moet worden afgelopen

InTeStellenVeld is het veld waarin de huidige waarde staat

 

Bovenstaande code kan in een script of buttonactie worden opgenomen en moet het veld InTeStellenVeld instellen (SetField)

 

Er zijn vele wegen die naar Rome leiden....

 

rmw

[Sanne]

Zou je niet met de value-functie wat kunnen?

Value-functie? Welke value-functie?

 

 

Dankjewel RMW, ik ga deze eens fijn bestuderen!

[rmw]

Een nabrander.

 

Uit onderzoekt blijkt dat

xWaarden = "¶" & ValueListItems ( Get ( FileName ) ; "DoorTeLopenLijst" ) & "¶" ;

geen dubbele return oplevert aan het einde van de lijst.

 

Omdat dat niet het geval is, kan

xNieuwNum = 0 ; GetValue ( xWaarden ; xTotaalNum - 1 ) ; //vanwege naloop ¶ corrigeren 

zonder de correctie en wordt dus

xNieuwNum = 0 ; GetValue ( xWaarden ; xTotaalNum ) ;  

 

rmw

[Sanne]

Bij eerste onderzoek blijkt de calculatie niet te werken als InTeStellenVeld leeg is. Maar dat lijkt me eenvoudig te corrigeren.