الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طريقة جميلة في استخدام التعابير المنطقية (if...... Then)

بدأه Naser Al Masarwa في 28 ديسمبر 2008 · 10 رد · 2,034 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

تأملوا الى هذا الكود

Dim Number as Integer
If  Number<>0 then

طبعاً هذا الكود سوف يتحقق من ان القيمة Number تساوي صفراً ام لا

وفي حالة ان القيمة Number لا تساوي صفر فان المعالج سيعيد قيمة "True" والا فانه سيعيد قيمة "False" والتي في لغة الالة تساوي صفر

طبعاً هذا هو الاسلوب المعتاد في استخدام الكود "IF"

ولكن في احدى المشاركات التي قمت بالطلاع عليها وهي على هذا الرابط

/index.ph...181593&hl=0

اذا اطلغتم على الموضوع الى اخره ستجدون ان صاحب الموضوع اعاد صياغة التعبير السابق مستغلاً لغة الالة بهذا الاسلوب

Dim Number as Integer
IF Number Then

وكما تلاحظون فقد استغنى المبرمج عن المقطع

<>0

فكيف تم ذلك

ان المتغير Number سيعيد اما صفراً او اي قيمة اخرى غير الصفر

فان اعاد صفراً فانها بمثابة القيمة "false"

واذا اعاد اي قيمة اخرى فانها بمثابة القيمة "True"

طبعاً هذا يدل على فهم صاحب الموضوع للغة الالة ولشدة اعجابي بهذا الاسلوب احببت ان اشارك الجميع بشرح هذه القاعدة

وذلك بوضعها بموضوع مستقل يحمل عنواناً يدل على المحتوى.

ناصر المصاروة

شبكة سوارقريباً

Sewar

#2

مشكوووووووووور اخى

بارك الله فيك

#3

بارك الله فيك وجزاك الله خير

ونفع الله بعلمك

اتق الله حيث ماكنت

#4

وعليكــم السـلام ورحمة الله وبركاتـه..

اقتباس
طبعاً هذا يدل على فهم صاحب الموضوع للغة الالة ولشدة اعجابي بهذا الاسلوب احببت ان اشارك الجميع بشرح هذه القاعدة

وذلك بوضعها بموضوع مستقل يحمل عنواناً يدل على المحتوى.وعليكــم السـلام ورحمة الله وبركاتـه..

في كل يوم تثبت لنا بأنك حريص على فائدة الجميع ومحب لنشر العلم . بارك الله فيك واكثر من امثالك

لك مني كل الشكر والتقدير اخي ناصر على ما تقدمه ... اسأل الله ان يجعله في موازين حسناتك

#5

اشكر اخي At_Aziz واخي يوسف احمد على المجاملة الطيبة

وبناءً على طلب احد الاخوة اود ان اوضح كيف يمكن الاستفادة من هذه الطريقة وذلك من خلال بعض الامثلة

الكود التالي يعيد القيمة "True" اذا كان الرقم فردي

If Number mod 2 then

الكود التالي يعيد القيمة "True" اذا كان الفرق بين تاريخين اكبر من صفر

If DateDiff(exprission) then

كذلك يمكن استخدامه في الحلقات بهذه الطريقة

بحيث تبقي الحلقة تدور حتى تصبح قيمة المتغير "I" صفر

D While I

كذلك يمكن ربط قيمة متغير اختيار بقيمة متغير رقمي او مربع نص

فتبقى قيمة مربع الاختيار تساوي "True" مادامت قيمة المتغير لا تساوي صفراً

Checkbox = text1

او يمكن استخدامه للتحقق من عدم تساوي قيمتين كالتالي

Checkbox = num1 - num2

كما يمكن استخدامه في الاستعلامات التي تتحقق من وجود سجلات بطريقة مختصرة جداً كالتالي

انشيء استعلام يعيد عدد السجلات في جدول ما

حول نوع الحقل "Count" والذي يعيد عدد السجلات الى "Yes\no"

اما الطريقة التقليدية فكانت

باضافة حقل اخر يعيد قيمة "True / False" بناءاُ على الرقم الموجود في الحقل "Count"

مما يقلل من عدد الاعمدة في الاستعلام

هذه بعض الحالات التي يمكن استخدام هذه الطريقة بها والامثلة كثيرة

ناصر المصاروة

شبكة سوارقريباً

Sewar

#6

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

#7

بســم الله الـرحمــن الرحيــم

وعليكــم السـلام ورحمة الله وبركاتـه..

بارك الله بك اخي ناصر على هذه الملاحظة المهمة فعلا .

وجزاك الله خير الجزاء على هذا العطاء المتواصل.

اخوك ابو عدنان

27169617.gif
#8

رائع يا اخ ناصر

#9

إستخدام رائع .. لمنطق رائع .. من أخ رائع .. أحب أن يشارك إخوته المعلومة .. فكان لزاما علينا المحبة والتقدير لشخصه الكريم

اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد

وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد

#10

الاخ "Sx1" الاخ ابو عدنان الاخ ماجد شاور الاخ "Koao"

جزيل الشكر لكم جميعاً على هذا الاطراء وبنبضكم ينهض المنتدى

ناصر المصاروة

شبكة سوارقريباً

Sewar

#11

جزاك الله خيرا أخى ناصر

تمنياتى لك بالتوفيق

44782353.gif

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…