ok
publiceren lukt niet. hier is de code:
Code:
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
CommandButton1.Enabled = False
Label11.Visible = True
Else
CommandButton1.Enabled = True
dobbel1 = Int((6 * Rnd) + 1)
dobbel2 = Int((6 * Rnd) + 1)
dobbel3 = Int((6 * Rnd) + 1)
End If
If dobbel1 = 6 Then
show1.Picture = UserForm2.dobbelsteen6.Picture
End If
If dobbel2 = 6 Then
show2.Picture = UserForm2.dobbelsteen6.Picture
End If
If dobbel3 = 6 Then
show3.Picture = UserForm2.dobbelsteen6.Picture
End If
If dobbel1 = 5 Then
show1.Picture = UserForm2.dobbelsteen5.Picture
End If
If dobbel2 = 5 Then
show2.Picture = UserForm2.dobbelsteen5.Picture
End If
If dobbel3 = 5 Then
show3.Picture = UserForm2.dobbelsteen5.Picture
End If
If dobbel1 = 4 Then
show1.Picture = UserForm2.dobbelsteen4.Picture
End If
If dobbel2 = 4 Then
show2.Picture = UserForm2.dobbelsteen4.Picture
End If
If dobbel3 = 4 Then
show3.Picture = UserForm2.dobbelsteen4.Picture
End If
If dobbel1 = 3 Then
show1.Picture = UserForm2.dobbelsteen3.Picture
End If
If dobbel2 = 3 Then
show2.Picture = UserForm2.dobbelsteen3.Picture
End If
If dobbel3 = 3 Then
show3.Picture = UserForm2.dobbelsteen3.Picture
End If
If dobbel1 = 2 Then
show1.Picture = UserForm2.dobbelsteen2.Picture
End If
If dobbel2 = 2 Then
show2.Picture = UserForm2.dobbelsteen2.Picture
End If
If dobbel3 = 2 Then
show3.Picture = UserForm2.dobbelsteen2.Picture
End If
If dobbel1 = 1 Then
show1.Picture = UserForm2.dobbelsteen1.Picture
End If
If dobbel2 = 1 Then
show2.Picture = UserForm2.dobbelsteen1.Picture
End If
If dobbel3 = 1 Then
show3.Picture = UserForm2.dobbelsteen1.Picture
End If
Label15.Caption = dobbel1 + dobbel2 + dobbel
TextBox1.Visible = False
End Sub
Private Sub CommandButton2_Click()
dobbel4 = Int((6 * Rnd) + 1)
dobbel5 = Int((6 * Rnd) + 1)
dobbel6 = Int((6 * Rnd) + 1)
If dobbel4 = 6 Then
show4.Picture = UserForm2.dobbelsteen6.Picture
End If
If dobbel5 = 6 Then
show5.Picture = UserForm2.dobbelsteen6.Picture
End If
If dobbel6 = 6 Then
show6.Picture = UserForm2.dobbelsteen6.Picture
End If
If dobbel4 = 5 Then
show4.Picture = UserForm2.dobbelsteen5.Picture
End If
If dobbel5 = 5 Then
show5.Picture = UserForm2.dobbelsteen5.Picture
End If
If dobbel6 = 5 Then
show6.Picture = UserForm2.dobbelsteen5.Picture
End If
If dobbel4 = 4 Then
show4.Picture = UserForm2.dobbelsteen4.Picture
End If
If dobbel5 = 4 Then
show5.Picture = UserForm2.dobbelsteen4.Picture
End If
If dobbel6 = 4 Then
show6.Picture = UserForm2.dobbelsteen4.Picture
End If
If dobbel4 = 3 Then
show4.Picture = UserForm2.dobbelsteen3.Picture
End If
If dobbel5 = 3 Then
show5.Picture = UserForm2.dobbelsteen3.Picture
End If
If dobbel6 = 3 Then
show3.Picture = UserForm2.dobbelsteen3.Picture
End If
If dobbel4 = 2 Then
show4.Picture = UserForm2.dobbelsteen2.Picture
End If
If dobbel5 = 2 Then
show5.Picture = UserForm2.dobbelsteen2.Picture
End If
If dobbel6 = 2 Then
show6.Picture = UserForm2.dobbelsteen2.Picture
End If
If dobbel4 = 1 Then
show4.Picture = UserForm2.dobbelsteen1.Picture
End If
If dobbel5 = 1 Then
show5.Picture = UserForm2.dobbelsteen1.Picture
End If
If dobbel6 = 1 Then
show6.Picture = UserForm2.dobbelsteen1.Picture
End If
Label16.Caption = dobbel4 + dobbel5 + dobbel6
TextBox2.Visible = False
End Sub
Private Sub Label13_Click()
Label13.Caption = TextBox1.Text
End Sub
Private Sub Label15_Click()
End Sub
Private Sub TextBox1_Change()
Label13.Caption = TextBox1.Text
End Sub
Private Sub TextBox6_Change()
TextBox6.Text = dobbel1 + dobbel2 + dobbel3
End Sub
Private Sub UserForm_Click()
End Sub
Textbox1 = invullen naam 1
Textbox2 = invullen naam2
Label11 = label met 'vul de naam in' voor speler 1
Label12 = label met 'vul de naam in' voor speler 2
Label13 = label voor de naam van speler1, daarachter staat de punten van speler1
Label14 = label voor de naam van speler2, daarachter staat de punten van speler2
Label15 = hier komen de punten in voor speler 1
Label16 = hier komen de punten in voor speler 1
Commandbutton1 = button gooien speler 1
Commandbutton2 = button gooien speler 2
show1 = plaatje dobbelsteen 1 (je moet namelijk met drie dobbelstenen per speler gooien)
show2 = plaatje dobbelsteen 2
show3 = plaatje dobbelsteen 3
show4 = plaatje dobbelsteen 4
show5 = plaatje dobbelsteen 5
show6 = plaatje dobbelsteen 6
op het plaatje zie nog veel meer labels, textboxen en button.
Daar moet je niet op letten, die zijn niet erg belangrijk