Sayı bulma oyunu

**anafor** · 02-Ekim-2008 16:44

İşlem şu;
Bilgisayar rastgele bir sayı üretiyor.Kişi bu sayıyı tahmin etmeye çalışıyor.Eğer tahmin edilen sayı bilgisayarın ürettiği sayıdan farklı ise kişinin yeni bir deneme yapması gerekiyor.Yani döngü bilene kadar devam etmeli.
if ile yapamadım,While-wend ile yapamadım,Do-loop ile yapamadım(Yeniyim

)
Fakat bir takım problemler var.Aslında iki mantık yürüttüm ama ikisinde de başarısızlıklar var.Çünkü sayıyı tahmin etmek için butona basıldığında bilgisayar yeniden sayı üretiyor.Oysaki işlem sonuçlanana kadar üretilen sayının sabit kalması gerekir.
1.bilgisayara bir sayı ürettirip bu sayı bilinene kadar sayının sabit tutulmasını sağlamak.(Başarısız,zaten sayfa çalışınca bilgisayar bir sayı üretiyor ve tahmin butonuna basınca bu sayıyı sabitleyemediğim için başarısız oluyor)
2.seçenek =bir form aracılığı ile kişiye sayıyı tahmin ettirip ,aynı zamanda bilgisayara rastgele sayı ürettirip başka bir sayfaya yönlendirmek(Burada da bilgisayarın ürettiği sayıyı formdan çekemedim).
Kodlar şu şekilde;
<%
Dim rastgelesayi 'Sayı değişkenimizi tanımlıyoruz.
Randomize
rastgelesayi=(Rnd*50)+1'Bilgisayara 1-50 aralığında bir sayı ürettiriyoruz
%>
<form action="07_Rastgele sayı oyunu2.asp" method="post" name="form1">
<table width="364" border="1" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td width="214">Lütfen 1-50 arası bir rakam giriniz.</td>
<td width="144">Bilgisayarın ürettiği sayı</td>
</tr>
<tr>
<td><input name="oyuncusayi" type="text" /></td>
<td><%Response.Write(Round(rastgelesayi))%></td>
</tr>
<tr>
<td colspan="2">
<input name="gonder" type="submit" value="Gönder" />
</td>
</tr>
</table>
</form>

**MajeSSTe** · 02-Ekim-2008 22:34

şu şekilde deneyin
önce sayı üreten sayfanın başına şunu yazın

if session("random") = "" then
'random işlemleri burada ve sonra
session("random") = rastgelesayi
else
rastgelesayi = session("random")
end if

yukarıdaki kod sayesinde random sayıyı bi session değerine kaydettik

diğer kontrol edilen sayfada yani doğruluğu kontrol eden sayfada da şöyle yapınız

if rastgelesayi = (kullanıcıdan gelen değer) then
respone.write "Sayı doğru yeni tahmine geçiniz"
session("random") = ""
else
response.write "tahmin hatalı tekrar deneyiniz"
end if

bu sayede 2. sayfada kontrol edilecek eğer sayı doğruysa session boş gidecek yeni sayfada da yeni sayı üretilecek
eğer sayı yanlış tahmin edidiyse sessiondaki random sayı kullanılacak tekrar tahmin hakkı doğacak

umarım anlatabilmişimdir

kolay gelsin..

**anafor** · 03-Ekim-2008 11:35

Teşekkürler Majesste,
session'u yapamadım demiştim sayende yaptım.
ilgilenen olursa diye kodlar aşağıda;(Bilgisayarın ürettiği sayı kontrol amaçlı ekranda gösterildi)
1.asp

Kod:

 
<body>
<center>
<br />
<br />
<%
Dim bilsay 'Sayı değişkenimizi tanımlıyoruz.
if session("bilsay") = "" then
Randomize
bilsay=round((Rnd*50)+1)'Bilgisayara 1-50 aralığında bir sayı ürettiriyoruz
session("bilsay") = bilsay
else 
bilsay = session("bilsay")
end if
%>
<form action="2.asp" method="post" name="form1">
<table width="364" border="1" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td width="214">Lütfen 1-50 arası bir rakam giriniz.</td>
<td width="144">Bilgisayarın ürettiği sayı</td>
</tr>
<tr>
<td><input name="oyuncusayi" type="text" maxlength="2" /></td>
<td><label>
<input name="bilsay" type="text" id="bilsay" value="<%=bilsay%>" />
</label> </td>
</tr>
<tr>
<td colspan="2">
<input name="gonder" type="submit" value="Gönder" />
</td>
</tr>
</table>
</form>
</center>
</body>

2.asp

Kod:

 
<body>
<center>
  <br />
    <br />
    <table width="200" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>Sizin Sayınız</td>
    <td>Bigisayarın Sayısı</td>
  </tr>
  <tr>
    <td><%oyuncusayi=request.form("oyuncusayi")%><%=oyuncusayi%></td>
    <td><%
 bilsay=Request.Form("bilsay")
 %><%=bilsay%>    </td>
  </tr>
  <tr>
    <td colspan="2"><%
     if bilsay = oyuncusayi then
  Response.Write "Tahmin doğru yeni tahmine geçiniz"
session("bilsay") = ""
elseif oyuncusayi < bilsay then
Response.Write "Tahmin küçük yeniden deneyiniz"
else 
Response.Write "Tahmin büyük yeniden deneyiniz"
end if
  %>
 
    </td>
    </tr>
</table>
    <p><a href="07_Rastgele sayı oyunu.asp">Geri dön</a></p>
</center>
</body>

**anafor** · 03-Ekim-2008 12:49

MajeSSTe Demiş ki:

session("random") = rastgelesayi
else
rastgelesayi = session("random")
end if

Yalnız bu işlemi her iki durumda da random rastgele sayıya eşit olsun diyemi yaptık.Mantığını biraz açıklayabilirmisin?

**demo** · 03-Ekim-2008 15:17

eğer sesionda random değişkeni boş ise rastgele sayı üretilmemiş demektir. Bu durumda önce rastgele bir sayı üertiyor ve sayıyı sesionda random değişkenine atıyoruz, ki sayfa tekrar çağırıldığında bu değişken değer taşıyacağı için tekrar rastgele bir sayı üretilmeyecek ve else komutundan sonraki satır işleme girerek rastgelesayi değişkenine öncede session random değişkenine atadığımız değeri atayacak.

Böyle basit bir oyun için asp kullanmak yerine javascript kullanmak daha performanslı olur.

**anafor** · 03-Ekim-2008 16:06

Açıklama için teşekkürler,

demo Demiş ki:

Böyle basit bir oyun için asp kullanmak yerine javascript kullanmak daha performanslı olur.

Benim amacım Asp/VBscript öğrenmek.Ondan ötürü aklıma gelen bu uygulamayı yaptım.Hem interneti hemde Hakkı ÖCAL'ın yazmış olduğu kitabı sıra ile takip ettiğimden öğrenmiş olduğum komutlarla bunu yapmaya çalıştım.(Gerçi birçok komut/uygulama hakkında yarım yamalak bir bilgiye sahibim sıfırdan başlamak istedim)