VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
Uygulama No: 28 – Fonksiyon Kullanımı 1
Açıklama : Fonksiyon kullanılarak dört işlem hesabı.
Ekran Görüntüsü
Açıklamalı Kodlar
Public Class Form1
Function islem(ByVal kod As Char, ByVal s1 As Integer, ByVal s2 As
Integer) As Double
Select Case kod
Case "+" : Return (s1 + s2)
Case "-" : Return (s1 - s2)
Case "*" : Return (s1 * s2)
Case "/" : Return (s1 / s2)
End Select
End Function
Private Sub RadioTopla_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioTopla.CheckedChanged
TxtSonuc.Text = islem("+", CInt(TxtSayi1.Text),
CInt(TxtSayi2.Text))
End Sub
Private Sub RadioCikar_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioCikar.CheckedChanged
TxtSonuc.Text = islem("-", CInt(TxtSayi1.Text),
CInt(TxtSayi2.Text))
End Sub
Private Sub RadioCarp_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioCarp.CheckedChanged
TxtSonuc.Text = islem("*", CInt(TxtSayi1.Text),
CInt(TxtSayi2.Text))
End Sub
Private Sub RadioBol_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioBol.CheckedChanged
TxtSonuc.Text = islem("/", CInt(TxtSayi1.Text),
CInt(TxtSayi2.Text))
End Sub
End Class
Tolga GÜYER Sayfa 44