1den 8 e kadar sayilari rastgele secimle ayni olamaycak sekilde sectirme - Sayfa 2

07-04-2009, 23:29:39

#10

Ş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?

08-04-2009, 13:42:33

#11

swordfish

DarKPeArL adlı üyeden alıntı: mesajı görüntüle

Ş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
%>

08-04-2009, 19:03:19

#12

DarKPeArL

Yani bende farklı bir cözüm önerecektim zaten o şekilde olacaksa dinamik dizilerlede yapılabilirdi.
Neyse cozmusun zaten gozun aydın.

08-04-2009, 19:29:17

#13

swordfish

DarKPeArL adlı üyeden alıntı: mesajı görüntüle

Yani bende farklı bir cözüm önerecektim zaten o şekilde olacaksa dinamik dizilerlede yapılabilirdi.
Neyse cozmusun zaten gozun aydın.

Onerilerin icin tesekkur ederim arkadasim.