+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : For ...next (/showthread.php?tid=31551)
الصفحات:
1
2
For ...next - AbdoDabak - 29-09-19
السلام عليكم
هل يمكن استخدام الكود هذا لتوليد احرف من a الى z
PHP كود :
for x = "" to ""
textbox1.text = x
next
اذا الجواب كان لا ما هي الطريقة لوضع الحرف من a الى z
في تيكست والبدء من الحرف a واجراء امر ثم المتابعة للحرف الثاني
وهكذا حتى يصل الى z
ثم يتوقف
RE: For ...next - baha - 29-09-19
وعليكم السلام ورحمة الله وبركاته
يمكنك وضع الحروف في مصفوفة والتعامل مع 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تمنياتي لك وللجميع التوفيق
RE: For ...next - AbdoDabak - 29-09-19
يعني بدي البرنامج يبدا بكتابة الحرف 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
ما بيكتب اي حرف غيرو
RE: For ...next - baha - 29-09-19
(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)
NextRE: For ...next - AbdoDabak - 29-09-19
شكرا لك اخي صار الكود
اشكرك كتييير رح احاول اساوي على حرفين اواكثر
وانا في انتظار ردك
اخي baha كيف ممكن اني احط في الكود اشارة "" بدون ما يصير كلام يعني بدي ياهن يطلعوا بالنص
اخي مشي الحال حطيت الكود هاد
TextBox1.Text = "M" & """" & """" & vbCrLf & "A" & """" & """"
اشكرك على المساعدة بس بقي لي شغلة تعداد الاحرف حرفين وثلاثة وبكون المشروع جاهز
RE: For ...next - fouadhdfouad - 29-09-19
(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
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
End Sub
End Class
RE: For ...next - AbdoDabak - 29-09-19
السلام عليكم هاد البرنامج
لفك ضغط الملفات المحمية بكلمة سر
حاليا بس بفك كلمات السر بحرف واحد
رح احاول اساوي ل عشر خانات
حدا يجربوا ويلي رأيو اشو لازمو للبرنامج
RE: For ...next - baha - 29-09-19
(29-09-19, 10:04 AM)AbdoDabak كتب : شكرا لك اخي صار الكود
اشكرك كتييير رح احاول اساوي على حرفين اواكثر
وانا في انتظار ردك
اخي baha كيف ممكن اني احط في الكود اشارة "" بدون ما يصير كلام يعني بدي ياهن يطلعوا بالنص
اخي مشي الحال حطيت الكود هاد
TextBox1.Text = "M" & """" & """" & vbCrLf & "A" & """" & """"
اشكرك على المساعدة بس بقي لي شغلة تعداد الاحرف حرفين وثلاثة وبكون المشروع جاهز
يمكنك وضع
Chr(34)
كجزء من الكود
كود :
MsgBox(Chr(34) & "ABC" & Chr(34))تمنياتي لك بالتوفيق
RE: For ...next - AbdoDabak - 29-09-19
اخي ممكن انك تحمل البرنامج وتقلي اذا بصير ولا لا
مشان ما اشتغل فيه عالفاضي
RE: For ...next - AbdoDabak - 30-09-19
عندي نص فيه 9000 سطر و
محتاج كود لتصغير الاحرف الكبيرة في التيكست بصير ولا ما بصير
وكود ثان لازالة الارقام من النص