Visual Basic ile Programlamayı Öğreniyoruz -7-

[tasiyici]

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

:saskin:vur:saskin:vur:saskin:vur:saskin:vur:saskin:vur