예제로 배우는 Visual Basic 6.0 8. 타이머를 이용한 도형 다루기 IT응용시스템공학과 김 형 진 교수

학습목표 도형에 대해서 안다. 스크롤바(ScrollBar)에 대해서 안다. 타이머(Timer)에 대해서 안다. 예제로 배우는 Visual Basic 6.0

8.1 도형(Shape) 8.2 스크롤바(ScrollBar) 8.3 타이머(Timer) 8.4시계와 도형의 조화 예제로 배우는 Visual Basic 6.0

도형 - 속성 속성 내용 BorderStyle 도형의 테두리 유형 설정 FillColor 도형의 채우는 색 설정 FillStyle 도형의 채우기 유형 설정 Shape 6가지 도형 모양 설정 예제로 배우는 Visual Basic 6.0

BorderStyle 속성 도형의 테두리를 설정하기 위해서 사용 상수이름 값 내용 vbTransparent 투명 투명 vbBSSolid 1 단색 vbBSDash 2 대시 vbBSDot 3 점 vbBSDashDot 4 대시-점 vbBSDashDotDot 5 대시-점-점 vbBSInsideSolid 6 내부 단색 예제로 배우는 Visual Basic 6.0

FillStyle 속성 도형의 내부 스타일을 설정하기 위해 사용 상수이름 값 내용 vbFSSolid 단색 단색 vbFSTransparent 1 투명 vbHorizontalLine 2 수평선 vbVerticalLine 3 수직선 vbUpwardDiagonal 4 상향 대각선 vbDownwardDiagonal 5 하향 대각선 vbCross 6 교차 vbDiagonalCross 7 대각선 교차 예제로 배우는 Visual Basic 6.0

Shape 속성 도형의 여러 종류의 다각형을 설정하기 위해 사용 상수이름 값 내용 vbShapeRectangle 사각형 사각형 vbShapeSquare 1 정사각형 vbShapeOval 2 타원형 vbShapeCircle 3 원형 vbShapeRoundedRectangle 4 둥근 사각형 vbShapeRoundedSquare 5 둥근 정사각형 예제로 배우는 Visual Basic 6.0

실습1 - 폼 디자인 도형의 종류 선택 폼 디자인 예제로 배우는 Visual Basic 6.0

실습1 – 속성 설정 컨트롤 이름 주요 속성 비고 Form Form1 Caption = 도형의 종류 선택 도형의 종류를 선택하는 폼 ComboBox Combo1   Shape Shape1 BorderStyle=0-투명 테두리선을 없앰 FillColor=흰색 채우는 색을 흰색 FillStyle=0-단색 채우는 스타일을 단색 예제로 배우는 Visual Basic 6.0

실습1 – 코드 작성 Shape 속성을 폼 로드시에 콤보박스에 입력 콤보박스 클릭 이벤트 핸들러 작성 ' 폼 로드시 콤보박스에 도형의 종류를 넣어두자. Private Sub Form_Load()   Combo1.AddItem "사각형"   Combo1.AddItem "정사각형"   Combo1.AddItem "타원형"   Combo1.AddItem "원형"   Combo1.AddItem "둥근사각형"   Combo1.AddItem "둥근정사각형"   Combo1.ListIndex = 0 End Sub 콤보박스 클릭 이벤트 핸들러 작성 Private Sub Combo1_Click()   Shape1.Shape = Combo1.ListIndex 예제로 배우는 Visual Basic 6.0

실습1 - 실행 ‘원형’ 선택 예제로 배우는 Visual Basic 6.0

8.1 도형(Shape) 8.2 스크롤바(ScrollBar) 8.3 타이머(Timer) 8.4시계와 도형의 조화 예제로 배우는 Visual Basic 6.0

스크롤바 스크롤바 컨트롤은 한 화면에 내용을 모두 보여주기 힘들 때 남은 내용을 보여주기 위해 만들어주는 컨트롤 종류는 수평 스크롤바(HScrollBar)와 수직 스크롤바(VScrollBar)가 있음 스크롤바는 이동 탭이 있어서 마우스로 이동 탭을 드래그하거나 클릭함으로 일정한 간격만큼 이동하도록 해주는 기능을 함 예제로 배우는 Visual Basic 6.0

스크롤바 - 속성 속성 내용 LargeChange 스크롤바의 몸통 부분을 클릭시 증감분 설정 Max 스크롤바의 최대값을 설정 Min 스크롤바의 최소값을 설정 SmallChange 스크롤바의 양끝의 화살표를 클릭시 증감분 설정 Value 이동탭의 위치값 예제로 배우는 Visual Basic 6.0

색 지정 함수 – RGB 비주얼 베이직에서는 색상을 표현하기 위해 RGB() 함수를 제공 형식 예 빨강(Red), 초록(Green), 파랑(Blue) 각각의 비율을 가지고 색상을 표현 색상의 비율을 각각 0~255의 정수 값으로 조정할 수 있음 형식 RGB(빨강, 초록, 파랑) 예 label1.BackColor = RGB(255, 0, 0) ' 레이블1의 배경색이 빨강이 됨 예제로 배우는 Visual Basic 6.0

색 지정 함수 – QBColor(1/2) QBColor()함수 형식 예 색상 상수를 지정하여 사용 QBColor(색번호)  주로 사용하는 색번호는 0~7임(검정, 파랑, 초록, 청록, 빨강, 진홍, 노랑, 하양) 예 label1.BackColor = QBColor(1) ' 레이블1의 배경색이 파랑이 됨 예제로 배우는 Visual Basic 6.0

색 지정 함수 – QBColor(2/2) 상수이름 값 내용 vbBlack 검정 vbBlue 1 파랑 vbGreen 2 초록 검정 vbBlue 1 파랑 vbGreen 2 초록 vbCyan 3 청록 vbRed 4 빨강 vbMagenta 5 진홍 vbYellow 6 노랑 vbWhite 7 흰색 예제로 배우는 Visual Basic 6.0

실습1 - 폼 디자인 스크롤바로 색조정 폼 디자인 예제로 배우는 Visual Basic 6.0

실습1 – 속성 설정 컨트롤 이름 주요 속성 비고 Form Form1 Caption = 스크롤바로 색조정 스크롤바를 이용하여 색상을 지정하는 폼 HScrollBar hsbRed LargeChange = 30 Max = 255 SmallChange=10 수평 스크롤바 세 개 모두 공통으로 속성을 지정함 hsbGreen hsbBlue Shape Shape1 BorderStyle=0-투명 테두리선을 없앰 FillColor=흰색 채우는 색을 흰색 FillStyle=0-단색 채우는 스타일을 단색 예제로 배우는 Visual Basic 6.0

실습1 – 코드 작성 스크롤바를 움직였을 때 빨강색만 조절해 보는 코딩 '빨강색을 스크롤바를 이용하여 조절 Private Sub hsbRed_Change()   Shape1.FillColor = RGB(hsbRed, hsbGreen, hsbBlue) End Sub 예제로 배우는 Visual Basic 6.0

실습1 - 실행 스크롤바로 색조정 예제로 배우는 Visual Basic 6.0

8.1 도형(Shape) 8.2 스크롤바(ScrollBar) 8.3 타이머(Timer) 8.4시계와 도형의 조화 예제로 배우는 Visual Basic 6.0

타이머 - 속성 타이머 컨트롤은 일정한 시간 간격으로 내용이 반복되도록 지정할 때 사용하는 컨트롤 실행 모드에서는 보이지 않고 폼에 컨트롤을 배치하는 디자인 모드에서만 보임 속성 내용 Enabled 타이머 이벤트를 실행하거나 중지 Interval 1000으로 설정하면 1초 단위로 동작 예제로 배우는 Visual Basic 6.0

날짜와 시간 함수 함수 형식 예 Now '현재의 날짜와 시간 정보 Date '현재의 날짜 정보 Time '현재의 시간 정보 Hour          '현재의 시 정보 Minute        '현재의 분 정보 Second        '현재의 초 정보 형식 Format(서식지정할 내용, "서식")  '형식에 맞게 서식화 예 Format(Hour(now), "00")     '현재의 시 정보를 두 자리로 출력 예제로 배우는 Visual Basic 6.0

실습1 - 폼 디자인 타이머로 시계 조작 폼 디자인 예제로 배우는 Visual Basic 6.0

실습1 – 속성 설정 컨트롤 이름 주요 속성 비고 Form Form1 Caption = 타이머로 시계 조작 타이머를 이용하여 시계를 조작하는 폼 Label lblTime1 Alignment=2-가운데 각 레이블에 다른 형식으로 시계를 보여줌 Caption = 날짜와 시계 Font 스타일=굵게 크기 = 14 lblTime2 Caption = 시계 lblTime3 Caption = 시:분 Timer Ticker Enabled=True 1초 단위로 시계가 움직이게 함 Interval=1000 예제로 배우는 Visual Basic 6.0

실습1 – 코드 작성 실행하면 바로 타이머가 동작하여 여러 형식으로 시계를 보여주게 코딩 Private Sub Ticker_Timer() ' Now 함수를 이용하여 날짜와 시간을 보여줌 lblTime1.Caption = Now ' Time 함수를 이용하여 시간을 보여줌 lblTime2.Caption = Time ' Format 함수를 이용하여 시와 분을 두 자리 형식으로 보여줌 lblTime3.Caption = Format(Hour(Now), "00") & ":" & Format(Minute(Now), "00") End Sub 예제로 배우는 Visual Basic 6.0

실습1 - 실행 타이머로 시계 조작 예제로 배우는 Visual Basic 6.0

8.1 도형(Shape) 8.2 스크롤바(ScrollBar) 8.3 타이머(Timer) 8.4시계와 도형의 조화 예제로 배우는 Visual Basic 6.0

실습1 - 폼 디자인 시계와 도형의 조화 폼 디자인 예제로 배우는 Visual Basic 6.0

실습1 – 속성 설정(1/2) 컨트롤 이름 주요 속성 비고 Form Form1 Caption = 시계와 도형의 조화 이 장에서 배운 컨트롤을 이용하여 시계와 도형을 조작하는 폼 Combo Combo1   Label lblTime Alignment=2-가운데 시간을 보여주기 위해 사용 Caption=시계 Font 스타일=굵게 크기=14 Shape Shape1 BorderStyle=0-투명 테두리선을 없앰 FillColor=핑크 채우는 색을 핑크색 FillStyle=0-단색 채우는 스타일을 단색 예제로 배우는 Visual Basic 6.0

실습1 – 속성 설정(2/2) 컨트롤 이름 주요 속성 비고 HScrollBar hsbRed LargeChange = 30 Max = 255 SmallChange=10 수평 스크롤바 세 개 모두 공통으로 속성을 지정함 hsbGreen hsbBlue Timer Ticker Enabled=False 시계를 보기 위해 사용 Interval=1000 Timer1 도형을 다루기 위해 사용 CommandButton cmdTime Caption=시계 보기 버튼 클릭시 시계가 보임 cmdAuto Caption=자동 실행 도형의 모양과 색을 자동으로 바꿈 cmdStop Caption=실행 중지 도형의 모양과 색 바꿈을 중지 예제로 배우는 Visual Basic 6.0

실습1 – 코드 작성(1/2) “시계 보기” 버튼을 클릭할 때 바뀌는 부분의 코딩 '명령버튼이 클릭되면 Ticker 타이머가 동작하도록 함 Private Sub cmdTime_Click()   Ticker.Enabled = True   lblTime.Caption = Time End Sub ' Ticker 타이머가 동작하면 폼의 캡션과 레이블의 캡션 정보를 시계로 바꿈 Private Sub Ticker_Timer()   Form1.Caption = Time 예제로 배우는 Visual Basic 6.0

실습1 – 코드 작성(2/2) “자동 실행”, “실행 중지” 명령버튼과 타이머 ' Timer 컨트롤이 동작할 때 도형의 모양이 바뀌는 부분을 처리하기 위해 counter 변수를 전역 변수로 선언함 Option Explicit Dim counter As Long Private Sub cmdAuto_Click()   Timer1.Enabled = True End Sub Private Sub cmdStop_Click()   Timer1.Enabled = False Private Sub Timer1_Timer() Dim i As Integer   i = counter Mod 6   Combo1.ListIndex = i   Shape1.Shape = Combo1.ListIndex ‘오른쪽에 이어서 코딩   Select Case i    Case 0      Shape1.FillColor = vbRed    Case 1      Shape1.FillColor = vbMagenta    Case 2      Shape1.FillColor = vbYellow    Case 3      Shape1.FillColor = vbGreen    Case 4      Shape1.FillColor = vbBlue    Case 5      Shape1.FillColor = vbCyan   End Select   counter = counter + 1 End Sub 예제로 배우는 Visual Basic 6.0

실습1 - 실행 시계와 도형의 조화 예제로 배우는 Visual Basic 6.0

요약 도형 컨트롤은 여러 종류의 다각형을 다루기 위한 컨트롤 스크롤바 컨트롤은 한 화면에 다루고자 하는 내용이 다 보이지 않을 때 주로 사용 색상을 지정하는 함수로 RGB() 함수와 QBColor() 함수 사용 타이머 컨트롤은 일정한 간격에 맞춰서 개체가 동작을 하도록 만들고자 할 때 주로 사용 타이머 컨트롤을 사용하여 시계를 만들기 위해 현재 시간을 불러오는 now 함수와 date, time 함수 사용 시, 분, 초를 각각 따로 사용할 수 있도록 지정된 함수를 적용 일정한 형식에 맞출 수 있는 Format() 함수 사용 예제로 배우는 Visual Basic 6.0