Kelime Türetme Programı

3 harf yazıp harflerin yerlerini değiştirerek kelimeler üretebileceğiniz bir program yapalım.

3 harf yazıp harflerin yerlerini değiştirerek kelimeler üretebileceğiniz bir program yapalım.


button1.click

Dim hepsi

        hepsi = TextBox1.Text & TextBox2.Text & TextBox3.Text

        ListBox1.Items.Add(Mid$(hepsi, 1, 1) & Mid$(hepsi, 2, 1) & Mid$(hepsi, 3, 1))

        ListBox1.Items.Add(Mid$(hepsi, 1, 1) & Mid$(hepsi, 3, 1) & Mid$(hepsi, 2, 1))



        ListBox1.Items.Add(Mid$(hepsi, 2, 1) & Mid$(hepsi, 1, 1) & Mid$(hepsi, 3, 1))

        ListBox1.Items.Add(Mid$(hepsi, 2, 1) & Mid$(hepsi, 3, 1) & Mid$(hepsi, 1, 1))



        ListBox1.Items.Add(Mid$(hepsi, 3, 1) & Mid$(hepsi, 1, 1) & Mid$(hepsi, 2, 1))

        ListBox1.Items.Add(Mid$(hepsi, 3, 1) & Mid$(hepsi, 2, 1) & Mid$(hepsi, 1, 1))



listbox1.key up

TextBox2.Focus()

        TextBox2.Text = ""



listbox2.key up

TextBox3.Focus()

        TextBox3.Text = ""





3 textbox , 1 button , 1 listbox

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

network üzerşnden gelen paketleri kontrol edebileceğim yani sadece görsem yeter bu tür bir porgram yapmamda yardımcı olursanız sevinirim...
arkadaşlar bu kodlar çalışmıyor yardım edremisiniz?

Yukarı Git