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.
