casuale

esercitazione con numeri casuali

per vedere ppt

creare 5 pulsanti e 5 label(nomi automatici)

codice da copiare e incollare

Option Explicit

Private Sub CommandButton1_Click()
Randomize
Label1.Caption = Rnd()
End Sub

Private Sub CommandButton2_Click()
Randomize
Label2.Caption = Int(Rnd() * 100 + 1)
End Sub

Private Sub CommandButton3_Click()
Randomize
Label3.Caption = Int(Rnd() * 101)
End Sub

Private Sub CommandButton4_Click()
Randomize
Label4.Caption = 50 + Int(Rnd() * 21)
End Sub

Private Sub CommandButton5_Click()
Randomize
Label5.Caption = 1 + Int(Rnd() * 6)
End Sub

altro esempio creazione serie o singoli casuali
per vedere ppt

creare due pulsanti e due listbox(nomi automatici)

codice da acopiare e incollare

Option Explicit

Private Sub CommandButton1_Click()
Dim n As Integer
Dim numero As Integer
For n = 1 To 90 'creazione serie di numeri casuali insieme
numero = Int(Rnd() * 90) + 1
ListBox1.AddItem n & " " & (numero)
Next n
End Sub

Private Sub CommandButton2_Click()
Dim n As Integer
Dim numero As Integer
n = 1
numero = Int(Rnd() * 90) + 1 'creazione numeri casuali singoli
ListBox2.AddItem (numero)
End Sub

creazione di numeri casuali e applicazione a gioco

per vedere ppt

casuale1
creare due pulsanti(button1=cancellare,button2 > prova)
creare due label(nome cambiato in risposta,pensato)
creare una textbox1 (nome numerodaprovare)

programma:inserire un numero tra 0  e 10
controllo:indica se numero risulta maggiore, uguale,
minore di quello casuale creato dal PC (soluzione);
cancellare e scrivere altro numero

programma da copiare e incollare

Public soluzione As Integer

Private Sub CommandButton1_Click() 'cancellare tutto
numerodaprovare.Text = ""
risposta.Caption = ""
numerodaprovare.SetFocus
pensato.Caption = ""

End Sub


Private Sub prova_Click() 'richiesta numero e confronto con casuale PC
soluzione = Int(10 * Rnd())
If numerodaprovare.Text < soluzione Then
risposta.Caption = "numero " & numerodaprovare.Text & " basso"
End If

If numerodaprovare.Text > soluzione Then
risposta.Caption = "numero " & numerodaprovare.Text & " alto"
End If

If numerodaprovare.Text = soluzione Then
risposta.Caption = "numero " & numerodaprovare.Text & " esatto"
End If
pensato.Caption = "numero pensato=" & soluzione
End Sub

altro esempio con numero casuale da indovinare
per vedere ppt

creare sei pulsanti(cambiare nomi)
creare una textbox (cambiare nome)
creare quattro label(cambiare nomi)

codice da copiare e incollare

Public cifra As Integer

Private Sub cancella_Click()
numerodaprovare.Text = ""
risposta.Caption = ""
numerodaprovare.SetFocus
End Sub

Private Sub rinuncia_Click()
Label3.Caption = "il numero pensato era " & cifra
altra.SetFocus
End Sub

Private Sub altra_Click()
soluzione.Visible = True
Label3.Caption = ""
numerodaprovare.Text = ""
risposta.Caption = ""
soluzione.Text = ""
soluzione.SetFocus
End Sub

Private Sub iniziare_Click()
soluzione.SetFocus
End Sub

Private Sub nascondi_Click()
soluzione.Visible = False
numerodaprovare.SetFocus
End Sub


Private Sub prova_Click()
cifra = soluzione.Text

If numerodaprovare.Text < cifra Then
risposta.Caption = "numero " & numerodaprovare.Text & " basso"
End If

If numerodaprovare.Text > cifra Then
risposta.Caption = "numero " & numerodaprovare.Text & " alto"
End If

If numerodaprovare.Text = cifra Then
risposta.Caption = "numero " & numerodaprovare.Text & " esatto"
End If

End Sub