سورس پروژه برنامه کرنومتر به زبان 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

/>Sourceiran.com