Class oluşturulurken içersinde Sub,Function kullanılabilir.
Kullanımı: < % Class Class_Adi
‘…. End Class %> Şeklindedir.
Class oluşturulurken içersinde Sub,Function kullanılabilir. < % Class Matematik
Private Function Topla(Sayi1,Sayi2,Sayi3) Topla=Sayi1+SAyi2+Sayi3 End Function
Public Function Bol(Bolunen,Bolen) Bol=Bolunen/Bolen End Function
Public Sub BolveTopla(Bolunen,Bolen,Sayi1,Sayi2,Sayi3) BolveTopla=Bol(Bolunen,Bolen)+Topla(Sayi1,Sayi2,Sayi3) End Sub End Class %>
Burada Bol Fonksiyonu ve BolveTopla Sub ı Class dışında kullanılabilir. Topla Fonksiyonu ise sadece Class içinde kullanılabilir. Class ı kullanmak için:
< % Set islem=New Matematik %>
Şeklinde tanımlanır.
< % Set islem=New Matematik ‘Matematik Class ını tanımlıyoruz Response.Write Matematik.Bol(9,3) ‘Çıkan Sonuç 3 olacaktır… Response.Write Matematik.BolveTopla 9,3,1,2,3 ‘Çıkan Sonuç 9 olacaktır… Set islem=Nothing %>
Class larda Değişkende Tanımlanabilir:
< % Class Matematik Public Bolen,Bolunen
Public Function Bol() Bol=Bolunen/Bolen End Function End Class
‘Kullanımı: Set islem=New Matematik islem.Bolunen=9 islem.Bolen=3 Response.Write islem.Bol %>
Class Tanımlandığı zaman çalışmasını istediğiniz kodları
< % Private Sub Class_Initialize() ‘Class oluştuğu zaman çalışacak kodlar End Sub %>
Class Yokedildiği zaman olacakları ise
< % Private Sub Class_Terminate() ‘class Set ClassAdi=Nothing şeklinde Yokedildiği zaman çalışacak kodlar End Sub %>
Şeklinde Tanımlayabiliriz.
|