27.11.2015

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
If (ortalama < 50) then
  GraphicsWindow.ShowMessage("kaldınız","ortalama")
EndIf
If (ortalama >= 50) 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 :)