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

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

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

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

 

 

 

 

 

 

Visual Basic .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

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

کلمات کلیدی : سورس پروژه کرنومتر,net,سورس های برنامه نویسی,سورس برنامه نویسی رایگان , سورس پروژه رایگان vb , سورس پروژه ویژوال بیسیک دات نت , سورس رایگان , سورس
در این سایت هیچ فایلی برای فروش قرار نمی گیرد. برای پشتیبانی و خرید فایل به مراجعه بفرمائید: