1 / 13

예제로 배우는 Visual Basic 6.0 6. 성적 분석기를 이용한 중간 점검

예제로 배우는 Visual Basic 6.0 6. 성적 분석기를 이용한 중간 점검. 학습목표. 이제까지 배운 내용에 대해서 점검한다. 6.1 폼 디자인 6.2 코드 작성. 폼 디자인. 전역 변수 선언 5 명까지 입력할 수 있는 배열 및 학생수 변수 선언. 실습 – 코드 작성. Option Explicit ' 전역변수 Dim cnt As Integer ' 학생수

mufutau-lawrence
Télécharger la présentation

예제로 배우는 Visual Basic 6.0 6. 성적 분석기를 이용한 중간 점검

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 예제로 배우는 Visual Basic 6.06. 성적 분석기를 이용한 중간 점검

  2. 학습목표 • 이제까지 배운 내용에 대해서 점검한다 예제로 배우는 Visual Basic 6.0

  3. 6.1 폼 디자인 • 6.2 코드 작성 예제로 배우는 Visual Basic 6.0

  4. 폼 디자인 예제로 배우는 Visual Basic 6.0

  5. 전역 변수 선언 5명까지 입력할 수 있는 배열 및 학생수 변수 선언 실습 –코드 작성 Option Explicit '전역변수 Dim cnt As Integer '학생수 Dim names(5) As String '이름 Dim subject(5, 2) As Integer '과목 점수 Dim sum(5) As Integer '합계 Dim avg(5) As Integer '평균 Dim score(5) As Integer '취득학 점수 예제로 배우는 Visual Basic 6.0

  6. 실습 - 코드 작성 • 배열 선언 • 변수 구성(편의상 5명으로 한정) 합계(sum) 과목별 점수(subject) 평균(avg) 취득학점(score) 학생름(names) 입문 OS 학생1 (1) (1) (1,1) (1,2) (1) (1) 학생2 (2) (2) (2,1) (2,2) (2) (2) 학생3 (3) (3) (3,1) (3,2) (3) (3) 학생4 (4) (4) (4,1) (4,2) (4) (4) 학생5 (5) (5) (5,1) (5,2) (5) (5) 예제로 배우는 Visual Basic 6.0

  7. (names) (subject) (sum) (avg) (score) 학생1 홍길동 4 90 80 170 85 학생2 (2) (2) (2,1) (2,2) (2) (2) 학생3 (3) (3) (3,1) (3,2) (3) (3) 학생4 (4) (4) (4,1) (4,2) (4) (4) 학생5 (5) (5) (5,1) (5,2) (5) (5) 실습 - 코드 작성 • 배열 저정의 예 예제로 배우는 Visual Basic 6.0

  8. Form_Load() 프로그램을 실행하면 자동으로 실행되는 부분 선언 실습 –코드 작성 Private Sub Form_Load() ' 프로그램 실행시 자동으로 실행 txtResult.Text = " 이름 입문 OS 합계 평균 취득학점" & vbCrLf & _ "===============================================" & vbCrLf End Sub 실행결과 예제로 배우는 Visual Basic 6.0

  9. 실습 - 코드 작성 • cmdInput_Click() –입력버튼 • 학생수 카운터, 5명이 넘으면 메시지 표시, 이름 저장 cnt = cnt + 1 '학생수 증가 Dim j As Integer '반복문에 사용될 변수들 If cnt > 5 Then '처리 학생 인원이 5명을 넘으면 종료 MsgBox "5명까지 입력이 완료되었습니다. 더 이상 입력할 수 없습니다" Exit Sub '더이상 프로그램이 실행 안됨 End If names(cnt) = txtName.Text '입력된 이름(txtName)을 names의 cnt번째 저장 예제로 배우는 Visual Basic 6.0

  10. 실습 - 코드 작성 • cmdInput_Click() –입력버튼 • 각 과목 점수 배열에 저장, 60점 이상이면 취득학점 계산 및 저장 '컴퓨터입문 subject(cnt, 1) = Val(txtIntro.Text) '성적을 배열(subject)의 cnt행의 1열에 저장 If subject(cnt, 1) >= 60 Then '60점 이상인 경우 취득학점수 계산 For j = 0 To 2 If optINT(j).Value = True Then '학점이 선택된 경우 첨자에 1를 더하여 학점 저정 score(cnt) = score(cnt) + (j + 1) End If Next j End If '운영체제 subject(cnt, 2) = Val(txtOS.Text) If subject(cnt, 2) >= 60 Then 성적을 배열(subject)의 cnt행의 2열에 저장 For j = 0 To 2 If optOS(j).Value = True Then score(cnt) = score(cnt) + (j + 1) End If Next j End If 예제로 배우는 Visual Basic 6.0

  11. 실습 - 코드 작성 • cmdInput_Click() –입력버튼 • 합계와 평균 계산 For j = 1 To 2 '합계 계산 sum(cnt) = sum(cnt) + subject(cnt, j) Next j avg(cnt) = sum(cnt) / 2 '평균 계산 예제로 배우는 Visual Basic 6.0

  12. 실습 - 코드 작성 • cmdInput_Click() –입력버튼 • txtResult 텍스트 박스에 결과 출력 '결과출력 txtResult.Text = txtResult.Text & names(cnt) & " " & subject(cnt, 1) & " " & subject(cnt, 2) & " " If chkSum.Value = 1 Then '합계가 체크된 경우 txtResult.Text = txtResult.Text & sum(cnt) & " " Else txtResult.Text = txtResult.Text & " " End If If chkAvg.Value = 1 Then '평균이 체크된 경우 txtResult.Text = txtResult.Text & avg(cnt) & " " Else txtResult.Text = txtResult.Text & " " End If If chkScore.Value = 1 Then '취득학점이 체크된 경우(줄바꿈 포함) txtResult.Text = txtResult.Text & score(cnt) & " " & vbCrLf Else txtResult.Text = txtResult.Text & " " & vbCrLf End If End Sub 예제로 배우는 Visual Basic 6.0

  13. 실습 –실행 예제로 배우는 Visual Basic 6.0

More Related