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.