Kaf_Dağı | 09 Aralık 2015 18:46 | DLL uygulaması ve Class modul Kod örneği DLL uygulaması ve Class modul Kod örneği [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Dll Kodları Kod:
' 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ı Kod:
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 |