for x = "" to ""
textbox1.text = x
next
Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "M", "N", "O" & _
"P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
For i As Integer = 0 To Array.Length - 1
TextBox1.Text = Array(i)
NextFor i As Integer = 65 To 65 + 25
TextBox1.Text = ChrW(i)
Next(29-09-19, 09:24 AM)baha كتب : [ -> ]وعليكم السلام ورحمة الله وبركاتهاشكرك اخي على الرد
يمكنك وضع الحروف في مصفوفة والتعامل مع index المصفوفة كما في الكود التالي:
كود :
Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "M", "N", "O" & _
"P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
For i As Integer = 0 To Array.Length - 1
TextBox1.Text = Array(i)
Next
أو
كود :
For i As Integer = 65 To 65 + 25
TextBox1.Text = ChrW(i)
Next
تمنياتي لك وللجميع التوفيق
(29-09-19, 09:29 AM)AbdoDabak كتب : [ -> ]يعني بدي البرنامج يبدا بكتابة الحرف a لينتهي في الحرف z
ثم يبدا من جديد ب aa .... az
ثم ba ...bz
ثم ca ...az
وهكذا حتى يصل
الى za ...zz
ثم يبدا بثلاثية
ثم رباعية
وهكذا حتى تصبح 10 خانات
وانا محتاجه لاني اعمل على برنامج فك ضغط الملفات المحمية بكلمة سر
بس بدي اكتب لكل عملية شي 7 اسطر ف اذا في كود يكتب لحالو بكون احسن
لانو حسبت شقد بدي عمليات ل 10 خانات بس احرف من a الى z
طلع 141167095653376 عملية ولكل عملية شي 7 اسطر يعني
صار بدي اكتب 988169669573632 سطر وضليت كتبت بين النصف ساعة والساعة لحتى حسنت اكتب 52 عملية
وشغلتها طويلة كتيييييييييييييييييييييييييييييير
فاذا حدا بيقدر يساعدني وبكون من الشاكرين
وانشاء الله اذا نجح معي البرنامج رح احطو في المنتدى ليستفيد منو الجميع
في كتيير برامج عالنت مقفولة بكلمة سر وما لاقيت طريقة اقدر افكها
بس اجتني فكرة وجربتها على 1 حرف و ارقام نجحت
لانو الارقام بحسن اولدها
بس ضل قدامي الاحرف وبكون البرنامج جاهز باذن الله
(29-09-19, 09:24 AM)baha كتب : [ -> ]وعليكم السلام ورحمة الله وبركاتهاشكرك اخي على الرد
يمكنك وضع الحروف في مصفوفة والتعامل مع index المصفوفة كما في الكود التالي:
كود :
Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "M", "N", "O" & _
"P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
For i As Integer = 0 To Array.Length - 1
TextBox1.Text = Array(i)
Next
أو
كود :
For i As Integer = 65 To 65 + 25
TextBox1.Text = ChrW(i)
Next
تمنياتي لك وللجميع التوفيق
بس الكواد ما اشتغلت معي
اولا لانو بولد حرف واحد وانا بدي ياه يكتب الحروف كلها من الحرف الاول للاخير
ثانيا ما عبيكتب غير حرف Z
ما بيكتب اي حرف غيرو
For i As Integer = 65 To 65 + 25
TextBox1.Text + = ChrW(i)
Next(29-09-19, 09:58 AM)baha كتب : [ -> ]ارجو ان يكون هدا ما طلبت(29-09-19, 09:29 AM)AbdoDabak كتب : [ -> ]يعني بدي البرنامج يبدا بكتابة الحرف a لينتهي في الحرف z
ثم يبدا من جديد ب aa .... az
ثم ba ...bz
ثم ca ...az
وهكذا حتى يصل
الى za ...zz
ثم يبدا بثلاثية
ثم رباعية
وهكذا حتى تصبح 10 خانات
وانا محتاجه لاني اعمل على برنامج فك ضغط الملفات المحمية بكلمة سر
بس بدي اكتب لكل عملية شي 7 اسطر ف اذا في كود يكتب لحالو بكون احسن
لانو حسبت شقد بدي عمليات ل 10 خانات بس احرف من a الى z
طلع 141167095653376 عملية ولكل عملية شي 7 اسطر يعني
صار بدي اكتب 988169669573632 سطر وضليت كتبت بين النصف ساعة والساعة لحتى حسنت اكتب 52 عملية
وشغلتها طويلة كتيييييييييييييييييييييييييييييير
فاذا حدا بيقدر يساعدني وبكون من الشاكرين
وانشاء الله اذا نجح معي البرنامج رح احطو في المنتدى ليستفيد منو الجميع
في كتيير برامج عالنت مقفولة بكلمة سر وما لاقيت طريقة اقدر افكها
بس اجتني فكرة وجربتها على 1 حرف و ارقام نجحت
لانو الارقام بحسن اولدها
بس ضل قدامي الاحرف وبكون البرنامج جاهز باذن الله
(29-09-19, 09:24 AM)baha كتب : [ -> ]وعليكم السلام ورحمة الله وبركاتهاشكرك اخي على الرد
يمكنك وضع الحروف في مصفوفة والتعامل مع index المصفوفة كما في الكود التالي:
كود :
Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "M", "N", "O" & _
"P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
For i As Integer = 0 To Array.Length - 1
TextBox1.Text = Array(i)
Next
أو
كود :
For i As Integer = 65 To 65 + 25
TextBox1.Text = ChrW(i)
Next
تمنياتي لك وللجميع التوفيق
بس الكواد ما اشتغلت معي
اولا لانو بولد حرف واحد وانا بدي ياه يكتب الحروف كلها من الحرف الاول للاخير
ثانيا ما عبيكتب غير حرف Z
ما بيكتب اي حرف غيرو
حاليا ليس لدي فكرة عن أكثر من حرف واحد
الألف ميل تبدأ بخطوة,
سأحاول معها وسأوافيك بها إن نجحت باذن الله.
تصحيح الكود الكود السابق لحرف واحد
كود :
For i As Integer = 65 To 65 + 25
TextBox1.Text + = ChrW(i)
Next
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const ALPH_LETR As String = "abcdefghijklmnopqrstuvwxyz"
Dim intIndx As Integer
For intIndx = 1 To Len(ALPH_LETR)
ListBox1.Items.Add((Mid(ALPH_LETR, intIndx, +10)) & Mid(ALPH_LETR, intIndx, 10))
Next intIndx
End Sub
End Class
(29-09-19, 10:04 AM)AbdoDabak كتب : [ -> ]شكرا لك اخي صار الكود
اشكرك كتييير رح احاول اساوي على حرفين اواكثر
وانا في انتظار ردك
اخي baha كيف ممكن اني احط في الكود اشارة "" بدون ما يصير كلام يعني بدي ياهن يطلعوا بالنص
اخي مشي الحال حطيت الكود هاد
TextBox1.Text = "M" & """" & """" & vbCrLf & "A" & """" & """"
اشكرك على المساعدة بس بقي لي شغلة تعداد الاحرف حرفين وثلاثة وبكون المشروع جاهز
MsgBox(Chr(34) & "ABC" & Chr(34))