21-09-20, 04:27 AM
السلام عليكم
لاحظت كثيرا على الفايسبوك لعبة يعطي احدهم 3 احرف ويطلب انتاج كلمات منها
برمجيا
ضع مربع نص 1 textbox1
زر
مربع نص متعدد الاسطر textbox2
الكود
حاولت من اجل كلمات من اكثر من 4
المحاولة ناقصة
----- مجرد ترفيه برمجي --------------
المهم ...... بالتوفيق
لاحظت كثيرا على الفايسبوك لعبة يعطي احدهم 3 احرف ويطلب انتاج كلمات منها
برمجيا
ضع مربع نص 1 textbox1
زر
مربع نص متعدد الاسطر textbox2
الكود
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Retxt = ""
Dim NewTxt = ""
TextBox2.Text = ""
Dim txt = TextBox1.Text
For i = 0 To txt.Length - 1
Retxt = Retxt & txt
Next
Dim ali = ""
Dim strt = 0
Dim Lmax = txt.Length - 1
Do Until strt = Lmax + 1
NewTxt = ""
For p = strt To strt + Lmax
NewTxt = NewTxt & Retxt(p)
Next
ali = ali & NewTxt & vbNewLine
NewTxt = ""
For p = strt + Lmax To strt Step -1
NewTxt = NewTxt & Retxt(p)
Next
ali = ali & NewTxt & vbNewLine
strt += 1
Loop
TextBox2.Text = ali
End Sub
End Class
حاولت من اجل كلمات من اكثر من 4
المحاولة ناقصة
----- مجرد ترفيه برمجي --------------
المهم ...... بالتوفيق
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك