Vb.Net ile Türkçe-İngilizce Sözlük Programı

 Merhaba arkadaşlar programlama öğrenmek için her zaman yeni örnekler denemelisiniz. Bunun için bugün sizlere Vb.Net ile Türkçe-İngilizce Sözlük Programı örneğini aktaracağız. Veri tabanı bağlantısı nasıl yapılır? İngilizce-Türkçe sözlük nasıl yapılır? Vb.Net ile veri tabanı bağlantılı Türkçe-İngilizce Sözlük Programı nasıl yapılır? Gibi sorularınızın cevabını bu içerikte bulabilirsiniz.


Vb.Net ile Türkçe-İngilizce Sözlük Programı


Programımıza ilk önce veri tabanını hazırlayarak başlıyoruz. Veri tabanını bağlaman önce daha önceden hazırladığımız WindowsFormsApplication adındaki klasörün içindeki bin klasörüne giriyoruz. Sonradan da Debug adlı klasör içine girip MS accesste oluşturduğumuz veritabanı dosyasını yukarıdaki gibi oluşturuyoruz. Sonraki adım olarak projemizi açıyoruz. Toolbox da Data altında bulunan OledbAdapter,OledbConnection,Dataview ve DataGrid kontrollerini ekliyoruz. Bunu basit olarak mause sağ tık Choose İtems olarak da yapabiliriz. Adı geçen kontrolleri böylece daha hızlı eklemiş oluruz. Bir sonraki adım olarak OledbAdapter çift tık yaparak veri tabanı bağlama işlemine başlarız. Gelen pencereye New Connection diyerek devam ediyoruz. 

Yeni gelen pencereden  Data Source  diyin Change butonuna basıyoruz. Gelen ekranda other seçiyor ve ilerliyoruz. OLE DB Provider'ın altında bir liste açılıyor Microsoft Jet 4.0 OLE DB Provider seçiyoruz. Sonra Data Links'e tıklıyoruz ve 1 veritabanını seçiyoruz. Daha önceden oluşturduğumuz dosyayı seçtikten sonra bağlantıyı sına diyerek bağlantının çalışıp çalışmadığını anlıyoruz.Test connection succeeded  iletisi gözükten sonra tamam diyip devam ediyoruz. İlerledikten sonra gelen Query Builder butonuna basarız. Gelecek tablo da veritabanın da oluşturduğumuz tablolar karşımıza gelecektir. Kullanacağımız tabloları seçip ekliyoruz. Execute Query butonunu kullanarak tablolardaki verileri görüntülüyoruz. Ondan sonra tekrardan ToolBox a geliriz. Eklediğimiz  Dataviewe çift tıklarız ve formumuzun altına eklemiş oluruz. Formun altına eklenen oledbAdapte sağ tık yaparak Generate Dataset butonuna tıklarız. Son olarak ise formumuzun altında bulunan dataview i seçip properties penceresinden Table Özelliğine tıklatıp Dataset11'in altında bulunan tablo ve tablolarımızı seçeriz.

Vb.Net ile Türkçe-İngilizce Sözlük Programı

Kullanılması Gerekenler

Vb.Net ile Türkçe-İngilizce Sözlük programı örneğinde kullanılması gerekenler sırası ile şunlardır: 

1 adet Button, 4 adet Label, 1 adet TextBox ve 2 adet RadioButton bu program için kullanılması gerekenlerdir.

Kod Alanı

Programımızın kullanım şekli şu şekildedir:

Programımız çalıştığı an veritabanı bağlantısı sağlanmasını istiyoruz. Textbox'a yazılan kelimenin seçili radio button a göre çevirip ilgili label a aktarıyoruz. 

Bu program veri tabanı ne kadar geliştirilirse o kadar kullanışlı bir program olacaktır. Bu tip programlar veri tabanı bağlantısı öğrenme, daha derin kodlamaya geçme ve kendinizi geliştirecek yeni düşünme sistemi için oldukça elverişlidir.

Sizler isterseniz başka dillere çevirebilir isterseniz daha da genişletebilirsiniz. Bu tip programlar üzerinde birçok değişiklik yapmaktan ASLA çekinmeyin. Bu saye de kendinizi geliştirebilir ve kodlama öğrenebilirsiniz. Deneyin.. Şimdiden iyi denemeler.

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 
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

VB.NET ile ilgili dikkatinizi çekebilecek diğer örnek uygulamalarımız

1. VB.NET de PictureBoxın İçerisine OpenFile İle Resim Eklemek
2. VB.NET de İç İçe Döngü
3. Vb.Net ile Saat Yapma Örneği
4. Vb.Net Ondalıklı Sayı Hesaplama
5. Vb.Net Kdv Hesaplama Programı


0 Yorumlar