ما هي الدوال ؟ الداله هي عبارة عن برنامج صغير تم كتابته بواسطه مبرمجي هذه اللغه ثم ثم
تم حفظها مع عناصر اللغه تحت اسم معين وقد يتبع اسم الداله قوسين بداخلهما
متغير او عدد من المتغيرات وترتبط فيما بينهما بعلاقه معينه للحصول علي
قيمه تمثل ناتج الداله
وقد تتغير قيمه الداله تبعا للتغير في هذه المتغيرات ويطلق علي هذا النوع
من الدوال اسم الدوال المحفوظه
(Reserved Function) اي
جاهزة وموجوده بالفعل مع تعليمات اللغه
يوجد نوع اخر من الدوال يطلق عليه اسم الدوال المعرفه
(Defined Function) اي غير موجودة ضمن عناصر اللغه ولكن يتم تعريفها
(اي كتابتها ) من خلال مستخدم هذه اللغه وتستخدم الدوال في تبسيط العمليات
كالعمليات الحسابيه فانها تعطي نتائج اسرع
ويمكن الحصول علي القيمه الناتجه من الداله واستعمالها مباشرة او وضعها
داخل مخزن من نوع القيمه الناتجه وستكون قيمه هذا المخزن هي ناتج هذه
الداله
سنتطرق في هذا الفصل الي الدوال الاتيه :-
QBColor
RGB
VAL
RND
FIX
Len
$Ucase
$Lcase
$Utrim
$Ltrim
$Left
$Right
Mid
Trim
اولا الداله QBColor تستخدم هذه الداله لتغير لون الكتابه او الرسم او الخلفيه في بعض
الكائنات
وصيغتها العامه هي
- اقتباس :
QBColor(n)
N : هو رقم اللون المراد استخدامه وهو عدد صحيح او مخزن
عددي يأخذ القيم الصحيحه من 0 الي 15
والجدول الاتي يبين ارقام الالوان التي يمكن استخدامها مع هذه الداله :
ملحوظه : يمكنك ايضا
استخدام الصيغه الاتيه لتغير الالوان VBColor Color = هي اسم اللون مثلا يمكننا استخدام اللون الاحمر VBRED اي نكتب اسم اللون ويسبقه VB ثانيا الداله RGB تستخدم هذه الداله للحصول علي لون ناتج من مزج ثلاثه الوان معا
(RED,GREEN,Blue) واللون الناتج منهما يمكن استخدامه لتغيير لون الكتابه او الرسم او خلفيه
بعض الكائنات والصيغه العامه هي :
- اقتباس :
RGB(K,L,N)
K : عدد يمثل مقدار اللون الاحمر المراد مزجه
L : عدد يمثل مقدار اللون الاخضر المراد مزجه
N : عدد يمثل مقدار اللون الازرق المراد مزجه
وجميع قيم K,L,N اعداد صحيحه تتراوح قيمتا من 0 الي 255
مثال لبرنامج المزج
قم بوضع عدد 3 تيكست و عدد 1 ليبل و زر امر
ثم اكتب الامر التالي في زر الامر
- اقتباس :
Label1.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text)
الان قم بتشغيل البرنامج
ثم اكتب اي قيم تتراوح من 0 الي 255 في التكستات واضغط علي زر الامر
ستلاحظ ان اللون يتغير في الليبل حسب مدخلاتك من الارقام
ثالثا الداله VAL تستخدم هذه الداله في الحصول علي قيمه عدديه لسلسله حرفيه معينه او متغير
حرفي وقد تحتاج الي استخدام هذه الداله لتحويل محتوي صناديق النصوص
(TextBox) من قيم حرفيه الي قيم عدديه لاجراء
العمليات الحسابيه عليها
والصورة العامه لها :
- اقتباس :
Val(X)
X
: هو المتغير الحرفي او قيمه السلسله الحرفيه المراد تحويلها الي قيمه
عددية
الان سنقوم بعمل اله حاسبه صغير لتجريب هذة الداله
قم بعمل فورم بهذا الشكل
اما بالنسبه للأكواد في كالتالي :
 |
 |
رابعا الداله RND تستخدم هذه الداله في توليد عدد حقيقي عشوائي قيمته اكبر من او تساوي
الصفر واقل من الواحد الصحيح اي
- اقتباس :
(0<= RND < 1)
لاظهار ناتج هذه الداله استخدم الكود التالي
- اقتباس :
Msgbox RND
في كل مرة تتغير قيمتها
خامسا الداله Fix تستخدم هذه الداله للحصول علي الجزء الصحيح الموجود في عدد حقيقي معين
وصيغتها العامه هي :
- اقتباس :
Fix(R)
R= هي المتغير العددي المراد اخذ الجزء الصحيح منه
المثال
قم بعمل تصميم لنموذج مثل هذا
الان قم بكتابه الكود التالي
- اقتباس :
- Private Sub Text1_Change()
Label4.Caption = Fix(Val(Text1.Text ))
Label5.Caption = Val(Text1.Text) - Val(Label4.Caption)
End Sub
الان قم بكتابه الرقم مثلا 8.30
سيظهر لك في الصندوق الاول 8
وفي الصندوق الثاني 30.
الرئيسية 
البوابة 
التسجيل 
دخول 
السبت 19 يونيو 2010, 4:07 pm
