Code:
Public Sub Generate()
' Generise niz za boje kuglica
' 0 = Yellow
' 1 = Green
' 2 = Cyan
' 3 = Blue
' 4 = Magenta
' 5 = Red
Solution(0) = lblSolution0
Solution(1) = lblSolution1
Solution(2) = lblSolution2
Solution(3) = lblSolution3
Solution(4) = lblSolution4
Solution(5) = lblSolution5
Solution(6) = lblSolution6
Dim a As Integer
Randomize()
Dim i As Integer
For i = 0 To 5
a = Rnd() * 6
Select Case (a)
Case 0
Solution(i).BackColor = Color.Yellow
Case 1
Solution(i).BackColor = Color.Green
Case 2
Solution(i).BackColor = Color.Cyan
Case 3
Solution(i).BackColor = Color.Blue
Case 4
Solution(i).BackColor = Color.Magenta
Case 5
Solution(i).BackColor = Color.Red
End Select
Next
End Sub
Public Sub Generate()
' Generise niz za boje kuglica
' 0 = Yellow
' 1 = Green
' 2 = Cyan
' 3 = Blue
' 4 = Magenta
' 5 = Red
Solution(0) = lblSolution0
Solution(1) = lblSolution1
Solution(2) = lblSolution2
Solution(3) = lblSolution3
Solution(4) = lblSolution4
Solution(5) = lblSolution5
Solution(6) = lblSolution6
Dim a As Integer
Randomize()
Dim i As Integer
For i = 0 To 5
a = Rnd() * 6
Select Case (a)
Case 0
Solution(i).BackColor = Color.Yellow
Case 1
Solution(i).BackColor = Color.Green
Case 2
Solution(i).BackColor = Color.Cyan
Case 3
Solution(i).BackColor = Color.Blue
Case 4
Solution(i).BackColor = Color.Magenta
Case 5
Solution(i).BackColor = Color.Red
End Select
Next
End Sub
Promjenljiva Solution je deklarisana kao globalna promjenljiva sa
Public Solution(6) As Label