تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تحويل كود
#1
السلام عليكم
اخوتي الاعزاء
السؤال الاول 

كيف امنع المستخدم من استخدام المسافه في صندوق النص

السؤال الثاني
تحويل هذ الكود من vb6 الى vb 2010
ولكم فائق الود والاحترام
PHP كود :
List1.Clear

For 1 To Len(Text3)
 
   X Mid$(Text3i1)
 
   If X <> " " Then
        str0 
str0 X
        str1 
str1 " " X
        len1 
len1 1
    End 
If
Next

List1
.AddItem str1
'-----------------------------------
len2 = len1
If len1 Mod 2 = 0 Then
    m = len1 / 2
Else
    m = Int(len1 / 2) + 1
End If

10 len2 = len1
    For k = 1 To m
      X1 = Mid$(str0, len2, 1)
      str2 = str2 + " " + X1
      str3 = str3 + X1
      If k = Int(len1 / 2) + 1 Then GoTo 20
      X1 = Mid$(str0, k, 1)
      str2 = str2 + " " + X1
      str3 = str3 + X1
        len2 = len2 - 1
    Next
20  If List1.List(0) <> str2 Then
    List1.AddItem str2
    str0 = str3
    str3 = ""
    str2 = ""
GoTo 10
End If 
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

تعلم البرمجة عن طريق التجريب مضيعة للوقت أكثر مما هو تعلم
ولكن التعلم عبر معلم سيختصر عليك الكثير من الوقت وسيكون إنتاجك أكبر وبشكل مختصر وتفكير منطقي أكثر،

هنا دورة لتعلم أساسيات VB.Net من أكاديمية حسونة أسلوب مميز وشرح مبسط


مدة الدورة تقريباً عشرين ساعة ولكن بعدها ستشعر بفرق كبير جداً 
ومعلومات لا بأس بها من حيث الكم والنوع 
وستكتسب أسلوب جديد للتفكير والتبسيط

والأهم أنها مجانية ولن تتكرر مرة أخرى فيما لو تم حذف القناة(لا قدر الله)
فأغتنم الفرصة من الآن..



أما حل مسألتك :
كود :
ListBox1.Items.Clear()

Dim X As String, str0 As String, str1 As String, len1 As Integer

For i = 1 To Len(TextBox3.Text)
   X = Mid(TextBox3.Text, i, 1)
   If X <> " " Then
       str0 = str0 + X
       str1 = str1 + " " + X
       len1 = len1 + 1
   End If
Next
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: AnyDesk , سيما
#3
(06-02-23, 04:08 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

تعلم البرمجة عن طريق التجريب مضيعة للوقت أكثر مما هو تعلم
ولكن التعلم عبر معلم سيختصر عليك الكثير من الوقت وسيكون إنتاجك أكبر وبشكل مختصر وتفكير منطقي أكثر،

هنا دورة لتعلم أساسيات VB.Net من أكاديمية حسونة أسلوب مميز وشرح مبسط


مدة الدورة تقريباً عشرين ساعة ولكن بعدها ستشعر بفرق كبير جداً 
ومعلومات لا بأس بها من حيث الكم والنوع 
وستكتسب أسلوب جديد للتفكير والتبسيط

والأهم أنها مجانية ولن تتكرر مرة أخرى فيما لو تم حذف القناة(لا قدر الله)
فأغتنم الفرصة من الآن..



أما حل مسألتك :
كود :
ListBox1.Items.Clear()

Dim X As String, str0 As String, str1 As String, len1 As Integer

For i = 1 To Len(TextBox3.Text)
   X = Mid(TextBox3.Text, i, 1)
   If X <> " " Then
       str0 = str0 + X
       str1 = str1 + " " + X
       len1 = len1 + 1
   End If
N
شكرا لك استاذ
انا اعرف الاساسيات واعلم كيف كتابة الكود 
ولقد قمت بتحويل هذا الكود لكن ظهر خطا بسيط حبيت اتعلم كيف يمكن ان اتجاوز الخطا
على كل حال شكرا مرة اخرى لك واسفه على الاطاله
الرد }}}
تم الشكر بواسطة:
#4
(07-02-23, 06:08 PM)سيما كتب : شكرا لك استاذ
انا اعرف الاساسيات واعلم كيف كتابة الكود 
ولقد قمت بتحويل هذا الكود لكن ظهر خطا بسيط حبيت اتعلم كيف يمكن ان اتجاوز الخطا
على كل حال شكرا مرة اخرى لك واسفه على الاطاله

جربي أن تشاهدي ثلاث دروس عشوائية من منتصف الدورة
إن وجدتي أنك تعرفي كل ما هو موجود في هذه الفيديوهات، أتركي الدورة 
وإن وجدتي شيء جديد .. 
فنصيحة أرجعي وأبدئي الدورة من جديد.. حتى تنتهي منها،   فعلياً مجموع مدة الدورة لا يساوي 20 ساعة
ولكن فيها معلومات غزيرة ومساعدة كثيرة لكل من يريد الاستمرار في هذا المجال.
حضور الدورة يستلزم العمل معها وليس فقط المشاهدة.. لتحفظ عملك كمشاريع وتذكر فيها كل الملاحظات حول استخدام كل كود، 
بسيطة تكون مرجع لك حتى تتقني استخدام هذه الاكواد والعودة لها مستقبلاً إذا نسيتي شيئاً منها..

ليس بالضروررة حفظ الاكواد بقدر ضرورة معرفة كيف وأين تحفظها لتكون مرجعاً عملياً سهلاً لتستفيد منه مستقبلاً
ومع التكرار ستصبح من المسلمات في الذاكرة..
------------------------
ملاحظة : 
-الأساسيات لا تعني كيف تكتب كود، بل هي الأساس لكل ما ستعمل به من أكواد.

- طرق كتابة الأكواد في الدوت نت كثيرة ومتشعبة، 
فكما نقول في مجالسنا، لكل مقام مقال وكذلك لكل موقع كوده المناسب دون غيره بالرغم من أنك تستطيع الحل بأكثر من طريقة 
ولكن هناك طرق أنسب من غيرها في أغلب الأحيان، ومن لا يعرف هذه الدورة ولم يشاهدها لن يدرك هذا المعنى المقصود.

- أغلب من يشاهد هذه الدورة يدرك في نهايتها أنه بعد هذه الدورة أنه حتى الان لم يتعلم من هذه اللغة أكثر من 1%.
وأنها باب لبدء التعلم بالشكل الصحيح لا أكثر ..


وفقك الله..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: AnyDesk , سيما


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 268 29-12-23, 10:44 PM
آخر رد: Kamil
  تحويل مشروع من 2008 الي 2015 atefkhalf2004 0 259 23-11-23, 03:10 PM
آخر رد: atefkhalf2004
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  تحويل التاريخ في الداتاقريدفيو إلى أيام عربية صالح عبدالله 2 318 08-10-23, 12:17 AM
آخر رد: صالح عبدالله
  تحويل مشروع دوت نت الى native code ابو محمد محمد محمد 0 406 26-07-23, 12:18 AM
آخر رد: ابو محمد محمد محمد
  [VB.NET] تحويل من Hex الى text aminesori 4 446 18-07-23, 07:05 PM
آخر رد: aminesori
  تحويل من قاعدة بيانات الى مصفوفة Lathe1 4 821 31-05-23, 09:41 PM
آخر رد: fouadhdfouad
Lightbulb [كود] ♥ تحويل كودين مــــــــ VB.net ـــــــــن إلــــــــــــ VB6 ــــــــــــى♥ أبو خالد الشكري 7 573 27-05-23, 10:35 PM
آخر رد: أبو خالد الشكري

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


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