منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] stop watch - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] stop watch (/showthread.php?tid=16764)

stop watch - anasmoner - 10-08-16

بسم الله الرحمن الرحيم  والصلاة والسلام على أشرف الأنبياء والمرسلين نبينا محمد وعلى أله وصحبه وسلم تسليما كثيرا
هذا مثال بسيط وهو عن كيفية عمل مؤقت(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 وأنتظروني في مشاريع أخرى
هذا المثال منقول من المبرمج محمد غانم 
والسلام عليكم ورحمة الله وبركاته

RE: stop watch - أبو عمر - 11-08-16

بارك الله فيك
وننتظر منك المزيد والجديد المفيد
دمت طيباً

RE: stop watch - tryold - 11-08-16

بارك الله فيك

واصل ابداعاتك