[phpBB Debug] PHP Warning: in file [ROOT]/includes/bbcode.php on line 112: preg_replace(): The /e modifier is no longer supported, use preg_replace_callback instead
[phpBB Debug] PHP Warning: in file [ROOT]/includes/bbcode.php on line 112: preg_replace(): The /e modifier is no longer supported, use preg_replace_callback instead
Liberty BASIC Holland • Toon onderwerp - nog net geen Bingo

nog net geen Bingo

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

nog net geen Bingo

Berichtdoor ForNext » za maart 31, 2012 10:38 am

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
Bijlagen
bingo 10.bas
(4.98 KiB) 277 keer gedownload
ForNext
 
Berichten: 60
Geregistreerd: za okt 27, 2007 9:40 am
Woonplaats: Amstelveen

Re: nog net geen Bingo

Berichtdoor Gordon » za maart 31, 2012 8:19 pm

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
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: nog net geen Bingo

Berichtdoor Gordon » za maart 31, 2012 9:39 pm

Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: nog net geen Bingo

Berichtdoor ForNext » zo apr 01, 2012 4:01 pm

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
Bijlagen
bingo mt 01.bas
(4.18 KiB) 289 keer gedownload
ForNext
 
Berichten: 60
Geregistreerd: za okt 27, 2007 9:40 am
Woonplaats: Amstelveen


Keer terug naar Beginner

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 2 gasten

cron