nog net geen Bingo

[ForNext]

Hoewel dit programma niet voldoet aan de onderwijs-eisen van Gordon, te weten : het doet het nog net niet helemaal en is derhalve niet goed, plaats ik het toch op het forum. Ik heb er al uren op zitten turen en tigtallen formules en routines op losgelaten, echter zonder gewenst resultaat. Op zich draait het programma prima. Er wordt een Bingokaart geproduceerd. Maar met enige regelmaat verschijnen er toch "dubbele" getallen. En de vraag is : hoe voorkom ik dat of hoe krijg ik die er uit?

Roberto

[Gordon]

Hallo Rob,

Ik dacht dat je de methode van Titus zou gebruiken.
Eerst alle ballen uit één lettergroep in willekeurige volgorde plaatsen en
daarna de eerste vijf gebruiken. Die methode vind ik omslachtig.

Maak een kontrole array voor de getal() array. Bijv dim z(100)
Alle elementen van de array z() zijn na het dimmen nu 0
getal(b) = int(rnd(1)*99) + 1
if z(getal(b)) = 0 then
z(getal(b))=-1
else
' opnieuw een getal(b) kiezen want die is reeds eerder gekozen
end if

Verder zou ik de sort routine van LB gebruiken. Maar toch mooi dat je een eigen routine
hebt gemaakt.

Gordon

[Gordon]

[ForNext]

Gordon,
Dank voor de aanwijzigen en voor het instructie-voorbeeld.
Ik heb de controle array toegevoegd en er is nu geen dubbel getal meer te zien.
Overigens heb ik op mijn speurtochten over het internet nog een alternatief voor "int(rnd)" gevonden.
De daarbij benodigde DLL heb ik willen bijsluiten, maar dat mag niet (DLL). Het gaat om > Mers TwistLB.dll <.

Roberto