|
|
Postada em 19/09/2011 16:00 hs
tem 6 numeros certo. mais vou gerar aleatoriamente sem repetir os ja gerados. exemplo:
gerados com rnd e usando randomize
1) 5
2) 4
3) 2
4) 6
5) 1
6) 3
no meu teste ele rep. assim:
aqui o problema que tenho que rodar mais de 6 vezes
1) 5
2) 4
3) 4
4) 6
5) 5
6) 3
7) 2
8) 1
Botão comando_click:
Randomize
XMarcar = Int(6 * Rnd()) + 1
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 22/09/2011 10:24 hs
Juan não entendi sua esja um pouco mais especifico. |
|
|
|
|
|
Postada em 22/09/2011 17:21 hs
Oi Treze td bem?
bem. vou explicar: tenho 14 números, mais vou querer selecionar aleatoriamente 6 números. Nesse caso, o que eu quero que se for 6 numeros ao usar Rnd ele repete algum numero em algum momento. como assim. bem digamos que va gerando aleatoriamente:
a) 5
b) 4
c) 5 'aqui não era para gerar pq ja gerou
d) 2
e) 1
f) 6
g) 1 'aqui não era para gerar pq ja gerou
h) 3
isso ai é varia, eu sei como controlar, mais o que eu queria que não repeta. gere somente 6 vezes e não 8 ou 7 vezes.
valeu pela dica.
ja vi sua dica no vbmania mais não deu certo.
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/09/2011 12:01 hs
se eu entendi vc quer 6 numeros e 14 sem repetiçao
então seria +- isso
dim numeros(6)
for i=1to 6
Randomize
XMarcar = Rnd(13) + 1
if i=1 then
numeros(1)=xmarcar
else 'compara os numeros q já sairam
for j =1 to i-1
if numeros(j)=xmarcar then 50
else
if j=i-1 then
numeros(i)=xmarcar' fim da comparação
goto 51
else
endif
next j
endif
50 i=i-1
51 next i
não testei mas acho q é isso
|
|
|
|
|
|
Postada em 28/09/2011 20:33 hs
Obrigado por responder. bem eu ja fiz algo parecido com um contador com menos codigo, mais é coisa mesmo do rnd, pois ele cria numeros aleatorios mesmo. obrigados a todos |
|
|
|
