Visual Basic’de matematiksel işlemlerimizi yaptırabilmemiz icin aşağıdaki oparatorleri kullanabiliriz.

+ Toplama

- Cıkarma

* Carpma

/ Bolme

\ Tamsayı Bolem

^ Us yani Kuvvet alma

Mod Kalanlı Bolme

& Dizilim Birleştirme

Ornek

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 cı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. Bolme işlemi yapıldı ve sonuc olarak kalanı verdi.

Ornek

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”

Ornek

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 ' Kupun Hacmini hesaplanıyor

Ornek

Karekok hesabı yapmak icin 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 oparatorlerde oncelik sırası vardır. Oncelik sıraları aşağıda verilmiştir.



( ) ‘Parantez icerisindeki ifadeler onceliğe sahiptir

^ ‘Us alma

*/ ‘Carpma ve bolme

\ ‘Tamsayı bolme

Mod ‘Kalanlı Bolme

+ - ‘Toplama ve cıkarma



Ornek

Dim Sayi As Integer

Sayi= 70 + 80 / 2 ‘Sonuc 110

Sayi= ( 70 + 80 ) / 2 ‘Sonuc 75

Karşılaştırma Oparatorleri
Visual Basic’de verileri kontrol etmek karşılaştırmak icin aşağıdaki oparatorler kullanılır. Bu oparatorlerin sonucun doğru cıkması durumda True yani –1, yanlış cıkması durumunda False yani 0 değerini dondururler.

< ‘Kucuktur

‘Buyuktur

>= ‘Buyuk Eşittir

= ‘Eşittir

‘Eşit Değildir

Ornek

Dim Sonuc As Integer

Sonuc = ( 3 < 5 ) ‘Sonuc = -1

Sonuc = ( 7 > 9 ) ‘Sonuc = 0

Sonuc = ( 10 = 50 Then

Label1.Caption = “Kazandınız!..”

Else

Label1.Caption = “Kaybettiniz!..”

End If



Yukarıdaki ifadede Ortalama 50 ve uzerinde ise Label1.Caption = “Kazandınız!..” işelemi gercekleşecek, aksi takdirde Label1.Caption = “Kaybettiniz!..” işlemi gercekleşecektir.



If...Then karar yapısında birden fazla koşulu kontrol ederken Else If sozdizimini kullanırız.



Ornek

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şekkur Aldınız!..”

Else If Ortalama >= 50

Label1.Caption = “Sınıfınızı Gectiniz!..”

Else

Label1.Caption = “Sınıfta Kaldınız!..”

End If
__________________