' NOT:  Yapılandır menüsünden\ "yapılandır islemlerDLL" kısmından DLL dosyası oluşturulur
' Uygulama Proejesine eklemek için \myProject\Özellikler\References\ Add kısmından  DLL dosyasını buup yükleyin
'yeni projenizde "Import islemlerDLL" şeklinde dahil edin
Public Class Islemler

    Dim Sonuc As Integer
    Function HesapMakinesi(ByVal IslemTuru As String, ByVal Sayi1 As Integer, ByVal Sayi2 As Integer)
        If IslemTuru = "Topla" Then
            Sonuc = Sayi1 + Sayi2
        End If
        If IslemTuru = "Carp" Then
            Sonuc = Sayi1 * Sayi2
        End If
        If IslemTuru = "Bol" Then
            Sonuc = Sayi1 / Sayi2
        End If
        If IslemTuru = "Cikar" Then
            Sonuc = Sayi1 - Sayi2
        End If
        Return Sonuc
    End Function


End Class

Imports islemlerDLL
Public Class Form1
    Public Dll As New islemlerDLL.Islemler
    Public ilksayi As Integer
    Public ikincisayi As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ilksayi = ilksayiTxt.Text.ToString
        ikincisayi = ikincisayitxt.Text.ToString

        Button5.PerformClick()
        ilksayiTxt.Select()

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Label1.Text = ilksayi & "+" & (ikincisayi) & " ="
        TextBox1.Text = (Dll.HesapMakinesi("Topla", ilksayi, ikincisayi))
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Label2.Text = ilksayi & "X" & (ikincisayi) & " ="
        TextBox2.Text = (Dll.HesapMakinesi("Carp", ilksayi, ikincisayi))
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Label3.Text = ilksayi & "/" & (ikincisayi) & " ="
        TextBox3.Text = (Dll.HesapMakinesi("Bol", ilksayi, ikincisayi))
        ' Sayı küsüratlı ise Tam sayı olarak Yuvarlatılır
        Dim sayi1 As Double
        sayi1 = CDbl(TextBox3.Text)
        TextBox3.Text = sayi1
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Label4.Text = ilksayi & "-" & (ikincisayi) & " ="
        TextBox4.Text = (Dll.HesapMakinesi("Cikar", ilksayi, ikincisayi))
    End Sub

    Private Sub ilksayiTxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles ilksayiTxt.TextChanged
        On Error Resume Next
        ilksayi = ilksayiTxt.Text.ToString

    End Sub

    Private Sub ikincisayitxt_TextChanged(sender As System.Object, e As System.EventArgs) Handles ikincisayitxt.TextChanged
        On Error Resume Next
        ikincisayi = ikincisayitxt.Text.ToString
       
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""

        ilksayiTxt.Text = ""
        ikincisayitxt.Text = ""

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        ilksayiTxt.Select()
    End Sub

    Private Sub ilksayiTxt_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ilksayiTxt.KeyDown, ikincisayitxt.KeyDown
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
    End Sub

End Class