+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تحويل كود (/showthread.php?tid=45345)
تحويل كود - سيما - 06-02-23
السلام عليكم
اخوتي الاعزاء
السؤال الاول
كيف امنع المستخدم من استخدام المسافه في صندوق النص
السؤال الثاني
تحويل هذ الكود من vb6 الى vb 2010
ولكم فائق الود والاحترام
PHP كود :
List1.Clear
For i = 1 To Len(Text3)
X = Mid$(Text3, i, 1)
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
RE: تحويل كود - Taha Okla - 06-02-23
وعليكم السلام ورحمة الله وبركاته
تعلم البرمجة عن طريق التجريب مضيعة للوقت أكثر مما هو تعلم
ولكن التعلم عبر معلم سيختصر عليك الكثير من الوقت وسيكون إنتاجك أكبر وبشكل مختصر وتفكير منطقي أكثر،
هنا دورة لتعلم أساسيات 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
NextRE: تحويل كود - سيما - 07-02-23
(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
انا اعرف الاساسيات واعلم كيف كتابة الكود
ولقد قمت بتحويل هذا الكود لكن ظهر خطا بسيط حبيت اتعلم كيف يمكن ان اتجاوز الخطا
على كل حال شكرا مرة اخرى لك واسفه على الاطاله
RE: تحويل كود - Taha Okla - 07-02-23
(07-02-23, 06:08 PM)سيما كتب : شكرا لك استاذ
انا اعرف الاساسيات واعلم كيف كتابة الكود
ولقد قمت بتحويل هذا الكود لكن ظهر خطا بسيط حبيت اتعلم كيف يمكن ان اتجاوز الخطا
على كل حال شكرا مرة اخرى لك واسفه على الاطاله
جربي أن تشاهدي ثلاث دروس عشوائية من منتصف الدورة
إن وجدتي أنك تعرفي كل ما هو موجود في هذه الفيديوهات، أتركي الدورة
وإن وجدتي شيء جديد ..
فنصيحة أرجعي وأبدئي الدورة من جديد.. حتى تنتهي منها، فعلياً مجموع مدة الدورة لا يساوي 20 ساعة
ولكن فيها معلومات غزيرة ومساعدة كثيرة لكل من يريد الاستمرار في هذا المجال.
حضور الدورة يستلزم العمل معها وليس فقط المشاهدة.. لتحفظ عملك كمشاريع وتذكر فيها كل الملاحظات حول استخدام كل كود،
بسيطة تكون مرجع لك حتى تتقني استخدام هذه الاكواد والعودة لها مستقبلاً إذا نسيتي شيئاً منها..
ليس بالضروررة حفظ الاكواد بقدر ضرورة معرفة كيف وأين تحفظها لتكون مرجعاً عملياً سهلاً لتستفيد منه مستقبلاً
ومع التكرار ستصبح من المسلمات في الذاكرة..
------------------------
ملاحظة :
-الأساسيات لا تعني كيف تكتب كود، بل هي الأساس لكل ما ستعمل به من أكواد.
- طرق كتابة الأكواد في الدوت نت كثيرة ومتشعبة،
فكما نقول في مجالسنا، لكل مقام مقال وكذلك لكل موقع كوده المناسب دون غيره بالرغم من أنك تستطيع الحل بأكثر من طريقة
ولكن هناك طرق أنسب من غيرها في أغلب الأحيان، ومن لا يعرف هذه الدورة ولم يشاهدها لن يدرك هذا المعنى المقصود.
- أغلب من يشاهد هذه الدورة يدرك في نهايتها أنه بعد هذه الدورة أنه حتى الان لم يتعلم من هذه اللغة أكثر من 1%.
وأنها باب لبدء التعلم بالشكل الصحيح لا أكثر ..
وفقك الله..