Visual Basic Dersleri - İngilizce Türkçe Sözlük Yapma

İngilizce Türkçe Sözlük Yapma

Bu Ders Hakkında Sorularınız Varsa Lütfen Buraya Tıklayarak Forum Sayfamızda Bu Konunun Başlığı Hakkında Sorunlarınızı Yazınız.

Merhaba arkadaşlar. Bu dersimizde VB Programında sözlük yapmayı öğrencez.
Kodlar %1oo doğrudur arkadaşlar. Sizin için elimden geldiği kadar ayrıntılı anlatmaya çalıştım arkadaşlar. Çalışmaması imkanı yoktur. Eğer gene yapamazsanız Forum sayfamızda bu sayfa ile ilgili sayfaya gelip sorunlarınızı veya görüşlerinizi dile getirebilirsiniz. Forum sayfasına gitmek için bu yazıların üstünde turuncu renkli yazıya tıklamanız yeterli.

Aşağıda anllattığım
İlk önce 3 adet Form oluşturalım arkadaşlar.

Daha sonra Form 1'e 2 adet "commandbutton" ekleyin.
Ve 1. commandbutton butonuna aşağıdaki kodları yazın.

Form1.Visible = False Form2.Visible = True

Daha sonra 2. command butonada aşağıdaki kodları ekleyin.

Form1.Visible = False
Form3.Visible = True

Daha sonra Form 2'ye geçin arkadaşlar.
Bu 2. Form Türkçe-İngilizce şeklindedir arkadaşlar. 3. form ise İngilizce-Türkçe şeklinde olcak arkadaşlar.
2. Forma 28 adet picturebox, 1 adet list box, 1 adet text, 2 adet label ekleyin.
Sonra 2. Formda biş bir alana tıklayıp form kodu yerine aşağıdaki kodları yazınız.

List1.AddItem "Elma"

List1.AddItem "Köpek"

List1.AddItem "Nisan"

List1.AddItem "Ağustos"

List1.AddItem "Kitap"

List1.AddItem "Fil"

List1.AddItem "Ekmek"

List1.AddItem "Balık"

List1.AddItem "Yılan"

List1.AddItem "Şişe"

List1.AddItem "Kutu"

List1.AddItem "Araba"

List1.AddItem "Bilgisayar"

List1.AddItem "Kapı"

List1.AddItem "Fare"

List1.AddItem "Gece"

List1.AddItem "Top"

List1.AddItem "Yaşlı"

List1.AddItem "Kurşun Kalem"

List1.AddItem "Ev"

List1.AddItem "Görmek"

List1.AddItem "Yüzmek"

List1.AddItem "Zürafa"

List1.AddItem "Zaman"

List1.AddItem "Genç"

List1.AddItem "Güzel"

List1.AddItem "Ayı"

List1.AddItem "Ağaç"

Daha sonra ListBox kutusuna aşağıdaki kodlar yazılcak arkadaşlar.
Ama burda dikkat edilmesi gereken önemli bir yer var arkadaşlar. Bu yapcağımız İngilizce-Türkçe sözlük programı biraz gelişmiş şeklinde. Yani örneğin bir program kullanan üyeniz programda örneğin Ağaç sözcüğünü aramak istediğinde ağaç cümlesinin ingilizcesi + sizin belirlediğiniz ağaç resmi çıkcak. Yani burdan şunu anlatmak istiyorumki yazcağınız her cümle için o cümleye uygun bir resim seçip kodları yazarken, orda resim url'si ola yere (.jpg, .bmp, .gif vs. gibi biten url'ler resim URL'si.) yüklemek istediğiniz resim URL'sini yazınız. Ama sizin zevkinize kalmış arkadaşlar isterseniz resim eklemezsiniz resimli olan kod yerlerini kaldırabilirsiniz. Size kalmış.

Select Case List1.ListIndex

Case 0

Text1.Text = "Apple"

Picture1.Visible = True

Picture1.Picture = LoadPicture("elma.jpg")

Case 1

Text1.Text = "Dog"

Picture2.Visible = True

Picture2.Picture = LoadPicture("köpek.jpg")

Case 2

Text1.Text = "April"

Picture3.Visible = True

Picture3.Picture = LoadPicture("nisan.jpg")

Case 3

Text1.Text = "August"

Picture4.Visible = True

Picture4.Picture = LoadPicture("ağustos.jpg")

Case 4

Text1.Text = "Book"

Picture5.Visible = True

Picture5.Picture = LoadPicture("kitap.jpg")

Case 5

Text1.Text = "Elephant"

Picture6.Visible = True

Picture6.Picture = LoadPicture("fil.jpg")

Case 6

Text1.Text = "Bread"

Picture7.Visible = True

Picture7.Picture = LoadPicture("ekmek.jpg")

Case 7

Text1.Text = "Fish"

Picture8.Visible = True

Picture8.Picture = LoadPicture("balık.jpg")

Case 8

Text1.Text = "Snake"

Picture9.Visible = True

Picture9.Picture = LoadPicture("yılan.jpg")

Case 9

Text1.Text = "Bottle"

Picture10.Visible = True

Picture10.Picture = LoadPicture("şişe.jpg")

Case 10

Text1.Text = "Box"

Picture11.Visible = True

Picture11.Picture = LoadPicture("kutu.jpg")

Case 11

Text1.Text = "Car"

Picture12.Visible = True

Picture12.Picture = LoadPicture("araba.jpg")

Case 12

Text1.Text = "Computer"

Picture13.Visible = True

Picture13.Picture = LoadPicture("bilgisayar.jpg")

Case 13

Text1.Text = "Door"

Picture14.Visible = True

Picture14.Picture = LoadPicture("kapı.jpg")

Case 14

Text1.Text = "Mouse"

Picture15.Visible = True

Picture15.Picture = LoadPicture("fare.jpg")

Case 15

Text1.Text = "Night"

Picture16.Visible = True

Picture16.Picture = LoadPicture("gece.jpg")

Case 16

Text1.Text = "Ball"

Picture17.Visible = True

Picture17.Picture = LoadPicture("top.jpg")

Case 17

Text1.Text = "Old"

Picture18.Visible = True

Picture18.Picture = LoadPicture("yaşlı kadın.jpg")

Case 18

Text1.Text = "Pencil"

Picture19.Visible = True

Picture19.Picture = LoadPicture("kalem.jpg")

Case 19

Text1.Text = "See"

Picture20.Visible = True

Picture20.Picture = LoadPicture("görmek.jpg")

Case 20

Text1.Text = "Swim"

Picture21.Visible = True

Picture21.Picture = LoadPicture("yüzmek.jpg")

Case 21

Text1.Text = "Giraffe"

Picture22.Visible = True

Picture22.Picture = LoadPicture("zürafa.jpg")

Case 22

Text1.Text = "Time"

Picture23.Visible = True

Picture23.Picture = LoadPicture("zaman.jpg")

Case 24

Text1.Text = "Young"

Picture25.Visible = True

Picture25.Picture = LoadPicture("çocuk.jpg")

Case 25

Text1.Text = "Beautiful"

Picture26.Visible = True

Picture26.Picture = LoadPicture("güzel kadın.jpg")

Case 26

Text1.Text = "Bear"

Picture27.Visible = True

Picture27.Picture = LoadPicture("ayı.jpg")

Case 27

Text1.Text = "Tree"

Picture28.Visible = True

Picture28.Picture = LoadPicture("ağaç.jpg")

End Select

Şimdide Form 3'e geçiyoruz.
Burda ise İngilizce-Türkçe şeklindedir.

Form 3'e ise 28 adet picturebox, 1 adet list box, 1 adet text, 2 adet label araçlarını ekliyoruz. Ve gene formumuzda boş bir alana mouse ile çift tıklayarak Forum kod yazma yerine aşağıdaki kodları yazınız.

List1.AddItem "Apple"

List1.AddItem "Dog"

List1.AddItem "April"

List1.AddItem "August"

List1.AddItem "Book"

List1.AddItem "Elephant"

List1.AddItem "Bread"

List1.AddItem "Fish"

List1.AddItem "Snake"

List1.AddItem "Bottle"

List1.AddItem "Box"

List1.AddItem "Car"

List1.AddItem "Computer"

List1.AddItem "Door"

List1.AddItem "Mouse"

List1.AddItem "Night"

List1.AddItem "Ball"

List1.AddItem "Old"

List1.AddItem "Pencil"

List1.AddItem "House"

List1.AddItem "See"

List1.AddItem "Swim"

List1.AddItem "Giraffe"

List1.AddItem "Time"

List1.AddItem "Young"

List1.AddItem "Beautiful"

List1.AddItem "Bear"

List1.AddItem "Tree"

Son olarakta ListBox kutusuna aşağıdaki kodları yazıyoruz ve bitiyor arkadaşlar.

Select Case List1.ListIndex

Case 0

Text1.Text = "Elma"

Picture1.Visible = True

Picture1.Picture = LoadPicture("elma")

Case 1

Text1.Text = "Köpek"

Picture2.Visible = True

Picture2.Picture = LoadPicture("köpek")

Case 2

Text1.Text = "Nisan"

Picture3.Visible = True

Picture3.Picture = LoadPicture("nisan")

Case 3

Text1.Text = "Ağustos"

Picture4.Visible = True

Picture4.Picture = LoadPicture("ağustos")

Case 4

Text1.Text = "Kitap"

Picture5.Visible = True

Picture5.Picture = LoadPicture("kitap")

Case 5

Text1.Text = "Fil"

Picture6.Visible = True

Picture6.Picture = LoadPicture("fil")

Case 6

Text1.Text = "Ekmek"

Picture7.Visible = True

Picture7.Picture = LoadPicture("ekmek")

Case 7

Text1.Text = "Balık"

Picture8.Visible = True

Picture9.Picture = LoadPicture("balık")

Case 8

Text1.Text = "Yılan"

Picture9.Visible = True

Picture9.Picture = LoadPicture("yılan")

Case 9

Text1.Text = "Şişe"

Picture10.Visible = True

Picture10.Picture = LoadPicture("şişe")

Case 10

Text1.Text = "Kutu"

Picture11.Visible = True

Picture11.Picture = LoadPicture("kutu")

Case 11

Text1.Text = "Araba"

Picture12.Visible = True

Case 12

Text1.Text = "Bilgisayar"

Picture13.Visible = True

Picture13.Picture = LoadPicture("bilgisayar")

Case 13

Text1.Text = "Kapı"

Picture14.Visible = True

Picture14.Picture = LoadPicture("kapı")

Case 14

Text1.Text = "Fare"

Picture15.Visible = True

Picture15.Picture = LoadPicture("fare")

Case 15

Text1.Text = "Gece"

Picture16.Visible = True

Picture16.Picture = LoadPicture("gece")

Case 16

Text1.Text = "Top"

Picture17.Visible = True

Picture17.Picture = LoadPicture("top.jpg")

Case 17

Text1.Text = "Yaşlı"

Picture18.Visible = True

Picture18.Picture = LoadPicture("yaşlı")

Case 18

Text1.Text = "Kurşen Kalem"

Picture19.Visible = True

Picture19.Picture = LoadPicture("kalem")

Case 19

Text1.Text = "Görmek"

Picture20.Visible = True

Picture20.Picture = LoadPicture("görmek")

Case 20

Text1.Text = "Yüzmek"

Picture21.Visible = True

Picture21.Picture = LoadPicture("yüzmek")

Case 21

Text1.Text = "Zürafa"

Picture22.Visible = True

Picture22.Picture = LoadPicture("zürafa")

Case 22

Text1.Text = "Zaman"

Picture23.Visible = True

Picture23.Picture = LoadPicture("saat_2.jpg")

Case 24

Text1.Text = "Genç"

Picture25.Visible = True

Picture25.Picture = LoadPicture("çocuk")

Case 25

Text1.Text = "Güzel"

Picture26.Visible = True

Picture26.Picture = LoadPicture("güzel bayan")

Case 26

Text1.Text = "Ayı"

Picture27.Visible = True

Picture27.Picture = LoadPicture("ayı")

Case 27

Text1.Text = "Ağaç"

Picture28.Visible = True

Picture28.Picture = LoadPicture("ağaç")

End Select

İşte bu kadar arkadaşlar. Sizin için o kadar ayrıntılı anlatmaya çalıştım ve kodlar %1oo doğrudur. Çalışmama imkani sıfırdır. Eğer dediğim gibi, doğru yaptıysanız %1oo çalışır arkadaşlar. Yapamadıysanız eğer bu konunun forum alanına gidip sorunlarınızı veya görüşlerinizi yazınız. Bu derse ait Forum alanına gitmek için buraya tıklayın.