Small Basic Test Komutu

          Videomuzda gösterdiğim komutu yazacağımı söylemiştim. Komut aşağıda:


başla:
TextWindow.Clear()
TextWindow.WriteLine ("1. Test")
TextWindow.WriteLine ("Çıkmak için 'Q\q' tuşuna basınız.")
TextWindow.WriteLine ("Sorular")
TextWindow.WriteLine ("1. Soru-'Brain' ne demek?")
TextWindow.WriteLine ("A.Kalp")
TextWindow.WriteLine ("B.Akciğer")
TextWindow.WriteLine ("C.Beyin")
TextWindow.WriteLine ("D.Karaciğer")
TextWindow.Write("Cevap= ")
birinci_soru = TextWindow.Read()
if (birinci_soru = "q" Or birinci_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("2. Soru-Teraria 1.3.1'de kaç tane dünya modu var? (Dünya yaratırken karşına çıkan '... Mode' diye yazan seçenekler)")
TextWindow.WriteLine ("A.5")
TextWindow.WriteLine ("B.4")
TextWindow.WriteLine ("C.3")
TextWindow.WriteLine ("D.2")
TextWindow.Write("Cevap= ")
ikinci_soru = TextWindow.Read()
if (ikinci_soru = "q" Or ikinci_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("3. Soru-Terraria'da 'Hardmode'a geçmek için öldürülen boss hangisidir?")
TextWindow.WriteLine ("A.Moon Lord")
TextWindow.WriteLine ("B.Quen Bee")
TextWindow.WriteLine ("C.King Slime")
TextWindow.WriteLine ("D.Wall of Flesh")
TextWindow.Write("Cevap= ")
üçüncü_soru = TextWindow.Read()
if (üçüncü_soru = "q" Or üçüncü_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("4. Soru-Terraria'daki en sağdaki mavi yıldızların ismi nedir?")
TextWindow.WriteLine ("A.Mana")
TextWindow.WriteLine ("B.Star")
TextWindow.WriteLine ("C.Blue Star")
TextWindow.WriteLine ("D.Power")
TextWindow.Write("Cevap= ")
dördüncü_soru = TextWindow.Read()
if (dördüncü_soru = "q" Or dördüncü_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("5. Soru-Terraria'da Wither var mı?")
TextWindow.WriteLine ("A.Var")
TextWindow.WriteLine ("B.Yok")
TextWindow.Write("Cevap= ")
beşinci_soru = TextWindow.Read()
if (beşinci_soru = "q" Or beşinci_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("6. Soru-Terraria'da The Underworld'e nasıl gidilir?")
TextWindow.WriteLine ("A.Geçitle")
TextWindow.WriteLine ("B.Belirli Bir Noktaya Çıkarak (Yukarı Doğru)")
TextWindow.WriteLine ("C.Bir Lava Atlayarak")
TextWindow.WriteLine ("D.Belirli Bir Noktaya İnerek (Aşağı Doğru)")
TextWindow.Write("Cevap= ")
altıncı_soru = TextWindow.Read()
if (altıncı_soru = "q" Or altıncı_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("7. Soru-Terraria'daki Wall of Flesh hangi eşyayla, ne yaparak çağırılır?")
TextWindow.WriteLine ("A.Guide Voodoo Doll'u Lava Atarak")
TextWindow.WriteLine ("B.Spawn Bulup Spawn'ı Lava Atarak")
TextWindow.WriteLine ("C.Guide Voodoo Doll Elindeyken Sol Tıklayarak")
TextWindow.WriteLine ("D.NPC Öldürüp The Underworld'e İnip Lava Atlayarak")
TextWindow.Write("Cevap= ")
yedinci_soru = TextWindow.Read()
if (yedinci_soru = "q" Or yedinci_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("8. Soru-Terraria'daki Guide Voodoo Doll hangi canavardan çıkar?")
TextWindow.WriteLine ("A.Voodoo Demon")
TextWindow.WriteLine ("B.Queen Bee")
TextWindow.WriteLine ("C.Demon")
TextWindow.WriteLine ("D.King Slime")
TextWindow.Write("Cevap= ")
sekizinci_soru = TextWindow.Read()
if (sekizinci_soru = "q" Or sekizinci_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("9. Soru-Terraria'daki Baby Skeletron Head neyden çıkıyor?(Doğuyor.)")
TextWindow.WriteLine ("A.Dungeon Guardian")
TextWindow.WriteLine ("B.Bone Key")
TextWindow.WriteLine ("C.Old Mann")
TextWindow.WriteLine ("D.Skeletron")
TextWindow.Write("Cevap= ")
dokuzuncu_soru = TextWindow.Read()
if (dokuzuncu_soru = "q" Or dokuzuncu_soru = "Q") Then
  Goto çık
EndIf


TextWindow.WriteLine ("10. Soru-Terraria'da Kaktüs Zırh var mı?")
TextWindow.WriteLine ("A.Var")
TextWindow.WriteLine ("B.Yok")
TextWindow.Write("Cevap= ")
onuncu_soru = TextWindow.Read()
if (onuncu_soru = "q" Or onuncu_soru = "Q") Then
  Goto çık
EndIf


If (birinci_soru = "C" Or birinci_soru = "c") Then
  TextWindow.WriteLine("1. Soru: Doğru")
Else
  TextWindow.WriteLine("1. Soru: Yanlış | Cevap: C")
EndIf


If (ikinci_soru = "D" Or ikinci_soru = "d") Then
  TextWindow.WriteLine("2. Soru: Doğru")
Else
  TextWindow.WriteLine("2. Soru: Yanlış | Cevap: D")
EndIf


If (üçüncü_soru = "D" Or üçüncü_soru = "d") Then
  TextWindow.WriteLine("3. Soru: Doğru")
Else
  TextWindow.WriteLine("3. Soru: Yanlış | Cevap: D")
EndIf


If (dördüncü_soru = "A" Or dördüncü_soru = "a") Then
  TextWindow.WriteLine("4. Soru: Doğru")
Else
  TextWindow.WriteLine("4. Soru: Yanlış | Cevap: A")
EndIf


If (beşinci_soru = "B" Or beşinci_soru = "b") Then
  TextWindow.WriteLine("5. Soru: Doğru")
Else
  TextWindow.WriteLine("5. Soru: Yanlış | Cevap: B")
EndIf


If (altıncı_soru = "D" Or altıncı_soru = "d") Then
  TextWindow.WriteLine("6. Soru: Doğru")
Else
  TextWindow.WriteLine("6. Soru: Yanlış | Cevap: D")
EndIf


If (yedinci_soru = "A" Or yedinci_soru = "a") Then
  TextWindow.WriteLine("7. Soru: Doğru")
Else
  TextWindow.WriteLine("7. Soru: Yanlış | Cevap: A")
EndIf


If (sekizinci_soru = "A" Or sekizinci_soru = "a") Then
  TextWindow.WriteLine("8. Soru: Doğru")
Else
  TextWindow.WriteLine("8. Soru: Yanlış | Cevap: A")
EndIf


If (dokuzuncu_soru = "B" Or dokuzuncu_soru = "b") Then
  TextWindow.WriteLine("9. Soru: Doğru")
Else
  TextWindow.WriteLine("9. Soru: Yanlış | Cevap: B")
EndIf


If (onuncu_soru = "A" Or onuncu_soru = "a") Then
  TextWindow.WriteLine("10. Soru: Doğru")
Else
  TextWindow.WriteLine("10. Soru: Yanlış | Cevap: A")
EndIf


çık:
TextWindow.WriteLine("Çıkış Yapıyorsunuz...")
TextWindow.WriteLine("Bundan emin misiniz?(E\e= Evet | H\h= Hayır)")
TextWindow.Write("Cevap: ")
çıkış = TextWindow.Read()
If (çıkış = "e" Or çıkış = "E") Then
  TextWindow.WriteLine("Bay Bay!")
Else
  Goto başla
EndIf

          Small Basic kullanan soruları, şıkları ve cevapları değiştirerek komutu yapıştırıp arkadaşlarına cevaplatabilir.

 İndirmek için şu siteye gidin : https://www.microsoft.com/en-US/download/details.aspx?id=46392

          Gerekli işlemleri yaparak Small Basic uygulamasını indirebilirsiniz.