xpredo script

العودة   نيو حب > منتديات الحاسب والاتصالات > تحميل برامج - برامج كامله - برامج مجانية > شرح البرامج - برامج مشروحه > فيجوال بيسك
التسجيل

محتويات الدرس الخامس

فيجوال بيسك

25-02-2006, 12:47 AM
hosam
 
محتويات الدرس الخامس

محتويات الدرس الخامس :
v المعاملات (<> و < و > و => و =<)
v تركيب If…Then
v تركيب if …then …else
v تركيب select case
v تركيب For…Next
v تركيب do...loop

أولاً : المعاملات
سوف نلخصها في هذا الجدول
خاطئ إذا
صحيح إذا
مثال
معناه
المعامل
A أصغر أو أكبر من B
A تساوي B
A = B

يساوي

=
A تساوي B
A تختلف عن B
A <> B
لايساوي
<>
A أكبر من أو يساوي B
A أصغر من B
A < B
أصغر من
>
A أكبر من B
A أصغر من أو يساوي B
A <= B
أصغر من أو يساوي
=>
A أصغر من أو تساوي B
A أكبر من B
A > B
أكبر من
<
A أصغر من B
A أكبر من أو يساوي B
A >= B
أكبر من أو يساوي
=<

ملاحظة :

الرجاء من المبرمجين حفظ هذا الجدول


تركيب If…Then
If
شرط

Then
أمر واحد







مثال

if
"علي"Pw$ <>
Then
end
فإذا كانت الكلمة التي أدخلها المستخدم تختلف عن <> عبارة "علي" فإن الشرط يعد صحيحاً ويقوم "فيجول بيسيك" بتنفيذ الأمر الذي يلي كلمة Then وهو امر end وهو يقوم بإنهاء البرنامج .
يمكن تنفيذ عدة أوامر بالطريقة التالية
If

شرط
Then
الاوامر

مجموعة

End if

مثال : (برنامج إدخال كلمة سر )
)"أدخل كلمة السر من فضلك"pw$ = inputbox$ (
then "علي"if pw$ <>
beep
beep
"كلمة السر غير صحيحة"msgbox
end
end if

تركيب if…then ….else
وتكون صياغته بالشكل التالي :
then شرطif
مجموعة أوامر
else
مجموعة أوامر
end if
في هذا التركيب يقوم "فيجول بيسيك" بتقييم الشرط ، فإن كان صحيحاً فإنه ينفذ مجموعة الأوامر التي تلي كلمة then حتى كلمة else وإن كان خاطئاً فإنه ينفذ مجموعة الأوامر
التي تلي كلمة else حتى كلمة end if . أي أنه لابد من تنفيذ إحدى المجموعتين من الأوامر . مثال :
)"أدخل كلمة السر من فضلك"pw$ = inputbox (
then "علي" if pw$ =
"أهلا وسهلاً بك في البرنامج" msgbox
else
"هذا البرنامج مخصص لمجموعة محددة من المستخدمين"msgbox
end
end if

يقوم البرنامج بسؤال المستخدم عن كلمة سر فإذا كانت صحيحة فإنه يرحب به وأما إذا كانت غير ذلك يعرض عليه رسالة توضيحية وبعدها يخرج من البرنامج

تركيب Select Case
إذا كان لديك احتمال واحد أو احتمالين للشرط ، فإنه يمكنك إستخدام تركيبات if التي ذكرناها سابقاً . أما إذا كان لديك عدة احتمالات فإنه من الأفضل أن تستخدم تركيب Select Case وتكون صياغته كالتالي
الشرط select case
الاحتمال الأول Case
مجموعة أوامر
الاحتمال الثاني Case
مجموعة أوامر
الاحتمال الثالث Case
مجموعة أوامر
………
إذا لم يكن أي من الاحتمالات السابقة Case Else
End Select

في هذا التركيب يقوم "فيجول بيسيك" بتقييم الشرط في بداية التركيب . ثم يبدأ في مقارنته مع الاحتمالات المختلفة التي تذكرها عند كلمة Case ، فإذا وافق أحدها الشرط ، فإنه يقوم بتنفيذ مجموعة الأوامر التي تليها حتى كلمة Case التالية . وإذا لم يوافق أي من الاحتمالات المذكورة فإنه ينفذ مجموعة الأوامر التي تلي كلمة Case Elese ( وهي اختيارية ) فإذا لم تكن موجودة ، فإنه لانفذ أي من تلك الأوامر
وكمثال على تركيب Select Case ، لنفرض أن لديك أربعة مستخدمين للبرنامج وتريد أن تحدد درجة المستخدم حسب كلمة السر التي يدخلها ، فإنك تكتب شيئاً مشابها لمجموعة الأوامر التالية :


"أدخل كلمة السر من فضلك"pw$ = inputbox (
المعيار الذي سنتفرع بناءاً على قيمته select case pw$
هل هي الخفجي؟ "الخفجي" case
مجموعة الأوامر
هل هي الوفرة؟ "الوفرة" case
مجموعة الأوامر
ليست واحدة من الكلمات Case Else
"كلمة السر غير صحيحة "msgbox
end
end selcet

التكرار :
التكرار loop يعني تكرار مجموعة معينة من الأوامر عدد معين من المرات . وهناك ثلاثة تركيبات لعمل ذلك وهي :
تركيب for …next
يستخدم إذا كنت تعرف عدد المرات التي ترغب في تكرارها ، وتكون صياغته كالتالي:

for
متغير يستخدم للعد
=
البداية
to
النهاية
step
الزيادة في كل مرة(اختياري
ضع مجموعة الأوامر التي تريد تكرارها هنا

اسم المتغير next
مثال :
إذا أردت أن تكرر مجموعة أوامر عشرة مرات مثلا قم بما يلي :


for counter = 1 to 10
مجموعة الأوامر
next counter
ويجب أن لا تعدل قيمة المتغير الذي يحمل عدد مرات التكرار
مثال
for counter = 1 to 10
………………….
Counter = counter +1
Next counter

هذا التكرار سيتفذ 5 مرات لأن في كل مرة يتم فيها تنفيذ مجموعة الأوامر المحصورة بين for و next تتم فيها زيادة المتغير مرتان .

تكرار do…...loop
يفيد هذا التكرار إذا كنت لاتعرف عدد مرات التكرار التي تريدها

لنفرض أنك تريد تكرار مجموعة أوامر بشكل مستمر حتى يتحقق شرط معين فإنك تستخدم هذا التكرار . ( هذا التكرار له عدة أشكال سوف نشرح هذه الاشكال كما يلي :
الشكل الأول
شرط do while
مجموعة الأوامر ……
loop
في هذه الصياغة يقوم "فيجول بيسيك" بتقييم الشرط ، فإن كان خاطئا فلا يقوم بتنفيذ التكرار أبداً . أما إذا كان صحيحاً ، فإنه يقوم بتنفيذ مجموعة الأوامر المحصورة كلمتي do و loop مرة. ثم يعود ويختبر الشرط مرة أخرى .. وهكذا حتى يجد الشرط خاطئاً فيخرج من التكرار . مثال :
dim myval as string
do while myval <> "bye"
input #1, myval
print myval
loop

في هذا المثال يضل يقرأ حتى يصل إلى كملة "bye "

الشكل الثاني
DO

مجموعة الأوامر
الشرط Loop while
في هذه الحالة يقوم "فيجول بيسيك" بتنفيذ التكرار مرة واحدة ثم يحتبر الشرط فإن كان خاطئا فإنه يوقف التكرار ، وإن كان صحيحا فإنه يقوم بتكرار مجموعة الأوامر

الخروج من التكرار :
طريقة الخروج

اسم التكرار
Exit for
التكرار for…next
Exit loop
التكرار do …loop

من مواضيع : hosam محتويات الدرس الثالث
محتويات الدرس السادس
محتويات الدرس الثاني :
درس الالوان في فيجوال بيسك
كيف تضيف اداة جديدة لصندوق الادوات
21-03-2006, 04:59 PM
mohamed1234
 
مشاركة: محتويات الدرس الخامس

مشكور جيدا على الدورس مميز
من مواضيع : mohamed1234
08-04-2006, 01:41 PM
usama2000
 
مشاركة: محتويات الدرس الخامس

مشكور
من مواضيع : usama2000
15-04-2006, 03:27 PM
حريف نت مش هاوى
 
مشاركة: محتويات الدرس الخامس

مشكووووووووور
من مواضيع : حريف نت مش هاوى
23-04-2006, 03:20 PM
mohamed1234
 
مشاركة: محتويات الدرس الخامس

مشكور أخي كريم
من مواضيع : mohamed1234
20-09-2006, 01:22 PM
hossam_alfd
 
مشاركة: محتويات الدرس الخامس

مشكككككككككور
من مواضيع : hossam_alfd
20-09-2006, 01:27 PM
حماده عجور
 
مشاركة: محتويات الدرس الخامس

مشكور حسام علي الموضوع
من مواضيع : حماده عجور
20-09-2006, 01:27 PM
حماده عجور
 
مشاركة: محتويات الدرس الخامس

مشكور حسام علي الموضوع
من مواضيع : حماده عجور
01-01-2010, 05:09 PM
الأهلاوي دائما
 
شكرا وجزاك الله خير
من مواضيع : الأهلاوي دائما
 

الكلمات الدلالية (Tags)
محتويات, الخامس, الجرس

أدوات الموضوع

الانتقال السريع

المواضيع المتشابهه
محتويات الدرس السادس
109 درس فوتوشوب بالصوت والصورة وباللغة العربية .. فرصة لاتعوض
نصف قرن.. محمد الخامس واستقلال المغرب
الدرس الخامس من احتراف الشبكات
هديه للجميع ( 109 ) دروس لتعليم الفوتوشوب بالفيديو وبالعربي

محتويات الدرس الخامس

الساعة الآن 11:27 AM.