الدوال فى الفيجوال بيسك وشرحها الجزء الثالث عشر

دوال متنوعة الجزء الثانى

دالة $ Error/Error

("أدخل رقم رسالة الخطأ المطلوب إظهار محتوياتها")ErrNum = InputBox

 )Error&";:الرسالة هى"&ErrNum  &": رقم الرسالة هو" msgbox 

 (ErrNum

تعيد هذه الدالة رسالة تبين نوع الخطأ الناتج أثناء التشغيل وتخص الكود المكتوب . المثال التالي يستخدم الدالة Error لإظهار رسالة الخطأ التي تخص الكود الذي يدخله المستخدم .

الدوال فى الفيجوال بيسك وشرحها الجزء الثانى عشر

دوال متنوعة الجزء الاول

دالة Iif

Dim Answer As String

("Answer = IIf(Text1.Text > 1000, "Large", "Small

"MsgBox "Large

"MsgBox "Small

الدوال فى الفيجوال بيسك وشرحها الجزء الحادى عشر

دوال الريجسترى

دالة Get Setting

'المثال 1

()Private Sub Form_Load

 Dim S As String

     ("S = GetSetting("RunOnce", "OnlyTest", "Times

      If S = > 3 Then

    " لقد تم تشغيل هذا البرنامج3 مرات من قبل ولن يعمل الان"msgbox

   

الدوال فى الفيجوال بيسك وشرحها الجزء العاشر

دوال المجال الاحصائية

دالة DstDev

"dstdev_price=DstDev("unetprice","products

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

الدوال فى الفيجوال بيسك وشرحها الجزء التاسع

دوال المجال

دالة Dfirst

'صيغة الدالة

([معايير,],حقل,تعبير) Dfirst    

مثال

("cfax=Dfirst("[fax]","customer

تقوم الدالة باعادة القيمة من اول سجل في المجال.

الدوال فى الفيجوال بيسك وشرحها الجزء الثامن

دوال المدخلات والمخرجات

دالة Msg Box

'الصيغة

([Msgbox(prompt[,buttons],[title][,helpfile,context

'مثال

 ("برمجة الحاسب للمبتدئين") MsgBox 

الدوال فى الفيجوال بيسك وشرحها الجزء السابع

الدوال المالية

دالة Ddb

الصيغة

(الفترة,سنوات الاستهلاك,نهاية المدة,الكلفة الاصلية)DDB

تقوم هذه الدالة بعملية مضاعفة لعملية الاهلاك وهذا يعني ان مصاريف الاستهلاك ستكون اكبر في السنوات الاولى  .(طريقة ضعف نسبة القسط)

وبمعنى آخر تحسب اهلاك الاصول في سنوات اقل مما لو استخدمنا الدالة SLN

الدوال فى الفيجوال بيسك وشرحها الجزء السادس

دوال التحقق من البيانات

دالة IsNull

If IsNull(Text1.Text) Then

            ("لا يوجد بيانات فى هذا الحقل") MsgBox

Else

            ("يوجد بيانات داخل صندوق النص")MsgBox

End If

IsNull Function Example 

    

' مثال اخر

الدوال فى الفيجوال بيسك وشرحها الجزء الخامس

دوال سلاسل البيانات

دالة Array 

"Frist","Second","Third","Forth" 

("MyNumber= Array("First" , "Second" , "Third" , "Forth

(Print MyNumber(0

(Print MyNumber(1

(Print MyNumber(2

(Print MyNumber(3

نرى أن النتيجة هي

First

Second

Third

Forth

الدوال فى الفيجوال بيسك وشرحها الجزء الرابع

الدوال الرياضية 

دالة Atn

(رقم)MyNumber=Atn 

تستخدم هذه الدالة في حساب مقلوب ظل الزاوية "ظتا" للرقم الذي تشتمل علية مقدار بالتقدير الدائري 

الدوال فى الفيجوال بيسك وشرحها الجزء الثالث

دوال الوقت والتاريخ

 دالة year

(Label1.Caption = Year(#1/4/97#

تعيد هذه الدالة رقما يعبر عن السنة لتاريخ معين 

دالة week day

(Label1.Caption = Weekday(#1/4/97#

Structure of control in Visual Basic 5

قبل البدء فى تكملة باقى دروس بنية التحكم الجزء الخامس والاخير كنت عاوز اضف رد على العليق اللى جالى على الايمال وكان السؤال هو ؟
 س / ما الفرق بين DoèLoop Until & Loop While ؟
  ج / الاثنين واحد وبيقوامو بنفس الشرط على يمين while و until لكن 
  
loop while


هنا الحلقة الاولى يتم تنفيذها في جميع الاحوال لأن التحقق من 


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

اما