Bu yazıda okuyacağınız başlıklar;
Vb.Net Prosedür ve Fonksiyonlar
Merhaba arkadaşlar,
Vb.net te 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, geri bildirimsiz 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 ClassFunction
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 inputbox lar aracılığıyla kullanıcıdan da 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,
Vb.Net Prosedür ve Fonksiyonlar Ö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: indir linkine tıklayabilirsiniz.
Vb.Net Prosedür ve Fonksiyonlar ileriki vb.net konularında da sık sık karşımıza çıkacak.
