ciao a tutti, da molto che non sono presente sul forum per via del lavoro, stavo lavorando alla realizzazione di un piccolo gioco a quiz con visual studio 2008, sono alle primissime armi, sono riuscito a fare quasi tutto ma non ho capito come fare funzionare il random senza che le domande si ripetano cliccando sul pulsante per le domande successive, in sostanza qualcuno potrebbe illustrarmi o addirittura completarmi il mio codice? vi posto l'esempio.
Public Class Form1
Dim punteggio
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 1
TextBox1.Text = "Il cane è intelligente"
Case 2
TextBox1.Text = "Catania è il capoluogo della Sicilia"
Case 3
TextBox1.Text = "I cavalli sono quadrupedi"
End Select
TextBox3.Text = ""
If Button1.Enabled Then
Button2.Enabled = True
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = "Il cane è intelligente" And RadioButton1.Checked Then
TextBox3.Text = "SBAGLIATO!!"
End If
If TextBox1.Text = "Il cane è intelligente" And RadioButton2.Checked Then
TextBox3.Text = "BRAVO!!"
TextBox4.Text = punteggio
punteggio = punteggio + 100
Else
If TextBox1.Text = "Catania è il capoluogo della Sicilia" And RadioButton1.Checked Then
TextBox3.Text = "SBAGLIATO!!"
End If
If TextBox1.Text = "Catania è il capoluogo della Sicilia" And RadioButton2.Checked Then
TextBox3.Text = "BRAVO!!"
TextBox4.Text = punteggio
punteggio = punteggio + 100
Else
If TextBox1.Text = "I cavalli sono quadrupedi" And RadioButton1.Checked Then
TextBox3.Text = "BRAVO!!"
TextBox4.Text = punteggio
punteggio = punteggio + 100
End If
If TextBox1.Text = "I cavalli sono quadrupedi" And RadioButton2.Checked Then
TextBox3.Text = "SBAGLIATO!!"
End If
End If
End If
If Button2.Enabled Then
Button2.Enabled = False
End If
End Sub
End Class
spero che qualcuno sia così gentile da completarmi questa mia richiesta e magari descrivermela in modo da capirla
|