تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل كود من c# إلى vb.net
#1
السلام عليكم إخوتي 
كل عام وأنتم بألف خير
طلب بسيط لو سمحتم : أحتاج إلى تحويل كود من c#  إلى vb.net , لقد حاولت التعديل عليه ولاكن تظهر لي بعض الأخطاء فأرجو المساعدة.

الكود:
private void Form1_Load(object sender, EventArgs e)
{

   List<string> values = new List<string>();

   for (char ch1 = 'a'; ch1 <= 'z'; ch1++)

       for (char ch2 = 'a'; ch2 <= 'z'; ch2++)

           for (char ch3 = 'a'; ch3 <= 'z'; ch3++)

               values.Add(ch1.ToString() +

                   ch2.ToString() + ch3.ToString());



   lstCombinations.DataSource = values;

   lblCombinations.Text = values.Count + " combinations";

}
قد يضهر لديك الكود مقلوب : إنسخ الكود وضعه في ملف txt 
الرد
تم الشكر بواسطة:
#2
عفواً أخي الكود به أخطاء
1- لقد نسيت إغلاق الدائرة الحلقية بإضافة كلمة next
عند الإضافة واجهت مشكلة في السطر الأخير 
ياريت التعديل على الكود وقم بالتجربة ثم أرسله 
مشكور جداً أخي على الرد وكل عام وأنت بألف خير

عدلت على الكود بهذه الطريقة
  Dim values As New List(Of String)
               
        For ch1 = Asc("a") To Asc("z")

            For ch2 = Asc("a") To Asc("z")

                For ch3 = Asc("a") To Asc("z")

                    values.Add(Chr(ch1).ToString() + Chr(ch2).ToString() + Chr(ch3).ToString())
                Next
            Next
        Next
        lstCombinations.DataSource = values

        lblCombinations.Text = values.Count

لاكن أحتاج لطريقة لحفظ الناتج في ملف txt مباشرة دون إظهارها في أداة ListBox
أرجو المساعدة
الرد
تم الشكر بواسطة:
#3
تفضل اخى الحبيب الكود بصورة صحيحة

داخل حدث Form1_Load
ضع الكود التالى
كود :
       Dim values As List(Of String) = New List(Of String)()
       For Each ch1 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
           For Each ch2 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
               For Each ch3 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                   values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
               Next
           Next
       Next
       lstCombinations.DataSource = values
       lblCombinations.Text = values.Count & " combinations"

تذكر كل ما عليك وضع اداء lstCombinations
اى كانت هى والتى تاخذ اسم lstCombinations وبكده الكود سيعمل معك بدون اى مشكلة

تم عمل الكود ليعرض احرف من A الى Z
واذا كنت تريدها ارقام استخدم الكود التالى
كود :
       Dim values As List(Of String) = New List(Of String)()
       For ch1 = Asc("a") To Asc("z")
           For ch2 = Asc("a") To Asc("z")
               For ch3 = Asc("a") To Asc("z")
                   values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
               Next
           Next
       Next
       lstCombinations.DataSource = values
       lblCombinations.Text = values.Count & " combinations"

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابو روضة
#4
مشكور جداً أخي على المساعدة ، في الحقيقة كود رائع 
Dim values As List(Of String) = New List(Of String)()
       For Each ch1 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
           For Each ch2 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
               For Each ch3 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                   values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
               Next
           Next
       Next
       lstCombinations.DataSource = values
       lblCombinations.Text = values.Count & " combinations"

لدي بعض التسؤولات البسيطة التي لاتصعب عليكم
1-هل من طريقة لحفظ الكود مباشرة داخل ملف txt ,وهل من طريقة لإيقاف وإستكمال الكود
2-تعديل الكود ليبدأ من قيمة وينتهي عند قيمة محددة مثل البدء من afb aac
3-كود بسيط لمعرفة النسبه المؤوية للعملية الجارية.
شاكر حسن تعاونكم ولكم كل الشكر.
الرد
تم الشكر بواسطة:
#5
(20-08-18, 10:37 PM)sads كتب : لدي بعض التسؤولات البسيطة التي لاتصعب عليكم
1-هل من طريقة لحفظ الكود مباشرة داخل ملف txt ,وهل من طريقة لإيقاف وإستكمال الكود
2-تعديل الكود ليبدأ من قيمة وينتهي عند قيمة محددة مثل البدء من afb aac
3-كود بسيط لمعرفة النسبه المؤوية للعملية الجارية.
شاكر حسن تعاونكم ولكم كل الشكر.


الشكر لله

بخصوص اجابة كل سؤال

1- نعم يوجد طريقة لحفظ نتائج المستخرجة من الكود فى ملف Text وسبق وقمت بشرح بالعديد من المواضيع من قبل
وبخصوص ايقاف وتشغيل الكود يمكنك وضع رسالة تنبيه بعد عدد معين لتظهر بان تريد الاستكمال ام لا وكذلك يمكن من خلال طريقة اخى
مثل شرط تحقق اذا كان يقمة ii = 1 يقوم بظهور رسالة الاستكمال او لا أو الغاء عملية توليد الاحرف
بحث المقصود بـ ii هو سطر يوضع قبل For بهذا الشكل 
كود :
Dim ii As Integer = 0

وكل ما عليك عمل زر يقوم بعمل ايقاف ليجعل قيمة ii = 1 

2- بخصوص انه يبداء عند احرف محددة يمكن ذلك ولكن الكود يحتاج الى بعض الوقت
قد اعود فى وقت لاحك يمكنك فتح البرنامج وعمل كود والتاكد من انه يعمل تماما قبل وضع كود قد لا يعمل معك
أو ان يفيدك من يطلع على الموضوع من الاخوى الاخري اذا لديهم بعض الوقت لذلك

3- كل الفكرة انك ستحتاج الى جلب اجمالى عدد العملية التى تتم من ثم عمل قيمة تقوم باضافة +1 فى كل خطوة من العملية
وليكن العملية تتم فى حدود العد 1547772 مثلاً وانت عملت قيمة من نوع رقم وقيمتها الافتراضية 0
وكل ما عليك تمرير هذا داخل قلب الحدث لـ For مثل وليكن i+=1
وكل ما سيتم هو عمل هذه المعادلة
القيمة التى تتزايد / القيمة الكلية عدد العمليات * 100  ||  ليصبح الناتج بالنهاية هو النسبة المؤوية المطلوبة

اتمنى ان تكون الفكرة وصلت لك كاملاً
وان الشرح مبسط لكل ما طرحته من اسئلة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#6
شكراً أخي { elgokr } على الرد ومن الوقت التي تستغرقة في إفادة الغير فأرجو الله العلي القدير أن يزيد من العلم نوراً 

[b]أخي أنا في إنتظار كودك الكامل بكل التسؤلات المطروحة والتي تطرقت لها في شرحك.[/b]

[b]أرجو الرد في أسرع وقت [/b]

[b]ولك كل الشكر ولكل شخص قام بالرد علي.[/b]
الرد
تم الشكر بواسطة: elgokr , elgokr
#7
الشكر لله

ان شاء الله مع اول فرصة تتاح لى ذلك
ساقوم بعمل الكود ووضعه لك

كل عام وانت بخير 
وعيد سعيد عليك وعلى الجميع

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
السلام عليكم ورحمة الله وبركاته

اهلاً بك من جديد اخى sads
اتمنى ان اكون ان وفيت وعدى بما طلبته من اسئلة مسبقاً
وهو من خلال اتمام عمل سورس كود بالكود بعد التحويل 
وعمل اللمسات والاضافات التى تم السؤال عنها

فى البدابة كل عام وانت بخير وعيد سعيد عليك وعلى الجميع

السورس + البرنامج للمعينة مرفق بالرد
السورس (2015)

صورة للبرنامج

الكود المستخدم فى الفروم كاملاً (الكود يحمل الشرح باذن الله)
كود :
Public Class Form1
   Private i, ii As Integer
   Private abc As String = "abcdefghijklmnopqrstuvwxyz"

   Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress
       REM الكود هنا لجعل الكتابة احرف فقط
       If Not (Asc(e.KeyChar) = 8) Then
           Dim allowedChars As String = abc
           If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
               e.KeyChar = ChrW(0)
               e.Handled = True
           End If
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       REM كود التحقق بعدد احرف النص
       If TextBox1.TextLength < 3 OrElse TextBox2.TextLength < 3 Then
           MsgBox("The Minimum Number Of Characters is 3 Letters.")
           Exit Sub
       End If

       REM القيم الافتراضية عند اتمام توليد المفاتيح
       i = 0
       ii = 0
       ProgressBar1.Minimum = 0
       ProgressBar1.Maximum = Val(abc.Length * abc.Length * abc.Length)
       ProgressBar1.Value = 0
       Label6.Text = 0
       Button1.Enabled = False
       TextBox3.Text = Nothing
       Label3.Text = "Not Finished"
       Label3.ForeColor = Color.Red
       Button2.Enabled = False

       REM رسالة تاكيد باتمام بدء عملية توليد المفاتيح
       Dim result As Integer = MessageBox.Show("Do you want to start the process of generating keys?", "Confirm The Start Process...", MessageBoxButtons.OKCancel)
       REM التحقق بالموافقة على الرسالة او الغاء الامر
       If result = DialogResult.Cancel Then
           Button1.Enabled = True
           Label3.Text = "Ready"
           Label3.ForeColor = Color.Blue
           Exit Sub
       End If

       REM كود توليد المفاتيح المكون من 3 احرف
       For Each ch1 In abc.ToCharArray()
           For Each ch2 In abc.ToCharArray()
               For Each ch3 In abc.ToCharArray()
                   ProgressBar1.Value += +1
                   If (ch1.ToString() & ch2.ToString() & ch3.ToString()) = TextBox1.Text Then i = 1
                   If i = 1 Then
                       TextBox3.Text += (ch1.ToString() & ch2.ToString() & ch3.ToString()) & ", "
                       ii += 1
                       If (ch1.ToString() & ch2.ToString() & ch3.ToString()) = TextBox2.Text Then i = 0
                   End If
               Next
           Next

           REM التحقق من اتمام توليد اجمالى 3 احرف كاملاً
           If ProgressBar1.Value = ProgressBar1.Maximum Then
               Button1.Enabled = True
               Label3.Text = "Finished"
               Label3.ForeColor = Color.Green
               Button2.Enabled = True
           End If
       Next

       REM اجمالى عدد المفاتيح التى تم انشائها فعلياً
       Label6.Text = ii
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       REM كود استبدال الفاصلة بسطر جديد تم انشاء الفكرة ليمكنك استخدامها مستقبلياً
       Dim SaveText As String = TextBox3.Text.Replace(", ", vbNewLine)
       REM تحديد مسار واسم الملف المطلوب حفظه
       Dim SelectPath As New SaveFileDialog()
       SelectPath.Filter = "Text Files (*.txt)|*.txt"
       SelectPath.FileName = ""
       SelectPath.FilterIndex = 2
       SelectPath.RestoreDirectory = True
       REM كود التحقق بتحديد المسار لاتمام حفظ واستخراج المفاتيح بالملف
       If SelectPath.ShowDialog() = DialogResult.OK Then
           My.Computer.FileSystem.WriteAllText(SelectPath.FileName, SaveText, True)
       End If
   End Sub
End Class


اتمنى ان يكون الكود بسيط والشرح بداخله وافي بان تكون على علم
لما يتم استخدام كل جزء من الكود وان الامر ليس به اى تعقيد

تم انشاء موضوع بهذا السورس حتى يعم الفائدة على الجميع

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة صورة/صور
   

.zip   Pro Try Create Key.zip (الحجم : 23.71 ك ب / التحميلات : 8)
.zip   Try Create Key.zip (الحجم : 35.89 ك ب / التحميلات : 4)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: sads , ابو روضة
#9
ألف شكر لك أخي elgokr في الحقيقة  أنت مبدع وقد وفيت بوعدك لي بما طلبته من اسئلة، الشرح كان رائع جداً والكود واضح بما فيه كفايه ، اللهم إجعل هذا العمل في ميزان حسناتك لما قدمته من مساعدة لي وللغير.

فكل عام وأنت والجميع بألف خير
الرد
تم الشكر بواسطة: elgokr
#10
الشكر لله والحمد لله
هذا يسعدنى ان ما قمت به هو المطلوب الكامل

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 199 06-10-18, 02:07 AM
آخر رد: ابو روضة
  [VB.NET] استفسار :- Speech To Text تحويل الصوت الى حروف dubai.eig 1 101 05-10-18, 07:08 PM
آخر رد: alsouf
  [VB.NET] استفسار :- SlimDX بعد تحويل المشروع الى ملف EXE dubai.eig 7 173 15-08-18, 09:51 PM
آخر رد: elgokr
  [VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) larbihamri 6 196 05-08-18, 07:26 PM
آخر رد: larbihamri
  تحويل النصوص الى PDF معاذ العامري 4 221 30-07-18, 12:25 PM
آخر رد: DOX.1
  تحويل الامتار الي اسهم hatem555 4 4,681 24-07-18, 03:19 PM
آخر رد: Done
  كود تحويل ما في ListBox ل TextBox YousefOkasha 6 248 24-07-18, 02:49 PM
آخر رد: معاذ العامري
  [سؤال] كيفية تحويل مشروع من c# الى vb.net alims 5 215 12-07-18, 10:53 PM
آخر رد: elgokr
  تحويل النصوص إلي ChrW YousefOkasha 1 111 01-07-18, 03:18 AM
آخر رد: elgokr
  تحويل مشروع من 32 الى 64 رسول555 6 277 28-06-18, 07:07 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم