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

پاورپوینت رایانش ابری و بررسی رویکرد های آن

دنیای فن‌آوری اطلاعات روزبه‌روز در حال گسترش است. از زمانی که رایانه‌ها وارد زندگی بشر شدند، حدود ۷۰ سال می‌گذرد. در طول این سال‌ها عطش پیشرفت باعث بوجود آمدن فن‌آوری‌های جدید شده است و ...

16 اسلاید پاورپوینت، قابل ویراییش

سیستم حسابداری باشگاه بیلیارد با VB.net

نرم افزاری که هم اکنون مشاهده می کنید برنامه حسابداری باشگاه بیلیارد می باشد که در زبان VB.net نوشته شده است.

در این صفحه به دلیل متفاوت بودن دو بازی موجود دو گزینه وجود دارد. یکی گزینه 8 Ball که با کلید میانبر F1 و یا با کلیک موس بر روی آن می توان آن را انتخاب کرد. و دیگری گزینه Snooker که با کلید میانبر F5 که بر روی آن هم نوشته شده است و یا با کلیک موس بر روی آن انتخاب شود، که بسته به نوع بازی مشتری آن را انتخاب می کنیم

و.......

نکته: برای نصب برنامه باید نرم افزار .Net Framework ورژن 2005 به بالا روی سیستم نصب شده باشد. .Net Framework برای اجرای کلیه نرم افزارهای .Net مورد نیاز است.

شما می توانید این پکیج را که شامل پروژه سیستم حسابداری باشگاه بیلیارد به زبان Vb.net است در داخل یک پکیج که به همراه سورس کد و داکیومنت بوده با قیمت بسیار مناسب با تخفیف به مدت کوتاه خریداری و پس از خرید لینک آن را دریافت نمایید باتشکر.