Hej!
Jag gjorde ett yatzy för någon månad sedan. Det är nog inte uppbyggt på samma sätt som ditt, och koden är inte heller kommenterad. Men om du är intresserad kan du få koden. (Det är skrivet i VB6)
Mvh
Anders
Frågan#1
Projektet som jag håller på med i skolan är just nu ett yatzy, fråga mig inte varför men nu när man ska lägga till "2 Par", "yatzy" osv. börjar det strula.
Jag har 5 textrutor indexerade från 0 till 4. Där slumpas ut olika siffror som man sedan sparar med koden:
result = InputBox("Ange vad du vill spara. (1 - 15)")
For i = 0 To 4
If result = 1 And Text18(i).Text = 1 Then
Text1.Text = Val(Text1.Text) + Val(Text18(i).Text)
End If
Det sparas i olika textrutor med hjälp av en inputbox, tex. Ettor är numrerade 1. så om man kör in en etta i inputboxen plussas alla ettor i text18 indexet.
Problemet kommer nu när jag ska göra en "stor stege" och andra kombinationer. "6 - 5 - 4 - 3 - 2" och sedan ska den skippa sista siffran, plussa ihop dessa och lägga dem i tex. "Text14.Text". Tänkte om någon kanske gjort ett yatzy och kan dela med sig av sina koder eller dylikt.
Kan ju se lite hur ditt är uppbyggt.