너무 쉬운 초시계..

 

스톱워치 입니다.

 

너무쉽네여.

 

부가기능을 만들어 보세여.

이 게시물을

댓글'1'
V닉맨
  • 2014.09.26


3.png


* 시작/정지를 버튼 하나로 만듬

* LAP Time기록, 넘버링 기록


Public Class Form1

    Dim n1 As Integer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If Timer1.Enabled = False Then

            Timer1.Enabled = True : Button1.Text = "정지"

        ElseIf Timer1.Enabled = True Then

            Timer1.Enabled = False : Button1.Text = "시작"

        End If


    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Label1.Text = "0.0"

        TextBox1.Text = ""

        n1 = 0

    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = Label1.Text + 0.01


    End Sub


    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        n1 += 1

        TextBox1.AppendText(Label1.Text & " <---- " & n1 & vbCrLf)

    End Sub

End Class

이 댓글을

공유하기

SEARCH

MENU NAVIGATION