Fonksiyon Geri Dönen Değer Yaptıgı İşlem
CBool(Değer) Boolean Matemetiksel ifadeyi Boolean türüne dönüştürür.
CByte(Değer) Byte Matemetiksel ifadeyi Byte türüne dönüştürür.
CCur(Değer) Currency Matemetiksel ifadeyi Currency türüne dönüştürür.
CDate(Değer) Date Matemetiksel ifadeyi Date türüne dönüştürür.
CDbl(Değer) Double Matemetiksel ifadeyi Double türüne dönüştürür.
CDec(Değer) Decimal Matemetiksel ifadeyi Decimal sayıya dönüştürür.
CInt(Değer) Integer Matemetiksel ifadeyi tam sayıya dönüştürür.
CLng(Değer) Long Matemetiksel ifadeyi Long türüne dönüştürür.
CSng(Değer) Single Matemetiksel ifadeyi Single türüne dönüştürür.
CVar(Değer) Variant Matemetiksel ifadeyi Variant türüne dönüştürür.
CStr(Değer) String Matemetiksel ifadeyi String türüne dönüştürür.
Aşagıda tip dönüşümleri ile ilgili çeşitli örnekler verilmiştir.
Örnek1 :
Kod:
A=10 , B=5 , C=10 , D=0
Sonuc= CBool(A < B) ‘Sonuc =False
Sonuc= CBool(A > B) ‘Sonuc =True
Sonuc= CBool(A = C) ‘Sonuc =True
Örnek2 :
Kod:
A=10 , B=5 , C=0
Sonuc= CByte(A < B) ‘Sonuc =0
Sonuc= CByte(A > B) ‘Sonuc =255
Sonuc= CByte(A = C) ‘Sonuc =255
Örnek3 :
Kod:
A=1 , B=2 , C=36000 , D=36001
Sonuc= CDate(A) ‘Sonuc =12/31/1899
Sonuc= CDate(B) ‘Sonuc =1/1/1900
Sonuc= CDate(C) ‘Sonuc =7/24/98
Sonuc= CDate(D) ‘Sonuc =7/25/98
Örnek4 :
Kod:
A=2.4 , B=2.5 , C=2.6 , D=3.5
Sonuc= CInt(A) ‘Sonuc =2
Sonuc= CInt(B) ‘Sonuc =3
Sonuc= CInt(C) ‘Sonuc =3
Sonuc= CInt(D) ‘Sonuc =4
Oparatörler
Visual Basic’de matematiksel işlemlerimizi yaptırabilmemiz için aşağıdaki oparatörleri kullanabiliriz.
+ Toplama
- Çıkarma
* Çarpma
/ Bölme
\ Tamsayı Bölem
^ Üs yani Kuvvet alma
Mod Kalanlı Bölme
& Dizilim Birleştirme
Örnek :
Kod:
Dim Sonuc As Double ’ Ondalık sayı tutabilecek bir değişken tanımlanıyor..
Dim Sayı1 As Integer, Sayı2 As Integer ’ 2 Tane TamSayı değişken tanımlıyoruz..
Sayı1 = 9
Sayı2 = 2 ’ Değişkenlere değer atıyoruz..
Sonuc = Sayı1 + Sayı2 ’ Sonuc 11
Sonuc = Sayı1 - Sayı2 ’ Sonuc 7
Sonuc = Sayı1 * Sayı2 ’ Sonuc 18
Sonuc = Sayı1 / Sayı2 ’ Sonuc 4,5
Sonuc = Sayı1 \ Sayı2 ’ Sonuc 4 . Bu işlem çıkan değerin sadece tamsayı kısmını alır
Sonuc = Sayı1 ^ Sayı2 ’ Sonuc 81
Sonuc = Sayı1 Mod Sayı2 ‘ Sonuc 1. Bölme işlemi yapıldı ve sonuc olarak kalanı verdi.
Örnek
Kod:
Dim Ad As String, Soyad As String, AdSoyad As String
Ad=”Uğur”
Soyad=”Şahin”
AdSoyad = Ad & Soyad ‘AdSoyad değişkenin değeri “UğurŞahin”
AdSoyad = Ad & “ “ & Soyad ‘AdSoyad değişkenin değeri “Uğur Şahin”
Örnek
Kod:
Dim Kenar As Integer ’ Tamsayı
Dim Alan as Double, Hacim as Double ’ Ondalık Sayı
Alan = Kenar ^ 2 ‘Karenin alanını hesaplanıyor
Hacim = Kenar ^ 3 ’ Küpün Hacmini hesaplanıyor
Örnek
Karekök hesabı yapmak için Visual Basic’de SQR() kullanılıyor.
Kod:
Dim Sonuc As Double
Dim Tamkare As Integer
Tamkare = 36
Sonuc = SQR(36) ’ Sonuc = 6 olacaktır.
Visual Basic’de kullanılan bu oparatörlerde öncelik sırası vardır. Öncelik sıraları aşağıda verilmiştir.
( ) ‘Parantez içerisindeki ifadeler önceliğe sahiptir
^ ‘Üs alma
*/ ‘Çarpma ve bölme
\ ‘Tamsayı bölme
Karşılaştırma Oparatörleri
Visual Basic’de verileri kontrol etmek karşılaştırmak için aşağıdaki oparatörler kullanılır. Bu oparatörlerin sonucun doğru çıkması durumda True yani –1, yanlış çıkması durumunda False yani 0 değerini döndürürler.
< ‘Küçüktür
<= ‘Küçük Eşittir
> ‘Büyüktür
>= ‘Büyük Eşittir
= ‘Eşittir
<> ‘Eşit Değildir
Örnek
Kod:
Dim Sonuc As Integer
Sonuc = ( 3 < 5 ) ‘Sonuc = -1
Sonuc = ( 7 > 9 ) ‘Sonuc = 0
Sonuc = ( 10 <= SQR(100) ) ‘Sonuc = -1
Sonuc = ( 2 = 6 ) ‘Sonuc = 0
Sonuc = ( 4 = 4 ) ‘Sonuc = -1
Sonuc = ( 2 <> 6) ‘Sonuc = -1
Sonuc = ( 7 <> 7 ) ‘Sonuc = 0
Sonuc = ("Uğur" <> "Uğur Şahin" ) ‘Sonuc = 0
AND Operatörü
AND oparatörü tüm şartların doğru olduğu anlarda -1 değerini döndürür, diğer durumlarda ise 0 değerini döndürür.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayı1 = 4) AND (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 4) AND (sayı2 = 8) ‘Sonuc = 0
OR Operatörü
OR oparatörü, tüm şartların yanlış olduğu anlarda 0 değerini döndürür, diğer durumlarda ise -1 değerini döndürür.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayı1 = 2) OR (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 4) OR (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 2) OR (sayı2 = 4) ‘Sonuc = 0
XOR Operatörü
XOR oparatörü, şartlardan sadece birinin doğru olduğu anlarda -1 değerini döndürür, diğer durumlarda ise 0 değerini döndürür.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayı1 = 2) XOR (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 4) XOR (sayı2 = 5) ‘Sonuc = 0
NOT Operatörü
NOT oparatörü çıkan sonucu tam tersine çevirir. Sonuç –1 çıkarsa 0’a, 0 çıkarsa –1’e çevirir.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = sayi1=sayi2 ‘Sonuc = 0
Sonuc = NOT(sayi1=sayi2) ‘Sonuc = 0
EQV Operatörü :
EQV oparatörü iki ifadenin karşılaştırılması için kullanılır. İki koşulunda doğru veya yanlış olması durumunda –1 sonucunu üretir.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayi1=3) EQV (sayi2=8) ‘Sonuc = -1
Sonuc = (sayi1=4) EQV (sayi2=1) ‘Sonuc = 0
Karar Yapıları
Programlama dillerinde bilgileri işlemek için kullanılan en yararlı araçlardan biride koşullu bir ifadedir. Koşullu ifade bir özellik, değişken veya veride bulunan değere göre işlem yapmamızı sağlar. Visual Basic’de koşullu ifadeler kullanırken faydalanacağımız en önemli araçlar If ...Then ve Select Case karar yapılarıdır.
If...Then Karar Yapısı
Bir If...Then karar yapısı programdaki bir koşulu denetlememizi ve çıkan sonuca göre hareket etmemizi sağlar. En basit biçimiyle “If Koşul Then Bildiri” gibi kullanılabilir.
Örnek
Kod:
Dim Sinav1 As Byte
Dim Sinav2 As Byte
Dim Ortalama As Byte
Sinav1 = 80
Sinav1 = 60
Ortalama = ( Sinav1 + Sinav2 ) / 2 ‘Ortalama 70
If Ortalama >= 50 Then
Label1.Caption = “Kazandınız!..”
Else
Label1.Caption = “Kaybettiniz!..”
End If
Yukarıdaki ifadede Ortalama 50 ve üzerinde ise Label1.Caption = “Kazandınız!..” işelemi gerçekleşecek, aksi takdirde Label1.Caption = “Kaybettiniz!..” işlemi gerçekleşecektir.
If...Then karar yapısında birden fazla koşulu kontrol ederken Else If sözdizimini kullanırız.
Örnek
Kod:
Dim Sinav1 As Byte
Dim Sinav2 As Byte
Dim Ortalama As Byte
Ortalama = ( Sinav1 + Sinav2 ) / 2
If Ortalama >= 85 Then
Label1.Caption = “Takdir Aldınız!..”
Else If Ortalama >= 75
Label1.Caption = “Teşekkür Aldınız!..”
Else If Ortalama >= 50
Label1.Caption = “Sınıfınızı Geçtiniz!..”
Else
Label1.Caption = “Sınıfta Kaldınız!..”
End If
CBool(Değer) Boolean Matemetiksel ifadeyi Boolean türüne dönüştürür.
CByte(Değer) Byte Matemetiksel ifadeyi Byte türüne dönüştürür.
CCur(Değer) Currency Matemetiksel ifadeyi Currency türüne dönüştürür.
CDate(Değer) Date Matemetiksel ifadeyi Date türüne dönüştürür.
CDbl(Değer) Double Matemetiksel ifadeyi Double türüne dönüştürür.
CDec(Değer) Decimal Matemetiksel ifadeyi Decimal sayıya dönüştürür.
CInt(Değer) Integer Matemetiksel ifadeyi tam sayıya dönüştürür.
CLng(Değer) Long Matemetiksel ifadeyi Long türüne dönüştürür.
CSng(Değer) Single Matemetiksel ifadeyi Single türüne dönüştürür.
CVar(Değer) Variant Matemetiksel ifadeyi Variant türüne dönüştürür.
CStr(Değer) String Matemetiksel ifadeyi String türüne dönüştürür.
Aşagıda tip dönüşümleri ile ilgili çeşitli örnekler verilmiştir.
Örnek1 :
Kod:
A=10 , B=5 , C=10 , D=0
Sonuc= CBool(A < B) ‘Sonuc =False
Sonuc= CBool(A > B) ‘Sonuc =True
Sonuc= CBool(A = C) ‘Sonuc =True
Örnek2 :
Kod:
A=10 , B=5 , C=0
Sonuc= CByte(A < B) ‘Sonuc =0
Sonuc= CByte(A > B) ‘Sonuc =255
Sonuc= CByte(A = C) ‘Sonuc =255
Örnek3 :
Kod:
A=1 , B=2 , C=36000 , D=36001
Sonuc= CDate(A) ‘Sonuc =12/31/1899
Sonuc= CDate(B) ‘Sonuc =1/1/1900
Sonuc= CDate(C) ‘Sonuc =7/24/98
Sonuc= CDate(D) ‘Sonuc =7/25/98
Örnek4 :
Kod:
A=2.4 , B=2.5 , C=2.6 , D=3.5
Sonuc= CInt(A) ‘Sonuc =2
Sonuc= CInt(B) ‘Sonuc =3
Sonuc= CInt(C) ‘Sonuc =3
Sonuc= CInt(D) ‘Sonuc =4
Oparatörler
Visual Basic’de matematiksel işlemlerimizi yaptırabilmemiz için aşağıdaki oparatörleri kullanabiliriz.
+ Toplama
- Çıkarma
* Çarpma
/ Bölme
\ Tamsayı Bölem
^ Üs yani Kuvvet alma
Mod Kalanlı Bölme
& Dizilim Birleştirme
Örnek :
Kod:
Dim Sonuc As Double ’ Ondalık sayı tutabilecek bir değişken tanımlanıyor..
Dim Sayı1 As Integer, Sayı2 As Integer ’ 2 Tane TamSayı değişken tanımlıyoruz..
Sayı1 = 9
Sayı2 = 2 ’ Değişkenlere değer atıyoruz..
Sonuc = Sayı1 + Sayı2 ’ Sonuc 11
Sonuc = Sayı1 - Sayı2 ’ Sonuc 7
Sonuc = Sayı1 * Sayı2 ’ Sonuc 18
Sonuc = Sayı1 / Sayı2 ’ Sonuc 4,5
Sonuc = Sayı1 \ Sayı2 ’ Sonuc 4 . Bu işlem çıkan değerin sadece tamsayı kısmını alır
Sonuc = Sayı1 ^ Sayı2 ’ Sonuc 81
Sonuc = Sayı1 Mod Sayı2 ‘ Sonuc 1. Bölme işlemi yapıldı ve sonuc olarak kalanı verdi.
Örnek
Kod:
Dim Ad As String, Soyad As String, AdSoyad As String
Ad=”Uğur”
Soyad=”Şahin”
AdSoyad = Ad & Soyad ‘AdSoyad değişkenin değeri “UğurŞahin”
AdSoyad = Ad & “ “ & Soyad ‘AdSoyad değişkenin değeri “Uğur Şahin”
Örnek
Kod:
Dim Kenar As Integer ’ Tamsayı
Dim Alan as Double, Hacim as Double ’ Ondalık Sayı
Alan = Kenar ^ 2 ‘Karenin alanını hesaplanıyor
Hacim = Kenar ^ 3 ’ Küpün Hacmini hesaplanıyor
Örnek
Karekök hesabı yapmak için Visual Basic’de SQR() kullanılıyor.
Kod:
Dim Sonuc As Double
Dim Tamkare As Integer
Tamkare = 36
Sonuc = SQR(36) ’ Sonuc = 6 olacaktır.
Visual Basic’de kullanılan bu oparatörlerde öncelik sırası vardır. Öncelik sıraları aşağıda verilmiştir.
( ) ‘Parantez içerisindeki ifadeler önceliğe sahiptir
^ ‘Üs alma
*/ ‘Çarpma ve bölme
\ ‘Tamsayı bölme
Karşılaştırma Oparatörleri
Visual Basic’de verileri kontrol etmek karşılaştırmak için aşağıdaki oparatörler kullanılır. Bu oparatörlerin sonucun doğru çıkması durumda True yani –1, yanlış çıkması durumunda False yani 0 değerini döndürürler.
< ‘Küçüktür
<= ‘Küçük Eşittir
> ‘Büyüktür
>= ‘Büyük Eşittir
= ‘Eşittir
<> ‘Eşit Değildir
Örnek
Kod:
Dim Sonuc As Integer
Sonuc = ( 3 < 5 ) ‘Sonuc = -1
Sonuc = ( 7 > 9 ) ‘Sonuc = 0
Sonuc = ( 10 <= SQR(100) ) ‘Sonuc = -1
Sonuc = ( 2 = 6 ) ‘Sonuc = 0
Sonuc = ( 4 = 4 ) ‘Sonuc = -1
Sonuc = ( 2 <> 6) ‘Sonuc = -1
Sonuc = ( 7 <> 7 ) ‘Sonuc = 0
Sonuc = ("Uğur" <> "Uğur Şahin" ) ‘Sonuc = 0
AND Operatörü
AND oparatörü tüm şartların doğru olduğu anlarda -1 değerini döndürür, diğer durumlarda ise 0 değerini döndürür.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayı1 = 4) AND (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 4) AND (sayı2 = 8) ‘Sonuc = 0
OR Operatörü
OR oparatörü, tüm şartların yanlış olduğu anlarda 0 değerini döndürür, diğer durumlarda ise -1 değerini döndürür.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayı1 = 2) OR (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 4) OR (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 2) OR (sayı2 = 4) ‘Sonuc = 0
XOR Operatörü
XOR oparatörü, şartlardan sadece birinin doğru olduğu anlarda -1 değerini döndürür, diğer durumlarda ise 0 değerini döndürür.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayı1 = 2) XOR (sayı2 = 5) ‘Sonuc = -1
Sonuc = (sayı1 = 4) XOR (sayı2 = 5) ‘Sonuc = 0
NOT Operatörü
NOT oparatörü çıkan sonucu tam tersine çevirir. Sonuç –1 çıkarsa 0’a, 0 çıkarsa –1’e çevirir.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = sayi1=sayi2 ‘Sonuc = 0
Sonuc = NOT(sayi1=sayi2) ‘Sonuc = 0
EQV Operatörü :
EQV oparatörü iki ifadenin karşılaştırılması için kullanılır. İki koşulunda doğru veya yanlış olması durumunda –1 sonucunu üretir.
Kod:
sayı1 = 4
sayı2 = 5
Sonuc = (sayi1=3) EQV (sayi2=8) ‘Sonuc = -1
Sonuc = (sayi1=4) EQV (sayi2=1) ‘Sonuc = 0
Karar Yapıları
Programlama dillerinde bilgileri işlemek için kullanılan en yararlı araçlardan biride koşullu bir ifadedir. Koşullu ifade bir özellik, değişken veya veride bulunan değere göre işlem yapmamızı sağlar. Visual Basic’de koşullu ifadeler kullanırken faydalanacağımız en önemli araçlar If ...Then ve Select Case karar yapılarıdır.
If...Then Karar Yapısı
Bir If...Then karar yapısı programdaki bir koşulu denetlememizi ve çıkan sonuca göre hareket etmemizi sağlar. En basit biçimiyle “If Koşul Then Bildiri” gibi kullanılabilir.
Örnek
Kod:
Dim Sinav1 As Byte
Dim Sinav2 As Byte
Dim Ortalama As Byte
Sinav1 = 80
Sinav1 = 60
Ortalama = ( Sinav1 + Sinav2 ) / 2 ‘Ortalama 70
If Ortalama >= 50 Then
Label1.Caption = “Kazandınız!..”
Else
Label1.Caption = “Kaybettiniz!..”
End If
Yukarıdaki ifadede Ortalama 50 ve üzerinde ise Label1.Caption = “Kazandınız!..” işelemi gerçekleşecek, aksi takdirde Label1.Caption = “Kaybettiniz!..” işlemi gerçekleşecektir.
If...Then karar yapısında birden fazla koşulu kontrol ederken Else If sözdizimini kullanırız.
Örnek
Kod:
Dim Sinav1 As Byte
Dim Sinav2 As Byte
Dim Ortalama As Byte
Ortalama = ( Sinav1 + Sinav2 ) / 2
If Ortalama >= 85 Then
Label1.Caption = “Takdir Aldınız!..”
Else If Ortalama >= 75
Label1.Caption = “Teşekkür Aldınız!..”
Else If Ortalama >= 50
Label1.Caption = “Sınıfınızı Geçtiniz!..”
Else
Label1.Caption = “Sınıfta Kaldınız!..”
End If