Anasayfa / BİLGİSAYAR DÜNYASI / MICROSOFT SMALL BASIC / 10- Microsoft Small Basic Sayı Tahmin Etme Oyunu

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 
  
  
  

Hakkinda Mustafa DEMİRCAN

Mustafa DEMİRCAN
Gediz Bilim ve Sanat Merkezi Müdür Yardımcısı / Sınıf Öğretmeni

Buna Bak

7- Microsoft Small Basic Hesap Makinası Yapımı

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir