تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] stop watch
#1
بسم الله الرحمن الرحيم  والصلاة والسلام على أشرف الأنبياء والمرسلين نبينا محمد وعلى أله وصحبه وسلم تسليما كثيرا
هذا مثال بسيط وهو عن كيفية عمل مؤقت(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 وأنتظروني في مشاريع أخرى
هذا المثال منقول من المبرمج محمد غانم 
والسلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة: الوادي , الوادي
#2
بارك الله فيك
وننتظر منك المزيد والجديد المفيد
دمت طيباً
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: الوادي
#3
بارك الله فيك

واصل ابداعاتك
Mish3l
الرد }}}}
تم الشكر بواسطة: الوادي


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


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