Small Basic Karne Notu Komutu

         Videomuzda gösterdiğim Small Basic komutu aşağıda yazıyor:


TextWindow.Write ("Öğrencinin İsmi: ")
öğrenci_adı=TextWindow.Read()
TextWindow.WriteLine ("Matematik")
TextWindow.Write ("1. Matematik Sınav Notu: ")
birinci_matematik_sınav_notu=TextWindow.Read()
TextWindow.Write ("2. Matematik Sınav Notu: ")
ikinci_matematik_sınav_notu=TextWindow.Read()
TextWindow.Write ("3. Matematik Sınav Notu: ")
üçüncü_matematik_sınav_notu=TextWindow.Read()
matematik_toplam_puan=(birinci_matematik_sınav_notu + ikinci_matematik_sınav_notu + üçüncü_matematik_sınav_notu)/3
TextWindow.WriteLine ("Türkçe")
TextWindow.Write ("1. Türkçe Sınav Notu: ")
birinci_türkçe_sınav_notu=TextWindow.Read()
TextWindow.Write ("2. Türkçe Sınav Notu: ")
ikinci_türkçe_sınav_notu=TextWindow.Read()
TextWindow.Write ("3. Türkçe Sınav Notu: ")
üçüncü_türkçe_sınav_notu=TextWindow.Read()
türkçe_toplam_puan=(birinci_türkçe_sınav_notu + ikinci_türkçe_sınav_notu + üçüncü_türkçe_sınav_notu)/3
TextWindow.WriteLine ("Fen")
TextWindow.Write ("1. Fen Sınav Notu: ")
birinci_fen_sınav_notu=TextWindow.Read()
TextWindow.Write ("2. Fen Sınav Notu: ")
ikinci_fen_sınav_notu=TextWindow.Read()
fen_toplam_puan=(birinci_fen_sınav_notu + ikinci_fen_sınav_notu)/2
TextWindow.WriteLine ("Sosyal")
TextWindow.Write ("1. Sosyal Sınav Notu: ")
birinci_sosyal_sınav_notu=TextWindow.Read()
TextWindow.Write ("2. Sosyal Sınav Notu: ")
ikinci_sosyal_sınav_notu=TextWindow.Read()
sosyal_toplam_puan=(birinci_sosyal_sınav_notu + ikinci_sosyal_sınav_notu)/2
TextWindow.WriteLine ("Yabancı Dil")
TextWindow.Write ("1. Yabancı Dil Sınav Notu: ")
birinci_yabancı_dil_sınav_notu=TextWindow.Read()
TextWindow.Write ("2. Yabancı Dil Sınav Notu: ")
ikinci_yabancı_dil_sınav_notu=TextWindow.Read()
yabancı_dil_toplam_puan=(birinci_yabancı_dil_sınav_notu + ikinci_yabancı_dil_sınav_notu)/2
TextWindow.WriteLine ("Din")
TextWindow.Write ("1. Din Sınav Notu: ")
birinci_din_sınav_notu=TextWindow.Read()
TextWindow.Write ("2. Din Sınav Notu: ")
ikinci_din_sınav_notu=TextWindow.Read()
din_toplam_puan=(birinci_din_sınav_notu + ikinci_din_sınav_notu)/2
karne_notu=(matematik_toplam_puan + türkçe_toplam_puan + fen_toplam_puan + sosyal_toplam_puan + yabancı_dil_toplam_puan + yabancı_dil_toplam_puan)/6
TextWindow.WriteLine (öğrenci_adı + " Toplam Karne Notun" + "=" + karne_notu)

          Bu komutta istediğiniz değişiklikleri yapabilirsiniz. Ama Small Basic uygulamanız olmalı.

Small Basic Kurulum Sitesi: https://www.microsoft.com/en-US/download/details.aspx?id=46392

          Gerekli işlemleri yaparak yukarıdaki siteden indirebilirsiniz.

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.

Bunu Biz Yaptık Beğenir Misiniz Bilmem (Beğenen Yorum Yazsın:) )

Bunda Biraz Hatalar Var Ama Beğeneceğinizi Farz Ediyoruz: 

 Bazı hatalar var. Mesela en başta ağaç dönüyor, bazı yazılar çok kısa sürüyor (gerçi bu bizim değil uygulamanın suçu :) ), bazı yazılar yerlerinden kaymış, bazı yerlerde kamera kaydığı için oynama var ve en önemlisi de bazı yerlerde parmak görünüyor...

Bunu yaptığımız uygulamanın adı:

                                      Minecraft  Stop-Motion Movie Creator

!En önemlisi bu uygulama bizim bildiğimiz birtek "APPLE"larda var! 

Minecraft Legoları (2016 Serisi)

The Wither 21126:                                                                                                                                                                                                                                 

     
                                                              

                        

                                                                                                                                                                                                                                                                                           The Jungle Tree House 21125:                                                                                                                                                                                                                        






                                                                 












The End Portal 21124:
                                                                                                                                                                     

                                                                                                                                                                                                                                                                                                                                                                  The Iron Golem 21123: