البرق الأبيض
New Member
بسم الله الرحمن الرحيم
في كثير من الأحيان يحتاج المبرمج الى استخدام جمل بركجية وتكرارها عدة مرات وبالتالي فانه سوف يكتب هذه الجمل وستكون جمل كثيرة تعمل على التقليل من جودة البرنامج وتجعل حجمه كبيرا وسرعته بطيئة لذا تم ايجاد طرق جديدة لتكرار الجمل البرمجية والتقليل منها مما يوفر والعناء والتعب والجهد الذي يتكبده المبرمج اثناء مرحلة التصميم .
من هذه الجمل :
1. جملة for..... next
2. جملة do .... loop
1. for ...... next
الشكل العام العدد الثاني to العدد الاول = متغير for
..............................
..............................
.............................. جمل برمجية
..............................
next
امثلة :
اكتب داخل زر الامر ما يلي
for a = 0 to 3
print a,a^2,sqr(a),"السلام عليكم ورحمة الله وبركاته"
next
'سوف يقوم البرنامج بكتابة السلام عليكم ورحمة الله وبركاته ثلاثة مرات ويقوم بكتابه الاعداد من 0 الى 3 مع مربعاتها وجذورها التربيعية
مثال 2 لايجاد مجموع الارقام بين عددين
اكتب داخل زر الامر ما يلي :
dim a as integer,s as integer
a=val(text1.text)
s=val(text2.text)
sum=0
for i = a to s
sum=sum+i
next
print sum
2. Do ...... loop
الشكل العام Do
............
............ جمل برمجية
............
loop until او loop while
مثال لعمل كلمة سر للنموذج باستخدام جملة التكرار do .... loop
Dim hus As String
Do
hus = InputBox(" اكتب البرق الأبيض في الخانة تحت")
If Not hus = "البرق الأبيض" Then
MsgBox "no"
Beep
End If
Loop Until hus = "البرق الأبيض"
مثال 2 لايجاد مجموع الارقام بين 0 و 4
dim a as integer
sum=0
a=0
do
a=a+1
sum=sum+1
loop while a<4
print sum
'يمكنك وضع اي رقم بدلا من 4
البرق الابيض
لو اردت صنع برنامج بواسطة لغة vb 6 ووضعته على قرص مرن واردت ان يراه احد اصدقائك وذهبت اليه حاملا القرص المرن ولم يكن عند صديقك vb 6 ماذا ستفعل ؟؟؟ !!!
فلن يشتغل البرنامج عند صديقك ,,, مشكلة ما هو الحل برايك ؟؟؟
الحل بسيط وهو ان تجعل البرنامج على شكل exe
كيف تفعل ذلك ؟؟؟
بعد الانتهاء من كتابة البرنامج اذهب الى قائمة file واختار make project .exe اكتب اسما للبرنامج واحفظه الى جهازك ,,,, وبذلك تكون المشكلة قد انتهت
في كثير من الأحيان يحتاج المبرمج الى استخدام جمل بركجية وتكرارها عدة مرات وبالتالي فانه سوف يكتب هذه الجمل وستكون جمل كثيرة تعمل على التقليل من جودة البرنامج وتجعل حجمه كبيرا وسرعته بطيئة لذا تم ايجاد طرق جديدة لتكرار الجمل البرمجية والتقليل منها مما يوفر والعناء والتعب والجهد الذي يتكبده المبرمج اثناء مرحلة التصميم .
من هذه الجمل :
1. جملة for..... next
2. جملة do .... loop
1. for ...... next
الشكل العام العدد الثاني to العدد الاول = متغير for
..............................
..............................
.............................. جمل برمجية
..............................
next
امثلة :
اكتب داخل زر الامر ما يلي
for a = 0 to 3
print a,a^2,sqr(a),"السلام عليكم ورحمة الله وبركاته"
next
'سوف يقوم البرنامج بكتابة السلام عليكم ورحمة الله وبركاته ثلاثة مرات ويقوم بكتابه الاعداد من 0 الى 3 مع مربعاتها وجذورها التربيعية
مثال 2 لايجاد مجموع الارقام بين عددين
اكتب داخل زر الامر ما يلي :
dim a as integer,s as integer
a=val(text1.text)
s=val(text2.text)
sum=0
for i = a to s
sum=sum+i
next
print sum
2. Do ...... loop
الشكل العام Do
............
............ جمل برمجية
............
loop until او loop while
مثال لعمل كلمة سر للنموذج باستخدام جملة التكرار do .... loop
Dim hus As String
Do
hus = InputBox(" اكتب البرق الأبيض في الخانة تحت")
If Not hus = "البرق الأبيض" Then
MsgBox "no"
Beep
End If
Loop Until hus = "البرق الأبيض"
مثال 2 لايجاد مجموع الارقام بين 0 و 4
dim a as integer
sum=0
a=0
do
a=a+1
sum=sum+1
loop while a<4
print sum
'يمكنك وضع اي رقم بدلا من 4
البرق الابيض
لو اردت صنع برنامج بواسطة لغة vb 6 ووضعته على قرص مرن واردت ان يراه احد اصدقائك وذهبت اليه حاملا القرص المرن ولم يكن عند صديقك vb 6 ماذا ستفعل ؟؟؟ !!!
فلن يشتغل البرنامج عند صديقك ,,, مشكلة ما هو الحل برايك ؟؟؟
الحل بسيط وهو ان تجعل البرنامج على شكل exe
كيف تفعل ذلك ؟؟؟
بعد الانتهاء من كتابة البرنامج اذهب الى قائمة file واختار make project .exe اكتب اسما للبرنامج واحفظه الى جهازك ,,,, وبذلك تكون المشكلة قد انتهت
