Articles by "sözlük"
sözlük etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
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.