10- Microsoft Small Basic Sayı Tahmin Etme Oyunu

İlk oyunumuzu yazmak için artık hazırız. Bu dersimizde Sayı tahmin etme oyunu yazacağız. Bilgisayar verdiğimiz değerler arasında rastgele bir sayı belirleyecek ve biz o sayıyı 3 hakkımızla tahmin etmeye çalışacağız.

ÖğreneceÄŸimiz yeni kodlardan bir tanesi “rastgele sayı üretme kodu” olacak ve genel tekrar dersi niteliÄŸinde bir program yazacağız.

TextWindow.WriteLine ("Sayı Tahmin etme Oyunuma Hoş Geldiniz")
TextWindow.Write (" Lütfen isminizi giriniz: ")
isim = TextWindow.Read()

baslangıc:

TextWindow.ForegroundColor = "red"
TextWindow.WriteLine (" Evet "+ isim + " Şimdi aklımdan 1 ile 20 arasında bir sayı tuttum.")
TextWindow.WriteLine (" Bu sayıyı bulmak için 3 hakkın var. Hadi bakalım bulabilecek misin?")
TextWindow.ForegroundColor = "white"

'1 ile istediğimiz sayı arasında rastgele bir sayı belirlemesini

aklimdakisayi = Math.GetRandomNumber (20)  '15


For a =1 To 3
  
  alinansayi = TextWindow.ReadNumber () '18
  
  If (alinansayi < aklimdakisayi )Then
    
    TextWindow.WriteLine ("Seçtiğin Sayı Küçük")
    
  ElseIf (alinansayi >aklimdakisayi ) Then 
    
    TextWindow.WriteLine ("Seçtiğin Sayı Büyük")
    
  Else 
    TextWindow.WriteLine (" tebrikler tuttuğum sayıyı buldun")
    Goto bitti

    
  EndIf
EndFor 

If (aklimdakisayi <> alinansayi ) Then
  TextWindow.WriteLine ("üzgünüm dostum aklımdaki sayı " + aklimdakisayi + " dı")
  
EndIf 


bitti:

TextWindow.WriteLine ("Tekrar Denemek ister misin?  e/h")
evet = TextWindow.Read()
If (evet ="e" ) Then 
  Goto baslangıc 
  
  Elseif ( evet = "h") Then
    TextWindow.WriteLine ("Peki görüşmek üzere")
    
    
  Else
    TextWindow.WriteLine ("lütfen geçerli e ya da h yazınz.")
    EndIf