VBS ile Basit Bir Tahmin Oyunu

TRWE_2012 · 28 Kas 2024

Merhabalar

Bugün, Visual Basic Script (VBS) kullanarak basit bir tahmin oyunu yapacağız. Bu oyunda bilgisayar, 1 ile 100 arasında rastgele bir sayı tutacak ve sizin bu sayıyı tahmin etmenizi isteyecek. Hadi başlayalım!

Oyunun Kuralları:

1.Bilgisayar, 1 ile 100 arasında rastgele bir sayı tutar.

2.Oyuncunun 10 tahmin hakkı vardır.

3.Her tahminde, bilgisayar size "Yaklaştınız!" veya "Uzak kaldınız!" gibi geri bildirimde bulunur.

4.Eğer doğru sayıyı tahmin ederseniz, tebrik edilirsiniz ve başarı yüzdesi hesaplanır.

5.Eğer 10 tahmin hakkınız biterse, kaybettiğinizi ve doğru sayıyı öğrenirsiniz.

VBS Betiği:

Aşağıda oyunun kodunu bulabilirsiniz. Bu kodu bir metin dosyasına yapıştırıp .vbs uzantısıyla kaydedin (örneğin, Sayı Tahmin Etme Oyunu v1.00.vbs).

Kod:

Option Explicit

Dim randomNumber, userGuess, attempts, successRate, failureRate
Dim message

' Rastgele bir sayı seç
Randomize
randomNumber = Int((100 * Rnd) + 1)

' Kullanıcıya 10 hak ver
attempts = 10

Do While attempts > 0
    userGuess = InputBox("1 ile 100 arasında bir sayı tahmin edin. Kalan hak: " & attempts, "Tahmin Oyunu")

    ' Kullanıcı iptal butonuna basarsa döngüden çık
    If userGuess = "" Then
        MsgBox "Oyun iptal edildi."
        WScript.Quit
    End If

    ' Kullanıcının girdiği değeri kontrol et
    If IsNumeric(userGuess) Then
        userGuess = CInt(userGuess)

        If userGuess < 1 Or userGuess > 100 Then
            MsgBox "Lütfen 1 ile 100 arasında bir sayı girin."
        Else
            ' Tahmin kontrolü
            If userGuess = randomNumber Then
                successRate = (10 - attempts + 1) * 10
                message = "Tebrikler bildiniz, sayı " & randomNumber & vbCrLf & "Başarı yüzdesi: %" & successRate
                MsgBox message
                Exit Do
            ElseIf Abs(userGuess - randomNumber) <= 10 Then
                MsgBox "Yaklaştınız!"
            Else
                MsgBox "Uzak kaldınız!"
            End If

            attempts = attempts - 1
        End If
    Else
        MsgBox "Lütfen geçerli bir sayı girin."
    End If
Loop

' Kullanıcı 10 hakkını kaybederse
If attempts = 0 Then
    failureRate = 100
    message = "Üzgünüm kaybettiniz, sayı " & randomNumber & vbCrLf & "Başarısızlık yüzdesi: %" & failureRate
    MsgBox message
End If

Betiği Çalıştırma:

A.Yukarıdaki kodu kopyalayın.

B.Bir metin düzenleyici (Notepad gibi) açın ve kodu yapıştırın.

C.Dosyayı Sayı Tahmin Etme Oyunu v1.00.vbs olarak kaydedin.(Dosya Türü : Tüm dosyalar , Dosya Adı : Sayı Tahmin Etme Oyunu v1.00.vbs)

D.Dosyayı çift tıklayarak çalıştırın.

Oyun Nasıl Oynanır?

Oyun başladığında, bir kutucuk açılacak ve sizden 1 ile 100 arasında bir sayı tahmin etmeniz istenecek.
Tahmininizi girdikten sonra "Tamam" butonuna basın.
Bilgisayar, tahmininizin doğru olup olmadığını kontrol edecek ve size geri bildirim verecek.
10 tahmin hakkınız dolmadan doğru sayıyı bulmaya çalışın!

Umarım bu basit oyun hoşunuza gider! . İyi oyunlar!

EKRAN GÖRÜNTÜLERİ :

[align=center]

[/align]

TRWE_2012
Alaydan Yetişme PC Kullanıcısı

TRWE_2012 · 28 Kas 2024

Betiğin kod blok düzenini zihnim'de şöyle tasarladım.

Sistem, 1'den 100'e kadar sayıların (pozitif tamsayı) içinden bir sayı seçip, tutsun...
Kullanıcıya 10 hak versin, tutulan sayı tahmin edebilmesi için.
Kullanıcı kutucuğa yazdığı her sayıdan sonra "Tamam" butonuna bastığı anda sistem, tuttuğu sayıya bakarak, yaklaştınız, ulaştınız diye çıktı ekranı çıkartsın kullanıcının karşısına
Kullanıcının 10 hakkı bittiği zaman ;

1.Eğer sistem tarafından tutulan sayı'yı bilirse, "Tebrikler bildiniz, sayı XX" şeklinde çıktı üretsin ve bu çıktı da (tahmin başarı yüzdesi (100 üzerinden) hesaplayarak ) %xx başarı...

2.Eğer sistem tarafından tutulan sayı'yı bilemezse, "Üzgünüm kaybettiniz , sayı XX " şeklinde üretsin ve bu çıktı da (tahmin başarısızlık yüzdesi (100 üzerinden) hesaplayarak ) %xx başarısızlık

Tasarımı nasıl yapmışım değil mi?

TRWE_2012 · 28 Kas 2024

Çocuklarınıza bunu oynatın.Böylece zihin yapıları gelişime uğrayacak....Zihinsel jimlastik...

Arama Yap

Arama Yap

VBS ile Basit Bir Tahmin Oyunu

TRWE_2012

لِيَغْفِرَ لَكَ اللّٰهُ مَا تَقَدَّمَ مِنْ ذَنْبِك

TRWE_2012

لِيَغْفِرَ لَكَ اللّٰهُ مَا تَقَدَّمَ مِنْ ذَنْبِك

TRWE_2012

لِيَغْفِرَ لَكَ اللّٰهُ مَا تَقَدَّمَ مِنْ ذَنْبِك