المواضيع الأخيرة
اللعب عالمكشوف ... لمن يملك الطرنيب
7/10/2016, 11:43 am من طرف الأمين العام
اللعب عالمكشوف ... لمن يملك الطرنيب
بعد ست سنوات من الحرب الطاحنة و التخفي لكل دولة وراء الدعم المقدم لقوى …
بعد ست سنوات من الحرب الطاحنة و التخفي لكل دولة وراء الدعم المقدم لقوى …
تعاليق: 0
مبروك لقطر مبروك للخليج
5/8/2015, 6:58 pm من طرف الأمين العام
مبروك لقطر مبروك للخليج ....
من كأس النخوة التفخيخية و الهيجان العاهر اشربوا ....
من كأس الحقد و السقاطة و التآمر …
من كأس النخوة التفخيخية و الهيجان العاهر اشربوا ....
من كأس الحقد و السقاطة و التآمر …
تعاليق: 0
عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
12/7/2015, 8:24 pm من طرف الأمين العام
عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
سلمية الأمان سلمية المحبة هناك من يحاول إثارة فتيل الفتنة و الخراب …
سلمية الأمان سلمية المحبة هناك من يحاول إثارة فتيل الفتنة و الخراب …
تعاليق: 0
ماذا بعد يا صاحب القرار
9/7/2015, 9:41 pm من طرف الأمين العام
ماذا بعد يا صاحب القرار .....
هاهو التلفزيون السوري الرسمي يفصحُ بما عجزَ عنه الناس .. ويفضحُ بما لا يقبل الشك …
هاهو التلفزيون السوري الرسمي يفصحُ بما عجزَ عنه الناس .. ويفضحُ بما لا يقبل الشك …
تعاليق: 0
الشعب يتساءل ......
7/7/2015, 9:54 pm من طرف الأمين العام
بيان :
الشعب يتساءل ......
إننا لا نتكلم في السياسة لان السياسة بأساسها هي علاقة أوجدها الإنسان ليستطيع من …
الشعب يتساءل ......
إننا لا نتكلم في السياسة لان السياسة بأساسها هي علاقة أوجدها الإنسان ليستطيع من …
تعاليق: 0
المجموعة الرابعة فيجوال بيزيك
صفحة 1 من اصل 1
المجموعة الرابعة فيجوال بيزيك
• البحث عن أكبر(أو أصغر) عنصر في شعاع:
ليكن لدينا الشعاع y(n) يمثل علامات الطلاب في مادة ما. والمطلوب إيجاد أكبر وأصغر علامة.
الحل: إن عملية البحث البرمجية لا تختلف كثيراً عن عملية البحث اليدوية، لنفرض أنك رأيت أوراق معلقة لمادة ما وأرد أن تعرف ما هي أعلى علامة من بين العلامات التي أمامك: أنك تبدأ بالنظر إلى أول علامة (وكأنك تفترض أنها أعلى علامة) ثم تنتقل للأسفل لبقية العلامات وتحاول أن تقارنها مع أول علامة، فإذا رأيت أن علامة أكبر من العلامة الأولى تعتمدها وتنسى العلامة الأولى وهكذا حتى تصل إلى آخر الوراق.
إن آلية البحث البرمجية مطابقة تماماً لما تم ذكره. ولنحاول أن نترجم هذا الكلام من خلال العبارات التالية:
Max = Y(1)
For I = 2 To N
If Y(I) > Max Then Max = Y(I)
Next I
Text1.Text = Max
• يمكن أن نبحث عن أصغر علامة بنفس الطريقة بعد استبدال إشارة أكبر بإشارة أصغر.
والأهم من ذلك أننا نستطيع أن نبحث عن الأكبر والأصغر بنفس الحلقة باستخدام العبارات التالية:
Max = Y(1)
Min = Y(1)
For I = 2 To N
If Y(I) > Max Then Max = Y(I)
If Y(I) < Min Then Min = Y(I)
Next I
Text1.Text = Max
Text2.Text = Min
• في بعض الأحياء يكون معرفة الطالب الذي حصل على أعلى علامة أهم من العلامة نفسها، فعلى فرض لدينا شعاعين (X(n) لأسماء الطلاب, Y(n) لعلاماتهم) فمن أجل تحديد الطالب صاحب العلامة الأعلى نكتب العبارات التالية:
nom = 1
Max = Y(1)
For i = 2 To N
If Y(i) > Max Then Max = Y(i): nom = i
Next i
Text1.Text = X(nom)
من خلال العبارات السابقة نستنتج ما يلي:
1- ليس خطأًً أن نبدأ الحلقة من الرقم 1 ولكن في هذه الحالة نكون قد قارنا أول قيمة مع نفسها وهذا غير مفيد في عملية البحث.
2- الإشارة (: ) هي للربط بين العبارات على سطر واحد.
3- إذا أردنا أن نطبع العلامة يمكن أن نكتب Text2.Text = y(nom)
• حساب متوسط شعاع:
For i = 1 To n
s = s + x(i)
Next i
Text1.Text = s / n
ملاحظات:
1- تدعى الخلية S بخلية تجميعية (وكأنه لدينا كأس ماء فارغ ووضعناه تحت صنبور ماء وكل دقيقة تنزل نقطة ماء واحدة، أي بعد n دقيقة يتجمع لدينا n نقطة ماء في الكأس).
2- إن قيمة أي رمز لم يعرف هي الصفر، معنى ذلك أن قيمة S قبل بداية الحلقة هي الصفر، وفي نهاية الدورة الأولى تصبح قيمتها مساوية للقيمة X(1) وفي نهاية الدورة الثانية تكون قيمة S مساوية للقيمة (X(1)+X(2))....... وفي نهاية الدورة n تكون قيمة S مساوية لمجموع عناصر الشعاع X.
مثال10:
ليكن لدينا معمل يحتوي على n عامل وكل عامل له راتب معين وذلك حسب العمل الذي يقوم به، والمطلوب:
1- تحديد اسم العامل صاحب الراتب الأعلى وما هو مقدار هذا الراتب.
2- تحديد اسم العامل صاحب الراتب الأقل وما هو مقدار هذا الراتب.
3- حساب مجموع المبلغ الذي يدفعه المعمل لعماله.
الحل:
وسنعرف من خلال هذا المثال كيفية التحكم بعرض الأعمدة من خلال الخاصية colwidth وكذلك بموضع الكتابة في الخلايا من خلال الخاصية colalignment.
Private Sub Command1_Click()
n = Val(txtn.Text)
ReDim x(n), y(n)
For i = 1 To n
x(i) = g1.TextMatrix(i, 1)
y(i) = Val(g1.TextMatrix(i, 2))
Next i
nomax = 1
nomin = 1
Max = y(1)
Min = y(1)
For i = 2 To n
If y(i) > Max Then Max = y(i): nomax = i
If y(i) < Min Then Min = y(i): nomin = i
Next i
For i = 1 To n
s = s + y(i)
Next i
txtnmax.Text = x(nomax)
txtnmin.Text = x(nomin)
txtsmax.Text = Max
txtsmin.Text = Min
txtstotl.Text = s
End Sub
Private Sub Form_Load()
g1.TextMatrix(0, 0) = "الرقم"
g1.TextMatrix(0, 1) = "اسم العامل"
g1.TextMatrix(0, 2) = "الراتب"
For i = 0 To 2
g1.ColAlignment(i) = 3
Next i
g1.ColWidth(1) = 2000
g1.ColWidth(2) = 1500
End Sub
Private Sub g1_Click()
g1.Text = ""
End Sub
Private Sub g1_KeyPress(KeyAscii As Integer)
g1.Text = g1.Text + Chr(KeyAscii)
End Sub
Private Sub Txtn_Change()
n = Val(txtn.Text)
g1.Rows = n + 1
For i = 1 To n
g1.TextMatrix(i, 0) = i
Next i
End Sub
ليكن لدينا الشعاع y(n) يمثل علامات الطلاب في مادة ما. والمطلوب إيجاد أكبر وأصغر علامة.
الحل: إن عملية البحث البرمجية لا تختلف كثيراً عن عملية البحث اليدوية، لنفرض أنك رأيت أوراق معلقة لمادة ما وأرد أن تعرف ما هي أعلى علامة من بين العلامات التي أمامك: أنك تبدأ بالنظر إلى أول علامة (وكأنك تفترض أنها أعلى علامة) ثم تنتقل للأسفل لبقية العلامات وتحاول أن تقارنها مع أول علامة، فإذا رأيت أن علامة أكبر من العلامة الأولى تعتمدها وتنسى العلامة الأولى وهكذا حتى تصل إلى آخر الوراق.
إن آلية البحث البرمجية مطابقة تماماً لما تم ذكره. ولنحاول أن نترجم هذا الكلام من خلال العبارات التالية:
Max = Y(1)
For I = 2 To N
If Y(I) > Max Then Max = Y(I)
Next I
Text1.Text = Max
• يمكن أن نبحث عن أصغر علامة بنفس الطريقة بعد استبدال إشارة أكبر بإشارة أصغر.
والأهم من ذلك أننا نستطيع أن نبحث عن الأكبر والأصغر بنفس الحلقة باستخدام العبارات التالية:
Max = Y(1)
Min = Y(1)
For I = 2 To N
If Y(I) > Max Then Max = Y(I)
If Y(I) < Min Then Min = Y(I)
Next I
Text1.Text = Max
Text2.Text = Min
• في بعض الأحياء يكون معرفة الطالب الذي حصل على أعلى علامة أهم من العلامة نفسها، فعلى فرض لدينا شعاعين (X(n) لأسماء الطلاب, Y(n) لعلاماتهم) فمن أجل تحديد الطالب صاحب العلامة الأعلى نكتب العبارات التالية:
nom = 1
Max = Y(1)
For i = 2 To N
If Y(i) > Max Then Max = Y(i): nom = i
Next i
Text1.Text = X(nom)
من خلال العبارات السابقة نستنتج ما يلي:
1- ليس خطأًً أن نبدأ الحلقة من الرقم 1 ولكن في هذه الحالة نكون قد قارنا أول قيمة مع نفسها وهذا غير مفيد في عملية البحث.
2- الإشارة (: ) هي للربط بين العبارات على سطر واحد.
3- إذا أردنا أن نطبع العلامة يمكن أن نكتب Text2.Text = y(nom)
• حساب متوسط شعاع:
For i = 1 To n
s = s + x(i)
Next i
Text1.Text = s / n
ملاحظات:
1- تدعى الخلية S بخلية تجميعية (وكأنه لدينا كأس ماء فارغ ووضعناه تحت صنبور ماء وكل دقيقة تنزل نقطة ماء واحدة، أي بعد n دقيقة يتجمع لدينا n نقطة ماء في الكأس).
2- إن قيمة أي رمز لم يعرف هي الصفر، معنى ذلك أن قيمة S قبل بداية الحلقة هي الصفر، وفي نهاية الدورة الأولى تصبح قيمتها مساوية للقيمة X(1) وفي نهاية الدورة الثانية تكون قيمة S مساوية للقيمة (X(1)+X(2))....... وفي نهاية الدورة n تكون قيمة S مساوية لمجموع عناصر الشعاع X.
مثال10:
ليكن لدينا معمل يحتوي على n عامل وكل عامل له راتب معين وذلك حسب العمل الذي يقوم به، والمطلوب:
1- تحديد اسم العامل صاحب الراتب الأعلى وما هو مقدار هذا الراتب.
2- تحديد اسم العامل صاحب الراتب الأقل وما هو مقدار هذا الراتب.
3- حساب مجموع المبلغ الذي يدفعه المعمل لعماله.
الحل:
وسنعرف من خلال هذا المثال كيفية التحكم بعرض الأعمدة من خلال الخاصية colwidth وكذلك بموضع الكتابة في الخلايا من خلال الخاصية colalignment.
Private Sub Command1_Click()
n = Val(txtn.Text)
ReDim x(n), y(n)
For i = 1 To n
x(i) = g1.TextMatrix(i, 1)
y(i) = Val(g1.TextMatrix(i, 2))
Next i
nomax = 1
nomin = 1
Max = y(1)
Min = y(1)
For i = 2 To n
If y(i) > Max Then Max = y(i): nomax = i
If y(i) < Min Then Min = y(i): nomin = i
Next i
For i = 1 To n
s = s + y(i)
Next i
txtnmax.Text = x(nomax)
txtnmin.Text = x(nomin)
txtsmax.Text = Max
txtsmin.Text = Min
txtstotl.Text = s
End Sub
Private Sub Form_Load()
g1.TextMatrix(0, 0) = "الرقم"
g1.TextMatrix(0, 1) = "اسم العامل"
g1.TextMatrix(0, 2) = "الراتب"
For i = 0 To 2
g1.ColAlignment(i) = 3
Next i
g1.ColWidth(1) = 2000
g1.ColWidth(2) = 1500
End Sub
Private Sub g1_Click()
g1.Text = ""
End Sub
Private Sub g1_KeyPress(KeyAscii As Integer)
g1.Text = g1.Text + Chr(KeyAscii)
End Sub
Private Sub Txtn_Change()
n = Val(txtn.Text)
g1.Rows = n + 1
For i = 1 To n
g1.TextMatrix(i, 0) = i
Next i
End Sub
مواضيع مماثلة
» المجموعة السابعة فيجوال بيزيك
» المجموعة الثامنة فيجوال بيزيك
» المجموعة التاسعة فيجوال بيزيك
» المجموعة العلشرة فيجوال بيزيك
» المجموعة الثانية فيجوال بيزيك
» المجموعة الثامنة فيجوال بيزيك
» المجموعة التاسعة فيجوال بيزيك
» المجموعة العلشرة فيجوال بيزيك
» المجموعة الثانية فيجوال بيزيك
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
29/7/2017, 11:29 am من طرف جبران جمول
» متى ستصحو وزارتي التربية والتعليم العالي
8/7/2017, 5:33 pm من طرف جبران جمول
» قليلا من الصدق يا محللين
2/7/2017, 7:29 pm من طرف جبران جمول
» امريكا وطبيعة المفاهيم والعقائد السائدة
28/6/2017, 7:59 am من طرف جبران جمول
» فلم خيالي من الواقع
7/6/2017, 4:02 pm من طرف جبران جمول
» مناهجنا
5/6/2017, 8:30 pm من طرف جبران جمول
» اللعب عالمكشوف ... لمن يملك الطرنيب
7/10/2016, 11:43 am من طرف الأمين العام
» خبير أمريكي: "الرواية الرسمية لعمليات سبتمبر الإرهابية مزيفة
13/9/2016, 9:33 am من طرف جبران جمول
» ماذا عن الاله بعل بعض المعلومات
6/8/2016, 12:20 pm من طرف جبران جمول
» سلمية تحارب بالكهرباء بالمياه
12/7/2016, 7:27 pm من طرف جبران جمول
» أسئلة برسم الفقهاء والعلماء فهل من مجيب
12/7/2016, 7:13 pm من طرف جبران جمول
» متى نبتعد عن السلفية في افكارنا .؟
8/7/2016, 11:12 am من طرف جبران جمول
» مبروك لقطر مبروك للخليج
5/8/2015, 6:58 pm من طرف الأمين العام
» ممثل الرئيس في سلمية لحل الأزمة
16/7/2015, 11:07 pm من طرف الأمين العام
» عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
12/7/2015, 8:24 pm من طرف الأمين العام