Proje Ödevi İçin Program Yapmam Gerek Kolay Mantığı Yardım Bekliyorum

Benim bildiğim yapabildiğim alan web tasarım bir program yapmam gerek ve şiştim kaldım program çalışma mantığı oldukça basit.


1= araba
2=çizme
3=laptop
4=akvaryum
5=telefon
6=ekran
7=masa
8=kalem
9=silgi
10=defter


iki alan olacak

1. alana : 8 yazıp göster butonuna basınca

2. alanda Kalem yazacak

bir nevi çağırma olacak 8 i o kutuya çağıracak bunu nasıl yapacağımı anlatırmısınız bu 10 a kadar olmayacak oradaki nesneler 300 e kadar nesne olacak proje ödevim çok lazım lütfen yardım edin

programlama dili visual basic olacak başka ne tür bilgi eksik lütfen bildirin.

Hangi programlama dilinde olacağını bile yazmamışsınız

hocam programlama dili visual basic olacak başka ne tür bilgi eksik vereyim teşekkür ederim uyarı için aklımdan çıkmış...

forla 1 den 300 e kadar döndürüp switch case ile yapıcaksın sanırım. aklıma şuan başka yöntem gelmedi. yapmak istiyormuşsun direk cevabını yazmadım arayarak bulabilirsin.

hocam ne yapmam lazım ilk olacak terimlere yabancıyım visual basic indiriyorum şuan 6 7 ne indireyim ?

300 tane kelimeyi listbox a kopyala yapıştırla ekleyebilirsin ordan karşılaştırma yapmak 300 tane switch case yapmaktan daha mantıklı olur.

bak kardesım bir tane listbox içine ordakı 300 tane nesneyı kopyala ondan sonra o yazdığın yerın adı göster.text dıelım

goster butonun clıck eventinin altına

msbox((ListBox1.Items[convert.toint32(göster.text)+1]).tostring())

En mantıklısı dizi ve dizi indexi, Visual basic 6'da kullanabilirsin.

' 300 Elemanlı bir dizi oluşturduk, sen buraya kelimeleri giriceksin
Dim Kelimeler(300) As String
Kelimeler(1) = kelime1
Kelimeler(2) = kelime2
Kelimeler(3) = kelime3
..
..
Kelimeler(300) = kelime300

' 300 Adet girdikten sonra  2 tane textbox ekliceksin birincialan ve ikinci alan,
' birincialan : sayıyı girdiğin yer
' ikincialan : kelimenin çıktığı yer
' Mantığı da şu 300 elemanlı bir kümen varmış gibi düşün, sen 300 taneden 8.yi, 220.yi veya 11.yi çağırıyorsun yada kaçıncıyı istersen artık.

Private Sub Button1_Click()
      ikincialan.text = Kelimeler(birincialan.text)
End Sub

arkadaş yardım ediyor sağolun (: