FiveTech Software tech support forums

Antonio Linares wrote:Dear Silvio,

What is it nOpt ? What value should contain ?

The currently selected item ?

a number

oItem1:Add( "Numeri dispari",1, {|| nOpt:=1 } )

Antonio,
Incredible!!!!

I ask
(Italian)
Mi puoi mostrare il codice di un programma scritto in linguaggio Harbour che crea un array di 3 numeri dal 1 al 90 dove la somma è uguale alla distanza ciclometrica ?

(Espanol)
¿Me puede mostrar el código de un programa escrito en lenguaje Harbour que crea ...

sorry my error

Now only with local nValore:= 6
local nTipo := 3


run ok
For n= 1 to 90
For k= 1 to 90
For j= 1 to 90
nTotale := Calcolo_3_numeri(n,k,j,ntipo)
If nTotale=nvalore
nAt := AScan( aTmp, { |a| a[1] = k .and. a[2] = n .or. a[3] = j } )
If nAt == 0
aadd(aTmp,{n,k,j})
Endif ...

change into

For n= 1 to 90
For k= 1 to 90
For j= 1 to 90
nTotale := Calcolo_3_numeri(n,k,j,ntipo)
If nTotale=nvalore
nAt := AScan( aTmp, { |a| a[1] = j .and. a[2] = k .or. a[3] = n} )
If nAt == 0
aadd(aTmp,{n,k,j})
Endif
Endif
next
next
next

the calc is fast but is also bad because ...

... f.
:lRecordSelector := .f.
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:SetGroupHeader( "Numeri Estratti ", 1, 6 )
:SetGroupHeader( if( nRadio == 1, "Somme estratti", "Distanze cilometriche" ), 7, 16 )
:nMarqueeStyle := MARQSTYLE_NOMARQUEE ...

... e quasi certamente perché avevamo 25 righe e quindi 22 +1 o 2 per la scritta del read....

io adesso per far prima ho lasciato 22
per numeri è inteso il totale dei numeri ricercati si andava a salvare questo contatore per poi richiamare le famose variabili N con il numero esempio N1 N2 ...

... nbsp; <------------------------------ 'esatto' deve essere .F. all'inizio del ciclo se no non partirebbe il ciclo&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;numeri:= Space(2)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;set color to GR+/N&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;@ &nbsp;8, 30 say "MIN: " + scelta + " MAX: 22 ...

nel ciclo delle get si chiedono dei numeri essendo un sorgente che va a fare statistiche lotto, tu puoi inserire fino a 22numeri anche sta cosa non l'ho capita probabilmente io nel lontano 92 avevi visto che potevo chiedere solo 22 numeri perché non avevo spazio oppure siccome il calcolo andava a ...

... un vecchio programma in clipper ho delle strane variabili cioè non sono dichiarate con local oppure public
queste variabili servono a caricare dei numeri
sono chieste in un ciclo di get ovviamente ti fa scegliere quanti numeri vuoi caricare max 22


do while &#40;!esatto&#41; numeri:= Space&#40;2 ...

... or the M -> prefix:

MEMVAR lServer

or

M -> lServer

EMG


ok but on my old clipper prg I assigned on "N"+ LTrim(Str(conta1)) a number

numeri:= 22

for a sample
do while (conta <= Val(numeri))
num:= "N" + LTrim(Str(conta))


so num = N1,N2,N3....
but &num can have different values

they ...

I have this error

Error description: Error BASE/1003 Variabile inesistente: C1

on the source

numeri:= 9
combinaz:= 10
scelta:= "2"
c1:= "102030405060708090"
c2:= "011121314151617181"
c3:= "021222324252627282"
c4:= "031323334353637383"
c5:= "041424344454647484"
c6:= "051525354555657585 ...

Silvio

just use the var-name
" (" + num + ")"

@ riga, 1 + numeri * 5 say massimo + " (" + &num + ")" OF oAmbRitardo SIZE 30,10

sample :

I := 1
FOR I := 1 TO 10
num := "N" + LTrim(str(I))
MsgAlert( "massimo (" + num + ")" )
NEXT

regards
Uwe

I'm converting an my old clipper application and I have a strange error on compilation

numeri:= 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;do while &#40;numeri <= 10&#41;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; conta:= 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; rmax:= 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp ...

Salve

per quanto riguarda il nome file xml da inviare bisogna usare un progressivo
( i famosi 5 numeri e/o caratteri di ITcodicefiscal_XXXXX.xml )
quindi partendo da 1 si arriva a 99999.

pensavo di andare oltre i soli numeri e usare un progressivo alfanumerico quando si supera il 99999.

Es. dopo il ...

perhaps I found the error

For k= 1 to 5 // numeri

If nposition[k]= alltrim("a")
nline:= 1
elseif nposition[k]= alltrim("b")
nline:= 2
elseif nposition[k]= alltrim("c")
nline:= 3
endif


nNumbers[k]:= aline[nline][k]

next k


nopw seem to run ok