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 :)


24.11.2015

24 Kasım Öğretmenler Günü


Değersiz olduğunu hissettiğin hiç bir işi yapmamalısın... Bu çalışma hayatı olabilir özel hayat olabilir veya bambaşka bir şey... Her öğretmenler günü geldiğinde insanın içinden mesleğini uzuuuunnnn uzun anlatası, tatillerinin bol olmasından başka nasıl bir özelliktedir bu meslek yazasım da yazasım geliyor ancak hiç yazmıyorum. Çünkü yazarsam ben kendim değersizleştirmiş olurum mesleğimi, başlarsam eğer cümleme eskiden öğretmenlik.... diye saygınlığımı yitiririm. Bugün benim günüm, benim öğretmenlerimin günü, sizlerin öğretmenlerinin öğretmenler günü. Benim önceliğim Başöğretmenim Mustafa Kemal Atatürk... Açtığın yolda gösterdiğin amaçta hiç durmadan yürüyeceğime and içerim. Öğretmenler Günü Kutlu Olsun.

Geçen yılki öğretmeneler günü yazımı okumak için: http://ozgece-egitim.blogspot.com.tr/2013/11/xin-hikayesi-24-kasm.html

23.11.2015

Sosyal Medya Etkin Kullanımı

Herkese merhabalar şimdi bu yazıya başlarken bile kendi kendime reklam mı oluyor insanlar okuyunca ne düşünür zaten sayfanda instagram butonu var diye diye düşünerek başladım ama gerçekten çok heyecanlı olduğum ve bu yaptığım çalışmanın çok daha büyük bir kitleye ulaşmasını istediğim için buraya da yazmak istedim sonuçta benim blogum ve istediğim her konu hakkında yazarım değil mi :)
İnstagram gerçekten çok büyük çok aktif doğru kullanan için verimli bir mecra... para kazanan moda sayfaları, makyaj önerileri, kitap okumaya teşvik eden sayfalar daha nicesi... Öncelikle şu az önce dediğim doğru kullanımın altını çizmek istiyorum çünkü komik bir şeyler okuyayım diye takip ettiğim bir sayfanın son 10 paylaşımı zayıflama ürünleriyse asla ve asla takip etmiyorum. Bu diğer hesaplar içinde geçerli... ben gerçekten birilerine yardımcı olabilmek için ve bunun geri dönüşünü sadece öğretmenim dediğinizi yaptım ve sonuç olumlu oldu olarak alabilmek için bir sayfa oluşturdum. Peki neler var bu sayfada şimdilik okuduğum kitaplar günün sözleri var ilerleyen zamanlarda sınav öncesi hazırlık aşaması için küçük tüyolar faydalı bilgiler olacak şimdilik biraz daha aktif öğrencilere ihtiyacım var. Bu aktif öğrencinin de illaki teog ygs lys sınava hazırlık öğrencisi olmasına gerek yok herhangi bir eğitim alan kişide olsanız yinede öğrenensiniz dolayısıyla öğrencisiniz :) ben herkese elimden geldiğince yardımcı olmaya çalışıyorum umarım sizlerle de  yolumuz kesişir ve ben anlamlı bir şeyler yapabildiğim için mutlu olurum.

sosyal medyasosyal medya