در تلگرام همراه ما باشید دریافت پروژه

اطلاعیه فروشگاه

در هنگام خرید حتما روی دکمه تکمیل خرید در صفحه بانک کلیک کنید تا پرداخت شما تکمیل شود مراحل پرداخت را تا آخر و دریافت کدپیگیری سفارش انجام دهید.در صورتی که نتوانستید پرداخت الکترونیکی را انجام دهید چند دقیقه صبر کنید و مجددا اقدام کنید و یا از طریق مرورگر دیگری وارد سایت شوید یا اینکه بانک عامل را تغییر دهید.راه های اربتاطی با ما شماره 09160593559یا ایمیلsajjad.behmard001@gmail.com با تشکر

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

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

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

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

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

 

 
 
 
 
 
 
Visual Basic .NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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

اشتراک بگذارید:


پرداخت اینترنتی - دانلود سریع - اطمینان از خرید

پرداخت هزینه و دریافت فایل

مبلغ قابل پرداخت 5,000 تومان
کدتخفیف:

درصورتیکه برای خرید اینترنتی نیاز به راهنمایی دارید اینجا کلیک کنید


فایل هایی که پس از پرداخت می توانید دانلود کنید

نام فایلحجم فایل
Stop-Watch_1711464_2253.zip6.4 MB





دسته بندی محصولات فروشگاه

آخرین محصولات فروشگاه

محبوبترین محصولات