ACCESS VE VB’DE KARAKTERSEL VE SAYISAL FONKSİYONLAR -2-

11- StrComp( )

Bilgi:
Bu fonksiyon iki sabit bilgiyi veya değişkeni karşılaştırmak için kullanılır.

Genel Yazılışı:
StrComp (1. Bilgi, 2. Bilgi, Karşılaştırma Şekli)

Önemli açıklama:
Birinci parametrede verilen bilgi, 2. parametredeki bilgi ile karşılaştırılır. Dönen değer şu şekilde oluşur. Eğer 1. bilgi 2. bilgiye eşit değilse dönen değer=1, bilgiler birbirine eşitse dönen değer= 0 olacaktır. Her iki bilgi de null ise dönen değer null olur.

Kullanımı:
Dim Ad1, Ad2 as String
Ad1 = “Mehmet”
Ad2 = “Access”
Sonuc = StrComp(Ad1, Ad2)

(Sonuç = 1 olur, çünkü Ad1 ve Ad2 değişkenleri farklıdır.

KARŞILAŞTIRMA ŞEKLİ: 3. parametre olan bu değer, karşılaştırılan değerlerin büyük-küçük harf ayrımına göre değişir. Büyük-küçük harf ayrımı yapılmasın denilirse o zaman son parametre olarak “1” değeri girilmelidir. Yani

Sonuc = StrComp(Ad1, Ad2, 1) şeklinde yazılmalıdır.

Örnek:
Dim Ad1, Ad2 as String
Ad1 = “Mehmet”
Ad2 = “mehmet”
Sonuc = StrComp(Ad1, Ad2)

Dönen değer “1” olacaktır. Fakat son satır şöyle olursa

Sonuc = StrComp(Ad1, Ad2, 1)

O zaman dönen değer “0” olacaktır.


12- Str$( ) ve Str( )

Bilgi:
Bu fonksiyon sayısal bir değeri karaktersel değere dönüştürmek için kullanılır. Dönen değer variant olsun derseniz Str() biçiminde kullanın.

Genel Yazılışı:
Str(Sayısal Bilgi)

Kullanımı:
Sayi= 1234.5678
Sonuc = Str(Sayi)
Sonuç değeri “1234.5678” şekline dönüşür. Artık değer bir sayı değil bir bir karaktersel bilgidir. Örneği incelersek, bir toplama işleminde karaktersel bilgilerin nasıl toplandığını anlayabiliriz:

Örnek:
Dim Tel as Long
Dim ad as string
Tel = 2124567
Ad= “Mehmet Demiral”
Msgbox = Str(Tel) + Ad

Sonuçta msgbox’a gönderilen çıktı

2124567Mehmet Demiral

Biçiminde olacaktır. Oysa normalde sayı ile isim toplanamaz değil mi? Buradan da anladık ki değer Long iken String’e dönüşmüştür.

13- String$( ) ve String( )

Bilgi:
Bu fonksiyon bir karakterin istenildiği kadar ekrana veya yazıcıya arka arkaya tekrarlanarak yazılmasını sağlar. String$( ) fonksiyonu karaktersel veri, String( ) ise variant değer döndürmektedir.

Genel Yazılışı:
String$(Sayı, Karakter)

Kullanımı:
Msgbox String$(20, “A”)

Sonuçta ekrana 20 adet “A” karakteri gelecektir.


14- Chr( )

Bilgi:
Bu fonksiyon 0 ile 255 arasındaki ASCII karakteri elde etmekte kullanılır.

Genel Yazılışı:
Chr(Sayı)

Kullanımı:
Sonuc = Chr(65)
Sonuc değeri “A” olacaktır.
Not: Bu fonksiyon variant tipte veri döndürür. Karaktersel veri için Chr$( ) kullanılır.

15- Tab( ) ****Vb için****

Bilgi:
Bu fonksiyon ekranın bilgi yazılacak yerini satır bazında belirlemede kullanılır.

Genel Yazılışı:
Tab(Ekranın veri yazılacak sütunu)

Kullanımı: (Vb için)
İleti= “Accesstr.net”
Show
Fontname = “Arial”
Fontsize = 12
Print tab(10); ileti

Böylece formdaki 10.ncu sütuna “Accesstr.net” yazılacaktır.


16- Spc( )

Bilgi:
Bu fonksiyon verilen parametre kadar boşluk oluşturur.

Genel Yazılışı:
Spc(Boşluk Sayısı)

Kullanımı: (Vb için)
İleti= “Accesstr.net”
Show
Fontname = “Arial”
Fontsize = 12
Print Spc(10); ileti

Böylece formda 10 boşluktan sonra “Accesstr.net” yazılacaktır.


17- Asc( )

Bilgi:
Bu fonksiyon bir karaktersel bilginin ilk karakterinin ASCII kodunu bulur.

Genel Yazılışı:
Asc(Boşluk Sayısı)

Kullanımı:

Sonuc = Asc(“A”) veya Sonuc= Asc(“Adana”)
Sonuç her ikisinde de 65 olacaktır.


18- Val( )

Bilgi:
Bu fonksiyon karaktersel bilginin sayısal bilgiye dönüştürülmesini sağlar.

Genel Yazılışı:
Val(Karaktersel Bilgi)

Kullanımı:
Sonuc = Val(“11A156”)
Sonuç 11 olacaktır.

Önemli Not: Bu fonksiyon karaktersel veri görene kadar işleme devam eder. Mesela A1567 değerini çevirmeye çalıştığında “0” dönecektir, çünkü ilk değer karakterseldir.


19- Abs( )

Bilgi:
Bu fonksiyon bir sayının mutlak değerini bulur. Sayının + veya – olmasına bakılmaksızın sadece sayısal değere bakılırç

Genel Yazılışı:
Abs(Sayı)

Kullanımı:

Sonuc= Abs(50) Sonuc 50 olur
Sonuc= Abs(-50) Sonuc 50 olur
Sonuc= Abs(0) Sonuc 0 olur


20- Int( )

Bilgi:
Bu fonksiyon ondalık değerli bir sayıyı tamsayıya çevirir.

Genel Yazılışı:
Int(Ondalık Sayı)

Kullanımı:

Sonuc= Int(10.50) Sonuc 10 olur
Sonuc= Int(-22.50) Sonuc -22 olur


21- Sqr( )

Bilgi:
Bu fonksiyon pozitif bir sayının karekökünü bulur. Negatif sayılarda kullanılmaz. Ondalık sayılarda da yanılmaktadır.

Genel Yazılışı:
Sqr(Karekök alınacak sayı)

Kullanımı:

Dim sayi as single
Sayi= inputbox$ (“ Karekökü alınacak sayıyı giriniz”)
Msgbox (sayi & “ Sayısının karekökü : “ Sqr (Sayi))
End if


22- Sign( )

Bilgi:
Bu fonksiyon bir sabit veya sayısal bilgi içeren değişkenin pozitif mi negatif mi olduğunu gösterir.

Genel Yazılışı:
Sign(Sayısal veri)

Not: Eğer sayı negatifse geriye -1; pozitif ise 1; 0 ise 0 döner.

Kullanımı:

Sonuc = sign(10) Sonuc 1 olur
Sonuc = sign(-10) Sonuc -1 olur
Sonuc = sign(0) Sonuc 0 olur


23- Date( ), Time( ) ve Now( )

Bilgi:
Date( ) fonksiyonu güncel tarihi, Time( ) ise güncel saati almaktadır. Now( ) ise her ikisini birden almaktadır. Parametresiz olarak çalışırlar. Çünkü veriyi biostan almaktadırlar.


Genel Yazılışı:
Date( )
Time( )
Now( )

Kullanımı:

Date( ) Sonuc 28.08.2009 formatında tarih verisidir.
Time( ) Sonuc 20:25:13 formatında saat verisidir.
Now( ) Sonuc 28.08.2009 20:25:13 formatında tarih ve saat verisidir.

24- Shell( )

Bilgi:
Bu fonksiyon bilgisayar kurulu bir programı Access ya da Vb projesi içerisinde çalıştırı.

Genel Yazılışı:
Shell(Çalışacak programın adresi), ekran parametresi

Kullanımı:

Shell (“c:\windows\notepad.exe”)
Sonuç: Not defteri simge durumunda başlar

Shell (“c:\windows\notepad.exe”), 3
Sonuç: Not defteri ekranı kaplamış durumunda başlar

Shell (“c:\windows\notepad.exe”), 4
Sonuç: Not defteri normal pencere durumunda başlar


Hazırlayan: Mehmet DEMİRAL