Spinner Get

[Silvio.Falconi]

I have a Spinner get

nPuntataIniziale := 0.50

@ nRow,nCol SAY oSay[1] PROMPT "Puntata iniziale" SIZE 100,24 PIXEL OF oDlg FONT oFont

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP nPuntataIniziale+=0.50;
ON DOWN nPuntataIniziale-=0.50 MIN 0,50 MAX 200 RIGHTTOLEFT

I tried laso with
@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP 0.50;
ON DOWN 0.50 MIN 0,50 MAX 200 RIGHTTOLEFT

but not run

I wish the final user can press the spinner and add/ minus 0.50 on nPuntataIniziale min 0.50 max 200 , so where is the error ?

[Antonio Linares]

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ;
ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) MIN 0,50 MAX 200 RIGHTTOLEFT

[Silvio.Falconi]

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ;
ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) MIN 0,50 MAX 200 RIGHTTOLEFT

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg;
FONT oFont SPINNER ;
ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ;
ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) ;
MIN 0,50 MAX 200 RIGHTTOLEFT


Compiling 'test.prg'...
test.prg(89) Error E0030 Syntax error "syntax error at '@'"

[karinha]

Intenta asi:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Constant.ch"

   @ 100, 10 GET aGet[4] VAR nPuntataIniziale SPINNER MIN 0.50 MAX 200 ;
      ON UP   GetStep( aGet[4]:VarPut( nPuntataIniziale += 0.50 ) )    ;
      ON DOWN GetStep( aGet[4]:VarPut( nPuntataIniziale -= 0.50 ) )    ;
      SIZE 90, 24 RIGHTTOLEFT PIXEL OF oDlg PICTURE "9999.99" UPDATE
 

Regards, saludos.

[alerchster]

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP 0.50;
ON DOWN 0.50 MIN 0,50 MAX 200 RIGHTTOLEFT

Code: Select all  Expand view

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER MIN 0.50 MAX 200 ;
     ON UP   GetStep( cGet,  0.50 ) ;
     ON DOWN GetStep( cGet, -0.50 ) ;
     RIGHTTOLEFT PICTURE "999.99" UPDATE
....

static function GetStep( oGet, nAdd )
   local nValue   := oGet:Value + nAdd
   nValue   := Max( Min( nValue, Eval( oGet:bMax ) ), Eval( oGet:bMin ) )
   oGet:cText  := nValue
   XEval( oGet:bChange )
return nil          
 

[Silvio.Falconi]

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP 0.50;
ON DOWN 0.50 MIN 0,50 MAX 200 RIGHTTOLEFT

Code: Select all  Expand view

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER MIN 0.50 MAX 200 ;
     ON UP   GetStep( cGet,  0.50 ) ;
     ON DOWN GetStep( cGet, -0.50 ) ;
     RIGHTTOLEFT PICTURE "999.99" UPDATE
....

static function GetStep( oGet, nAdd )
   local nValue   := oGet:Value + nAdd
   nValue   := Max( Min( nValue, Eval( oGet:bMax ) ), Eval( oGet:bMin ) )
   oGet:cText  := nValue
   XEval( oGet:bChange )
return nil          
 

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER MIN 0.50 MAX 200 ;
ON UP GetStep( aGet[4], 0.50 ) ;
ON DOWN GetStep( aGet[4], -0.50 ) ;
RIGHTTOLEFT PICTURE "999.99" UPDATE

make error
Error occurred at: 10/15/24, 10:21:34
Error description: Error BASE/1004 No exported method: EVAL
Args:
[ 1] = U

Stack Calls
===========
Called from: test.prg => (b)EVAL( 0 )
Called from: test.prg => GETSTEP( 138 )
Called from: test.prg => (b)PROGRESSIONI( 91 )
Called from: .\source\classes\tget.prg => (b)TGET_SPINNER( 3429 )

[Silvio.Falconi]

Intenta asi:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Constant.ch"

   @ 100, 10 GET aGet[4] VAR nPuntataIniziale SPINNER MIN 0.50 MAX 200 ;
      ON UP   GetStep( aGet[4]:VarPut( nPuntataIniziale += 0.50 ) )    ;
      ON DOWN GetStep( aGet[4]:VarPut( nPuntataIniziale -= 0.50 ) )    ;
      SIZE 90, 24 RIGHTTOLEFT PIXEL OF oDlg PICTURE "9999.99" UPDATE
 

Regards, saludos.

make error
Error description: Error BASE/1004 No exported method: VALUE
Args:
[ 1] = N 5.00

Stack Calls
===========
Called from: test.prg => VALUE( 0 )
Called from: test.prg => GETSTEP( 141 )

[Silvio.Falconi]

I resolve with

Code: Select all  Expand view

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER MIN 0.50 MAX 200 ;
     ON UP   GetStep(  aGet[4],  0.50,1,200 ) ;
     ON DOWN GetStep(  aGet[4], -0.50,1,200 ) ;
     RIGHTTOLEFT PICTURE "999.99" UPDATE

 static function GetStep( oGet, nAdd,nMin,nMax )
   local nValue   := oGet:Value + nAdd
   // nValue   := Max( Min( nValue, Eval( oGet:bMax ) ), Eval( oGet:bMin ) )

      nValue   := Max( Min( nValue, nMax ), nMin )
   oGet:cText  := nValue
   XEval( oGet:bChange )
return nil