VB Fonksiyonları

InStr    : Bir String ‘in diğeri içerisinde ilk nerde bulunduğunu kontrol eder

AdSoyad =  “Serkan Kolağası”       

Sonuc = InStr(1, AdSoyad , “r”)   ‘ Sonuc = 3      

Sonuc = InStr(4, AdSoyad , “r”)   ‘ 4. karakterden itibaren arar. Sonuc = 0           

Sonuc = InStr(8, AdSoyad , “a”)  ‘ 8. karakterden itibaren arar. Sonuc = 11         

Left      : String ‘in soldaki belli sayıdaki karakteri ile yeni bir String oluşturur

Sonuc = Left(AdSoyad , 6)                      ‘ Sonuc = “Serkan”         

Mid      : String ‘in ortasındaki karakterlerden yeni bir String yaratır

Sonuc = Mid(AdSoyad , 4, 6)                   ‘ Sonuc = “kan Ko”

Right    : String ‘in sağındaki belli sayıdaki karakteri ile yeni bir String oluşturur

Sonuc = Right(AdSoyad , 8)                    ‘ Sonuc = “Kolağası”

Trim    : String ‘in sağındaki ve solundaki boşlukları atarak yeni bir String oluşturur

Soyad = “    orak   “

Sonuc = Trim(Soyad)                              ‘ Sonuc = “orak”           

LTrim   : String ‘in soldaki boşlukları atarak yeni bir String oluşturur

Sonuc = LTrim(Soyad)                            ‘ Sonuc = “orak   “

RTrim  : String ‘in sağında boşlukları atarak yeni bir String oluşturur

  

Sonuc = RTrim(Soyad)                            ‘ Sonuc = “   orak”

LCase  : String ‘in bütün karakterlerini küçük harf yapar

Sonuc = LCase(AdSoyad)                                    ‘ Sonuc = “serkan kolağası”

UCase  : String ‘in bütün karakterlerini büyük harf yapar

  

Sonuc = UCase(AdSoyad)                                   ‘ Sonuc = “SERKAN KOLAĞASI”

Len      : Stringdeki karakter sayısını bulur

Soyad=“orak”

Sonuc = Len(soyad)                                ‘ Sonuc = 4

  

Asc      : Stringin ilk karakterinin ascii kodunu bulur

  

Sonuc = Asc(“A”)                        ‘ Sonuc “65”

Sonuc = Asc(“aranan”)                 ‘ Sonuc “97”

Sonuc = Asc(“a”)                        ‘ Sonuc “97”

Chr      : 0 – 255 arası tam sayıyı o sayıya karşılık gelen Ascii karaktere dönüştürür

Sonuc = Chr(65)                         ‘ Sonuc “A”

Str       : String‘e dönüştürme

Sonuc = Str(654846546)                          ‘ Sonuc = “654846546”

Space  : İstenen miktarda boşluk karakteri atar

AdSoyad = "Serkan"

AdSoyad = AdSoyad + Space(10)

AdSoyad = AdSoyad + "Kolağası"             ‘ AdSoyad = “Serkan          Kolağası”

StrComp : Variant yada String iki değişkeni karşılaştırır

AD0 = “Serkan Kolağası”

AD1= “serkan kolağası”

Sonuc = StrComp(AD0, AD1, VbTextCompare)     ‘ Sonuc = 0

Sabit	Açıklama
VbTextCompare	Text karşılaştırma
VbBinaryCompare	Binary Karşılaştırma
VbDataBaseCompare	Database ‘den karşılaştırma

StrComp	Geri Dönen Değer
string1 string2 ‘den küçükse	-1
string1 string2 ‘ye eşitse	0
string1 string2 ‘den büyükse	1
string1 yada string2 boş ise	Null

StrConv : String değişkenlerde dönüşüm yapar

ad =“ Serkan”

Sonuc = StrConv(ad, 1)                          ‘ Sonuc = “SERKAN”

Sabit	Değer	Açıklama
VbUpperCase	1	Büyük harfe dönüşür
VbLowerCase	2	Küçük harfe dönüşür
VbProperCase	3	Bütün kelimelerin ilk harfi büyük harfe dönüşür
VbUniCode	64	Varsayılan kod sayfasından UniCode dönüşür
VbFromCode	128	UniCode ’den varsayılan kod sayfasına dönüşür

StrReverse : String değişkende harfleri tersten sıralayarak atar

Sonuc = StrReverse(Ad)                        ‘ Sonuc = “nakreS”

  

Replace           : Karakterleri istenen başka karakterlerle değiştirir

Sonuç = Replace(ad,”kan”,”pil”,,,VbTextCompare)         ‘ Sonuc = “Serpil”

Sabit	Açıklama
VbTextCompare	Text karşılaştırma
VbBinaryCompare	Binary Karşılaştırma
VbDataBaseCompare	Database ‘den karşılaştırma

String  : İstenilen sayıda karakteri Variant değişkene atar

Sonuc = String( 5, “ * “ )                        ‘ Sonuc = “*****”

  

Fix       : Ondalık kısmı atarak Integer ‘a dönüştürme

Sayı = -99.8

Sonuc = Fix(Sayı)                                   ‘ Sonuc = -99

Sayı = 99.8

Sonuc = Fix(Sayı)                                   ‘ Sonuc = 99

Int       : Ondalık kısmı atarak Integer ‘a dönüştürme

Sonuc = Int(6.94846546)                         ‘ Sonuc = “6 “

Sonuc = Int(6.35484654)                         ‘ Sonuc = “6 “

Sonuc = Int(-6.84654)                             ‘ Sonuc = “-7 “

  

IsEmpty : Variant değişkenlerin dolu olup olmadığını kontrol eder

Dim Soyad As Variant

Soyad = “orak”

Sonuc = IsEmpty(Soyad)                                   ‘ Sonuc = False

IsNull  : Variant değişkendeki verinin boşaltıldığını gösterir

Sonuc = IsNull(Soyad)                            ‘ Sonuc = False

Soyad = Null

Sonuc = IsNull(Soyad)                            ‘ Sonuc = True

  

IsNumeric : Variant değişken bir sayı ise True olur

Sonuc = IsNumeric(Soyad)                    ‘ Sonuc = False

IsDate : Variant değişken tarih saat bilgisi içeriyorsa True olur

Tarih = #January 1, 1970#          

Tarih = Tarih + 7                        ‘ Tarih 1 hafta sonraya atlar

Sonuc = IsDate(Tarih)                ‘ Sonuc = True

IsArray           : Değişkenin dizi olup olmadığını denetler

Dim Dizis(110) As String

Sonuc = IsArray(Dizis)                           ‘ Sonuc = True

CVErr   : Bir hata numarası değeri alarak Error tipinde Variant olarak döndürür

IsError            : Değişkenin bir variant yada Error olup olmadığını denetler

Function Hesap()                          ‘ CVErr fonksiyonu

On error goto hata:

...

hata:

If Err.Number <> 0 then

   Hesap = CVErr()

End If

End Function

Deger=Hesap()                                       ‘ IsError fonksiyonu

If IsError(Deger) Then

   ....

End If

IsObject : Değişkenin bir nesne olup olmadığını denetler

Sonuc = IsObject(Command1)                ‘ Sonuc = True

Val       : String ‘den  Sayıya dönüştürme

Sonuc = Val(“1231”)                                ‘ Sonuc = 1231

Sonuc = Val(“1231 Ali Amca”)                  ‘ Sonuc = 1231

Sonuc = Val(“1ASDF231”)                                    ‘ Sonuc = 1

Sonuc = Val(“12,31”)                               ‘ Sonuc = 12

Sonuc = Val(“AS1231”)                            ‘ Sonuc = 0

TypeName : Değişkenin veri tipinin ismini verir

Dim Ad As String

Ad=“Murat”

Sonuc = TypeName(Ad)                         ‘ Sonuc = “String”

  

VarType          : Variant değişkendeki verinin tipini kontrol eder

Sonuc = VarType(AdSoyad)                    ‘ Sonuc = 8

Sonuc = VarType(Sayı)                          ‘ Sonuc = 2

VarType	Sabit	Geri Dönen Değer
Default (Hazırlanmamış)	VbEmpty	0
Null (Geçersiz veri)	VbNull	1
Integer	VbInteger	2
Long	VbLong	3
Single	VbSingle	4
Double	VbDouble	5
Currency	VbCurrency	6
Date	VbDate	7
String	VbString	8
Object	VbObject	9
Error	VbError	10
Boolean	VbBoolean	11
Variant	VbVariant	12
Data Object	VbDataObject	13
Ondalık Değer	VbDecima	14
Byte	CbByte	17
Array	CbArray	8192

Abs      : Sayının mutlak değerini bulur

Sonuc = Abs(12)                         ‘ Sonuc = 12

Sonuc = Abs(-12)                                   ‘ Sonuc = 12

Sqr      : Sayının karekökünü alır

  

Sayı = 9

Sonuc = Sqr(Sayı)                                  ‘ Sonuc =  “3 “

Sgn      : Sayının pozitif mi negatif mi olduğunu bulur

Sayı = 6

Sonuc = Sgn(Sayı)                                  ‘ Sonuc = 1

Sayı = -6

Sonuc = Sgn(Sayı)                                  ‘ Sonuc =  -1

Sayı = 0

Sonuc = Sgn(Sayı)                                  ‘ Sonuc =  0

  

Rnd      : 0 – 1 arasında rastgele bir sayı döndürür

              

Randomize                                ‘ Her seferinde aynı sayının üretilmesini engeler

sonuc = Int(Rnd * 25 + 1)            ‘ 1- 25 arası bir sayı üretir

Round  : Sayıyı istenen basamağa kadar yuvarlar

Sonuc=  Round(3.48)                              ‘ Sonuc = 3

Sonuc=  Round(3.523214324, 2)              ‘ Sonuc = 3.52

Sonuc=  Round(3.523214324)                  ‘ Sonuc = 4

LBound            : Dizi içerisinde ki en küçük indisi döndürür

              

Dim arrayy1(3 To 5) As Integer

Sonuc = LBound(arrayy1())                     ‘ Sonuc = 3

Ubound : Dizi içerisinde ki en büyük indisi döndürür

Dim arrayy1(3 To 5) As Integer

Sonuc = UBound(arrayy1())                    ‘ Sonuc = 5

Array   : Bir variant dizisi oluşturur

                         

Dim X As Variant

X = Array(23, 45, 67, 89, 12)

sonuc = X(3)                                           ‘ Sonuc = 89

X = Array(“Ali”, “Ahmet”, “Kemal”)

Sonuc = X(2)                                          ‘ Sonuc = “Kemal”

  

Timer  : Gece yarısından sonra geçen saniye mikarı

  

Sonuc = Timer                                       ‘ Sonuc 22:50 için 82200

Date    : Sistem tarihini verir

Sonuc = Date                                         ‘ Sonuc o günün tarihi

Date = #January 25, 2099#                     ‘ Tarih 25.01.2099 olarak değişir

Time    : Sistem saatini verir

Sonuc = Time                                         ‘ Sistem saati

Time = “12:00.00”                                  ‘ Saati 12:00:00 olarak değiştirir

Now     : Sistem tarih ve saatini gösterir

  

Sonuc = Now                                          ‘ Tarih ve saat

  

Day      : Tarinin gününü gösterir

   Sonuc = Day(Now)                              ‘ Gün

   

WeekDay : Haftanın kaçıncı olduğunu gösterir

Sonuc = WeekDay(Now)                        ‘ 0- Pazar , 1 – Pazartesi, 2 – Salı ....

WeekDayName : Haftanın 1. 3. gibi günlerinin ismi

Sonuc = WeekDayName(5)                    ‘ Sonuc = “Cuma”

Month : Tarihin ayını verir

Sonuc = Month(Now)                              ‘ Ay

MonthName : Sayısal olarak verilen ayın ismini verir

Sonuc = Month(7)                                   ‘ Sonuc = “Temmuz”

Year    : Tarihin yılını verir

  

Sonuc = Year(Now)                                ‘ Yıl

Hour    : Zamanın saat bilgisini verir

  

Sonuc = Hour(Now)                                ‘ Saat 0 – 23

Minute             : Zamanın dakika bilgisini  verir

Sonuc = Minute(Now)                             ‘ Dakika 0- 59

Second            : Zamanın saniye bilgisini verir

Sonuc = Second(Now)                            ‘ Saniye 0 - 59

DateSerial : Verilen yıl, ay ve güne karşı gelen tarih bilgisi oluşturur

Sonuc = DateSerial(1413, 11, 21)                       ‘ Sonuc = “21.11.1413”

DateValue : Tarihe ait bir Variant döndürür

Sonuc = DateValue("08.07.2002")+ 1000 ‘ Sonuc = “03.04.2005”

Sonuc = DateValue("08.07.2002") - DateValue("08.07.2001")       ‘ Sonuc = 365

TimeSerial : Verilen saat, dakika ve saniye ile zaman bilgisi döndürür

Sonuc = TimeSerial(5, 9, 32)                  ‘ Sonuc = “05:09:32”

Saat 4:32:00 ile 2:22:12 arasında geçen süre

Sonuc = TimeSerial(4-2, 32-22, 00-12)   ‘ Sonuc = “02:04:48”

  

TimeValue : Zamana ait Variant döndürür

Saat1 = #5:11:12 PM#                           

Saat2 = #8:23:11 PM#

Sonuc = TimeValue(Saat2) - TimeValue(Saat1)

Saat = Hour(Sonuc)                                 ‘ Saat = 3

Dakika = Minute(Sonuc)                           ‘ Dakika = 11

Saniye = Second(Sonuc)                          ‘ Saniye = 59

Sin       : Açının sinüsünü döndürür

Cos      : Açının kosinüsünü döndürür

Tan      : Açının tanjantını döndürür

Cot       : 1/Tan(x)

Atn      : Açının arktanjantını döndürür

Cosh    : (Exp(x)+Exp(-x))/2

ArcCos : Atn(x(Sqr(-x*x+1))+3,14/2

Sinh     : (Exp(x)-Exp(-x))/2

ArcSin : Atn(x(Sgr(-x*x+1))

Csc      : 1/Sin(x)

Exp      : Doğal logaritma üssünün tabanını döndürür

Log      : Sayının doğal logaritmasını döndürür

Loga    : Log(x)/Log(a)

Hex      : Ondalık sayıyıyı onaltılık sayıya döndürür (&H)

Oct       : Ondalık sayıyı sekizlik sayıya döndürür (&O)

  Hata Açıklamaları

Type Mismatch : Hatalı veri ( String değişkene sayısal veri aktarılması, vb. )

Division By Zero : Sıfır ile bölme yapılamaz

Overflov : Değişkene yapılan atama değişken kapasitesinden büyük

Global defination invalid inside form module :  Global tanımlama form içerisinde yapılamaz

Invalid outside Sub or Function : Tanımlamamış fonksiyon

Subscript out of range : Tanımlanmış aralığın dışındaki değer

Use Static or ReDim to dimension arrays in this procedure :

   Değişkenler General Declaration bölümünde Static yada ReDim olarak tanımlanmış

Dublicate Defination Error :    Aynı isim iki farklı tür değişken için kullanılmaya çalışılıyor

Variable Not Defined : Tanımlanmamış değişken kullanılmaya çalışılıyor