IF komutu verilen bir şartın gerçekleşmesi ya da gerçekleşmemesi durumunda belirtilen kodların çalıştırılmasını sağlar. Kullanımı şu şekildedir:

IF Şart Then

komutlar

elseif

komutlar

else

komutlar

End If

Şartın sağlanması durumunda Then komutundan sonraki komutlar, sağlanmaması durumunda elseif ya da else komutundan sonraki komutlar çalıştırılır.

________________________________________________________________

Bir örnek verelim. Örneğimiz klavyeden girilen notun puan karşılığını vermektedir. Form üzerine bir adet buton eklememiz yeterli.

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim notu As Byte
Try
notu = InputBox("Notu Girin", "Not Girişi")
If notu < 25 Then
MsgBox("Notunuz 0", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
ElseIf notu < 45 Then
MsgBox("Notunuz 1", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
ElseIf notu < 55 Then
MsgBox("Notunuz 2", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
ElseIf notu < 70 Then
MsgBox("Notunuz 3", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
ElseIf notu < 85 Then
MsgBox("Notunuz 4", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
ElseIf notu <= 100 Then
MsgBox("Notunuz 5", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
Else
MsgBox("Yanlış Not Girdiniz", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation)
End If
Catch
MsgBox("İzin Verilen Değerler Dışında Not Girdiniz", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation)
End Try
End Sub
End Class
________________________________________________________________________________
Örneğimizde Try Catch yapısı da dikkatinizi çekmiş olmalı. Try Catch bloğu hata kontrolü için kullanılmaktadır. Kullanımı şu şekildedir:

Try

Çalıştırılacak program bloğu

Catch

Hata durumunda çalışacak kod bloğu

End Try


Daha fazla örnek ve ders notu için : http://murataktas.org/category/vb-net-dersler-ve-ornekler