Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Excel kullanarak İngilizce Türkce sözlük yapmak
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Always on Top

Yazar: Trigger

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10980
Yayın Tar:25.01.2009
Yazar : huseyinkara028
Hit :11035

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Excel kullanarak kendi Ingilizce Turkce sozlugunuzu yapma.
Burada oncelikle projeyi olusturacagimiz dizin altina S1.xls adi altinda bir excel dosyasi kayit ediyoruz ve sheet1 de
A1>ID
B1>term
C1>word type
D1>eng_definition
E1>synonym
F1>antonym
G1>tr_definition
H1>example

olarak ayarliyoruz

Daha sonra vb de bos bir form aciyoruz ve buraya
8 tane textbox
7 adet label '7 tane textbox u labellerin altina koyalim bunlar yukarida yazdigimiz hucre isimlerinin aynisi olacaklar ID haric
5 adet command button
1 adet Data control ekliyoruz.
bundan sonra 1. Text box arama yapacagimiz yer ve yaninada arama icin bir command button koyuyoruz.

Private Sub Text1_Click()
Screen.ActiveControl.SelStart = 0 'burada arama kutucuguna tikladigimizda butun yazilanlari secmek icin, birden cok arama yaparken daha once aradigimiz kelimeyi silemkle ugrasmak istemedigimizden dolayi
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode 'burada kutucugun icindeyken klavyeden enter e basildiginda arama baslatilmasi icin, direct olarak kelimeyi arama textbox u na yazip enter a bastigimda aramanin baslamasi icin.
Case 13
Command1_Click 'buradaki command 1 ara butonu, bu buttonun codunu asagida verdim.
Screen.ActiveControl.SelStart = 0 'burada yeniden enter a bastiktan sonra arama textbox unun birsonraki aramaya hazir lmasi icin icindeki kelimeyi sectiriyorum.
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
Case 27
cmdClose_Click 'buradaki cmdClose klavyeden esc okundugunda program kapatan button,burada basit olarak arama islemi bittiginde programin kapatilmasi icin.
End Select
End Sub

Private Sub Form_Load()
Me.Data1.DatabaseName = App.Path & "\S1.xls" data1 e excel sozlugumuzu ekliyoruz
Me.Data1.RecordsetType = 1
Me.Data1.RecordSource = "Sheet1$"
Data1.RefreshEnd sub

'bu arada data1 >properties>connect bolumunu Excel 8.0 olarak ayarliyoruz.
data1 >properties>recordsource Sheet1$ olarak secilir.
daha sonra arama textbox u disindaki diger textboxlari
properties>DataSource lerini Data1 seciyoruz
properties>DataField lerinide isimlendirdigimiz labele gore seciyoruz, burada labellere hangi datanin ismini verdigimize dikkat etmemiz gerekir.
arama yapma buttonuna gelirsek

Private Sub Command1_Click()
On Error GoTo son 'bazen excel file de haalar cikabilir.
ok = "term='" & Text1.Text & "'" 'burada ingilizce terime gore arattirma yapiyoruz.
If Me.Text1.Text = "" Then 'arama textbox u bossa hata verebilir
GoTo 2
Else
Me.Data1.Recordset.FindFirst ok ''arama textbox unun bos olmadiginda ARA ma yapma
GoTo 1
End If
2:
MsgBox ("Enter a word")
1:
son:
End Sub

Diger buttonlar sirasiyla

Private Sub cmdAdd_Click()
Data1.Recordset.AddNew 'data nesnesinde sonu tiklayip yeni bir alan acilir ve bilgiler yazildiktan sonra bu buttona basolarak kayit tamamlanir
End Sub

Private Sub cmdRefresh_Click()
Data1.Refresh
End Sub

Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub

Bundan sonrasi size kalmis excel file yi isteginize gore degistirip istediginiz kadar sozcuk ekledikten sonra istediginiz Alana gore arama yaptirabilir ve daha sonra o alanla iliskili diger bilgileri rahatlikla gorebilirsiniz. Hatta son arama yaptiginiz kelimeleri bir listbox a atip ve bir note pad e kaydedip onlara daha kolay ulasabilirsiniz. Excel filede bir hucreye rank deyip kelimeyi kac kere arattiginizi kolayca kaydedip en sik kullandiginiz kelimeleri boylece gorebilirsiniz. Yani bundan sonrasi sizing yaraticiliginiza kalmis oluyor.

Not: Bir sonraki yazimda system tray da calisan ve yine yukaridaki excel file yi data base olarak kullanan ve istenilen surede ekrana database den random kelime getiren bir vocabulary memorizer yapimi ile alakali olucak.




Yorumlar, eklemeler ve düşünceler
        ilginçmiş yeni başlayanlar için güzel çalışma

   kurul, 26.01.2009 16:07
   selamlar ben osmanlıca türkçe bir sözlük yapmak istiyorum. Yanlız benim yapmak istediğim sözlükte osmanlıca karakterlirniden görünmesini istiyorum bunun için bana yardım ederseniz sevinirim.

   selim02, 15.02.2011 16:35
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin