Small Basic Basit Örnekler

İnternet de biraz araştırma yaptım da small basic ile ilgili tüm örnekler small basic için hazırlanmış kitap içeriğinden alınmış aynı örnekler ben de dedim eğitim konusunda ki faydayı bilişim öğretmenleri için de belki sağlamış olurum. o nedenle bir kaç örnek yazıp açıklayacağım konu anlatımları internette zaten var.


Sevgilinize jest yapabileceğiniz bir program :)

TextWindow.WriteLine ("kaç kere seni seviyorum yazayım :)")

istek= TextWindow.Readnumber()

If ( istek >=1) Then

  For i=1 To istek

    TextWindow.WriteLine ("seni seviyorum")

  EndFor

  EndIf

Program.Delay(10000)

Program.End()

ilk iki satırda istek alınıyor. istek eğer 1 ve 1 den fazla ise istek kadar seni seviyorumu ekrana yazdırır. Program.delay dediğimiz kısım ise programın 10 saniye süre ile açık olacağını gösterir sonra kendisi kapanır.

Yine çok basit bir 90 derecelik açı için kenar ölçüsü bulan program a kare = b kare + c kare formülü kullanılmıştır.

TextWindow.writeLine("90 derecelik bir üçgenin kenar ölçülerini hesaplayalım")

TextWindow.WriteLine("90 derecenin karşısındaki kenarın ölçüsünü biliyorsan 1e bilmiyorsan 2ye bas")

secim=textwindow.ReadNumber()

If (secim=1) Then

  TextWindow.writeLine("1.kenar ölçüsünü giriniz")

  b= TextWindow.ReadNumber()

  TextWindow.writeLine("90 derecenin karşısındaki kenar ölçüsünü giriniz")

  a= TextWindow.ReadNumber()

  sonuc= Math.SquareRoot((a*a)-(b*b))

  TextWindow.writeLine ("2. kenar ölçünüz="+ sonuc)

  endif

  If (secim=2) Then

   TextWindow.writeLine("1.kenar ölçüsünü giriniz")

  c= TextWindow.ReadNumber()

  TextWindow.writeLine("2. kenar ölçüsünü giriniz")

  d= TextWindow.ReadNumber()

  sonuc1= Math.SquareRoot((c*c)-(d*d))

  TextWindow.writeLine ("90 derecenin karşısındaki kenar ölçünüz="+ sonuc1)

EndIf

Program.Delay(10000)

Program.End()

En basiti hatta ilk program ortalama hesaplayan programdır :)

TextWindow.WriteLine("1.sınav notunuzu giriniz")
sinav1= TextWindow.ReadNumber()
TextWindow.WriteLine("2.sınav notunuzu giriniz")
sinav2= TextWindow.ReadNumber()
TextWindow.WriteLine("3.sınav notunuzu giriniz")
sinav3= textWindow.ReadNumber()
ortalama= (sinav1+sinav2+sinav3)/3
TextWindow.WriteLine("ortalamanız=" + ortalama)
If (ortalama < 50) Then
  GraphicsWindow.ShowMessage("kaldınız","ortalama")
EndIf
If (ortalama >= 50  and ortalama < 90) Then
  GraphicsWindow.ShowMessage("geçer","ortalama")
EndIf
If (ortalama > 90) Then
  GraphicsWindow.ShowMessage("başarılı","ortalama")
EndIf
Program.Delay(10000)
Program.End()

Bu da stok sayan program dedim ismine ancak siz bu kodları kullanarak bambaşka programlar yazabilirsiniz...

stok=60

TextWindow.WriteLine("nekadar harcama yapıldı=?")

harcama1 = TextWindow.ReadNumber()

yeni_stok= (stok-harcama1)

TextWindow.WriteLine("kalan stok sayısı=" + yeni_stok)

start:

If ( yeni_stok>0) Then

  TextWindow.WriteLine("nekadar harcama yapıldı=?")

  harcama2= TextWindow.ReadNumber()

  yeni_stok= (yeni_stok-harcama2) 

  TextWindow.WriteLine("kalan stok sayısı=" + yeni_stok) 

Goto start

EndIf

İyi dersler sevgili meslektaşlarım :)