Search found 55 matches: duplicates

Return to advanced search

Re: Combinaciones de letras

... in CTLIB, which gives factorial of n. However the alphabet "E" is repeated twice resulting in some duplicate results. Ignoring such duplicates, we get 95 combinations finally resulting in 8,553 total permutations. Program to generate all unique combinations and permutations: #include ...
by nageswaragunupudi
Thu Dec 22, 2022 8:52 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Combinaciones de letras
Replies: 12
Views: 934

Re: hb_base64 link

... The C compiler is not the issue. Harbour does not provide those functions, so FWH provides them. But xHarbour provides them and then we have duplicates in FWH. I guess we should move them into a PRG and don't include such PRG in FWH for xHarbour... but we use the same prgs.txt for all the ...
by Enrico Maria Giordano
Mon Sep 12, 2022 7:40 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: hb_base64 link
Replies: 57
Views: 3121

Re: hb_base64 link

... The C compiler is not the issue. Harbour does not provide those functions, so FWH provides them. But xHarbour provides them and then we have duplicates in FWH. I guess we should move them into a PRG and don't include such PRG in FWH for xHarbour... but we use the same prgs.txt for all the ...
by Antonio Linares
Sun Sep 11, 2022 11:04 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: hb_base64 link
Replies: 57
Views: 3121

Re: nRandom Numbers no duplicates

//------------------------------------------------//// EXTRAER NUMEROS RANDOM SIN DUPLICADOS//------------------------------------------------//Function NumRandomNoDuplic()  local n := 0, nLen := 10, nRandom, aRandom := {}  While n < nLen     nRandom :=...
by FranciscoA
Tue Dec 07, 2021 6:25 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: nRandom Numbers no duplicates
Replies: 4
Views: 352

Re: nRandom Numbers no duplicates

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[ ...
by Marcelo Via Giglio
Tue Dec 07, 2021 6:11 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: nRandom Numbers no duplicates
Replies: 4
Views: 352

Re: nRandom Numbers no duplicates

// \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...
by karinha
Tue Dec 07, 2021 3:48 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: nRandom Numbers no duplicates
Replies: 4
Views: 352

Re: nRandom Numbers no duplicates

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...
by karinha
Tue Dec 07, 2021 3:41 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: nRandom Numbers no duplicates
Replies: 4
Views: 352

nRandom Numbers no duplicates

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)


Image

I tried but I get duplicates what should I do?
by Silvio.Falconi
Tue Dec 07, 2021 1:07 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: nRandom Numbers no duplicates
Replies: 4
Views: 352

Re: don't open duplicates of an exe

Certainly you could put a popup in there with your message if desired. IMHO I would not. People don't want to be told they did something wrong by a computer. If at all possible, software should just fix the problem and be quiet about it. Thanks for the code Tim. I have a routine, but it is 16 lines...
by James Bott
Thu May 20, 2021 11:26 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187

Re: don't open duplicates of an exe

I have used the following for many years: IF IsExeRunning( CFILENOEXT( hb_argv( 0 ) ) )      SHOWWINDOW( FINDWINDOW( 0, "Auto Shop Writer 11" ), 9 )      SETFOREGROUNDWINDOW( FINDWINDOW( 0, "Auto Shop Writer...
by TimStone
Thu May 20, 2021 8:53 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187

Re: don't open duplicates of an exe

Silvio escrebió: " ahora tengo otro problema que tengo que solucionar, cuando un usuario ingresa inicia sesión y podemos bloquear la duplicación del exe en una computadora.  Pero si ese mismo usuario cambia de computadora y entra al sistema con la misma cuenta, ¿cómo puedo bloquearlo? &nbs...
by karinha
Thu May 20, 2021 4:41 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187

Re: don't open duplicates of an exe

James,Santos,Otto this run ok #include "FiveWin.ch"    #define GW_CHILD      5    #define GW_HWNDNEXT   2#include "FiveWin.ch"REQUEST DBFCDXREQUEST DBFFPTREQUEST HB_LANG_ESREQUEST HB_CODEPAGE_ESWIN#DEFINE NOME_PROGRAMMA_TITLE "antonio&...
by Silvio.Falconi
Thu May 20, 2021 4:31 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187

Re: don't open duplicates of an exe

James
it seem run good
only where I must call the message "another copy allready run "
by Silvio.Falconi
Thu May 20, 2021 4:20 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187

Re: don't open duplicates of an exe

Silvio, This is from my note file: -------------------------------------------------------------------------------- Posted: Sun Sep 17, 2006 11:56 pm Post subject: Preventing more than one instance of an app running. Author: Antonio Linares -----------------------------------------------------------...
by James Bott
Thu May 20, 2021 4:04 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187

Re: don't open duplicates of an exe

Test now: // SAMPLES\SILVIO.PRG#Include "FiveWin.ch"#Define CLR_LGRAY      nRGB( 230, 230, 230 )#Define CLR_LGREEN     nRGB( 190, 215, 190 )#Define CLR_VERMELHO   nRGB( 255, 000, 000 ) //-> Vermelho Para a Letra#Define CLR_AMARELO &n...
by karinha
Thu May 20, 2021 2:14 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: don't open duplicates of an exe
Replies: 11
Views: 1187
Next

Return to advanced search