Sonuçlar 1 to 2 of 2

Konu: Event Handler – Olay-V.Basic-(kaynak1)

  1. #1

    Default Event Handler – Olay-V.Basic-(kaynak1)

    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

  2. #2

Similar Threads

  1. WebBrowser – Web Tarayıcı(kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 2
    Son Mesaj: 15-08-09, 15:13
  2. ClipBoard – Pano(v.basic kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 2
    Son Mesaj: 06-08-08, 11:15
  3. Format – Print – Printer(v.basic-kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 26-07-08, 10:48
  4. Timer – Zamanlayıcı-(V.basic-kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 13:47
  5. Frame – Çerçeve-V.Basic-(Kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 24-07-08, 10:47

Tags for this Thread

Bookmarks

Gönderme izinleri

  • Yeni Konu açamazsınız
  • Konulara cevap yazamazsınız.
  • Eklenti gönderemezsiniz.
  • Mesajlarınızı düzenleme izniniz yok.
  •