السلام عليكم ورحمة الله وبركاته
المقدمة :
إخواني المبرمجين أقدم لكم مدخل الفجوال بيسك لن ألعب دور المبرمج المحترف لكني اعمل مشاريع صغيرة سأقدم لكم المدخل ........
الدرس الأول :
قم بعمل برنامج واضف فيه زر
ما عمل البرنامج يقوم بإظهار رسالة تقول مرحبا ايها العالم إن غيرت الكلام ليست مشكلة حسننا انتقل إلى أكواد الزر واكتب
كود :
("مرحبا أيها العالم ")MessageBox.show
يعني أظهر الرسالة "مرحبا أيها العالم "
أنتهى الدرس الأول
يتبع .........
السلام عليكم
اقدم لكم الدرس الثاني وهو نفس عمل البرنامج الأول ولكن مع بعض التعديلات لنتعلم حسننا نعود للبرنامج الأول "مرحبا أيها العالم "حسننا أضف ليبل (نص) واكتب فيه مرحبا أيها العالم وغير الأكواد الخاصة بالزر واكتب
كود :
MessageBox.show(Label1)
حسننا لكن سيظهر لك خطأ
ما الخطأ؟
الخطأ أننا لم نضع القيمة لليبل التي هي نص(Text)
عدل الكود واكتب
كود :
MessageBox. show(Label1.Text)
حسننا سنقوم بإتاحة للمستخدم أن يغير الرسالة حسب مايريد
حسننا أضف تكست بوكس واكتب في الأكواد
هناك خطأ
الخطأ مكرر نفس الخطأ الآخر هل عرفت الخطأ Text القيمة حسننا عدل
كود :
Label1.Text=TextBox1.Text
فهمت الخوارزمية نقصد بها إذا كان برنامجك يتعلق بالنصوص الخاصية Text تتدخل في النصوص اضف الخاصية
شرح جميل و مبسط مشكور جدا منتظرين بقية الدروس .
السلام عليكم ورحمة الله وبركاته
الدرس الماضي يتعلق بالخاصية Text وسنظل نذكرها في مشاريعنا فهي مهمة جدا جدا جدا حسناً سنقوم بعمل زر يقوم بإظهار أرقام(سريال) حسناً برنامجنا سهل وبسيط قم بعمل برنامج جديد ضف زراً وتكست بوكس واكتب في أكواد الزر
كود :
MessageBox.show ("هل حقا تود السريال")
TextBox1.Text="54899-9568-7667-7889"
إخواني هذا ليس سريال حقيقي بل قمت بتخيله فقط حسناً
شرح الأكواد
قد شرحنا سابقا اكواد الرسائل
قمنا بكتابة الكود. "TextBox1.Text="54899-9568-7667-7889
يعني أظهر في التكست بوكس واحد الرقم 7889-7667-9568-54899
سنقوم بتطوير البرنامج ونجعل المستخدم هو الذي يدخل الأرقام الذي سيظهرها البرنامج حسناً نقوم بتعديل الكود لTextbox1
ونكتب
TextBox1.Text=TextBox2.Text
ما الهدف من الدرس؟
تعلم علامة التنصيص التي لم نذكرها سابقاً
ماعمل البرنامج؟
يقوم بإظهار نصوص أنت قمت بكتابتها
اكمل على بركة الله بس صعب الدروس شوية .
السلام عليكم ورحمة وبركاته
اليوم الدرس الرابع
اليوم سنتعرف على أداه الكومبو بوكس
كل يوم لدينا مشروع ابدء في مشروع جديد
ضف تكست بوكس + كومبو بوكس + زر
سم الزر إضافة واكتب فيه
PHP كود :
ComboBox1.Items.Add(TextBox1.Text)
ماالذي يعمله البرنامج البرنامج يتيح للمستخدم إضافةItem كل مره ويتيح له ان يسميه
سوف نشرح الأكواد
ComboBox1 يعني أن الكود له
Items. يعني خيارات الكومبو
Add يعني إضافة خيارت جديدة
(TextboxText)يعني اسم الخيار من الكومبو الكومبو يمكنك استبدال كلمة(TextboxText) ب"" عندما تعمل هكذا المستخدم لا يستطيع تغيير اسم الخيار.
إعذروني لانني لم أرفق الصور للدروس شكرا لكم
الهاتف يعلق فجلست اكتب الدرس ساعة
السلام عليكم ورحمة الله وبركاته
اقدم لكم الدرس الرابع
الدرس على الكومبو بوكس
ضف كومبو بوكس وتكست بوكس وزر
ضف ٤ Item واكتب
١أحمر ٢أصفر ٣أزرق ٤أخضر
وانتقل إلى منطقه أكواد الزر واكتب
كود :
If CompoBox1.Text="أحمر"Then
TextBox1.ForeColor=Color.Red
EndIf
If CompoBox1.Text="أزرق"Then
TextBox1.ForeColor.Blue
EndIf
If CompoBox1.Text="أصفر"Then
TextBox1.ForeColor=Color.Yello
EndIf
If ComboBox1.Text="أخضر"Then
TextBox1.ForeColor=Color.Green
EndIf
الآن قد أكملنا كتابه أكواد البرنامج
الخاصيه ForeColor جديدة عليك
الخاصيه تقوم بتغيير لون الكتابه كما اتضح لك أنه يغير الألوان
وقد عرفنا كيف نتعامل مع الكومبو بوكس لكن هذه الطريقة ليست فعاله سنتعرف على طريقه أخرى في الدرس القادم
ماشاء الله اخي الكريم بداية رائعة.
المصفوفات والتعامل معها شيء جميل وهناك طرق ممتازة للتعامل معها .
انظر مثال بسيط وهو لاختصار الاكواد لتطبيق الفكرة الحالية:
PHP كود :
Public Class Form1
Dim lst As New List(Of Color)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("أحمر")
ComboBox1.Items.Add("أخضر")
ComboBox1.Items.Add("أزرق")
lst.Add(Color.Red)
lst.Add(Color.Green)
lst.Add(Color.Blue)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Hide()
Me.Close()
End
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
lbltime.Text = TimeString
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.ForeColor = lst(sender.selectedindex)
End Sub
End Class
حتى يكون الكود بمثال رفعت المثال
أخي الكريم شكرا للإضافة الرائعة أنا في نهاية الموضوع سأضع كورس وكتاب أعمل عليهما
اليوم نلتقي في الدرس الخامس
الدرس عن التعامل مع الكومبو بوكس
نفس المثال الأول
طريقتك ممتازة ياسعود سأقدم طريقة جديدة
أيضاً علمني إياها الأخ سعود له الشكر والتقدير
قم بمسح أكواد المشروع الأول
واكتب في الزر
كود :
Select Case ComboBox1.SelectedIndex
Case 0
TextBox1.ForeColor=Color.Red
Case 1
TextBox1.ForeColor=Color.yellow
Case 2
TextBox1.ForeColor=Color.Blue
Case 3
TextBox1.ForeColor=Color.Green
End Select
هذه طريقة إختيارات Case لكن أنا لم أفهم الخاصية SelectedIndex ممكن أي عضو يشرحها
السلام عليكم ورحمة الله
هو رقم العنصر الموجود في الكومبو بوكس بالترتيب ابتداء من الصفر الى اخر عنصر في القائمة بالترتيب .
اي العنصر الاول الاندكس بتاعه 0
اي العنصر الثاني الاندكس بتاعه 1
اي العنصر الثالث الاندكس بتاعه 2
SelectedIndex المعنى الحرفي بتعها الفهرس المحدد .
0=SelectedIndex هي تحديد الاندكس رقم 0 اي تحديد العنصر الاول .
1=SelectedIndex هي تحديد الاندكس رقم 1 اي تحديد العنصر الثاني و هكذا .
الصورة تتكلم :
[
attachment=22817]