BoDyGuArD

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
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 45
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
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
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.

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.

( ) ‘Paranaaa içerisindeki ifadeler önceliğe sahiptir
^ ‘Üs alma
*/ ‘Çarpma ve bölme
\ ‘Tamsayı bölme
Mod ‘Kalanlı Bölme
+ - ‘Toplama ve çıkarma

Örnek
Dim Sayi As Integer
Sayi= 70 + 80 / 2 ‘Sonuc 110
Sayi= ( 70 + 80 ) / 2 ‘Sonuc 75
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
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.

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.

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.

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.

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.

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
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
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