منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

بارك الله فيك

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

anasmoner

أبو عمر

tryold