Learning Say/Get with Fivewin (Confusion).. Solved.

[dagiayunus]

Dear Mr. Antonio
Many many happy returns of the day.

1. Learning Say/Get with Fivewin

When using array to get input, next get is also showing same value as first get.

Code: Select all  Expand view

#include "fivewin.ch"
function main()

DEFINE DIALOG oDlg FROM 1, 1 TO 40, 100 TITLE "Get Test with Array"
cCODE:=ARRAY(10)
afill(cCODE,space(30))
N:=0
for i=10 to 100 step 15
   n:=n+1
   @ i,5 say n PIXEL of oDlg
   @ i,10 get cCODE[n] PIXEL of oDlg  
next i

ACTIVATE DIALOG oDlg
return .t.


 

Regards.
Yunus

[hmpaquito]

viewtopic.php?f=6&t=9477&p=45501&hilit=detached+local&sid=fc0c6cc50376c525c613bdd7f73dee1b#p45497

[dagiayunus]

I dont understand by deattached local (translated with google). can you apply the solution to my sample code ?

Thanks & Regards
Yunus.

[cnavarro]

Look

Code: Select all  Expand view

#include "fivewin.ch"

function main()
Local aCode
Local aGets
Local oDlg
Local n
Local i

DEFINE DIALOG oDlg FROM 1, 1 TO 40, 100 TITLE "Get Test with Array"
aCODE:=ARRAY(10)
aGets:=Array(10)
afill(aCODE,space(30))
n:=0
for i=10 to 100 step 15
   n:=n+1
   @ i,5 say n PIXEL of oDlg
   //@ i,10 get cCODE[n] PIXEL of oDlg  
   aGets[n] := TGet():New( i, 10, MiSetGet( aCode, n ), oDlg, 70, 15, , ,;
                                 ,,,,, .T.,,,,,,,,,,,,,,,,,,, )
   aGets[n]:bValid := { || .T. }    // Por ejemplo
next i

ACTIVATE DIALOG oDlg

return .t.

//------------------------------------------------------------------------------

Function MiSetGet( aBuffer , n )
Return bSETGET( aBuffer[ n ] )

//------------------------------------------------------------------------------
 

[Gale FORd]

Others gave you the code. The problem is that when the window gets activated the array variable is settled with the current value. While it is being created is seems like the value is updated on every for/next but it is only when the activate is performed that the window manages the get variables. So you have to separate the variable from the for/next loop so that it becomes a constant value that you intended at the time of creation.

I hope i did not make it more confusing.

[ShumingWang]

move
@ i,5 say n PIXEL of oDlg
@ i,10 get cCODE[n] PIXEL of oDlg

into a new funtion

Shuming wang

[Antonio Linares]

Yunus,

Is it clear it for you now ? Is it working already as expected ?

[dagiayunus]

Dear Guru / Teachers

Thanks a lot. It is working now.

Regards