Désolé je n'ai pas fini d'introduire au clavier le poteau précédent :
Vous devez maintenir une corde ou une liste ou quelque chose pendant que vous allez font la vérification une cravate.
Si à tout moment une cravate est cassée par une autre boîte, vous devez remettre à zéro la corde.
Son plus de code…
pour vérifier et des résultats d'affichage vous pouvez faire ceci :
faible chkWinner en tant que nouveau checkbox
faible WinnerMessage comme corde
faible bTie comme booléen
bTie = faux
si Val (checkbox1.tag) <� Val=""> WinnerMessage = checkbox2.text
chkWinner = checkbox2
bTie = faux
elseif (Val (checkbox1.tag) = Val (checkbox2.tag)) puis
WinnerMessage += « , » + checkbox1.text
chkWinner = checkbox1
le bTie = rectifient
autrement
WinnerMessage = checkbox1.text
chkWinner = checkbox1
bTie = faux
finir si
si Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox3.text
chkWinner = checkbox3
bTie = faux
elseif Val (chkWinner.tag) = Val (checkbox3.tag) puis
WinnerMessage += « , » + checkbox3.text
le bTie = rectifient
finir si
si Val (chkWinner.tag) <� Val=""> WinnerMessage = checkbox4.text
chkWinner = checkbox4
bTie=false
elseif Val (chkWinner.tag) = Val (checkbox4.tag) puis
WinnerMessage += « , » + checkbox4.text
le bTie = rectifient
finir si
[… et ainsi de suite]
si bTie = faux puis
msgbox (« le gagnant est : » et chkWinner.text et « avec » et chkWinner.tag et « voix »)
autrement
msgbox (« nous avons une cravate entre : » Et WinnerMessage et « avec » et chkWinner.tag et « voix »)
finir si
