Zie ook: uitwerking met dobbelstenen
Voor de uitwerking van dit gokspel voorzien we vier velden waarin een tekening getoond wordt. De speler heeft gewonnen indien viermaal dezelfde tekening getoond wordt.
De "tekening" is een control met methode gooi en eigenschap nummer. Die control gebruiken we in een formulier.
We maken een control met een Picture en een ImageList. De ImageList bevat de tekeningen. De methode gooi toont een willekeurig beeld uit de reeks. We voorzien ook een eigenschap waarde waarbij we kunnen aflezen welk nummer de getoonde tekening heeft.
De code van de control ziet er zo uit:
Dim nummer As Integer
Private Sub item_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
gooi()
End Sub
Public Sub gooi()
Randomize()
nummer = CInt(Rnd() * 3)
PictureBox1.Image = ImageList1.Images.Item(nummer)
End Sub
Public ReadOnly Property waarde()
Get
waarde = nummer
End Get
End Property
End Class
We plaatsen drie exemplaren van die control op een formulier, en voegen een knop toe. De code zal er zo uitzien:
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Item1.gooi()
Item2.gooi()
Item3.gooi()
Item4.gooi()
Dim gewonnen As Boolean = True
Dim nummer As Integer
nummer = Item1.waarde
If Not nummer = Item2.waarde Then gewonnen = False
If Not nummer = Item3.waarde Then gewonnen = False
If Not nummer = Item4.waarde Then gewonnen = False
'MsgBox("waarde1: " & CStr(Item1.waarde) & " waarde2: " & CStr(Item2.waarde) & "
waarde3: " & CStr(Item3.waarde) & " waarde4: " & CStr(Item4.waarde))
If gewonnen Then MsgBox("Gewonnen", MsgBoxStyle.Exclamation)
End Sub
Je kan het programma eens proberen, en het hele project downloaden.