IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Aralık 2015, 18:46   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
DLL uygulaması ve Class modul Kod örneği




DLL uygulaması ve Class modul Kod örneği



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Dll Kodları

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
' 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:   Kodu kopyalamak için üzerine çift tıklayın!
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


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
class, dll, kod, modul, uygulaması, ve, örneği


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Search and Replace class ( notepad ki düzen/değiştir işlemi) bul ve değiştir class hAte PHP 0 11 Kasım 2014 05:07
modul kaldırma Geri_geri Unreal IRCd 7 19 Mart 2007 01:00