Função Randomize

R

realtravolta

Power Member
Boas..
criei um programa que gera numeros aleatorios.
simula o lançamento de um dado.´
como posso guardar o resultado de multiplos lançamentos?
tipo se fizer um lançamento ele gera um valor entre 1 e 6.
eu queria guardar esse valor e depois qd fizer outro lançamento voltar a guardar o novo valor de forma a no final apresentar todos os resultados que obtive.
obrigado
 
peço desculpa :)
é uma aplicação em visual studio 2005.
a ideia é eu escolher o numero de lançamentos q quero fazer, e guardar o resultado de cada lançamento ,por exemplo num array, e no final mostrar todos os resultados.

ex: escolho 5 lançamentos

1º-sai 5
2º-sai 4
3º-sai 1
4º_sai 1
5º-sai 2

resultado:5;4:1;1;2

a minha dificuldade está em guardar os resultados e nao em gera-los.
 
Independentemente da linguagem que estás a utilizar terás de fazer sempre isto:

- abrir um ficheiro de texto para escrita
- para cada valor gerado guardar o valor no ficheiro
- eventualmente ler os valores que guardaste

EXEMPLO EM VB.NET http://www.builderau.com.au/program...iles_with_VB_NET/0,339024644,320267367,00.htm

EDITADO: Poderás guardar num array se não precisares dos dados depois de fechares o programa EXEMPLO para adicionar elementos a um array:

http://www.juliobattisti.com.br/tutoriais/herbertgois/programandovbnet017.asp
 
Última edição:
obrigado pela ajuda
acho q tou a conseguir :)

só mais uma questão:como posso tornar a aplicação dinamica? de modo a escolher o numero de lançamentos.
eu tenho isto assim

dim i as integer
i=rand(1,6) & rand (1,6) & Rand(1,6) & rand(1,6)
textbox1.text=i
o resultado vai ser por exemplo: 1;5;4;6 pq tinha feito para 4 lançamentos.
como fazer para N lançamentos?
mais uma vez obrigado pela ajuda
 
nao sei a sintax, mas era algo assim:

Código: 
k=podes fazer um prompt a perguntar quantos lancamentos
while k>0
  gerar o num
  guardar o num
  k=k-1
loop

ou seja, esse ciclo vai ser feito K vezes e quando acabar deves obter os resultados
 
Boas.

Podes usar um loop "for" para preencher o array.

Código: 
dim i as integer
For i = 0 to N-1
  array(i) = rand(1,6) 
next
e depois preencher a textbox
Código: 
For i = 0 to N-1
  textbox1.text = array(i) 
next

Ou então fazes tudo num loop

Código: 
dim i as integer
For i = 0 to N-1
  array(i) = rand(1,6) 
  textbox1.text = array(i) 
next

Mas se o objectivo é apenas mostrar os valores numa txtbox acho que nem precisas o Array, basta-te usar o loop.

Cumps
 
tá quase :)
eu já tou a perceber o ciclo mas como posso mostrar logo o resultado de todos os lançamentos?
se por ex: N fosse 10
queria q a textbox1.text desse por ex: 1,2,5,6,6,2,3,1,2,4

obrigado
 
Última edição:
Então, isso é usar o loop mas em vez de meter no array metes logo na textbox.

Código: 
dim i as integer

For i = 1 to N

  textbox1.text = textbox1.text & rand(1,6) 

  if i < N then
    textbox1.text = textbox1.text & ", "
  end if

next

ou algo por aí...
 
Inicie sessão ou registe-se para poder participar.
Back
Topo