Ciao a tutti, sono nuovo nel forum, il mio professore mi ha assegnato un compito secondo il quale io debba creare un programma su visual basic come il superenalotto da 4 righe e 6 colonne. Le variabili sono queste:
Dim Righe As Integer
Dim Colonne As Integer
Dim Matrice(4, 6) As Integer
Dim Numero As Integer
Dim NumeroIns(6) As Integer
Dim I As Integer
Dim NumeroInd(6) As Integer
Il programma inizia con l'inserimento dei 6 numeri giocati e dopo l'inserimento di questi il programma attraverso La funzione "Randomize" mi crea 24 numeri disposti in 6 colonne e 4 righe a caso.
dopo l'inserimento dei numeri giocati e l output dei numeri vincenti il programma deve controllare se quei numeri inseriti sono vincenti, e quindi deve controllare per ogni numero inserito la matrice.. infine se c'e una riga vincente deve stamparla. io ho fatto in questo modo che è molto ma molto lungo per il controllo dei numeri
I = 1
' Inserimento numeri giocati da tastiera'
NumeroIns(1) = InputBox("Inserisci il numero" + Str(I))
I = I + 1
NumeroIns(2) = InputBox("Inserisci il numero" + Str(I))
I = I + 1
NumeroIns(3) = InputBox("Inserisci il numero" + Str(I))
I = I + 1
NumeroIns(4) = InputBox("Inserisci il numero" + Str(I))
I = I + 1
NumeroIns(5) = InputBox("Inserisci il numero" + Str(I))
I = I + 1
NumeroIns(6) = InputBox("Inserisci il numero" + Str(I))
I = I + 1
'Creazione di 24 numeri a random'
Randomize()
For Righe = 1 To 4
For Colonne = 1 To 6
Randomize()
Matrice(Righe, Colonne) = Int(Rnd() * 90) + 1
Next
Next
For Righe = 1 To 4
For Colonne = 1 To 6
Numero = Matrice(Righe, Colonne)
' Stampa dei 24 numeri su console'
Console.Write("{0:0}" + vbTab, Numero)
Next
Console.WriteLine()
Next
' CONTROLLO DEL 1 NUMERO'
If NumeroIns(1) = Matrice(1, 1) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(1, 2) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(1, 3) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(1, 4) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(1, 5) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(1, 6) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(2, 1) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(2, 2) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(2, 3) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(2, 4) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(2, 5) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(2, 6) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(3, 1) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(3, 2) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(3, 3) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(3, 4) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(3, 5) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(3, 6) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(4, 1) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(4, 2) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(4, 3) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(4, 4) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(4, 5) Then
NumeroInd(1) = NumeroIns(1)
End If
If NumeroIns(1) = Matrice(4, 6) Then
NumeroInd(1) = NumeroIns(1)
End If
'Stampa del Numero 1'
If NumeroInd(1) = 0 Then
Console.WriteLine("Non risulta nel tabellare il seguente numero: ", NumeroIns(5))
Else
Console.WriteLine("Hai indovinato il 1 numero", NumeroInd)
End If
Il controllo del numero 1 è uguale al numero 2,3,4,5,6 e il programma è lunghissimo e non va bene.
Sapete dirmi un metodo attraverso cui si possta fare il controllo della matrice velocemente e non scrivendo tante cose?
io avevo pensato di fare If NumeroIns(1)= Matrice () controllando tutti e 24 numeri senza stare a scrivere il procedimento di un controllo alla volta, ma il programma mi da errore. Infine vorrei sapere se è possibile stampare la riga vincente (Bisogna indovinare tutti e 6 i numeri della riga), so che è impossibile intovinarli tutti e 6 ma il prof lo vuole.
Ho bisogno di aiuto non so come fare