DLL uygulaması ve Class modul Kod örneği

DLL uygulaması ve Class modul Kod örneği       İNDİR

  Dll Kodları

' 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

DLL Uygulama kodları
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