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 ...

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 Endif next next nex...

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 there are also du...

... := .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 ...

... probabilmente 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 ...

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

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é ...

... 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 (!esatto)         numeri:= Space(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 ...

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" ...

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 ...

I'm converting an my old clipper application and I have a strange error on compilation numeri:= 1         do while (numeri <= 10)            conta:= 1            rmax:= ...

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 ...

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] ...