Public Class Form1
Dim estrazione As New Random()
Dim sestina(5) As Int16
Dim imput(5) As Int16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'array di valori immessi dagli utenti
imput(0) = CType(NumericUpDown1.Value, Short)
imput(1) = CType(NumericUpDown2.Value, Short)
imput(2) = CType(NumericUpDown3.Value, Short)
imput(3) = CType(NumericUpDown4.Value, Short)
imput(4) = CType(NumericUpDown5.Value, Short)
imput(5) = CType(NumericUpDown6.Value, Short)
'array che contiene i valori visualizati a random
sestina(0) = CType(estrazione.Next(1, 90), Int16)
sestina(1) = CType(estrazione.Next(1, 90), Int16)
sestina(2) = CType(estrazione.Next(1, 90), Int16)
sestina(3) = CType(estrazione.Next(1, 90), Int16)
sestina(4) = CType(estrazione.Next(1, 90), Int16)
sestina(5) = CType(estrazione.Next(1, 90), Int16)
'qui passo alle textbox i valori dentro le celle degli array
TextBox1.Text = sestina(0)
TextBox2.Text = sestina(1)
TextBox3.Text = sestina(2)
TextBox4.Text = sestina(3)
TextBox5.Text = sestina(4)
TextBox6.Text = sestina(5)
'ora confrontiamo le scelete degli uetnti con i valori delle Textbox per vedere se c'è la vincita
Dim index As Int16 = 0
Dim indus As Int16 = 0
Dim indux As Single = 0
Do
Select Case sestina(index)
Case (sestina(index)) = (imput(indus))
indux += 1
End Select
indus += 1
index += 1
Loop Until (index >= 6) And (indus >= 6)
Select Case indux
Case indux = 0
MessageBox.Show("ritenta Hai indovinato 0 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case indux = 1
MessageBox.Show("ritenta Hai indovinato 1 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case indux = 2
MessageBox.Show("ritenta Hai indovinato 2 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case indux = 3
MessageBox.Show("Hai indovinato 3 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case indux = 4
MessageBox.Show("Hai indovinato 4 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case indux = 5
MessageBox.Show("Hai indovinato 5 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case indux = 6
MessageBox.Show("Hai indovinato 6 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
End Sub
End Class