Şunumu yaptırmaya çalışıyon 1 den 8 e kadar sayılar seçilecek ama seçilen sayı bir daha seçilemeyecek vede kalan sayılar arasındada random bir secme uygulanacak ama sonucta işlem gormemiş sayı kalmıcak bumudur problem?
Evet problem tam dedigin gibi ama cozdum,aslinda farkli bir yontemle cozdum,suan usttekinin hala niye hata verdigini hala anlamis degilim,
asagidaki yontem duzgun calisiyor.
<%
dim dizi(10)
for m=1 to 10
dizi(m)=0
next
for i=1 to 8
sanslikisi=kura
response.write "sanslikisi= " & sanslikisi %><br><%
dizi(i)=sanslikisi
next
%>
<%
function kura
do
tutkura=kuracek
er=0
for k=1 to 8
if dizi(k)=tutkura then
response.write "ayni geldi " & tutkura %><br><%
er=1
end if
next
loop while er=1
response.write "ayni gelmedi " & tutkura %><br><%
kura = tutkura
end function
%>
<%
function kuracek
randomize
Response.Buffer = true
max=8
min=1
sayi=Int((max-min+1)*Rnd+min)
response.write "kuracek= " & sayi %><br><%
kuracek= sayi
end function
%>
<br>dizinin sonucu<br>
<%
for u=1 to 8
response.write dizi(u)%><br><%
next
%>