Ders - 5 Sayfa - 2 Visual Basic de Algoritma Kavramları (Dışarı Adım Attık) if... then... else... Komut Yapısı:
Eğer A değişkeni içeriisndeki rakam 5 ise ekrana "güzel rakam" yazalım değil ise aksini yazarız.
if A=5 then msgbox "güzel rakam" else msgbox "Güzel rakam değil"
Kısaca if komut yapısı
if şart then şart gerçek ise yapılacak işlem else şart gerçek değil ise yapılacak işlem.
şeklinde olmaktadır.

Şart Özellikleri : Eğer olayın birden fazla şartın gerçekleşmesi ile olmasını istiyorsak bazı karşılaştırma terimleri kullanmalıyız. Bunlara operatörler de diyebiliriz.
İki şartın gerçekleşmesi : Eğer iki şartında gerçekleşmesi durumunda işlemin yapılmasını istiyorsak AND (ve) veya iki şarttan herhangi birinin gerçekleşmesinde işlemin yapılmasını istiyorsak OR (veya) operatörünü kullanmalıyız. Bu operatöler bir şart bölümü içerisinde birden fazla kullanılabilir. Aynı zamanda her iki şart karşılaştırıcısı da kullanılabilir. İstediğimiz özelliklere uygun şartı gerçekleştirebilmek için "(" ")" eklerini kullanarak, şartları parantez içerisine alabiliriz.

Yaplıacak işlem özellikleri: Birden fazla yapılacak işlem kullanmak istiyorsak, işlemler arasını ":" işareti ile ayırabiliriz. İşlem çok fazla veya işlem içerisinde başka if komut yapıları kullanmak istersek;
if şart then şart gerçek ise yapılacak işlem şart gerçek ise yapılacak işlem şart gerçek ise yapılacak işlem
..................
else şart gerçek değil ise yapılacak işlem.
şart gerçek değil ise yapılacak işlem.
şart gerçek değil ise yapılacak işlem.
..................
end if
Komut yapısını kullanabiliriz. Aşağıda if içerisinde if içeren bir komut yapısına örnek yazılım gözükmektedir.
if 1.şart then
1.şart geçekleşirse yapılacak işlem
1.şart geçekleşirse yapılacak işlem
if 2.şart
2.şart geçekleşirse yapılacak işlem
2.şart geçekleşirse yapılacak işlem
else 2.şart gerçek değil ise yapılacak işlem.
2.şart gerçek değil ise yapılacak işlem.
end if '<--------2.Şartın Bittiği yer
else
1.şart gerçek değil ise yapılacak işlem.
1.şart gerçek değil ise yapılacak işlem.
end if '<--------1.Şartın Bittiği yer