To create Dice applicatio ,first of all, you draw a rounded square in the project windows.
Secondly, you need to draw an array of 7 dots and VB will automatically labeled them as
shape1(0), shape1(1),shape1(2), shape1(3), shape1(4), shape1(5) and shape1(6). You can
control the appearance of the dots using the random function RND.
Private Sub Command1_Click()
Randomize Timer
n = Int(1 + Rnd * 6)
For i = 0 To 6
Shape2(i).Visible = False
Next
If n = 1 Then
Shape2(3).Visible = True
End If
If n = 2 Then
Shape2(2).Visible = True
Shape2(4).Visible = True
End If
If n = 3 Then
Shape2(2).Visible = True
Shape2(3).Visible = True
Shape2(4).Visible = True
End If
If n = 4 Then
Shape2(0).Visible = True
Shape2(2).Visible = True
Shape2(4).Visible = True
Shape2(6).Visible = True
End If
If n = 5 Then
Shape2(0).Visible = True
Shape2(2).Visible = True
Shape2(3).Visible = True
Shape2(4).Visible = True
Shape2(6).Visible = True
End If
If n = 6 Then
Shape2(0).Visible = True
Shape2(1).Visible = True
Shape2(2).Visible = True
Shape2(4).Visible = True
Shape2(5).Visible = True
Shape2(6).Visible = True
End If
End Sub
OUTPUT:
