وعليكم السلام ورحمة الله وبركاته
المطلوب :
أفتح نافذة جديدة وضع عليها :
- ثلاثة مربعات نص
- زر أمر
- داتا جريد فيو.
(ملاحظة : لا تغير شي، ولا تعيد تسمية المربعات ولا الزر ولا تعدل ع الداتاجريد)
أضغط على الزر مرتين(دبل كلك) وأنسخ الكود التالي تحته (نفس الكود السابق ولكن مع تعديل بسيط)..
جرب البرنامج ..
اذا اشتغل معاك، روح عدل ع التسميات و الخصائص..
- - -
يفضل تتعلم البرمجة من خلال قنوات اليوتيوب في البدية من القنوات التي تعرض سلسلة كاملة للتعليم
مثل قناة حسونة أكاديمي (youtube.com/watch?v=ZxZEuUO_S9o&list=PLHIfW1KZRIfmLGhFsQ1G5cPv1xokzBsbT)
أنسخ الرابط أعلاه وضعه في عنوان الصفحة لترى السلسلة كاملة ..
حسونة أكادمي
المطلوب :
أفتح نافذة جديدة وضع عليها :
- ثلاثة مربعات نص
- زر أمر
- داتا جريد فيو.
(ملاحظة : لا تغير شي، ولا تعيد تسمية المربعات ولا الزر ولا تعدل ع الداتاجريد)
أضغط على الزر مرتين(دبل كلك) وأنسخ الكود التالي تحته (نفس الكود السابق ولكن مع تعديل بسيط)..
كود :
Dim startValue As Integer = Val(TextBox1.Text)
Dim endValue As Integer = Val(TextBox2.Text)
Dim stepValue As Integer = Val(TextBox3.Text)
Dim count As Integer = ((endValue - startValue) \ stepValue) + 1
Dim sequence = Enumerable.Range(0, count).Select(Function(i) startValue + (i * stepValue))
Dim dt As New DataTable
dt.Columns.Add("No.")
DataGridView1.DataSource = dt
For i = 0 To count - 1
If i < Me.DataGridView1.Rows.Count Then
dt.Rows.Add(sequence(i))
End If
Nextجرب البرنامج ..
اذا اشتغل معاك، روح عدل ع التسميات و الخصائص..
- - -
يفضل تتعلم البرمجة من خلال قنوات اليوتيوب في البدية من القنوات التي تعرض سلسلة كاملة للتعليم
مثل قناة حسونة أكاديمي (youtube.com/watch?v=ZxZEuUO_S9o&list=PLHIfW1KZRIfmLGhFsQ1G5cPv1xokzBsbT)
أنسخ الرابط أعلاه وضعه في عنوان الصفحة لترى السلسلة كاملة ..
حسونة أكادمي
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
