현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

Timer 수정 도움바래요

kutest의 이미지
글쓴이: kutest / 작성시간: 일, 2018/10/07 - 4:05오전 

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

VB6.0 입니다
폼이 열리면 타이머가 계속 돌아가서 부하가 커져서 작동할때만 타이머를 돌리고 싶거든요
아래같이 Switch1 = 1 이 되면 타이머1 작동, 이렇게 바꾸고 싶은데 아래에서 어떻게 수정해야할까요

Private Sub Switch1 = 1()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Forums: 
프로그래밍 QnA
shint의 이미지

글쓴이: shint / 작성시간: 일, 2018/10/07 - 2:41오후

Timer.Start()
Timer.Stop() 함수가 안되서.
Timer.Enabled = True
Timer.Enabled = False 함수를 사용했습니다. ㅇ_ㅇ;;

댓글 첨부 파일: 
첨부파일 크기
Package icon VB 프로그램 실행 예제 - Timer 타이머1.zip8.95 KB
Package icon VB 프로그램 실행 예제 - Timer 타이머2.zip8.97 KB

----------------------------------------------------------------------------
젊음'은 모든것을 가능하게 만든다.

매일 1억명이 사용하는 프로그램을 함께 만들어보고 싶습니다.
정규 근로 시간을 지키는. 야근 없는 회사와 거래합니다.

각 분야별. 좋은 책'이나 사이트' 블로그' 링크 소개 받습니다. shintx@naver.com

kutest의 이미지

글쓴이: kutest / 작성시간: 일, 2018/10/07 - 7:27오후 

Dim switch1 As Integer
 
Private Sub Command1_Click()
switch1 = 1
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
 
Private Function switchon()
If (switch1 = 1) Then
    MsgBox "스위치 켜짐"
    switch1 = 0
End If
End Function
 
Private Sub Timer1_Timer()
Call switchon
End Sub
shint의 이미지

글쓴이: shint / 작성시간: 일, 2018/10/07 - 7:43오후

Timer1.Enabled = True 타이머 호출 시작 -> Timer1_Timer() -> Call switchon
Timer1.Enabled = False 타이머 호출 중지

Dim switch1 As Integer
 
Private Sub Command1_Click()
switch1 = 1
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
 
Private Function switchon()
If (switch1 = 1) Then
    MsgBox "스위치 켜짐"
'    switch1 = 0
Timer1.Enabled = False
End If
End Function
 
Private Sub Timer1_Timer()
Call switchon
End Sub

----------------------------------------------------------------------------
젊음'은 모든것을 가능하게 만든다.

매일 1억명이 사용하는 프로그램을 함께 만들어보고 싶습니다.
정규 근로 시간을 지키는. 야근 없는 회사와 거래합니다.

각 분야별. 좋은 책'이나 사이트' 블로그' 링크 소개 받습니다. shintx@naver.com

둘러보기