PC World Türkiye Online - Görsel Programlama

VB ile fonksiyon kullanımı

VB ile altyordam (SUB) kullanımını API fonksiyonlarını işlerken sıkça değinmişizdir. VB’de fonksiyon kullanımı da bundan pek değişik sayılmaz, daha önce QBasic ile haşır neşir olanlar ise bunu kullanmayı zaten biliyorlar.

Biz örneğimizde iki sayının hipotenüsünü alan basit bir fonksiyon hazırladık. Fonksiyonu yaratmak için General kısmına gidin ve aşağıdaki üç satırı yazıp Enter’a basın. General - Declarations bölümünün hemen altında fonksiyonunuz belirecektir.

Function Hipotenus(A, B)
Hipotenus = Sqr(A ^ 2 + B ^ 2)
End Function

Yukarıdaki gibi bir form hazırladıktan sonra artık fonksiyonunuzu deneyebilirsiniz. Her "hipotenüsü al" tuşuna basıldığında metin kutularındaki sayılar değerlendirilecek ve etiket kutusuna yazılacaktır.

Private Sub Command1_Click()
Label1.Caption = Hipotenus(CInt(Text1.Text), CInt(Text2.Text))
End Sub