بسم الله الرحمن الرحيم والصلاة والسلام على أشرف الأنبياء والمرسلين نبينا محمد وعلى أله وصحبه وسلم تسليما كثيرا
هذا مثال بسيط وهو عن كيفية عمل مؤقت(stop watch).
اولا: إلى ماذا نحتاج؟
1-label --> 00:00:00.00
2-button1-->تصفير
3-button2-->بدء
4-timer1
إلى الأن تمام....................
نكتب خصائص الأدوات
نكتب في البداية تحت puplic class form1
ثم في كود الفورم
نكتب في زر التصفير
نكتب في زر التشغيل والإيقاف
نكتب في التايمر
و هكذا نكون إنتهينا من عمل stop watch وأنتظروني في مشاريع أخرى
هذا المثال منقول من المبرمج محمد غانم
والسلام عليكم ورحمة الله وبركاته
هذا مثال بسيط وهو عن كيفية عمل مؤقت(stop watch).
اولا: إلى ماذا نحتاج؟
1-label --> 00:00:00.00
2-button1-->تصفير
3-button2-->بدء
4-timer1
إلى الأن تمام....................
نكتب خصائص الأدوات
نكتب في البداية تحت puplic class form1
كود :
Inherits System.Windows.Forms.Form
Dim T As New Date(0)
Dim LastTime As Date = Now()
ثم في كود الفورم
كود :
timer1'
Timer1.Interval = 10
'label1
SW.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
SW.Location = New System.Drawing.Point(71, 64)
SW.Name = "SW"
SW.RightToLeft = System.Windows.Forms.RightToLeft.No
SW.Size = New System.Drawing.Size(151, 23)
SW.TabIndex = 0
SW.Text = "00:00:00.00"
SW.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'Button1
Button1.Location = New System.Drawing.Point(146, 152)
Button1.Name = "Button1"
Button1.Size = New System.Drawing.Size(75, 23)
Button1.TabIndex = 1
Button1.Text = "تصفير"
'button2
'
(BtStart.Location = New System.Drawing.Point(71, 152
"BtStart.Name = "BtStart
(BtStart.Size = New System.Drawing.Size(75, 23
BtStart.TabIndex = 1
BtStart.Text = "بدء"
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 270)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.SW)
Me.Controls.Add(Me.BtStart)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "Form1"
Me.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ساعة الإيقاف"
Me.ResumeLayout(False
نكتب في زر التصفير
كود :
LastTime = Now
T = New Date(0)
SW.Text = "00:00:00.00"
كود :
If Timer1.Enabled Then
Timer1.Enabled = False
BtStart.Text = "بدء"
Else
Timer1.Enabled = True
LastTime = Now
BtStart.Text = "إيقاف"
End If
كود :
T = T.Add(Now.Subtract(LastTime))
LastTime = Now
SW.Text = T.ToString("HH:mm:ss.ff")
و هكذا نكون إنتهينا من عمل stop watch وأنتظروني في مشاريع أخرى
هذا المثال منقول من المبرمج محمد غانم
والسلام عليكم ورحمة الله وبركاته