Türkçe-İngilizce ve İngilizce-Türkçe Sözlük VB.NET

ÖNEMLİ NOT: Ben Access veritabanıma yukarıdaki kelimeleri ekledim.Siz daha ayrıntılı veritabanı oluşturabilirsin.

======= Veritabanı Bağlama ========

Veritabanı Bağlamak için Öncelikle projemizin kayıtlı bulunduğu dosya içinde WindowsFormsApplication adındaki klasörün içindeki bin klasörüne girip oradanda Debug Adlı klasör içine girip MS accesste oluşturduğumuz veritabanı dosyasını oluşturuyoruz..Bu işlemi yaptıktan sonra projemizi açıp toolboxda Data altında bulunan kontrollere OledbAdapter,OledbConnection,Dataview ve DataGrid kontrollerini eklememiz gerekir.. Bunun için toolboxda Data üzerine sağ tuş Choose İtems a tıklarayarak Adı geçen kontrolleri gelen pencerede seçerek toolbox a ekleriz.. Ardından OledbAdapter Kontrolüne çift tıklayarak Veritabanını bağlama işlemine başlayacağız..OledbAdapter e tıkladıktan sonra gelen pencereden New Connection diyoruz.. Gelen pencerede Data Source karşısındaki Change Butonuna basarak gelen pencereden other Seçilip OK butona basarız..Bu İşlemi yaptıktan sonra OLE DB Provider ın Altında bulunan açılır liste kutusundan Microsoft Jet 4.0 OLE DB Provider Seçildikten sonra Data Links Butonuna tıklarız.1.Veritabanı adını seçiniz veya girin karşısında … Butonuna basarak daha önce oluşturduğumuz access veritabanı dosyasını seçeriz..Bu işlemi yaptıktan sonra Bağlantıyı sına Butonuna basarak Bağlantımızın düzgün olup olmadığını kontrol ederiz..Sınama başarılı oldu mesajı alındıktan sonra Tamam Butonuna basarız.. Ekranda kalan penceremizde Test Connection Butona basarak YineBağlantımızın doğru olup olmadığını kontrol ederiz.. Test connection succeeded mesajını aldıktan sonra OK butonuna basarız..Ekranda kalan pencereden NExt Diyerek devam ederiz.. Next butonuna bastıktan sonra Bir mesaj gelecektir bu mesaja evet diyerek geçeriz.Yine next butonuna basarak devam ederiz. Next dedikten sonra gelen pencerede Query Builder butonuna basarız..Gelen pencerede accesste oluşturduğumuz tablo(lar) görüntülenecektir..Burada Kullanacağımız tablo(lar) seçip add butonana basarız.. Add butonuna basıp tablomuzu ekledikten sonra close butonuna basarak pencereyi kapatırız.. Ekrandaki pencerede tablodaki tüm alanların gözükmesini istiyorsak All Columns seçeneğine tıklayarak Execute Query butununa basarak Oluşturduğumuz tablodaki verileri ve alanları görüntüleriz.. Bu işlemi yaptıktan sonra OK butonuna basarak Ekranda bulunan pencereden Next butonuna basarız .. Ardından Gelen pencereden Finish Butonuna basarız ve pencere kapanır..Ardından toolboxda bulunan Data ya eklediğimiz kontrollerden Dataviewe çift tıklayarak Formumuzun altına ekleriz..Bu işlemden sonra formumuzun altında bulunan oledbAdapter Üzerine gelip sağ tuş Generate Dataset e tıklarız gelen pencerede OK butonuna basarız..Bu işlemi yaptıktan sonra formumuzun altına eklediğimiz dataview i seçip properties penceresinden Table Özelliğine tıklatıp Dataset11 altında bulunan tablomuzu seçeriz.

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet11, "kelimeler")
Me.AcceptButton = btnBul ' Enter tuşuna basıldığı anda buton bir çalışsın
End Sub

Private Sub btnBul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBul.Click
Dim ara As String
Dim kayitci As Integer
TextBox1.Focus() 'imleç textbox1'e konumlansın
If RadioButton1.Checked = True Then 'Radiobuton1 seçili ise
ara = TextBox1.Text 'textbox1'e yazılanı ara değikenine ata
DataView1.Sort = "kelime" 'dataviewdeki kayıtları kelime alanına göre sırala
kayitci = DataView1.Find(ara) ' ara değiişkenindeki kelimeyi dataview'de ara ve kayıt nosunu kayitci değişkenine ata
Dim akayit As DataRowView
If (kayitci <> -1) Then 'kayitci değişkeni -1 den farklıysa yani veritabanında varsa
akayit = DataView1(kayitci) 'akayit içine datavievdeki kayıtci satırını ata
Label4.Text = akayit("kelime").ToString() 'label4'e kelime alanındaki kaydı yaz
Label5.Text = akayit("anlami").ToString() 'label5'e kelime alanındaki kaydı yaz
Else
MessageBox.Show("Kayıt bulunamadı ... ") 'değilse ekrana bulunamadı mesajını göster
End If
End If
If RadioButton2.Checked = True Then 'üstte yazılan açıklamalar aşağıdakiler için aynıdır

Label2.Text = "İngilizce Kelime"
Label3.Text = "Türkçe Anlamı"
ara = TextBox1.Text
DataView1.Sort = "anlami"
kayitci = DataView1.Find(ara)
Dim akayit As DataRowView
If (kayitci <> -1) Then
akayit = DataView1(kayitci)
Label4.Text = akayit("anlami").ToString()
Label5.Text = akayit("kelime").ToString()
Else
MessageBox.Show("Kayıt bulunamadı ... ")
End If
End If
End Sub
End Class

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.