Kod:
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