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

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

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

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

قسمتی از سورس کد کرنومتر با vb-net :

Public 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 Class

امیدواریم این پروژه رایگان مورد استفاده شما دوستان عزیز قرار بگیرد.