Reklamsız Forum İçin Tıklayınız. * FrmTR Sohbet Kontrol Panelinizde. * FrmTR'nin resim sitesi Resimci.Org yayında
Forum TR
Go Back   Forum TR > > >
FrmTR'ye Reklam Vermek İçin: [email protected]
Cevapla
 
Konu Araçları
Eski 21-01-11, 20:29   #1
zokora3128

Varsayılan Visual Basic Sözlük Yapımı[%100]Çalışıyor


Sözlük Yapmak İsteyen Arkadaşlar İçin İdeal Bir Kod.

Kod:
İlk önce 3 adet form oluşturulur.Daha sonra form1e aşağıdakiler eklenir:



Form1e eklenir:

   2 adet commandbutton eklenir.

Sonra aşağıdaki kodlar yazılır:



Private Sub Command1_Click()

Form1.Visible = False

Form2.Visible = True

End Sub





Private Sub Command2_Click()

Form1.Visible = False

Form3.Visible = True

End Sub



Form2ye eklenir:

   28 adet picturebox,1 adet list box,1 adet text,2 adet label eklenir.

Sonra aşağıdaki kodlar yazılır:

Private Sub Form_Load()

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

End Sub



Private Sub List1_Click()

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

End Sub





Form3e eklenir:

    28 adet picturebox,1 adet list box,1 adet text,2 adet label eklenir.



Sonra aşağıdaki kodlar yazılır:

Private Sub Form_Load()

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"

End Sub



Private Sub List1_Click()

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

End Sub
  Alıntı Yaparak Cevapla
Eski 31-01-11, 23:50   #2
cemilozkannn

Varsayılan C: Visual Basic Sözlük Yapımı[%100]Çalışıyor


bune ya sözlük böyle yapılması imkansız gibi accessten yapılır benim bildiğim
  Alıntı Yaparak Cevapla
Eski 01-02-11, 00:05   #3
Mucahid18

Varsayılan C: Visual Basic Sözlük Yapımı[%100]Çalışıyor


Alıntı:
Gerçek Mesajı Gönderen cemilozkannn Mesajı Göster
bune ya sözlük böyle yapılması imkansız gibi accessten yapılır benim bildiğim

Yapılır niye yapılmasın ama Kelime darcığı bakımından kısıtlı olur. Kısıtlı olmasıda sana kalmıs al bi sözlüğü a dan z ye kadar yaz ama kaç ayını alır allah bilir.. Bu arada eline sağlık Uğraşmısın o kadar uzun iştir sözlük yapmak
  Alıntı Yaparak Cevapla
Eski 01-02-11, 00:45   #4
qL' FaCToR

Varsayılan C: Visual Basic Sözlük Yapımı[%100]Çalışıyor


birader kodları vermişsinde o kodlardaki resimleri nsl açıcak biz yazınca?
  Alıntı Yaparak Cevapla
Eski 01-02-11, 09:15   #5
zokora3128

Varsayılan C: Visual Basic Sözlük Yapımı[%100]Çalışıyor

Access gerekli birşey değil list kodlarıyla doya doya yaparsınız
  Alıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası


Reklamı Kapat

Reklamı Kapat