contenuti del blog

martedì 5 giugno 2012

VB: codice per generare un numero casuale

Per creare alcuni programmi è utile generare dei numeri casuali. Ma come si generano numeri casuali?
no, non servono centinaia di righe di codice, basta solo la funzione Random di vb; vediamo come utilizzarla.
Per prima cosa dichiariamo le variabili:
nomedellavariabile as integer
nomedellavariabile as random
ora basta scrivere: textbox1.text = numero   e il programma quando clicchiamo sul button scriverà nella textbox il numero generato a caso.
NB: le parti sottolineate possono avere il nome che volete per l'esempio userò numero per la prima e random per la seconda



Creiamo una textbox dove scriveremo il numero e un button che servirà per far generare un numero casuale.
clicchiamo sul button e  in private sub button1_click .............
scriviamo:
random = new random
numero = random.next(valore minimo, valore massimo)

2 commenti:

  1. 1. Sviluppa una applicazione Visual Basic 2010 basata su Windows che consenta agli utenti di generare dei numeri casuali interi positivi attraverso un pulsante.

    Inserisci delle Label nella form che mostrino all’utente:
     il numero generato
     se il numero è pari o dispari
     se è positivo o negativo

    Inserisci nella form un pulsante che consenta di chi mi può fare questo esercizio per favore ???

    chiudere la finestra, ed un pulsante di reset per pulire i contenuti delle Label.

    Inserisci una immagine a tema per abbellire la form.

    Crea l’eseguibile del programma.


    RispondiElimina
    Risposte
    1. per far visualizzare il numero generato in una label basta l'istruzione label1.text = random.next(valore minimo, valore massimo).
      invece per verificare se è pari o dispari usi una nuova variabile dove memorizzi il numero casuale
      es. dim x as integer
      dim r as random
      r = new random
      x = r.next()
      poi verifichi se è pari o dispari e lo scrivi in una label così:
      if (x mod 2 = 0) or ( x = 0) then
      label1.text = "il numero è pari"
      else
      label1.text = "il numero è dispari"
      end if

      stessa procedura per verificare se è positivo o negativo

      if x < 0 then
      label1.text = " è positivo"
      else
      label1.text = " è negativo"
      end if

      spero di esserti stato di aiuto. se hai qualche altro dubbio chiedi pure

      simo white(team di tuttoedipiù-white)

      Elimina