puntentelling van 501 naar 0

[don42]

Hallo allemaal
ik heb een eenvoudig bestandje voor een dart spelletje
nu heb ik het zo gemaakt dat via een inputbox het resultaat er af gehaald wordt
wat ik graag wil dat het werkt met 2 spelers met de zelfde inputbox
nu maakt hij eerst de 501 van links naar nul en dan pas de 501 van rechts
ik wil het graag om en om
de punten rechts er af en bij de volgende invoer de punten van links er af
zie mijn voorbeeldje

Bekijk bijlage 501.xlsm
Don

 

[OctaFish]

Een hele simpele aanpassing:

x = x + 1
Do While Range("b2") > 0 Or Range("p2") > 0
    Select Case x / 2 = Int(x / 2)
        Case True
            If Range("p2") > 0 Then
                don = InputBox("nummer", "Breer")
                If IsNumeric(Range("q2").Value) Then
                Range("q2") = don
                Range("p2").Value = Range("p2").Value - Range("q2").Value
                Application.Goto Sheets("Blad1").Cells(Rows.Count, 20).End(xlUp).Offset(1, 0)
                ActiveCell = don
                Application.Goto Sheets("Blad1").Cells(Rows.Count, 20).End(xlUp).Offset(1, 0)
                Range("q2").Value = ""
                End If
            End If
            x = x + 1
        Case False
            If Range("b2") > 0 Then
                don = InputBox("nummer", "Breer")
                If IsNumeric(Range("C2").Value) Then
                Range("c2") = don
                Range("b2").Value = Range("b2").Value - Range("c2").Value
                Application.Goto Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
                ActiveCell = don
                Application.Goto Sheets("Blad1").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
                Range("c2").Value = ""
                End If
            End If
            x = x + 1
    End Select
Loop

 

[don42]

Nou simpel... ik moet het nog even bestuderen maar het werkt super
bedankt voor je fijne hulp
snap deze niet : Select Case x / 2 = Int(x / 2)
iets met waar en onwaar of zit ik er dan naast

 

[OctaFish]

Je zet er niet naast; de Select Case is een trucje op te bepalen wanneer er gewisseld moet worden van speler. Daarom zit er ook een teller in (x = x + 1) die elke keer als je een worp hebt toegevoegd met 1 wordt opgehoogd. Om nu te bepalen wanneer je naar de andere speler moet wisselen (TRUE of FALSE tak) gebruik ik een vergelijking. En die is waar, of niet waar.
Een simpel voorbeeldje zegt denk ik genoeg: als x = 4, dan is 4/2 hetzelfde als de Integer van 4/2. De vergelijking is dan: 2=2. En dat is waar. Bij de volgende worp is x 5, en de vergelijking is dan: 5/2 is hetzelfde als de Integer van 5/2. En dat klopt dan niet, want 5/2=2,5 en Int(5/2)=2. De vergelijking is dus: 5,2 = 2. En dat is niet zo, derhalve pakt hij nu de FALSE tak. Dus bij 2=2 gaat hij naar True, en bij 2,5=2 pakt hij False.
En omdat x steeds 1 wordt opgehoogd, krijg je dus altijd een switch in de Select Case.

 

[don42]

Dat is mooi uitgelegd en duidelijk
helemaal goed thankx
:thumb: