VB.NET Fonksiyonlar

Anlatacağım ders matematiksel fonksiyonlar ama size oncelikle fonksiyondan bahsetmek istiyorum. Her hangi bir işlemde size yardımcı olmak amaclı .Net platformunun icersinde bulunan hazır fonksiyonlar var.Bunlar gerek matematiksel gerekse metin veya tarih olsun cok buyuk kolaylıklar sağlayacaktır. Orneğin bugunun tarihi almak istiyorsunuz bunun icin ceşitli kodlar yazarsınız bu kod fazlalıkları olmasın diye .Net'te bunu sağlayacak tek kod parcacığı bulunmakta bakalım şimdi matematiksel fonksiyonlara,

Matematiksel Fonksiyonlar

.Net uygulamalarında matematik fonksiyonlar "Math" Sınıfı olarak tanımlanmıştır.Bu sınıfı kullanarak istediğiniz matematiksel fonksiyonu calıştırabilirsiniz.Anlatacaklarım en cok kullanılan fonksiyonlardır.Şimdi o fonksiyonları tanıyalım.

Abs :

Bu fonksiyon sayesinde istediğiniz bir sayının pozitif değerini dondurebilirsiniz. Fonksiyonda dikkat edilecek olan husus pozitif sayılar icin aynı değeri negatif sayılar icinse sayıyı pozitife cevirerek dondurmesidir.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Abs As Integer Sayi = TextBox1.Text Abs = Math.Abs(Sayi) 'Pozitif Değerini buldu. MessageBox.Show(Abs) End Sub
Ceiling:

Girilen değerin buyuğune yuvarlatılarak geriye dondurmesini sağlar.Orn: "5.3" veya "5.9" olması onemli değildir,ikisini de "6" olarak yuvarlar.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Ceiling As Double Sayi = TextBox1.Text Ceiling = Math.Ceiling(Sayi) 'Buyuğe yuvarlar. MessageBox.Show(Ceiling) End Sub
Floor:

"Ceiling" Fonksiyonun tersi olarakta duşunulebilir."Floor" fonksiyonu da kucuk tam sayıya yuvarlar.Orn: Girilen değer "5.1" veya "5.8" olması onemli değil geriye dondurulen değer "5" olucaktır.Negatif sayılarda da durum aynıdır."-5.1" yuvarlandığında "6" olucaktır.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Floor As Double Sayi = TextBox1.Text Floor = Math.Floor(Sayi) 'Kucuğe yuvarlar. MessageBox.Show(Floor) End Sub
IEEERemainder:

Parametre olarak girilen reel sayının ondalıklı kısmını veya tam sayı olabilmesi icin gerekli olan ondalıklı sayıyı dondurur.Hangisini dondureceği İkinci olarak belirtilen sayı ile belirlenir.Orn:"3,22345" sayısının tam sayı olabilmesi icin gerekli sayıyı bulur buda "-0,77655" toplayınca "4" olucaktır.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, IEEERemainder As Double Sayi = TextBox1.Text IEEERemainder = Math.IEEERemainder(Sayi, 2) MessageBox.Show(IEEERemainder) End Sub
Log:

Girilen double turundeki değerin ikinci olarak verilen tabana gore logaritmasını alır.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Log As Double Sayi = TextBox1.Text Log = Math.Log(Sayi, 10) MessageBox.Show(Log) End Sub

Log10:

Girilen değerin 10 tabanına gore logaritmasını alır.Bu fonksiyonda 10 tabanının dışında başka tabanlar kullanılamaz.Oyle durumlarda Log fonksiyonunu kullanmak gerekir.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Log10 As Double Sayi = TextBox1.Text Log10 = Math.Log10(Sayi) MessageBox.Show(Log10) End Sub
Max:

Girilen değerlerin buyuk olanını verir.

Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi1, Sayi2, Sonuc As Double Sayi1 = TextBox1.Text Sayi2 = textbox2.text Sonuc = Math.Max(Sayi1, Sayi2) MessageBox.Show(Sonuc) End Sub

Min:

Max Fonksiyonunun tersidir kucuk olan sayıyı verir.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi1, Sayi2, Sonuc As Double Sayi1 = TextBox1.Text Sayi2 = textbox2.text Sonuc = Math.Min(Sayi1, Sayi2) MessageBox.Show(Sonuc) End Sub

PI:

Matematikte kullandığımız pi sayısıdır.Bu diğer fonksiyonlardan değildir, parametresi yoktur.değeri "3,14159265358979" yaklaşık olarak "22/7"dir.Aşağıdaki ornekte dairenin alanını hesapladım istenirse pi sayısını tek başınada kullanabilirsiniz.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DA, YarıC As Double YarıC = TextBox2.Text DA = Math.PI * YarıC * YarıC MessageBox.Show(DA) End Sub

E:

Matematikteki e sayısını ifade eder.Pi sayısı gibi parametresi yoktur değeri"2,711828182845905"dir.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sonuc As Double Sonuc = 10 * Math.E MessageBox.Show(Sonuc) End Sub

Pow:

Uslu sayılar icin kullanılan fonksiyondur.iki parametresi var birinci parametresi ussu alınıcak sayı ikinci parametre ise kuvvetidir.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DA, YarıC As Double YarıC = TextBox2.Text DA = Math.PI * Math.Pow(YarıC, 2) MessageBox.Show(DA) End Sub

Round:

Ondalık sayıların hassasiyetini ayarlayabileceğiniz bir fonkiyondur.ilk parametresi tam sayı kısmı ikinci parametresi ise ondalıklı kısmından gosterilecek rakam sayısıdır.ondalık kısmından kalan kısım yuvarlatılır.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Sonuc As Double Sayi = TextBox1.Text 'Ondalıklı sayı (3.4578) Sonuc = Math.Round(Sayi, 2) MessageBox.Show(Sonuc) 'Gorunecek sayı (3.46) End Sub

Sing:

Girilen sayının pozitif,negatif ve sıfır olup olmadığını belirleyen fonsiyondur.Pozitif ise ("1"),Negatif ise ("-1") ve Sıfır ise ("0") değerini verir.



Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Sayi, Sing As Double Sayi = TextBox1.Text '-6 olarak girilirse Sing = Math.Sign(Sayi) MessageBox.Show(Sing) '-1 değerini verir End Sub
Sqrt:

Bu fonksiyon girilen sayının karekokunu dondurur.Girilen sayının reel veya tam sayı olması onemli değil.Bu fonksiyonu anlamanız icin dik ucgenin hipotenusunu bulalım.


Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DK, H, Hipotenus As Double DK = TextBox1.Text 'Dik Kenar H = TextBox2.Text 'Yukseklik Hipotenus = Math.Sqrt(Math.Pow(DK, 2) + Math.Pow(H, 2)) MessageBox.Show(Hipotenus) End Sub
[Kaynak:Visual Basic.NET 2005 17. Sayı]
__________________