[internetadami]

DÖRT İŞLEM
VB altında dört işlem en kolay matematiksel işlemler olup bunun haricinde de sizlere anlatacağımız ya da anlatmamız gereken bir işlev pek bulunmamaktadır.
Aşağıdaki örnek ile sizlere bütün işlevleri anlatıyoruz ;
Dim Sonuç As Double 'Ondalık bir sayı tanımlanıyor..
Dim sayı1 As Integer
Dim sayı2 As Integer ' 2 Tane TamSayı tanımlıyoruz..
sayı1 = 3
sayı2 = 4 ' Şimdi de bu 2 sayıya değer atıyoruz..
' Toplam İşlemi
Sonuç = sayı1 + sayı2 ' Sonuç değeri 7 olarak belirlendi..
' Çıkarma işlemi
Sonuç = sayı2 - sayı1 ' Sonuç değeri 1 olarak belirlendi..
' Çarpma işlemi
Sonuç = sayı2 * sayı1 ' Sonuç değeri 12 olarak belirlendi..
' Bölme işlemi
Sonuç = sayı2 / sayı1 ' Sonuç değeri 1,3333 olarak belirlenir..
Bu arada sizlere bölme işlemi ile bir dipnotu da sunmak isterim.
Yukarıda da görüldüğü gibi çoğu zaman bölme işlemleri tam sayı
olarak geri dönmez. Bu gibi durumlarda "/" yerine "\" karakteri
kullanılarak işlem sonucunun bir tamsayı çıkması sağlanabilir.
' Tam Bölme İşlemi
Sonuç = sayı2 \ sayı1 ' Sonuç değeri 1 olarak belirlenir...
KUVVET ALMA
Matematik işlemlerinde yeri geldiği zaman kullanılması gereken bir işlev de üs ya da kuvvet olarak belirlenebilir.Bu gibi durumalarda ^ işaretini kullanacağız. Bu işareti daha önce kullanmamış olabilirsiniz. Birazdan nasıl kullanmanız gerektiğini öğreneceksiniz.
Dim Kenar As Integer ' Tamsayı
Dim Alan as Double ' Ondalık sayı
Dim Hacim as Double ' Ondalık Sayı
'Şimdi bir karenin alanını hesaplayalım..
Alan = Kenar ^ 2
'Şİmdi de Bir Küpün Hacmini Hesalayalım..
Hacim = Kenar ^ 3
" ^ " İşaretini çıkarmanın sırrını bilmeyenlere de söyleyelim. SHIFT tuşu ile beraber klayvenin 3 Tuşuna basınız. Daha sonra da alacağınız üs ne ise o tuşa basınınız. Örneğin bir sayının 5. dereceden üssünü alacaksanız. Önce SHIFT + 3; daha sonra da 5 tuşuna bastınız mı bu iş hayde hayde olur.

KÖK ALMA
Programlama dillerinde bildiğim kadarıyla sadece tamkare ifadelerin kökleri alınıyor.VB de de bu olay SQR() olarak yer alıyor.
Dim Sonuç As Double
Dim Tamkare As Integer
Tamkare = 36
Sonuç = SQR(36) ' Sonuç = 6 olacaktır.
Bu örneği kendinize göre şekillendirebilirsiniz.Örnek olarak kendinizi denemek için bir Pisagor Fonksiyonu hazırlayabilirsiniz. Bewn de sizlere yardımcı olabilirim.Nasıl mı ? İşte yardım :
Dim Kenar1 As Double
Dim Kenar2 As Double
Dim Hipotenüs As Double ' Hepsi tam sayı olmayabilir..
Kenar1 = 3
Kenar2 = 4
Hipotenüs = SQR( (Kenar1 ^ 2) + (Kenar2 ^ 2) ) ' Hipotenüs=5