قبلا سورس اپلیکیشن کرنومتر ساده برای اندروید را داخل سایت منتشر کردیم که کاربران درخواست دادند علاوه بر برنامه نویسی اندروید با زبان هایی دیگر هم این سورس برنامه را منتشر کنیم در این پست سورس پروژه برنامه کرنومتر به زبان 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
دیدگاه کاربران
تعداد دیدگاه های کاربران : ۰ دیدگاه