Bingo plader tilfældige tal

[Ib Tage Klausen Samuel Guldfeber]

Hej

Jeg er i gang med at lave nogen bingo plader.

Her er lidt hjemmestrikket kode. Desværre ser det ikke ud til at de
kolonner der bliver valgt er helt tilfældige. Bort set fra det så
virker scriptet godt, så hvordan ser et rigtigt bingo script ud?

Der er en lille detalje med at der er lidt mindre chance for at gamle Ole (90) kommer med. Dvs. 1/11 for at gamle Ole kommer med og
1/10. Der er også lidt forskel med sandsynlighederne for talene mellem 1 og 9. Det er ikke så grundigt forklaret, men jeg regner med
at det er til at forstå hvad det er jeg mener.

<table width=600 cellspacing=5 cellpadding=0 border=5>
<tr>
<%
numbers1 = ""
'Først skal der vælges 5 tal ud af 9:
While len(numbers1) < 5
Randomize
my_num = Int((rnd*9))+1
if Instr(numbers1,my_num) = 0 then
numbers1 = numbers1 & my_num
end if
Wend
'Så skal der vælges nogen tilfældige tal i kolonnerne:
For i = 1 to 9
if Instr(numbers1,i) > 0 then
Randomize
if i = 1 then
my_num = Int((rnd*9))+1
elseif i = 9 then
my_num = Int((rnd*11))+0
else
my_num = Int((rnd*10))+0
end if
shownumber = Int(i*10)+my_num-10
else
shownumber = "&nbsp;"
end if
%>
<td width=11% height=50 valign=middle align=center><%= shownumber %></td>
<%
Next
%>
</tr>
<tr>
<%
numbers1 = ""
'Først skal der vælges 5 tal ud af 9:
While len(numbers1) < 5
Randomize
my_num = Int((rnd*9))+1
if Instr(numbers1,my_num) = 0 then
numbers1 = numbers1 & my_num
end if
Wend
'Så skal der vælges nogen tilfældige tal i kolonnerne:
For i = 1 to 9
if Instr(numbers1,i) > 0 then
Randomize
if i = 1 then
my_num = Int((rnd*9))+1
elseif i = 9 then
my_num = Int((rnd*11))+0
else
my_num = Int((rnd*10))+0
end if
shownumber = Int(i*10)+my_num-10
else
shownumber = "&nbsp;"
end if
%>
<td width=11% height=50 valign=middle align=center><%= shownumber %></td>
<%
Next
%>
</tr>
<tr>
<%
numbers1 = ""
'Først skal der vælges 5 tal ud af 9:
While len(numbers1) < 5
Randomize
my_num = Int((rnd*9))+1
if Instr(numbers1,my_num) = 0 then
numbers1 = numbers1 & my_num
end if
Wend
'Så skal der vælges nogen tilfældige tal i kolonnerne:
For i = 1 to 9
if Instr(numbers1,i) > 0 then
Randomize
if i = 1 then
my_num = Int((rnd*9))+1
elseif i = 9 then
my_num = Int((rnd*11))+0
else
my_num = Int((rnd*10))+0
end if
shownumber = Int(i*10)+my_num-10
else
shownumber = "&nbsp;"
end if
%>
<td width=11% height=50 valign=middle align=center><%= shownumber %></td>
<%
Next
%>
</tr>
</table>

Mvh. Ib

[Rune Jensen]

On 17 Dec., 17:40, "Ib Tage Klausen Samuel Guldfeber"

<hello_world_unique_request_timeout_...@ib-nexthop.com> wrote:
> Hej
>
> Jeg er i gang med at lave nogen bingo plader.
>

> Her er lidt hjemmestrikket kode. Desv rre ser det ikke ud til at de
> kolonner der bliver valgt er helt tilf ldige. Bort set fra det s
> virker scriptet godt, s hvordan ser et rigtigt bingo script ud?

Din kode ligner i mistænkelig grad classic ASP, så måske, hvis det er
tilfældet, du skulle spørge i ASP-gruppen.

Ellers, så er der flere, som har blogget om det. Selv kan jeg godt
lide 4 guys from Rolla, som plejer at gå ret grundigt til værks.

Denne "lille" artikel omkring hvordan man laver et perfekt tilfældigt
ordnet array, er også ret videnskabelig, nok lidt mere tilbundsgående
end vanligt, og - desværre - på engelsk (når man begynder at bruge ord
som "permutations" og hiver diagrammer frem, så er jeg lidt blank, men
prøv at læse den).

http://www.4guysfromrolla.com/articles/070208-1.aspx

Nogle danske sider kender jeg ikke... men det kan være andre gør.


MVH
Rune Jensen

[Rune Jensen]

On 18 Dec., 17:15, Rune Jensen <runeofdenm...@gmail.com> wrote:

> Din kode ligner i mistænkelig grad classic ASP, så måske, hvis det er
> tilfældet, du skulle spørge i ASP-gruppen.

Hmmm... straffen for at have PHP-gruppen i den anden tab. Bare glem
denne del :)


MVH
Rune Jensen