VB Olaylar, Yordamlar ve Fonksiyonlar

Event Handler – Olay

Kullanıcı eylemleri sonucunda ortaya çıkan durumlara olay denir.  Farenin yer değiştirmesi, tuşa basılması, formun açılması gibi işlemlerin her biri bir olay sayılır. Visual Basic de programlama olaylar üzerine kuruludur.  Bunlar alt yordamlar şeklinde kodlanır.

Private Sub Command1_Click() ‘ Tuşa basılması olayı

‘ Olay gerçekleşince yapılacak işlemler

End Sub ‘ Bitiş satırı

Alt Yordamlar

Belirli bir görevi yada olayı yerine getirmek amacı ile yazılan küçük kod grubudur.

Public Sub İsim ‘ Başlangıç satırı

         .... ‘ Olay sonucu yapılacak işlem

End Sub ‘ Bitiş satırı

Form, OCX kontrol, Class ya da Module isimleri 40 karakterden uzun olamaz

Bir alt yordam 64 KB tan uzun olamaz

Bir form, Module ya da class içerisinde kod 65534 satırdan fazla olamaz

Tek bir kod satırı, 1023 karakterden uzun olamaz

Uzun koda satırlarının sonuna "_" konularak alt satırdan devam edilebilir

Kullanılmayan nesne referansları Nothing ‘e eşitlenerek bellek kullanımı azaltılır

Public Sub Topla(X, Y)                

   Deger = X + Y

   MsgBox deger

   Exit Sub                      ‘ Tercihli çıkış

End Sub

Private Sub Form_Click()

   Deger1 = 100

   Deger2 = 25

   Topla Deger1, Deger2  ‘ Alt yordam için 1. çağrı yöntemi

   ‘ Call Topla(Deger1,Deger2)  ‘ Alt yordam için 2. çağrı yöntemi

End Sub

Function – Fonksiyon

Belli işlemleri yerine getirip işlem sonucuna bağlı olarak değer üreten kod parçasıdır.          

Public Function Deger(X, Y)                      

         If X > 0 Then

      Deger = X + Y

   Else

               Exit Function                 ‘ Tercihli çıkış

         End If

         Deger = Sqr(Deger)              ‘ Fonksiyon sonucu

End Function

  

Private Sub Form_Load()

         Dim D1 As Long, D2 As Long

         D1 = InputBox("     D1  ?    ")

         D2 = InputBox("     D2  ?    ")

         Deger = Topla(D1, D2)         ‘ Fonkisyon çağrılıyor

         MsgBox Deger

End Sub

1) Referans ile fonksiyon çağırmak : Fonksiyon içerisinde değeri değişen değişkenin bu değeri saklamasını sağlar.

Sub Bip(BipSayisi As Integer)

         Do While BipSayisi > 0

                           Beep

   BipSayisi = BipSayisi - 1

         Loop

End Sub

Dim KacDefaBip As Integer

KacDefaBip = 5

Bip KacDefaBip

MsgBox KacDefaBip & "Defa Bip Sesi Çıkardım"    ‘ Mesaj : 0 Defa Bip Sesi Çıkardım

2) Değer ile fonksiyon çağırmak : Fonksiyon içerisinde değeri değişen değişkenin; fonksiyon çağrılmadan önceki değerini almasını sağlar.

Sub Bip(ByVal BipSayisi As Integer)

Do While BipSayisi > 0

Beep

BipSayisi = BipSayisi - 1

Loop

End Sub              

MsgBox KacDefaBip & "Defa Bip Sesi Çıkardım"    ‘ Mesaj : 5 Defa Bip Sesi Çıkardım