Kodlar
Public Class Form1
Dim a, b, c, satis_fiyati As Single 'küsüratlı sayıları göstermesi için
Single olarak tanımlandı
Function hesapla(ByVal a, ByVal b, ByVal c)
satis_fiyati = (a + (a * b / 100)) + (a + (a * b / 100)) * (c / 100)
'Satış fiyatı
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
a = TextBox1.Text 'alış fiyatı
b = TextBox2.Text '% kar oranı
c = TextBox3.Text '% KDV
hesapla(a, b, c) 'Fonksiyon çağrılıyor ve işletiliyor
TextBox4.Text = satis_fiyati
End Sub
End Class
5.3. Hazır Fonksiyon Örnekleri
Visual Basic’de çok kullanılan standart fonksiyonlar vardır. Bu fonksiyonların bir
kısmı alfa-nümerik fonksiyon bir kısmı da nümerik fonksiyonlardır.
5.3.1. Alfa Nümerik Fonksiyonlar (Karakter Dizisi (String))
5.3. 1.1. Len() Fonksiyonu
Bu fonksiyon yardımı ile alfa-nümerik değişkenlerin veya ifadelerin karakter sayısını,
nümerik ifadelerin ise bellekte kapladıkları alan miktarını (byte) öğrenebiliriz.
Örnek:
ders = "Visual Basic"
Uzunluk = Len(ders) 'uzunluk 12 olur.
Uzunluk = Len("Visual Basic") 'uzunluk 12 olur.
47