FiveTech Software tech support forums

Armando, Como llamas a nRandom() para generar los colores ? Puedes mostrar el código ? En que casos no se ve bien ? Quizá esos casos puedan evitarse desde código Amigos, una disculpa por escribir en este foro de Inglés, creí estar en ...

Armando,

Como llamas a nRandom() para generar los colores ? Puedes mostrar el código ?

En que casos no se ve bien ? Quizá esos casos puedan evitarse desde código

... Te agradezco la respuesta, en la aplicación hay casi 200 diálogos y el color de los mismos se define en tiempo de ejecución en base a la función nRandom(), en algunos casos el color negro del texto va bien pero en otros casos no, obviamente puedo hacerle pero, creo, me llevara mucho código. Por ...

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