المجموعة التاسعة فيجوال بيزيك

Admin 27/4/2007, 11:09 am

التاريخ والساعة و الميقاتية:

التابع NOW: هذا التابع هو عدد طويل يتضمن معلومات عن التاريخ والوقت الحاليين كما هما في تقويم الجهاز. يمكن من خلال هذا التابع استخلاص التاريخ الكامل أو الوقت الكامل أو السنة فقط أو الشهر أو اليوم أو الساعة أو الدقيقة أو الثانية. يساعد في ذلك التابع Format. حيث الصيغة العامة للتابع كما يلي:

Format(now, "X")

حيث X هو قالب يجعل قيمة التابع تتغير بموجبه، فيما يلي أهم أشكال X وما يترتب عليها:

X

قيمة التابع Format(now, "X")

d

اليوم الحالي على هيئة رقم واحد.

dd

اليوم الحالي على هيئة رقمين

dddd

اليوم الحالي مكتوباً

ddddd

اليوم الحالي على هيئة تاريخ

w

رقم اليوم الحالي بين أيام الأسبوع، لكما يمكن تحديد أول يوم في الأسبوع كما يلي Format(now, "X",i) : حيث i=0-6 :0هو السبت.....

ww

رقم الأسبوع الحالي بين أسابيع السنة

m

رقم الشهر الحالي بدزن صفر

mm

رقم الشهر الحالي في خانتين

mmm

اسم الشهر الحالي

التوابع Date، Time, (تاريخ لاحق,تاريخ سابق, مقياسDatediff(

مثال 15:

اكتب برنامج لحساب عمر المستخدم بالسنين أو الأشهر أو الأيام أو بالساعات

[color=red]Sub findsum()[color:81e8=red:81e8]

For n = 0 To Option1.Count - 1

If Option1(n).Value Then Exit For

Next n

Select Case n

Case 0

X = "yyyy"

Case 1

X = "m"

Case 2

X = "d"

Case 3

X = "h"

End Select

Text2.Text = DateDiff(X, Text1.Text, Date)

[color=red]End Sub[color:81e8=red:81e8]

[color=red]Private Sub Text1_Change()[color:81e8=red:81e8]

On Error Resume Next

findsum

End Sub

الميقاتية:

هذه الأداة تقوم، إذا كانت مهيأة للعمل (Enabled) بمقاطعة التنفيذ الجاري في المشروع عند فترات زمنية محددة مسبقاً(Intervals) وذلك لتنفيذ فقرة من الأوامر مخصصة لها في سياق المشروع. عند تنفيذ البرنامج لا تظهر الميقاتية على الشاشة.

تمرين: إظهار ساعة الجهاز على أداة Label

نقوم بضبط الفترة الزمنية عند الرقم 1000 أي ثانية واحدة ثم نكتب العبارة التالية ضمن البرنامج الجزئي الخاص بهذه الأداة:

[color=red]Private Sub Timer1_Timer()[color:81e8=red:81e8]

Label1.Caption = Time

End Sub

القوائم:

أصبح مألوف أن نشاهد قوائم خدمة menus في قمة واجهة المشروح. فكيف يتم تصميم هذه القوائم وبرمجتها؟ يساعد في ذلك برنامج خاص مستتر خلف الاسم (مصمم القوائم Menu Editor). هذه الخدمة يمكن الحصول عليها من القائمة tools، أو من الزر الخاص بذلك على شريط الأدوات، أ, من القائمة السريعة. عند طلب هذه الخدمة يطل إلى الشاشة النافذة التالية:

لبرمجة أي قائمة جزئية، من واجهة التصميم يتم النقر على اسم هذه القائمة مرة واحدة لتظهر صفحة البرمجة فيتم إدخال الأوامر اللازمة. تجدر الإشارة إلى أن الحدث الوحيد الذي يحرض البرنامج المناظر للقائمة هو الحدث Click.