Vb.Net Prosedür ve Fonksiyonlar

Vb.Net Prosedür ve Fonksiyonlar

Merhaba arkadaşlar,

Vb.nette kullandığımız iki alt program yapısı mevcut, prosedürler ve fonksiyonlar.

Prosedürler ve fonksiyonlar kodları sadeleştirmek, basitleştirmek ve kod yazarken kolaylık sağlamak amacıyla kullanılırlar. Örneğin, matematiksel işlemleri çok fazla kullanacağım bir program hazırlarken, program içerisinde 8 – 10 farklı yerde ayrı ayrı toplam = x + y +z gibi işlemler yapmaktansa, toplama işlemini bir fonksiyona aktaracağım ve gerektiğinde bunu kullanacağım. Yada bir çok yerde göstermek istediğim bir mesajı bir defaya mahsus bir prosedüre aktarıp gerektiği yerde kolayca çağıracağım gibi..

Sub

Standart, geribildirimsiz prosedür (alt program) tipi.

Public Class Form1
Sub MsjGoster()
MessageBox.Show("Mesaj Göster İsimli prosedür")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MsjGoster()
End Sub
End Class

Function

Sub aksine, içerisinde barındırdığı kodların sonucunu döndürebilen alt yordam tipi. Dönen değeri bir değişkene atayabilir ve kullanabiliriz.

Public Class Form1
Function Toplama(ByVal s1, ByVal s2) As Long
Dim T As Long
T = s1 + s2
Return T
End Function
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim donendeger As Long
donendeger = Toplama(10, 5)
MsgBox(donendeger)
End Sub
End Class

Buradaki değerleri textbox veya inputboxlar aracılığıyla kullanıcıdanda alabiliriz.

Bizim fonksiyon hazırlayabildiğimiz gibi vb.net içerisinde de metni büyük harfe çevirmek, küçük harfe çevirmek, belli sıradaki belli aralıktaki karakterlerini almak vs. gibi işler yapan hazır fonksiyonlar mevcut,

Örnek

içerisinde LCase, UCase, GetChar ve Trim hazır fonksiyonları gerekli açıklamalarıyla birlikte mevcut, inceledikten sonra anlamadığınız veya eklemek istediğiniz kısımları konu altından belirtebilirsiniz.

Formumuzda 4 adet buton ve bir adet textbox mevcut, kodlar;

 

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Trim()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = UCase(TextBox1.Text)
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = LCase(TextBox1.Text)
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
TextBox1.Text = GetChar(TextBox1.Text, 5)
End Sub
End Class

Vb.Net örnek uygulamayı açıklamalı kodlarıyla birlikte indirmek için: WindowsApplication12 linkine tıklayabilirsiniz.

Yorum yapın