스톱워치 입니다.
너무쉽네여.
부가기능을 만들어 보세여.
* 시작/정지를 버튼 하나로 만듬
* 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
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Label1.Text + 0.01
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
n1 += 1
TextBox1.AppendText(Label1.Text & " <---- " & n1 & vbCrLf)
End Class
로그인
회원가입
* 시작/정지를 버튼 하나로 만듬
* 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
이 댓글을