OGxMusic
Legacy Member
Ik heb een probleem, de bedoeling is dat er 2dobbelstenen worden gegooid en dat er dan een afbeelding word getoond van het aantal ogen..
(1.png, 2.png etc... zijn de namen van de afb.)
(1.png, 2.png etc... zijn de namen van de afb.)
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dobbel1 As Integer
Dim dobbel2 As Integer
dobbel1 = Int((6 * Rnd()) + 1)
dobbel2 = Int((6 * Rnd()) + 1)
Select Case dobbel1
Case "1"
PictureBox1.Image = My.Resources.1.png
Case "2"
PictureBox1.Image = My.Resources.2.png
Case "3"
PictureBox1.Image = My.Resources.3.png
Case "4"
PictureBox1.Image = My.Resources.4.png
Case "5"
PictureBox1.Image = My.Resources.5.png
Case "6"
PictureBox1.Image = My.Resources.6.png
End Select
End Sub

