🚀 go-pugleaf

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