GOTO DÖNGÜSÜ

Bu yazıda size Goto döngüsünü göstericeğim. Aşağıda komutları bulabilirsiniz.Ve etiketlere istediğiniz ismi verebilirsiniz, Bu yazıda etiket  "Yusuf "



i = 1
Yusuf :
TextWindow.WriteLine (i)
i = i +1
If ( i < 25 ) Then
Goto Yusuf
EndIf



Bu komutları yazdığınızda aşağıdaki çıktıyı görüceksiniz ;

Beni tercih ettiğiniz için teşekkürler .

GRAPHİCSWİNDOW İLE TEKNE ÇİZDİRME

Bu yazıda size GraphicsWindow ile tekne çizdirmeyi göstericeğim ;

GraphicsWindow.DrawLine ( 50,100,100,50 )

GraphicsWindow.DrawLine ( 100,50,100,140 )

GraphicsWindow.DrawLine ( 50,100,100,100 )

GraphicsWindow.DrawLine ( 20,140,140,140 )

GraphicsWindow.DrawLine ( 140,140,120,170)

GraphicsWindow.DrawLine ( 20,140,40,170 )

GraphicsWindow.DrawLine ( 40,170,120,170 )

Bu komutları yazdığınızda aşağıdaki çıktıyı görüceksiniz ;

Beni tercih ettiğiniz için teşekkürler .

NEGATİF,POZİTİF VE NÖTR

Girdiğimiz sayının pozitif mi, negatif mi,nötr mü olduğunu bu yazıda göstereceğim ;




TextWindow.WriteLine (" Bir sayı giriniz :")
s = TextWindow.ReadNumber
If > 0 Then
TextWindow.WriteLine (" Pozitif ")
ElseIf s < o Then
TextWindow.WriteLine ("Negatif ")
Else
TextWindow.WriteLine  (" Nötr ")
EndIf


Bu komutları yazdığınızda aşağıdaki çıktıyı göreceksiniz.

Beni tercih ettiğiniz için teşekkürler,

SAYILARLA OYNAMAK

          Bu yazıda size sayılarla oynamayı göstericeğim.Toplama işlemi için aşağıdaki programı yazalım ;

  a = 10
  b = 20
  c =  a + b
  TextWindow.WriteLine (c)

 Dört İşlem Sembolleri

  +  =>   Toplama

  -   =>   Çıkarma

  *  =>   Çarpma

  /   =>    Bölme

Umarım işinize yaramıştır.

FOREGROUND COLOR İÇİN KULLANILAN RENKLER İLE PROGRAM YAPMA

Foreground Color renkleri yazımıza renk katar yani yazının rengini değiştirir.Bu yazıda hem bu renkleri göstericeğim hem de bunla ilgili bir program göstericem.İlk olarak renkleri göstericeğim.

FOREGROUND COLOR İÇİN KULLANILAN RENKLER

Black                                                                                       Blue                                                                             
Cyan                                                                                        Gray

Green                                                                                       Magenta

Red                                                                                           White ( Beyazı böyle yazabildim )

Yellow                                                                                      Dark Blue

Dark Cyan                                                                                Dark Gray

Dark Green                                                                               Dark Magenta

Dark Red                                                                                  Dark Yellow

Programı Yapma

TextWindow.ForegroundColor = " Yellow "

TextWindow.WriteLine ( " Merhaba Dünya ")

Bu komutları yazdığınızda aşağıdaki çıktıyı göreceksiniz ;

Umarım işinize yaramıştır.

TEK Mİ ?ÇİFT Mİ ?

Bu yazıda size klavyeden girilen bir sayının tek mi , çift mi olduğunu gösterecek yazıyı göstereceğim.


TextWindow.Write (" Bir sayı girin : ")
a = TextWindow.ReadNumber ()
r = Math.Remainder (a , 2 )
If ( r = 0 ) Then
TextWindow.WriteLine ( " çift sayı " )
Else
TextWindow.WriteLine ( " tek sayı " )
EndIf



Bu komutları yazdığınızda aşağıdaki çıktıyı göreceksiniz.

 Umarım işinize yaramıştır.

BASİT BİR SICAKLIK DÖNGÜSÜ

Bu yazıda size basit bir sıcaklık dönüştürücüsü göstericeğim. Bir de bu uygulama fahrenhayt cinsinden girilen bir sıcaklığı celsius'a  (°C)  çeviriyor.İşte aşağıda uygulamamız bulunuyor ;

Programı Yapma

TextWindow.Write (" Sicakliği Fahrenhayt cinsinden giriniz : ")
f = TextWindow.ReadNumber ()
c = 5 * (f - 32) / 9
TextWindow.WriteLine (" Santigrat "  + c )



Bu komutları yazarsanız aşağıdaki çıktıyı görüceksiniz.





Umarım işinize yaramıştır.Bir sonraki yazıda görüşmek üzere

NOT HESAPLAMA

Bu yazıda sizlere okullarda çok merak edilen bir konuda yaptığım uygulamayı göstereceğim.
Bu konu tabii ki de not hesaplama;

Programı Yapma

TextWindow.Write (" 1.notunuzu giriniz : ")
a = TextWindow.ReadNumber()
TextWindow.Write (" 2.notunuzu giriniz : ")
b = TextWindow.ReadNumber()
TextWindow.Write (" 3.notunuzu giriniz : ")
c = TextWindow.ReadNumber()
ort = (a+b+c) / 3
TextWindow.WriteLine (" Ortalaman "  +  ort)


Umarım işinize yaramıştır. Bir sonraki yazıda görüşmek üzere.

İYİ AKŞAMLAR VE GÜNAYDIN

Bu yazıda size bize eğer vakit akşam ise iyi akşamlar diyecek , eğer vakit sabah ise günaydın diyen programı göstericeğim.



TextWindow.Write ("İsminizi Giriniz : ")
ad = TextWindow.Read ()
If (Clock.Hour < 12) Then
TextWindow.WriteLine ( " Günaydın " + ad )
Else
TextWindow.WriteLine (" İyi Akşamlar " + ad )
EndIf


Bu komutları yazdığınızda aşağıdaki çıktıyı görüceksiniz.






















Umarım işinize yaramıştır.

İSMİMİ SÖYLE

Biliyorsunuz ki herkes bilgisayardan sanal olarak bir şeyler yapmak istemişizdir. İşte bu yazıda size bunu göstericeğim ve bu ilk yazı olduğu için en basitten başlıyacağım. Bu program Small Basic arkadaşlar. Ve şimdi anlamanız için ilk olarak burada geçen komutları göstericeğim ;

TextWindow

    Metin ya da sayıları metin pencerisine yazmak ya da okumak için kullanılır.

WriteLine

   Metin penceresine metin ya da sayı yazar ve yeni satır ekler.

Read

   Metin penceresinden kullanıcının girdiği metni okur ve enter tuşuna basılana kadar bekler.

Değişken

    Değerleri geçici olarak saklayabildiğiniz ve sonra kullanabileceğiniz bir yerdir.

Write

    Metin penceresine metin ya da sayı yazar ve yeni satır eklemez.

Programı Yapma

TextWindow.Write ("İsminizi Girin: ")
ad = TextWindow.Read ()
TextWindow.Write ("Merhaba " + ad+ " .  ")
TextWindow.WriteLine ("Nasilsin " + ad + "?")



Bu komutları yazdığınızda aşağıdaki çıktıyı görüceksiniz ;

İsminizi Girin: Yusuf
Merhaba Yusuf. Nasilsin Yusuf?
Press any key to continue ...



Evet arkadaşlar umarım işinize yaramıştır