Selamün Aleyküm Arkadaşlar;
Bu dersimizde
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
Kolay Gelsin.ThT ßy AviRa.
Bu dersimizde
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
Kolay Gelsin.ThT ßy AviRa.
