목차
1. 간단한 성적 프로그램 만들기
(국어,수학 성적을 입력받아 총점과 평균, 반올림평균, 학점을 출력하는 프로그램을 작성하시오.)
2. 비밀번호 확인하기
(사용자의 비밀번호 입력 오류가 3회 이상 발생하면 프로그램을 종료하는 프로그램을 작성하시오.)
3. 소 감
(국어,수학 성적을 입력받아 총점과 평균, 반올림평균, 학점을 출력하는 프로그램을 작성하시오.)
2. 비밀번호 확인하기
(사용자의 비밀번호 입력 오류가 3회 이상 발생하면 프로그램을 종료하는 프로그램을 작성하시오.)
3. 소 감
본문내용
3개의 폼에 공통으로 적용시켜야 하는 전역변수를 일단 지정해야할 것이고 폼을 전부 디자인 하고 비밀번호는 속성에서 passwordchr를 이용하여 *표시로 하고나서 if문을 이용하여 전역변수로 지정된 com1234와 틀릴경우에는 계속 다른 폼으로 링크되고 만약에 같다면 종료되는 방식으로 프로그래밍 해야겠다.
소스코드
-form1
Public a As String \'전역변수 a를 지정하였다
Private Sub Command1_Click() \'프로시저 선언
a = com1234 \'전역변수 a의 데이터값을 지정하였다.
Dim id As String \'문자이므로 string을 이용하여 변수 id를 지정
Dim pw As String \'마찬가지로 string을 이용하여 변수 pw를 지정
id = Text1.Text \'변수id는 텍스트1의 텍스트 값
pw = Text2.Text
If pw = a Then \'if문을 이용하여 pw와 a가 틀릴 경우 form2를 나오게 프로그래밍 같을때는 종료
End
Else
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End \'취소를 클릭할경우는 바로 끝난다.
End Sub
-form2
Private Sub Command1_Click() \'form1과 같으므로 주석은 특이한 부분만 달겠다.
a = com1234
Dim id As String
Dim pw As String
id = Text1.Text
pw = Text2.Text
If pw = a Then
End
Else
Form3.Show \'form3으로 링크
End If
End Sub
Private Sub Command2_Click()
End
End Sub
-form3
Private Sub Command1_Click()
a = com1234
Dim id As String
Dim pw As String
id = Text1.Text
pw = Text2.Text
If pw = a Then \'최종적으로 틀릴경우에는 종료되게 프로그래밍
End
Else
End
End If
End Sub
Private Sub Command2_Click()
End
End Sub
실행화면
CHAPER 03
소 감
처음 이 문제를 접하였을 때 머릿속이 멍 해짐을 느꼈다. 어디서부터 시작해야하는지, 뭘 어떻게 이용할 것인지부터 기억이 가물가물하였다. 아무래도 일주일에 한번 하는 실습가지고는 접할 때마다 이런 점은 계속 될것 같다. 각설하고 기억을 되살리고 책을 쾀어가면서 숙제를 시작하였다. 결론적으로 말하자면 총 5시간이 걸렸으며 1번 저장을 잘못하여 날아가는 바람에 문제 1은 두 번 하였다. 이번 숙제의 주된 목적은 IF문을 얼마나 이해하는가와 어떤 경우에 사용되는지 익히는 것 같았다. 처음문제는 반올림 부분빼고 별로 어려움은 없었으며 마지막 부분에만 IF문이 사용되었다. 처음 접했을때의 막연함은 어느새 사라지고 IF문이 참 편하고 이렇게 사용되는구나 느꼈다. 마이크로소프트 엑셀의 함수부분에서 쓰이는 IF문과 성격은 같았으나 표현하는 부분에 있어서 비주얼베이직이 다소 고급스러웠다. 두 번째 문제또한 처음 접했을때 한숨만 나왔으나 풀다가 보니까 정말 단순하게 완료되었다. IF구문을 이용하여 여러개의 폼을 계속 링크시켜서 조건을 만족시키는 방식으로 문제를 해결하였다. 나중에 더 배워서 링크가 아닌 한폼에서 계속 실행할 수 있는 방법을 모색해 보는것도 좋을 것 같다. 비밀번호 창에 속성에 들어가 *표를 이용하여 비밀번호를 안보이게 하는 것도 유익했으며 그동안 배워왔던 비주얼 베이직의 기본적인 프로그래밍과 디자인에 대해서 많이 익숙해진 것 같아서 흡족한 두 번째 레포트였다.
소스코드
-form1
Public a As String \'전역변수 a를 지정하였다
Private Sub Command1_Click() \'프로시저 선언
a = com1234 \'전역변수 a의 데이터값을 지정하였다.
Dim id As String \'문자이므로 string을 이용하여 변수 id를 지정
Dim pw As String \'마찬가지로 string을 이용하여 변수 pw를 지정
id = Text1.Text \'변수id는 텍스트1의 텍스트 값
pw = Text2.Text
If pw = a Then \'if문을 이용하여 pw와 a가 틀릴 경우 form2를 나오게 프로그래밍 같을때는 종료
End
Else
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End \'취소를 클릭할경우는 바로 끝난다.
End Sub
-form2
Private Sub Command1_Click() \'form1과 같으므로 주석은 특이한 부분만 달겠다.
a = com1234
Dim id As String
Dim pw As String
id = Text1.Text
pw = Text2.Text
If pw = a Then
End
Else
Form3.Show \'form3으로 링크
End If
End Sub
Private Sub Command2_Click()
End
End Sub
-form3
Private Sub Command1_Click()
a = com1234
Dim id As String
Dim pw As String
id = Text1.Text
pw = Text2.Text
If pw = a Then \'최종적으로 틀릴경우에는 종료되게 프로그래밍
End
Else
End
End If
End Sub
Private Sub Command2_Click()
End
End Sub
실행화면
CHAPER 03
소 감
처음 이 문제를 접하였을 때 머릿속이 멍 해짐을 느꼈다. 어디서부터 시작해야하는지, 뭘 어떻게 이용할 것인지부터 기억이 가물가물하였다. 아무래도 일주일에 한번 하는 실습가지고는 접할 때마다 이런 점은 계속 될것 같다. 각설하고 기억을 되살리고 책을 쾀어가면서 숙제를 시작하였다. 결론적으로 말하자면 총 5시간이 걸렸으며 1번 저장을 잘못하여 날아가는 바람에 문제 1은 두 번 하였다. 이번 숙제의 주된 목적은 IF문을 얼마나 이해하는가와 어떤 경우에 사용되는지 익히는 것 같았다. 처음문제는 반올림 부분빼고 별로 어려움은 없었으며 마지막 부분에만 IF문이 사용되었다. 처음 접했을때의 막연함은 어느새 사라지고 IF문이 참 편하고 이렇게 사용되는구나 느꼈다. 마이크로소프트 엑셀의 함수부분에서 쓰이는 IF문과 성격은 같았으나 표현하는 부분에 있어서 비주얼베이직이 다소 고급스러웠다. 두 번째 문제또한 처음 접했을때 한숨만 나왔으나 풀다가 보니까 정말 단순하게 완료되었다. IF구문을 이용하여 여러개의 폼을 계속 링크시켜서 조건을 만족시키는 방식으로 문제를 해결하였다. 나중에 더 배워서 링크가 아닌 한폼에서 계속 실행할 수 있는 방법을 모색해 보는것도 좋을 것 같다. 비밀번호 창에 속성에 들어가 *표를 이용하여 비밀번호를 안보이게 하는 것도 유익했으며 그동안 배워왔던 비주얼 베이직의 기본적인 프로그래밍과 디자인에 대해서 많이 익숙해진 것 같아서 흡족한 두 번째 레포트였다.
소개글