FiveTech Software tech support forums

... RANDOM SIN DUPLICADOS//------------------------------------------------//Function NumRandomNoDuplic()  local n := 0, nLen := 10, nRandom, aRandom := {}  While n < nLen     nRandom := HB_RandomInt(nLen)     if AScan( aRandom, ...

FUNCTION RandomList( nNum )   LOCAL aList := ARRAY( nNum )    LOCAL nAt, aRandom := {}   AEval( aList, { | u, i | aList[ i ] := 0 } )   DO WHILE LEN( aRandom ) < nNum      nAt := HB_RandomInt( 1, nNum )      DO WHILE aList[ ...

// \samples\RANDOM2.PRG#include "FiveWin.ch"STATIC aNumerosFUNCTION RandomList()   LOCAL cTexto := ""   LOCAL cFile  :=  "numeros.txt"   LOCAL nSort   // aqui inicia o sorteio considerando o range de 1 até 100&n...

Mira se ayuda: // \samples\RANDOM1.PRG#Include "FiveWin.ch"FUNCTION RandomList()   LOCAL aList := ARRAY( 100 ) // 999999   LOCAL nAt, aRandom := {}   AEval( aList, { | u, i | aList[ i ] := i } )   W...

I have to calculate a random number up to 1 10
I have to extract 1 at a time for 10 times and I don't have to extract a number that has already been extracted, what should I do?

num:=nRandom(10)




I tried but I get duplicates what should I do?

Fiz vários testes com nRANDOM(), RANDOM(), HB_RandomInt(), etc e todas elas NÃO FUNCIONARAM nas suas totalidades ou seja, todas deixaram de fornecer alguns números em uma de range 999999 e estou com muita dificuldade em encontrar uma ...

... easy select allways the same sudoku ( he learn how resolve it )... ahahahahh :) Instead I made another function : the procedure select a sudolu on nRandom... Function SudokuLoad(nLevel)  Local aLoadstring:= Load_File_Sudoku(nLevel)  Local nConteggioSudoku:=Len(aLoadstring)  ...

... Light" SIZE 0, -18 hFont := SelectObject( hDC, oFont:hFont ) for n := 1 to nLen cLetra := substr( cTexto, n, 1 ) nColor := SetTextColor( hDC, nRandom( CLR_WHITE ) ) TextOut( hDC, 10, nLeft, cLetra ) SetTextColor( hDC, nColor ) nLeft += GetTextWidth( hDC, cLetra, oFont ) next SelectObject( ...

... y le he añadido estas líneas a continuación del if oPrinter:lMeta del comienzo: oPrinter:cfile := GetEnv("TMP")+'\TMP'+alltrim(str(nRandom()))+'.pdf' do whil file(oPrinter:cfile) oPrinter:cfile := GetEnv("TMP")+'\TMP'+alltrim(str(nRandom()))+'.pdf' enddo Me funciona muy ...

Ozono, si en vez de nNum := nRandom( nRand ) escribes: nNum := nRandom( nRand )+1 te aseguras de que nunca te va a dar 0 y te quitas de complicaciones

Un saludo. Y suerte...

... es lo que estás preguntando. Supongo que necesitas generar un número aleatorio para tu división en partes desiguales. Para ello está la función nRandom(x) que genera un número aleatoio entre 0 y x. Por ejemplo: nNum := nRandom(10) Genera un número entre 0 y 10. Si lo que quieres es, ...

I never had a problem with nRandom, but...

DbGoTo( HB_Random(1, LastRec() ) ) should solve too.

NRANDOM HAVE PROBLEM
i REMEMBER THERE WAS ANOTHER WITH HB_

Select YOURDBF
DbGoTo( nRandom(LastRec()-1)+1 )

nRandom is 0 to nParam
LastRec() is your total recs
You need the -1 on LastRec to compensate the 0 start from nRandom and the +1 is to compensate the -1

Fernando, yo lo hago asi: Cargo mis valores: oGra:AddSerie(aCant,cVar,nRGB(nRandom(254),nRandom(254),nRandom(254))) //nRGB(106,130,218)) oGra:SetYVals(aDia) cuando cambio valores hago esto: inicializo oGra:aSeries :={} oGra:aData := {} oGra:aSTemp := {} oGra:aDTemp ...