[vb6] Waardes uit een array vergelijken

[damouzer]

Hallo,

Ik zit een beetje vast met het programmeren.

Ik moet voor school een yathzee spel programmeren.

Even een uitleg van mijn probleem:

Als ik op een knop klik, dan worden de dobbelstenen gegooid en worden de waardes van de dobbelstenen (5 stuks) in een array opgeslagen.

Alle scores die behaald worden met het gooien moeten in een score formulier. (no probs.)

Maar om de scores voor grote en kleine straat te berekenen moet je met een functie kunnen kijken of er 2 dezelfde en drie dezelfde zijn.

Dit gaat boven mijn pet. Iemand die mij kan vertellen HOE ik dit oplos en WAARMEE?

Alvast bedankt

[damouzer]

Klein schopje

Ik heb wat voorbeelden bekijken, van hoe ze het deden, maar een hele lap code voor zo iets simpels? moet toch makkelijker kunnen?

code van het voorbeeld:

code:

If Toolbar1.Buttons.Item(1).Image = 6 Then sum = sum + 6
If Toolbar1.Buttons.Item(3).Image = 6 Then sum = sum + 6
If Toolbar1.Buttons.Item(5).Image = 6 Then sum = sum + 6
If Toolbar1.Buttons.Item(7).Image = 6 Then sum = sum + 6
If Toolbar1.Buttons.Item(9).Image = 6 Then sum = sum + 6
If sum >= 24 Then sum = 24: GoTo check
If sum < 24 Then sum = 0
If Toolbar1.Buttons.Item(1).Image = 5 Then sum = sum + 5
If Toolbar1.Buttons.Item(3).Image = 5 Then sum = sum + 5
If Toolbar1.Buttons.Item(5).Image = 5 Then sum = sum + 5
If Toolbar1.Buttons.Item(7).Image = 5 Then sum = sum + 5
If Toolbar1.Buttons.Item(9).Image = 5 Then sum = sum + 5
If sum >= 20 Then sum = 20: GoTo check
If sum < 20 Then sum = 0
If Toolbar1.Buttons.Item(1).Image = 4 Then sum = sum + 4
If Toolbar1.Buttons.Item(3).Image = 4 Then sum = sum + 4
If Toolbar1.Buttons.Item(5).Image = 4 Then sum = sum + 4
If Toolbar1.Buttons.Item(7).Image = 4 Then sum = sum + 4
If Toolbar1.Buttons.Item(9).Image = 4 Then sum = sum + 4
If sum >= 16 Then sum = 16: GoTo check
If sum < 16 Then sum = 0
If Toolbar1.Buttons.Item(1).Image = 3 Then sum = sum + 3
If Toolbar1.Buttons.Item(3).Image = 3 Then sum = sum + 3
If Toolbar1.Buttons.Item(5).Image = 3 Then sum = sum + 3
If Toolbar1.Buttons.Item(7).Image = 3 Then sum = sum + 3
If Toolbar1.Buttons.Item(9).Image = 3 Then sum = sum + 3
If sum >= 12 Then sum = 12: GoTo check
If sum < 12 Then sum = 0
If Toolbar1.Buttons.Item(1).Image = 2 Then sum = sum + 2
If Toolbar1.Buttons.Item(3).Image = 2 Then sum = sum + 2
If Toolbar1.Buttons.Item(5).Image = 2 Then sum = sum + 2
If Toolbar1.Buttons.Item(7).Image = 2 Then sum = sum + 2
If Toolbar1.Buttons.Item(9).Image = 2 Then sum = sum + 2
If sum >= 8 Then sum = 8: GoTo check
If sum < 8 Then sum = 0
If Toolbar1.Buttons.Item(1).Image = 1 Then sum = sum + 1
If Toolbar1.Buttons.Item(3).Image = 1 Then sum = sum + 1
If Toolbar1.Buttons.Item(5).Image = 1 Then sum = sum + 1
If Toolbar1.Buttons.Item(7).Image = 1 Then sum = sum + 1
If Toolbar1.Buttons.Item(9).Image = 1 Then sum = sum + 1
If sum >= 4 Then sum = 4: GoTo check
If sum < 4 Then sum = 0
check:
If sum > 0 Then
lblFourof.Caption = sum
Else
lblFourof.Caption = "-"
End If
End If
End If

[E-RIC]

dinokiller schreef op 12 januari 2003 @ 17:02:
Maar om de scores voor grote en kleine straat te berekenen moet je met een functie kunnen kijken of er 2 dezelfde en drie dezelfde zijn.

Dit gaat boven mijn pet. Iemand die mij kan vertellen HOE ik dit oplos en WAARMEE?

Boolean function?
Gewoon de array doorlopen en kijken hoe vaak elk getal voor komt. Omdat je maar een klein aantal mogelijkheden hebt (6 getallen, 5 trekkingen), kost dat niet zoveel rekenkracht