Allora hai presente il vecchio gioco mastermind ? Sto cercando di programmarlo in VB.
Ho creato un form con quattro Textbox (sopra) e quattro Button (sotto) raggruppati nel GroupBox1.
Ho creato una routine che mi colora (random) le quattro Textbox rendendomi visibile solo il GroupBox1 (gli altri 6 sono invisibili)
Ho creato una routine che mi consente di scegliere un colore di fondo per ognuno dei quattro Button.
Ora, una volta che ho scelto i colori per i Button, devo verificare che i 4 colori_Button corrispondano ai 4 colori_TextBox,
sia nel colore sia nella posizione.
Ragion per cui voglio creare una routine che mi consente di effettuare qst controllo, però mi sono incartato e
non riesco ad andare avanti.
Aggiungo codice.
codice:
Public Class Form1
Dim colore(7) As Color
Dim indice As Long
Sub BtnGenera_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGenera.Click
colore(0) = Color.Red 'settaggio dei colori primari iniziali
colore(1) = Color.Yellow
colore(2) = Color.Green
colore(3) = Color.Blue
colore(4) = Color.DarkOrange
colore(5) = Color.Cyan
colore(6) = Color.Purple
colore(7) = Color.Brown
indice = 0
Randomize() 'Evita che all'avvio si generi sempre la stessa Random di colori iniziali
TextBox1.BackColor = colore(Int(8 * Rnd())) 'Genera un colore Random tra gli 8 primari
TextBox2.BackColor = colore(Int(8 * Rnd()))
TextBox3.BackColor = colore(Int(8 * Rnd()))
TextBox4.BackColor = colore(Int(8 * Rnd()))
GroupBox1.Visible = True 'Rende visibile il GroupBox1
End Sub
Sub controllo()
indice = indice + 1
If indice > 7 Then indice = 0 'Azzera indice per ripetere la palette di colori
End Sub
Sub Btn5_Click(sender As Object, e As EventArgs) Handles Btn5.Click
Btn5.BackColor = colore(indice)
Call controllo() 'chiama la routine di controllo ripetizione palette
End Sub
Sub Btn6_Click(sender As Object, e As EventArgs) Handles Btn6.Click
Btn6.BackColor = colore(indice)
Call controllo()
End Sub
Sub Btn7_Click(sender As Object, e As EventArgs) Handles Btn7.Click
Btn7.BackColor = colore(indice)
Call controllo()
End Sub
Sub Btn8_Click(sender As Object, e As EventArgs) Handles Btn8.Click
Btn8.BackColor = colore(indice)
Call controllo()
End Sub