1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Função Randomize

Discussão em 'Programação' iniciada por realtravolta, 2 de Dezembro de 2006. (Respostas: 8; Visualizações: 1764)

  1. realtravolta

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

    OldMan Power Member

    nao sei em que e' que estas a trabalhar, mas podes guardar num ficheiro txt ou numa base de dados
     
  3. realtravolta

    realtravolta Power Member

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

    K0mA Power Member

    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: 3 de Dezembro de 2006
  5. realtravolta

    realtravolta Power Member

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

    OldMan Power Member

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

    JGAlmeida Folding Colaborator

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

    realtravolta Power Member

    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: 3 de Dezembro de 2006
  9. JGAlmeida

    JGAlmeida Folding Colaborator

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

Partilhar esta Página