الدرس السادس : كيفية عمل مؤقت

الدرس السادس من مشاريع تعلم البرمجة بالفيجوال بيسك ( كيفية عمل مؤقت )

اتبع الخطوة :

1- افتح برنامج الفيجوال بيسك واختر مشروع جديد

-----------

2- الأدوات اللازمة
~~~~~~~~~

5 Text
5 Label
2 Command
1 Timer

ونوزعها على الشكل





-----------

3- تغيير الخصائص
~~~~~~~~~
خصائص Form

المؤقت = Form1.Caption

لجعل اسم البرنامج ( المؤقت )

Form1.BorderStyle = Fixed Dialog
لظهور ايطار بزر (اغلاق) فقط

~~~~~~~~~
خصائص ال Text

"" = Text1.Text
"" = Text2.Text
"" = Text3.Text
"" = Text4.Text
"" = Text5.Text

Text1.locked = True
Text2.locked = True
Text3.locked = True
Text4.locked = True
Text5.locked = True

~~~~~~~~~
خصائص ال Label
Label1.Caption = يوم
Label2.Caption = ساعة
Label3.Caption = دقيقة
Label4.Caption = ثانية
Label5.Caption = جزء من الثانية

~~~~~~~~~
خصائص ال Timer1
Timer1.Interval = 100
لكي يعمل

~~~~~~~~~
خصائص ال Commandbutton

ايقاف \ تشغيل = Command1.Caption
00 : 00 = Command2.Caption

لتصبح كما في الصورة



-----------
4- الآن نكتب الأكواد


كود Form في الحدث Load

Private Sub Form_Load()
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = "0"
Text4.Text = "0"
Text5.Text = "0"
End Sub

' جعل عناوين ال Text صفر

~~~~~~~~~

كود Form في الحدث Unload

Private Sub Form_Unload(Cancel As Integer)
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
e = Text5.Text
f = " : "
MsgBox (a & f & b & f & c & f & d & f & e)
End Sub

' اظهار رسالة للمستخدم عند الخروج من البرنامج تخبره بالوقت ( الارقام التي داخل كل Text )

~~~~~~~~~

كود Timer1

Private Sub Timer1_Timer()
Text5 = Text5 + 1
' لزيادة Text5 واحد
If Text5 = 9 Then
' اذا وصل Text5 الى تسعة
Text4 = Text4 + 1
' يزيد Text4 واحد
Text5 = 0
' جعل Text5 بعدها 0
End If
' لنهاية الجملة
If Text4 = 59 Then
' اذا وصل Text4 الى تسعةوخمسين
Text3 = Text3 + 1
' يزيد Text3 واحد
Text4 = 0
' جعل Text4 بعدها 0
End If
' لنهاية الجملة
If Text3 = 59 Then
' اذا وصل Text3 الى تسعةوخمسين
Text2 = Text2 + 1
' يزيد Text2 واحد
Text3 = 0
' جعل Text3 بعدها 0
End If
' لنهاية الجملة
If Text2 = 24 Then
' اذا وصل Text2 الى اربع وعشرين
Text1 = Text1 + 1
' يزيد Text1 واحد
Text2 = 0
' جعل Text2 بعدها 0
End If
' لنهاية الجملة
End Sub

~~~~~~~~~

كود Command1

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
' اذا كانت الخاصية صح تجعلها خطأ واذا كانت خطأ تجعلها صح
End Sub

~~~~~~~~~

كود Command2

Private Sub Command2_Click()
Call Form_Load
' استدعاء ال Form_Load
' استخدمت هذا الكود لاعادة عناوين ال Text1 الى الوضع الافتراضي عند Form_Load
' اي اعدت تنفيذ الاكواد التي داخل ال Form_Load
End Sub


-----------

انتهينا
آما ان تستفادوا منها