Droevig eindigde ik niet typend in vorige post:
U moet een koord of een lijst handhaven of iets aangezien u gaat doet het controleren een band.
Als op elk ogenblik een Band door een andere doos wordt gebroken, moet u het koord terugstellen.
Zijn meer code…
om resultaten te controleren en te tonen u dit kunt doen:
schemerige chkWinner als nieuwe checkbox
schemerige WinnerMessage als Koord
schemerige bTie zoals van Boole
bTie = vals
als Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = vals
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) toen
WinnerMessage += „,“ + checkbox1.text
chkWinner = checkbox1
bTie = waar
anders
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = vals
beëindig als
als Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = vals
elseif Val (chkWinner.tag) = Val (checkbox3.tag) toen
WinnerMessage += „,“ + checkbox3.text
bTie = waar
beëindig als
als Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) toen
WinnerMessage += „,“ + checkbox4.text
bTie = waar
beëindig als
[… etc.]
als bTie = vals toen
msgbox (de „winnaar is: “ & chkWinner.text & „met“ & chkWinner.tag & „stemmen“)
anders
msgbox („wij hebben een band tussen: “ & WinnerMessage & „met“ & chkWinner.tag & „stemmen“)
beëindig als