Transcript دالة val • الدالة : • تستخدم هذه الدالة في الحصول على القيمة العددية لسلسلة حرفية معينة أو متغير حرفي .

‫دالة ‪val‬‬
‫• الدالة ‪:‬‬
‫• تستخدم هذه الدالة في الحصول على القيمة العددية لسلسلة‬
‫حرفية معينة أو متغير حرفي ‪.‬‬
‫صيغ كتابة هذه الدالة‪:‬‬
‫)‪N = Val (X‬‬
‫حيث‪:‬‬
‫)‪:(x‬‬
‫هي المتغير الحرفي أو قيمة السلسلة الحرفية المراد تحويلها‬
‫إلى قيمة عددية ‪.‬‬
‫(‪:)N‬‬
‫هى مخزن عددي لوضع فيه ناتج هذه الدالة (القيمة العددية )‬
‫للسلسلة الحرفية ‪.‬‬
)١ ( ‫مثال‬
Dim X As String : Dim N As Single
X = "Cairo 2001" : N = Val (X) : MsgBox(N)
0
‫الناتج هو العدد‬
(٢ ( ‫مثال‬
Dim X As String
Dim N As Single
X = "He has 3 books"" : N = Val (X) :
MsgBox ( N )
0 ‫الناتج هو العدد‬
(3 ( ‫مثال‬
Dim X As String
Dim N As Single
X = "13/11/1995"" : N = Val (X) : MsgBox ( N )
13 ‫الناتج هو العدد‬
(3 ( ‫مثال‬
Dim X As String
Dim N As Single
X = " -3.5 X + 14 = 0 " : N = Val (X$) : MsgBox ( N )
-3.5 ‫الناتج هو العدد‬
‫الدالة ‪MsgBox‬‬
‫• تستخدم هذه الدالة في إظهار رسالة في صندوق‬
‫حوارأو إظهار ناتج عملية حسابية‪ ،‬ثم ينتظر من‬
‫المستخــدم النقر على أي زر من أزرار صنـدوق‬
‫الحوار ‪.‬‬
‫ومن أشكال الداله‬
‫صيغ كتابة هذه الدالة‪:‬‬
‫‪MsgBox prompt‬‬
‫‪( : Prompt‬هى الرسالة المطلوب إظهارها داخل صندوق الحوار)‬
‫امثله‬
 MsgBox ( 5 * 8 )
 MsgBox ( "5 x 8 = " & 5 * 8 )
‫بعد التنفيذ سيظهر الصناديق الحوارية اآلتية‪.‬‬
‫الدالة ‪InputBox‬‬
‫• تستخدم هذه الدالة في إظهار رسالة داخل صندوق‬
‫حوارأو إظهار ناتج عملية حسابية‪ ،‬ثم ينتظر من‬
‫المستخدم ادخال نص او النقر على أي زر من‬
‫أزرار صندوق الحوار ‪.‬‬
‫وسيكون ناتج الدالة‬
‫‪ InputBox‬كما بالشكل التالى‬
‫صيغ كتابة هذه الدالة‪:‬‬
‫)‪InputBox (prompt, title , default‬‬
‫‪Prompt‬‬
‫‪(:‬هى الرسالة المطلوب إظهارها داخل صندوق الحوار)‬
‫‪Title‬‬
‫‪(:‬النص المراد إظهاره في شريط عنوان صندوق اإلدخال )‬
‫‪Defaul‬‬
‫‪ (:‬النص اإلفتراضي المراد إظهاره داخل صندوق اإلدخال)‬
(1 ( ‫مثال‬
Dim K As String
K = InputBox )“‫("ادخل اسمك‬
(2 ( ‫مثال‬
Dim K As String
K = InputBox )“‫("ادخل العدد‬
‫دالة ‪Rnd‬‬
‫• الدالة ‪:‬‬
‫• تستخدم في توليد عدد حقيقي عشوائي قيمته أكبر من أو تساوي‬
‫الصفر وأقل من الواحد ‪.‬‬
‫• ‪1 < Rnd =< 0‬‬
‫صيغ كتابة هذه الدالة‪:‬‬
‫) ‪MsgBox ( Rnd‬‬
‫‪N = Rnd‬‬
‫‪Rnd‬‬
‫دالة ‪Rndomize‬‬
‫• الدالة ‪:‬‬
‫• تستخدم هذه الدالة غال ًبا مع الدالة ‪ Rnd‬ذلك للحصــــــول‬
‫على عددعشوائي يتغير قيمته في كل مرة يتم فيها استدعاء‬
‫الدالـة ‪. Rnd‬‬
‫صيغ كتابة هذه الدالة‪:‬‬
‫) ( ‪Randomize‬‬