Sayi_Tahmin_Oyunu

İlk çalışmam hayırlı olsun diyorum... : )


Sub sayi_bulma()
    If MsgBox("Benimle oyun oynamak ister misin?", vbYesNo) = vbNo Then
        MsgBox ("Oyunbozan :)"), vbOKOnly
    Else
        MsgBox ("Hadi aklından 1 ile 10 arasında bir sayı tut !"), vbOKCancel
       
        If MsgBox("Tuttuysanız Evet'e basın", vbYesNo) = vbYes Then
       
            Dim enBuyuk, enKucuk, tahmin, kere As Integer
            Dim aramayadevamet As Boolean
            aramayadevamet = True
           
            kere = 0
            enBuyuk = 10
            enKucuk = 0
           
            Do While aramayadevamet
                tahmin = Int((enBuyuk - enKucuk + 1) * Rnd + enKucuk)
                If MsgBox("Tuttuğunuz sayı " & tahmin & " idi değil mi?", vbYesNo) = vbYes Then
                    aramayadevamet = False
                Else
                    If MsgBox("Tuttuğunuz sayı tahmin edilenin üzerinde ise Evet'i altında ise  _
& " Hayır'ı seçiniz."    ,vbYesNo) = vbYes Then
                        tahmin = enBuyuk
                    Else
                        tahmin = enKucuk
                    End If
                End If
            Loop
           
            If kere = kere + 1 Then
             MsgBox "Beni tebrik etmelisin, ilk seferde bildim"
            Else
             MsgBox "Biraz uğraştırdın beni ama sonunda buldum :)"
            End If
        End If
    End If
End Sub