Tjatja!
Går i Programmering A och har en slutuppgift till imorn, jag har skapat en del av ett yatzy, det jag gjort nu är:
Så man kan slå 5 tärningar, och möjligheten att hålla kvar tärningar.
Koden ser ut så här:
Dim t1 As Integer
Dim t2 As Integer
Dim t3 As Integer
Dim t4 As Integer
Dim t5 As Integer
Private Sub cmd1_Click()
Randomize
If Check1.Value = 0 Then
t1 = Int(Rnd() * 6 + 1)
End If
If Check2.Value = 0 Then
t2 = Int(Rnd() * 6 + 1)
End If
If Check3.Value = 0 Then
t3 = Int(Rnd() * 6 + 1)
End If
If Check4.Value = 0 Then
t4 = Int(Rnd() * 6 + 1)
End If
If Check5.Value = 0 Then
t5 = Int(Rnd() * 6 + 1)
End If
Randomize
Picture1.Picture = LoadPicture("D:\\\ \VB\\\\tr" & t1 & ".jpg")
Picture2.Picture = LoadPicture("D:\\\ \VB\\\\tr" & t2 & ".jpg")
Picture3.Picture = LoadPicture("D:\\\ \VB\\\\tr" & t3 & ".jpg")
Picture4.Picture = LoadPicture("D:\\\ \VB\\\\tr" & t4 & ".jpg")
Picture5.Picture = LoadPicture("D:\\\ \VB\\\\tr" & t5 & ".jpg")
End Sub
Det jag undrar nu är: Kan något tipsa om hur jag ska göra för att lägga till poängen i någon slags "tabell" eller liknande? Tack.
