تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المصفوفات درس شامل (3)
#1
كاتب الموضوع : المعرب

الأحداث Events
وتحتوى هذه الأداة على حدث واحد فقط يسمى Timer ويحتوى هذا الحدث على TimerName_Timer() ويظهر الحدث فى حالة النقر المزدوج على أداة الوقت كما يلى
Private Sub Timer1_Timer()

End Sub
أهم الخصائص
وتحتوى أداة الوقت Timer على مجموعة من الخصائص الخاصة بها وهى 7 خصائص هما :-

الخاصية
الوصـــف
Name
ومن خلالها يتم تحديد اسم لأداة الوقت والذى يتم استخدامه فى كتابة الكود الخاص بهذه الأداة
Enabled
تستخدم هذه الخاصية لتحديد هل هذه الأداة متاحة للتعامل معها من قبل المستخدم أم لا ولها قيمتين True or False
Index
من خلال هذه الخاصية يتم وضع رقم لهذه الأداة فى حالة استخدامها فى مصفوفة الأدوات
Interval
وتعتبر هذه الخاصية من أهم خصائص هذه الأداة والتى من خلاله يتم تحديد الفترة التى بعدها يتم تنفيذ الحدث الخاص بهذه الأداة . وتقاس قيمة هذه الخاصية بالمللى سكند
Left
تحدد الطرف الأيسر لهذه الأداة
Top
تحدد الطرف العلوى لهذه الأداة

ويعتبر الخاصية Interval من أهم الخصائص الخاصة بهذه الأداة حيث من خلالها يتم تحديد الوقت الخاص بتنفيذ حدث معين وتقاس قيمة هذه الخاصية ( بالمللى سكند ) وأقصى قيمة لهذه الخاصية 65.535 فمثلا عند تنفيذ حدث معين بعد ثانية يتم تغيير الخاصية Interval إلى 1000 وتعنى تنفيذ حدث معين بعد ثانية واحدة كما يمكنك تغيير هذه الخاصية أثناء تشغيل البرنامج من خلال كتابة الكود التالى فى الحدث الخاص بهذه الأداة كما يلى :-
Timer1.Interval = 1000استخدام دالة الـ Date , Time , Now
في الـ VB يمكنك استخدام دالة الـ Time للحصول على الوقت الحالي للجهاز كما يمكنك استخدام دالة الـ Date للحصول على التاريخ الحالي لجهاز الكمبيوتر كما يمكنك استخدام دالة الـ Now للحصول على الوقت والتاريخ معا .
مثال :-
· قم بوضع ثلاث أزرار أوامر CommandButton على الـ Form
· قم بتغيير الـ Name الخاص بزر الأمر الأول إلى cmdTime والثاني إلى cmdDate والثالث cmdNow قم بكتابة الحدث الخاص بكل أداة كما يلي
Private Sub cmdTime_Click()
cmdTime.Caption = CStr(Time)
End Sub

Private Sub cmdDate_Click()
cmdDate.Caption = CStr(Date)
End Sub

Private Sub cmdNow_Click()
cmdNow.Caption = CStr(Now)
End Sub
· قم بتشغيل البرنامج ولا حظ ما يحدث
وتلاحظ أن في هذا البرنامج أن دالة الـ Time , Date , Now تعود بمتغير من النوع Date ذلك لابد من استخدام دالة CStr و التي تقوم بتحويله إلى متغير حرفي .

استخدام دالة الـ Format
تعتبر دالة الـ Format من أهم دوال الـ Vb للتحكم فى كيفية عرض الحروف والأرقام وتستخدم هذه الدالة للتحكم فى عرض الوقت والتاريخ والأعداد وعرض المتغير الحرفى بشكل ملائم .
وتأخذ هذه الدالة الشكل التالى :-
MyString$=Format(Expression[,Format_String[,FirstDayofWeek[,FirstWeekOfYear]]]) · MyString$ : هى القيمة العائدة من الدالة · Expression : التعبير الذى تريد تحديد الشكل الخاص به سواء كان String , Date, or Numeric· Format_String : تخبر الدالة بالوضع أو الشكل التى تريد أن يظهر بها الشكل ويجب وضع الشكل بين علامتى تنصيص " ".· FirstDayofWeek : عبارة عن قيمة اختيارية والتى تحدد من خلالها أول يوم فى الأسبوع , يقوم بوضع قيمة افتراضية هى Sunday ولكن إذا أردت وضع أى يوم آخر يبدأ به الأسبوع يمكنك تحديد ذلك من خلالها .· FirstWeekOfYear :عبارة عن قيمة اختيارية والتى تحدد من خلالها أول أسبوع فى السنة .ويوضح الجدول التالى شكل دالة الـ Format لكل من الوقت Time و التاريخ Date
شكل الدالة
مثــــــال
النتيجة
"Long Date"
Format(36000, "Long Date")
Friday,July24, 1998
"Medium Date"
Format(36000, "Medium Date")
24-Jul-98
"Short Date"
Format(36000, "Short Date")
7/24/98
"Long Time"
Format(0.874, "Long Time")
8:58:34 p.m.
"Medium Time"
Format(0.874, "Medium Time")
08:58 p.m.
"Short Time"
Format(0.874, "Short Time")
20:58
ويوضح الجدول التالى شكل دالة الـ Format للأعداد Numbers
Format String
مثــــــال
النتيجة
"General Number"
Format(36000, "General Number")
36000
"Currency"
Format(36000, "Currency")
$36,000.00
"Fixed"
Format(36000, "Fixed")
36000.00
"Standard"
Format(36000, "Standard")
36,000.00
"Percent"
Format(36000, "Percent")
3600000.00%
"Scientific"
Format(36000, "Scientific")
3.60E+04
"Yes/No"
Format(36000, "Yes/No")
Yes
"True/False"
Format(36000, "True/False")
True
"On/Off"
Format(36000, "On/Off")
On
لعمل برنامج لإظهار الساعة باستخدام الـ Timer قم بإتباع الخطوات التالية :-· قم بوضع أداة الـوقت Timer ومربع عنوان Label على الـ Form
· قم بتغيير خاصية الـ Interval إلى 500 الخاصة بأداة الـ Timer
· قم بالنقر المزدوج على أداة الـ Timer لإظهار شاشة التعليمات الخاصة بهذه الأداة ثم قم بكتابة الكود التالي
Private Sub Timer1_Timer()
If Form1.WindowState = vbNormal Then
Label1.Caption = CStr(Time)
Form1.Caption = Format(Date, "Long Date")
Else
Form1.Caption = CStr(Time)
End If
End Sub
· قم بتنفيذ البرنامج ولا حظ ما يحدث .
ولعمل برنامج باستخدام الـ Timer لإظهار مجموعة من الأعداد المتتالية بحيث يظهر العدد الأول وبعد فترة معينة يقوم بإظهار الرقم الذى يليه وهكذا إلى أن تنتهى مجموعة الأعداد . قم بإتباع الخطوات التالية :-
- قم بوضع أداة الـ Timer على الـ Form
- قم بالنقر المزدوج على هذه الأداة للدخول إلى شاشة التعليمات الخاصة بها ثم قم بكتابة الكود التالى تحت الحدث Timer() :
Private Sub Timer1_Timer()
If i <= 10 Then Print i
i = i + 1
End Sub
أولا قم بتعريف المتغير فى الجزء الخاص بـ Option Explicit كما يلى
Option Explicit
Dim i As Integer

- قم بتنفيذ البرنامج ولاحظ ما يحدث .

ارجو المعذره من صاحب الموضوع الاصلي
مع تمنياتي للجميع بالتوفيق
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم