29-09-19, 09:29 AM (آخر تعديل لهذه المشاركة : 29-09-19, 09:48 AM {2} بواسطة 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
ما بيكتب اي حرف غيرو
(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, 10:04 AM (آخر تعديل لهذه المشاركة : 29-09-19, 10:36 AM {2} بواسطة AbdoDabak.)
شكرا لك اخي صار الكود
اشكرك كتييير رح احاول اساوي على حرفين اواكثر
وانا في انتظار ردك
اخي baha كيف ممكن اني احط في الكود اشارة "" بدون ما يصير كلام يعني بدي ياهن يطلعوا بالنص
اخي مشي الحال حطيت الكود هاد
TextBox1.Text = "M" & """" & """" & vbCrLf & "A" & """" & """"
اشكرك على المساعدة بس بقي لي شغلة تعداد الاحرف حرفين وثلاثة وبكون المشروع جاهز
(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
ارجو ان يكون هدا ما طلبت
PHP كود :
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
(29-09-19, 10:04 AM)AbdoDabak كتب : شكرا لك اخي صار الكود
اشكرك كتييير رح احاول اساوي على حرفين اواكثر
وانا في انتظار ردك
اخي baha كيف ممكن اني احط في الكود اشارة "" بدون ما يصير كلام يعني بدي ياهن يطلعوا بالنص
اخي مشي الحال حطيت الكود هاد
TextBox1.Text = "M" & """" & """" & vbCrLf & "A" & """" & """"
اشكرك على المساعدة بس بقي لي شغلة تعداد الاحرف حرفين وثلاثة وبكون المشروع جاهز
