ASP - Function Kullanımı

---

12.06.2011 / Serdar Kardan

---

---

Function ların kullanım amacı, çalışma genelinde tekrarlanan işlemlerde aynı kod bloğunun tekrar kullanımını engellemektir.

Örneğin bir veri kümesine uyguladığımız bir işlem varsa ve bu işlemi ya da hesaplamayı uygulamanın farklı yerlerinde tekrar kullanacaksak aynı kod bloğunu tekrar yazmak yerine, tüm sayfalara include ile ekleyeceğimiz bir sayfa içerisinde tanımlayacağımız bir function ile işimizi kolaylaştırabiliriz.

Üzerinde çalıştığım bir uygulamada klavyenin nümeric kısmından parasal bir değer girerken nokta yerine nümeric kısımda virgül girilebildiği için bazı sıkıntılar yaşadım. Örneğin 125 YTL 50 Ykr yazmak için 125,50 yazarsanız bu değer veritabanına 12550 Ytl olarak kaydediliyor. 125.50 olarak yazıldığında ise olması gereken değer işleniyor. Her sistemde bölgesel ayarlara ulaşmam mümkün olmadığından en pratik çözüm olarak bir fonksiyon ile gelen değerdeki virgülleri noktaya çevirmeyi düşündüm. Bu da bizim için function kullanımına bir örnek olacaktır.

Aşağıdaki function' ı tüm sayfalara include ettiğim ortak.asp içine ekledim.

Public Function VirgulAt(Verimiz)
    VırgulAt = Replace(Verimiz,",",".")
End Function

Özetlersek "Verimiz" olarak belirttiğimiz değerle gelen verideki vigülleri Replace ile nokta olarak değiştiriyoruz.

Bu Function' ı ihtiyacım olan heryerde kullanabilmek için içine eklediğim ortak.asp' yi her sayfada include ettim;

<!--#include file="includes/ortak.asp"-->

Gelen veriden virgülleri temizlemek için ihtiyaç duyduğum noktada da function' ı çağırdım...

intGelenVeri = VirgulAt(Request.Form("Fiyat"))

Daha basit bir kullanım örneği verelim. Değeri daha önce formdan Fiyat adlı değişkene aldığımızı farzedersek,

intDeger = VirgulAt(Fiyat)

Bu hali de function' ın en basit haliyle kullanımına bir örnek olacaktır. Bu örnekten hareketle sizde ihtiyacınıza göre daha karmaşık function' lar yazabilirsiniz.

Bir örnek daha vererek, biraz daha karışık işlemleri nasıl yapabileceğimizi görelim. Bir veri kümesi içinde istediğimiz bir değerin kaç defa tekrarlandığını bulalım. Örneğin bir paragraf içinde kaç nokta kullanıldığını bulursak kaç cümle olduğunu da hesaplayabiliriz.

<%
Function CumleSay(byVal strVerimiz, byVal strArananKarakter)
 
     Dim intSayac, intVeriUzunluk
     
     If strVerimiz = "" OR strArananKarakter = "" Then Exit Function
     
     intSayac = 0
     intVeriUzunluk = Len(strVerimiz)
     
     For intDongu = 1 To intVeriUzunluk
          If Mid(strVerimiz, intDongu, 1) = strArananKarakter Then
               intSayac = intSayac + 1
          End If
     Next
     
     CumleSay = intSayac

End Function
%>

Kullanımına da bir örnek verecek olursak;

<%
strParagraf = "ZEYTİNBURNU Spor Kompleksi’nde dün gerçekleşen ve Kanal D Çocuk Kulübü’nün sponsor olduğu etkinliğe İstanbul Büyükşehir Belediye Başkanı Kadir Topbaş da katıldı. Büyük izler bırakmak amacıyla Türkiye domino rekorunu kırmak istediklerini ifade eden Topbaş, İstanbul, geçmişte rekorlara imza atan bir şehirdi. Biz de bu rekorları sürdürmek istiyoruz. Bunun arkasından dünya rekorunu da kırarak rekorlara imza atacağız dedi."

Deger = CumleSay(strParagraf,".")

Response.Write Deger

%>

Yukarıdaki gibi bir ifade bize 4 değerini verecektir. Yani bu paragraf içinde 4 nokta, diğer bir deyişle 4 cümle var demektir.

---

---

12.06.2011 - 9686

Etiketler : function, fonksiyon, include, Request, Public, Replace, End Function, byval,for, asp, veri, değişken

---