KOD İÇERİĞİ :
Kod: Tümünü seç
Option Explicit
Dim randomNumber, userGuess, attempts, correctGuesses, totalGuesses
Dim probability
' Rastgele bir sayı oluştur (1 ile 100 arasında)
Randomize
randomNumber = Int((100 * Rnd) + 1)
attempts = 0
correctGuesses = 0
totalGuesses = 0
Do
userGuess = InputBox("1 ile 100 arasında bir sayı tahmin edin (Çıkmak için 'exit' yazın):", "Sayı Tahmin Oyunu")
' Kullanıcı çıkmak isterse döngüden çık
If LCase(userGuess) = "exit" Then
Exit Do
End If
' Kullanıcının girdiği değeri sayıya dönüştür
If IsNumeric(userGuess) Then
userGuess = CInt(userGuess)
attempts = attempts + 1
totalGuesses = totalGuesses + 1
' Tahmin doğru mu?
If userGuess = randomNumber Then
MsgBox "Tebrikler! Doğru tahmin ettiniz: " & randomNumber
correctGuesses = correctGuesses + 1
probability = (correctGuesses / totalGuesses) * 100
MsgBox "Doğru tahmin oranınız: " & probability & "%"
Exit Do
ElseIf userGuess < randomNumber Then
MsgBox "Tahmininiz çok düşük. Tekrar deneyin."
Else
MsgBox "Tahmininiz çok yüksek. Tekrar deneyin."
End If
Else
MsgBox "Lütfen geçerli bir sayı girin."
End If
Loop
MsgBox "Oyun bitti. Toplam deneme sayınız: " & attempts
Bugün sizlere, hem eğlenceli hem de düşündürücü bir oyun sunuyorum: Sayı Tahmin Oyunu!
Oyun Mantığı Nedir?
Bu oyun, 1 ile 100 arasında rastgele seçilen bir sayıyı tahmin etme üzerine kurulu. Ama dikkat! Bu sadece bir şans oyunu değil; aynı zamanda zekanızı da test edecek! Hazır mısınız? Hadi başlayalım!
Oyun Nasıl Oynanır?
1.Rastgele Sayı:
Oyun başladığında, bilgisayar 1 ile 100 arasında gizli bir sayı seçer. Bu sayı, sizin için bir sırdır!
2.Tahmin Zamanı:
Şimdi sıra sizde! Bir sayı tahmin edin. Eğer doğru tahmin ederseniz, tebrikler!
Ama eğer yanlışsa, bilgisayar size ipuçları verecek: "Tahmininiz çok düşük!" veya "Tahmininiz çok yüksek!" şeklinde. Bu sayede, doğru sayıyı bulmak için stratejinizi geliştirebilirsiniz.3.Çıkış Seçeneği:
Eğer oyundan çıkmak isterseniz, "exit" yazarak oyunu sonlandırabilirsiniz. Ama unutmayın, her tahmin bir macera!
Oyun Sonunda Neler Olacak?
Eğer doğru tahmin yaparsanız, bilgisayar size "Tebrikler! Doğru tahmin ettiniz!" diyecek ve doğru tahmin oranınızı gösterecek. Bu oran, ne kadar iyi bir tahminci olduğunuzu gösterecek!
İstatistikler
Oyun sonunda, toplam deneme sayınız da gösterilecek. Bu, ne kadar çaba harcadığınızı ve ne kadar şanslı olduğunuzu anlamanıza yardımcı olacak. Belki de bir dahaki sefere daha iyi bir strateji geliştirebilirsiniz!
Sonuç
Bu oyun, sadece eğlenceli bir zaman geçirmekle kalmayıp, aynı zamanda mantık yürütme ve tahmin yeteneklerinizi de geliştirecek. Unutmayın, her tahmin bir adım daha ileriye götürür!
Hadi, şimdi bilgisayarın gizli sayısını bulmak için kolları sıvayın ve bu eğlenceli yolculuğa çıkın! İyi şanslar!
NOTLAR :
1.Bu akıl oyunu Olgun DURAN'ın şu makalesinden esinlenildi....!!! :
Bayes Teoremi: Her Gün Kullandığımız Ama Adını Bilmediğimiz Matematiksel Bir Araç
https://www.matematiksel.org/bayes-teor ... likelidir/
2.1 ile 100 arasında bir sayıyı doğru tahmin etmenin olasılığı, toplam olası sonuç sayısına (yani 100) bölü bir doğru sonuç (yani 1) olarak hesaplanır. Bu durumda:
Olasılık = (Doğru Sonuç Sayısı) / (Toplam Olası Sonuç Sayısı)
Olasılık = 1 / 100 = 0.01
Bu da %1'lik bir olasılığa denk gelir. Yani, 1 ile 100 arasında rastgele seçilen bir sayıyı doğru tahmin etme olasılığı %1'dir.
Özetle ;
1 ile 100 arasında bir sayıyı tahmin etmenin olasılığı %1 olduğuna göre, yanlış tahmin etme olasılığı %99'dur. Yani, rastgele bir sayı tahmin ettiğinizde, bu sayının doğru çıkmama olasılığı oldukça yüksektir. Bu durum, rastgele bir seçim yapıldığında beklenen bir sonuçtur.
