예제로 배우는 Visual Basic 6.0 4. 성적처리기로 익히는 체크박스와 옵션버튼 IT응용시스템공학과 김형진 교수

학습목표 체크박스 컨트롤과 옵션버튼 컨트롤에 대해서 안다 Tab Index에 대해서 안다 조건 분기문에 대해서 안다 예제로 배우는 Visual Basic 6.0

4.1 체크박스, 옵션버튼, TabIndex 4.2 조건 분기문 4.3 성적처리기로 익히는 체크박스와 옵션버튼 예제로 배우는 Visual Basic 6.0

체크박스(CheckBox) 주어진 여러 항목 중 복수개의 항목을 선택할 때 사용 마우스 클릭으로 선택된 상태( )와 선택이 해제된 상태( )가 토글 됨 토글(Toggle) 키보드나 마우스 조작으로 두 상태가 번갈아 나타나는 것 예제로 배우는 Visual Basic 6.0

체크박스의 속성 속 성 내 용 Alignment 캡션을 기준으로 체크박스의 위치를 결정. 왼쪽 맞춤(0-왼쪽 맞춤), 오른쪽 맞춤(1-오른쪽 맞춤) Caption Check Box의 텍스트를 반환하거나 설정 Enable 사용자의 눈에 보이거나(True), 보이지 않게(False) 설정 Style Check Box를 표준(0-표준)이나 그래픽(1-그래픽)으로 설정할 수 있음 그래픽으로 설정하면 체크 박스가 Command Button 모습으로 나타남 Picture Style이 그래픽(1-그래픽)으로 설정되어 있을 때 Check Box의 Caption의 문자열 위치에 그림 설정, Caption과 Picture가 모두 설정되어 있으면 중첩되어 나타남 ToolTipText 실행 시 마우스 포인터를 해당 Check Box 위에 위치시키면 속성값으로 설정한 문자열이 나타남 Value 체크박스의 선택 여부를 설정하거나 반환, 선택(1-확인), 선택하지 않았는지(0-확인 안함), 내부항목의 일부만 선택(2-연회색) Visible 실행 시 Check Box를 숨기거나 보이게 하는 속성. 기본 값은 True로 보이도록 설정됨 예제로 배우는 Visual Basic 6.0

체크박스의 메소드 및 이벤트 메소드 이벤트 메소드 내용 SetFocus 해당 체크 박스로 Focus를 이동시킨다. Move 체크 박스의 위치를 이동시킨다. Refresh 체크 박스를 새로 그린다. 이벤트 내용 Click 체크 박스를 마우스로 클릭했을 때 발생 GetFocus 체크 박스가 포커스를 가질 때 발생 LostFocus 체크 박스가 포커스를 잃을 때 발생 예제로 배우는 Visual Basic 6.0

옵션버튼(OptionButton) 그룹으로 묶인 항목들 중 하나만 선택할 때 사용 속성 속 성 내 용 Alignment 캡션을 기준으로 옵션버튼의 위치를 결정. 왼쪽 맞춤(0-왼쪽 맞춤), 오른쪽 맞춤(1-오른쪽 맞춤) Caption 옵션버튼의 텍스트를 반환하거나 설정 Enable 사용자의 눈에 보이거나(True), 보이지 않게(False) 설정 Style 옵션버튼을 표준(0-표준)이나 그래픽(1-그래픽)으로 설정 Picture Style이 그래픽(1-그래픽)으로 설정되어 있을 때 옵션버튼의 Caption의 문자열 위치에 그림 설정, Caption과 Picture가 모두 설정되어 있으면 중첩되어 나타남 ToolTipText 실행 시 마우스 포인터를 해당 옵션버튼 위에 위치시키면 속성 값으로 설정한 문자열이 나타남 Value 선택 상태(True), 해제 상태(false)에 대한 값을 설정하거나 반환 Visible 실행 시 옵션버튼을 숨기거나 보이게 하는 속성. 기본 값은 True로 보이도록 설정 예제로 배우는 Visual Basic 6.0

프레임(Frame) 체크박스 혹은 옵션버튼들을 그룹화 할 때 주로 사용 속성 예 속 성 내 용 Appearance 프레임의 모양을 평면이나 3D 모양으로 설정 Caption 프레임의 텍스트를 반환하거나 설정 Enable 속성값을 False로 설정하면 프레임 컨트롤이 사용할 수 없는 상태로 되며, 프레임에 의해 묶인 모든 컨트롤들도 사용할 수 없음 Visible 프레임 컨트롤을 숨기거나(False) 보이게(True) 하는 속성. 예제로 배우는 Visual Basic 6.0

TabIndex 마우스 조작 없이 키보드의 Tab 키를 이용하여 컨트롤 포커스를 이동시킬 수 있음 옵션버튼 내의 항목간 이동은 방향키 이동 예제로 배우는 Visual Basic 6.0

4.1 체크박스, 옵션버튼, TabIndex 4.2 조건 분기문 4.3 성적처리기로 익히는 체크박스와 옵션버튼 예제로 배우는 Visual Basic 6.0

조건 분기문 주어진 조건식에 따라 각기 다른 기능 수행하거나 주어진 조건식이 참인 경우만 기능을 수행할 경우 If 문 If … Then … End If If … Then … Else … End If If … Then … ElseIf … Then … Else … End If Select 문 예제로 배우는 Visual Basic 6.0

If … Then … End If 형식 수행 예 If <조건> Then <명령문> End If <조건>이 참인 경우만 <명령문>수행 예 입력된 값이 음수이면 양수로 변환 Private Sub Command1_Click()     Dim intData As Integer     intData = CInt(txtInput.Text)     If intData < 0 Then intData = -intData      lblOut.Caption = intData End Sub 예제로 배우는 Visual Basic 6.0

If … Then … Else … End If 형식 수행 예 <조건>이 참인 경우 <명령문1> 수행 <조건>이 거짓인 경우 <명령문2> 수행 예 입력된 값의 양수, 음수 판별 Private Sub Command1_Click()     Dim intData As Integer     intData = CInt(txtInput.Text)      If (intData Mod 2) = 0 Then         lblOut.Caption = "짝수"     Else         lblOut.Caption = “홀수"     End If End Sub 예제로 배우는 Visual Basic 6.0

If… Then… ElseIf… Then… Else End If 형식 수행 <조건1>이 참인 경우 <명령문1> 수행 <조건2>이 참인 경우 <명령문2> 수행 … 위의 조건이 모두 거짓이면 <명령문n+1> 수행 If <조건1> Then     <명령문1> ElseIf <조건2> Then     <명령문2> ... ElseIf <조건n> Then     <명령문n> Else     <명령문n+1> End If 예제로 배우는 Visual Basic 6.0

If… Then… ElseIf… Then… Else End If 예 점수에 따른 등급 결정 Private Sub Command1_Click()     Dim intData As Integer     intData = CInt(txtInput.Text)      If intData >= 90 Then         lblOut.Caption = "A"     ElseIf intData >= 80 Then         lblOut.Caption = "B"     ElseIf intData >= 70 Then         lblOut.Caption = "C"     ElseIf intData >= 60 Then         lblOut.Caption = "D"     Else         lblOut.Caption = "F"     End If End Sub 예제로 배우는 Visual Basic 6.0

Select 문 평가식 또는 변수에 따라 서로 다른 명령문 수행 형식 Select case<평가식 또는 변수>         <명령문1>     case 값2         <명령문2> ...     case 값n         <명령문n>     Else case      <명령문n+1> End If 예제로 배우는 Visual Basic 6.0

Select문 예 점수에 따른 등급 결정 Select case intData / 10 Case 10 Case 9             lblOut.Caption = "A"         Case  8             lblOut.Caption = "B"         Case  7             lblOut.Caption = "C"         Case  6             lblOut.Caption = "D"         Case Else             lblOut.Caption = "F"     End Select Private Sub Command1_Click()     Dim intData As Integer     intData = CInt(txtInput.Text)      If intData >= 90 Then         lblOut.Caption = "A"     ElseIf intData >= 80 Then         lblOut.Caption = "B"     ElseIf intData >= 70 Then         lblOut.Caption = "C"     ElseIf intData >= 60 Then         lblOut.Caption = "D"     Else         lblOut.Caption = "F"     End If End Sub 예제로 배우는 Visual Basic 6.0

4.1 체크박스, 옵션버튼, TabIndex 4.2 조건 분기문 4.3 성적처리기로 익히는 체크박스와 옵션버튼 예제로 배우는 Visual Basic 6.0

실습 – 폼 디자인 성적처리기로 익히는 체크박스와 홉션버튼 폼 디자인 Label 1~2 Frame 1,2 TextBox 1~2 OptionButton 1~4 TextBox 3~7 CheckBox 1~5 CommandButton 1 TextBox 8~10 Label 5~7 예제로 배우는 Visual Basic 6.0

실습 – 속성 설정 컨트롤 이름 Tab Index Form frmGrade Text Box 1~10 txtSnum 1   Text Box 1~10 txtSnum 1 OptionButton 1~4 optYear1 3 Label 1~7 lblSnum txtName 2 optYear2 lblName txtIntro 5 optYear3 lblSubject txtOS 7 optYear4 lblScore txtCS 9 CheckBox 1~5 chkIntro 4 lblSum txtSE 11 chkOS 6 lblAvg txtDB 13 chkCS 8 lblGrade txtSum chkSE 10 Frame 1~2 framYear txtAvg chkDB 12 framSubi txtGrade Command Button 1 cmdProc 예제로 배우는 Visual Basic 6.0

실습 – 코드 작성 cmdProc 버튼의 Click 이벤트에 코딩 변수 선언 합계 구하기 Dim sum As Integer ‘합계 변수 Dim avg As Double ‘평균 변수 Dim subjectCount As Integer ‘과목수 변수 Dim year As String ‘학년 변수 합계 구하기 과목이 선택됐는가? 과목 수 증가 합계에 과목 점수 합산 모든 과목에 대해 처리 If chkIntro.Value = 1 Then          subjectCount = subjectCount + 1         sum = sum + CInt(txtIntro.Text) End If 예제로 배우는 Visual Basic 6.0

실습 - 코드 작성 평균 및 등급 판정 Select 문 avg = sum / 5 '평균 계산 Select Case avg \ 10  '평균을 10으로 나눈 값에 대해 평가     Case 10     Case 9         txtGrade.Text = "A"     Case 8         txtGrade.Text = "B"     Case 7         txtGrade.Text = "C"     Case 6         txtGrade.Text = "D"     Case Else         txtGrade.Text = "F" End Select 예제로 배우는 Visual Basic 6.0

실습 – 실행 실행 각 항목 선택 및 입력 Tab키 이용해서 항목 간 이동 결과 확인 Click~! 예제로 배우는 Visual Basic 6.0

요약 체크박스? 옵션버튼? 토글? 프레임 TabIndex를 이용하여 Tab키를 이용하여 컨트롤의 Focus이동 여러 항목 중 원하는 항목 선택 시 사용(복수 개 선택 가능) 옵션버튼? 여러 항목 중 원하는 항목 선택 시 사용(복수 개 선택 불가능) 토글? 키보드 조작에 의해 두 상태가 번갈아 나타나는 것 프레임 체크박스나 옵션버튼 등 관련된 컨트롤을 그룹화 할 때 사용 TabIndex를 이용하여 Tab키를 이용하여 컨트롤의 Focus이동 예제로 배우는 Visual Basic 6.0

요약 Select 문 If 문 평가식의 결과나 변수에 따라 다양한 문장 수행 주어진 논리식의 결과에 따라 참(True)인 경우와 거짓(False)인 경우에 따라 지정된 문장 수행 If … Then … End If If … Then … Else … End If If … Then … ElseIf … Then … Else … End If Select 문 평가식의 결과나 변수에 따라 다양한 문장 수행 Select case<평가식 또는 변수>     case 값1         <명령문1>     case 값2         <명령문2> ...     case 값n         <명령문n>     Else case      <명령문n+1> End If 예제로 배우는 Visual Basic 6.0