Assegnare numero casuale a variabile

di
mistervolt
il
4 risposte
M
mistervolt
Pochi posts
Iscritto da
ago, 2014
Messaggi:
9

Assegnare numero casuale a variabile

Salve a tutti mi presento sono nuovo del forum. Vorrei farvi una domanda: ho necessità di assegnare ogni volta che premo un pulsante un numero casuale (max 1000) a una variabile visualizzando il risultato su un'etichetta. Il problema è che ogni volta che avvio i form la sequenza di numeri sembra casuale ma è sempre la stessa (534, 290,775,761,710 ecc). l'istruzione che ho inserito è la seguente:

Rnd
variebile = int (1000 * Rnd() + 1).

Grazie.

ps: sò che vb6 non è più supportato. Devo orientarmi verso visual studio 2010 o superiore?

4 Risposte

  • tuixte
    tuixte
    Utente Attivo
    Iscritto da
    lug, 2014
    Messaggi:
    322

    Re: Assegnare numero casuale a variabile

    Non conosco Vb6, ma immagino tu debba inizializzare il random seed. Questo è un esempio che ho trovato sul sito della Microsoft (è per vb 2010, ma esiste sicuramente una funzione simile che fa al caso tuo): 
    ' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 6. 
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))
  • M
    mistervolt
    Pochi posts
    Iscritto da
    ago, 2014
    Messaggi:
    9

    Re: Assegnare numero casuale a variabile

    Ho trovato la sintassi giusta; premendo il pulsante genera dichiara la variabile, viene generato un numero a caso fino a 1000 e visualizzato sul label Output:

    Private Sub cmdGenera_Click()

    Dim intNumeroCasuale as integer

    randomize
    intNumeroCasuale = Int (1000 + rnd) +1

    lblOutput.Caption = intNumeroCasuale
    end sub
  • mentat
    mentat
    Utente Attivo
    Iscritto da
    ago, 2014
    Messaggi:
    131

    Re: Assegnare numero casuale a variabile

    Quel + tra 1000 e rnd è un po' sospetto. Sarà mica un * ?
  • M
    mistervolt
    Pochi posts
    Iscritto da
    ago, 2014
    Messaggi:
    9

    Re: Assegnare numero casuale a variabile

    Hai ragione...errore di battitura.
Devi accedere o registrarti per scrivere nel forum
4 risposte