سورس پروژه کرنومتر با vb-net

در این بخش با سورس پروژه کرنومتر با vb-net از سورس های برنامه نویسی  در خدمت شما دوستان هستیم.

پروژه کرنومتر با زبان برنامه نویسی ویژوال بیسیک دات نت و در محیط ویژوال استودیو به صورت کاربردی طراحی و کدنویسی شده است.

قسمتی از سورس کد کرنومتر با vb-net :      Visual Basic .NETPublic Class FrmStopWatch

Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
TmrStopWatch.Start()
End Sub

Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
TmrStopWatch.Stop()
End Sub

Private Sub TmrStopWatch_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrStopWatch.Tick
LblCount.Text = Val(LblCount.Text) + 1
If LblCount.Text = 61 Then
LblSecs.Text = Val(LblSecs.Text) + 1
LblCount.Text = 0

ElseIf LblSecs.Text = 60 Then
LblMins.Text = Val(LblMins.Text) + 1
LblSecs.Text = 0

ElseIf LblMins.Text = 60 Then
LblHours.Text = Val(LblHours.Text) + 1
LblMins.Text = 0

End If
End Sub

Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
LblHours.Text = "00"
LblMins.Text = "00"
LblSecs.Text = "00"
LblCount.Text = "00"
End Sub

Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Me.Hide()
FrmHelp.Show()
End Sub
End Class123456789101112131415161718192021222324252627282930313233343536373839Public Class FrmStopWatch     Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click        TmrStopWatch.Start()    End Sub     Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click        TmrStopWatch.Stop()    End Sub     Private Sub TmrStopWatch_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrStopWatch.Tick        LblCount.Text = Val(LblCount.Text) + 1        If LblCount.Text = 61 Then            LblSecs.Text = Val(LblSecs.Text) + 1            LblCount.Text = 0         ElseIf LblSecs.Text = 60 Then            LblMins.Text = Val(LblMins.Text) + 1            LblSecs.Text = 0         ElseIf LblMins.Text = 60 Then            LblHours.Text = Val(LblHours.Text) + 1            LblMins.Text = 0         End If    End Sub     Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click        LblHours.Text = "00"        LblMins.Text = "00"        LblSecs.Text = "00"        LblCount.Text = "00"    End Sub     Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click        Me.Hide()        FrmHelp.Show()    End SubEnd Class