FiveTech Support Forums

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 ?

@ 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

Antonio Linares wrote:@ 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 '@'"

Intenta asi:
Regards, saludos.

@ 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

alerchster wrote:@ 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 (fw): Select all Collapse

@ 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 )

karinha wrote:Intenta asi:

Code (fw): Select all Collapse

#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 )

I resolve with