[VB.NET]비주얼베이직 기본강좌 11 - Timer, 스톱워치

안녕하세요 생선입니다

 

이번에는 Timer를 알아보도록 하겠습니다

 

바로 강좌 시작하도록 하겠습니다!

 

타이머는 설정된 시간마다 입력된 소스를 실행시켜주는 도구입니다

단위는 밀리초 이며 1000밀리초는 1초 입니다

(1024밀리초가 1초라는 분들도 있습니다. 하지만 1024밀리초가 1초로 쓰인건 VB6.0때만 잠시 쓰인것으므로 참고하시기 바랍니다)

 

 

우선 프로젝트를 아무거나 하나 불러온 후에 도구상자에서 타이머(Timer)를 하나 가져옵니다▼

 

 

그리고 우선 속성 창을 보면 Enabled, Interval 이렇게 있습니다▼

 

Enabled는 이 타이머를 사용할 것인지를 설정합니다

(False가 기본설정이지만 False로 되있으면 타이머가 작동하지 않습니다)

Interval은 해당 타이머의 빈도를 정합니다

 

아까 말했듯이 단위는 밀리초이며 1000밀리초가 1초입니다

 

그러면 1로 설정해두면 1초에 1000번 실행될까요?

아닙니다!

이론적으로 최소 14밀리초가 최소입니다

이유는 까먹었습니다 ;D

 

강좌 끝나고 1밀리초로 해두고 라벨에 0을 적어두고 1초뒤에 1000이 되있나 보세요!

절대 안됩니다!

 

하여튼 이제 직접 사용해 봐야겠죠

 

우선 타이머에 메시지 박스를 아무거나 하나 띄어보죠!

Msgbox("",,)

 

그리고 Enabled를 반드시 True로 바꿔주고 Interval을 1로 하고 시작을 해보죠!

 

실행을 하면?

망합니다!

종료를 할 수가 없습니다!

 

그러다가 '작동이 중지되었습니다' 까지 뜨네요ㅋㅅㅋ

 

일단 스튜디오의 정지버튼을 눌러서 종료하도록 하겠습니다

 

 

음,, 이제 스톱워치를 만들어볼까요?

 

일단 라벨과 버튼을 하나씩 불러오도록 하겠습니다

그리고 이렇게 만들어 줍니다▼

 

시작을 누르면 '시작'이 '정지'로 바뀌며 숫자가 올라가도록 하고, 다시 버튼을 누르면 '시작'으로 바뀌고 멈추도록 하겠습니다

 

우선 버튼에

 

If Button1.text = "시작" Then

Timer1.Enabled = True

Button1.Text = "정지"

Else

Timer1.Enabled = False

Button1.Text = "시작"

End If

 

이렇게 입력해 준 후에 타이머의 Enabled를 False로, Interval을 1000 으로 바꿔준 후에

타이머에

 

Label1.Text += 1

 

이렇게 입력해 줍니다

그러면 1 씩 오르게 됩니다

 

그렇습니다

물론 더 있긴 하지만 보통 이 정도가 쓰입니다

 

그럼 이제 실행을 시켜보면 저희가 계획한 대로 잘 작동합니다▼

 

그럼 이상으로 강좌 마치도록 하겠습니다

 

읽어주셔서 감사합니다

 

공감과 덧글은 글쓴이에게 힘이됩니다!