jag håller på med ett mastermind-spel och det e då en rad av 4 shaper med olika färg som e ett slags facit....o dom e inte synliga.....sen så ska man med hjälp av likadana rader med "tomma prickar" sätta in olika färgkombinationer och sen trycka på en "rätta"-knapp som sätter ut svarta markeringar för rätt färg på rätt plats o vita markeringar för rätt färg fast på fel plats........men man ska inte veta vilka som e rätt o fel ....bara att det finns som som e det ....så att den ska kolla hur många svarta det finns först o sätta ut dem på rad först o sen kolla hur många vita det finns o sätta ut dom efter........hur fan gör jag detta?

/robin b

Detta borde fungera, prova jag har inte provat själv!

----------

Private Sub Command1_Click()
Dim humColor(4) As String 'De färgerna du sätter ut ex. "Green", "Red"
Dim rightColor(4) As String 'Facit
Dim rFp As Integer 'Rätt Färg & Plats
Dim rF As Integer 'Rätt Färg (Fel plats)
For a = 1 To 4
If humColor(a) = rightColor(a) Then rFp = rFp + 1: GoTo 10
For b = 1 To 4
If humColor(a) = rightColor(b) Then rF = rF + 1
Next b
10 Next a
labelRightPlaceColor.Caption = rFp & " markeringar med rätt färg på rätt plats"
labelRightPlace.Caption = rF & " markeringar med rätt färg, på fel plats"
End Sub

-----------

Du kan enkelt ändra så att antalet rätt färg & plats visas med röda markeringar och antal rätt färger visas med vita markeringar, det är bara att visa så många röda som variabeln rFp, och lika många vita som rF!

mvh
John