3 8 v Private Sub Timer If 12
3. 디지털 시계 만들기(8) v 타이머 컨트롤 코드 입력 (계속) Private Sub 타이머_Timer() ==== 날짜표시 코드 하단 ==== '시각 표시 옵션 설정 If 시간표시 12. Value = True Then If 영어표시. Value = True Then 시간. Caption = Format(Time, " ") Else 시간. Caption = Format(Time, " ") End If Else If 영어표시. Value = True Then 시간. Caption = Format(Time, " ") Else 시간. Caption = Format(Time, " ") End If End Sub 2021 -12 -23 수원과학대학 컴퓨터정보과 20
Dim tempcolor As Integer '초에 맞추어 문자의 색을 변경한다. If 색의변화. ( ) = ( ) Then Select Case ( ) Case 0 To 9 temp. Color = 1 '파랑 Case 10 To 19 temp. Color = 2 '녹색 Case 20 To 29 temp. Color = 3 '하늘 Case 30 To 39 temp. Color = 4 '빨강 Case 40 To 49 temp. Color = 5 '보라 Case 50 To 59 temp. Color = 6 '황색 End Select Else temp. Color = 0 ' 검정 End If 2021 -12 -23 날짜. ( 시간. ( ) = ( )(tempcolor) 컴퓨터정보과 )수원과학대학 = ( )(tempcolor) 30
3. 디지털 시계 만들기(21) v 폼 객체 (계속) Ø 종료 버튼 더블 클릭해서 코딩 Private Sub 종료_Click() Dim answer As Integer Me. Window. State = ( ) answer = Msg. Box("디지털 시계를 종료하시겠습니까? ", _ vb. Question + vb. Yes. No) If answer = vb. Yes Then ' "예"를 눌렀음 End Else Me. Window. State = ( ) End If End Sub 2021 -12 -23 수원과학대학 컴퓨터정보과 34
3. 디지털 시계 만들기(23) v 레이블 코드 입력 Ø lbl. Date와 lbl. Time을 더블클릭하여 코드 넣기 Private Sub 날짜_Dbl. Click() Unload Me End Sub Private Sub 시간_Dbl. Click() Form 1. Window. State = ( Form 1. Caption = ( End Sub 2021 -12 -23 수원과학대학 컴퓨터정보과 ) ) 36
4. 초침 게이지 만들기(3) v 타이머 코드 입력 Private Sub 타이머_Timer() Dim tempcolor As Integer shp. Scale. Width = shp. Box. Width / 60 * Second(Time) '최소화 할때의 타이틀 바의 설정 If Form 1. Window. State = ( ) Then Form 1. Caption = Date & " " & Time ( ) End If … End Sub 2021 -12 -23 수원과학대학 컴퓨터정보과 39
4. 초침 게이지 만들기(4) v 옆으로 움직이는 초침 만들기 Private Sub 타이머_Timer() Dim tempcolor As Integer ‘ shp. Scale. Width = shp. Box. Width / 60 * Second(Time) shp. Scale. Height = shp. Box. Height shp. Scale. Width = shp. Box. Width / 60 shp. Scale. Left = shp. Box. Left + shp. Box. Width / 60 * Second(Time) … End Sub 2021 -12 -23 수원과학대학 컴퓨터정보과 40
4. 초침 게이지 만들기(8) v 코드 수정 Private Sub 타이머_Timer() Dim tempcolor As Integer ‘ shp. Scale. Width = shp. Box. Width / 60 * Second(Time) ‘shp. Scale. Height = shp. Box. Height ‘shp. Scale. Width = shp. Box. Width / 60 ‘shp. Scale. Left = shp. Box. Left + shp. Box. Width / 60 * Second(Time) shp. Scale. Width = shp. Box. Width / 60 * 2 shp. Scale. Left = shp. Box. Left + (shp. Box. Width - shp. Scale. Width) / 60 * Second(Time) … End Sub 2021 -12 -23 수원과학대학 컴퓨터정보과 44
- Slides: 45