▒ Visual Basic의 기초문법

함수 프로시저 종합적인문제1

내장함수

함수란 프로시저의 종류에 속하며 반환값을 갖는다. 비주얼 베이직 내장함수는 찾아보면 그 수가 많은데 실제 자주 쓰이는 함수는 몇 되지 않는다. 주로 '문자열' 조작관련 함수 사용빈도가 많은 것 같다.

문자열 관리 함수

여기서 가장 많이 쓰이는 함수를 아래에 묶어 놓았다.

nStr	문자열 안에 특정 문자열이 처음으로 발생한 위치를 되돌려주는 함수
Space	지정된 수의 공백으로 구성된 문자열을 되돌려주는 함수.
String	지정된 길이의 반복되는 문자열을 되돌려 주는 함수
Asc	문자열의 첫 글자에 대응하는 무자 코드를 정수 형태로 되돌려 주는 함수
Val	문자열 내에 포함된 숫자를 적절한 형식의 숫자값으로 되돌려 주는 함수
Str	숫자를 문자열로 변환하여 되돌려 주는 함수

예1) Len() : 텍스트 박스에서 받아온 문자열의 길이를 출력

-> text 박스에 [문자열 함수 테스트]라는 메시지를 입력했다고 가정
Private Sub Command1_Click()
Print Len(text1)
end

출력결과)
10 //[문자열 함수 테스트]는 공백을 치고 총 10자이기 때문이다.

예2) string() : 지정된 길이의 반복되는 문자열을 출력
-> text 박스에 [문자열 함수 테스트]라는 메시지를 입력했다고 가정
Private Sub Command1_Click()
Dim Ascx As long
Print String(5, "*"); Text1; String(5, "*")
End Sub

출력결과)
*****문자열 함수 테스트***** //5칸을 "*" 문자로 채우는 것이다.

변환함수(type conversion function)

CBool	Boolean 형으로 변환한다.
CByte	Byte 형으로 변환한다.
CInt	Integer 형으로 변환한다.
Clng	Long 형으로 변환한다.
CSng	Single 형으로 변환한다.
CDbl	Double 형으로 변환한다.
CCur	통화를 나타낼 때 사용하는 Currency 형으로 변환한다.
CData	Data형으로 변환한다.
CDec	Decimal 형으로 변환한다.
CVar	Variant 형으로 변환한다.
CStr	String 형으로 변환한다.

예)

x=cint(25.51) '소수 부분을 반올림해 Integer 형으로 변환한다.

print x

결과 ) 26

수학함수

Int(5.12)	정수 부분만 구하며, 결과 값은 5임.
Abs(-2)	부호를 제거한 절대값을 구하며, 결과 값은 2임.
Fix(-5.12)	소수 부분을 제거한 숫자를 구하며, 결과 값은 -5임.
Sin(0)	Sin 값을 구하며, 결과값은 0임.
Cos(0)	Cos 값을 구하며, 결과값은 1임.
Tan(0)	Tan 값을 구하며, 결과값은 0임.
Sqr(3)	제곱근을 구하며, 결과값은 1.7320임.
Hex(15)	16진수 값을 구하며, 결과갓은 F임.
Sgn(-2)	양수면 1, 음수면 -1, 0이면 0값을 구하며, 결과값은 -1임.
Exp(2)	e의 거듭 제곱수를 구하며, 결과 값은 7.3890임.
Log(2)	Log 값을 구하며, 결과 값은 0.69314임.

문자열 함수

x="vb6.0" 이라고 설정하였을 때 문자열 함수 결과이다.

파란색의 함수는 많이 쓰이므로 꼭 외워 두도록 하자.

LCase(x)	문자열을 소문자로 바꾼다. 결과 값은 vb6.0
UCase(x)	문자열을 대문자로 바꾼다. 결과 값은 VB6.0
Left(x,2)	왼쪽부터 두 개의 문자를 구한다. 결과 값은 vb
Right(x,2)	오른쪽부터 두 개의 문자를 구한다. 결과 값은 .0
Mid(x,2,3)	왼쪽에서 두번째부터 세 개의 문자를 구한다. 결과 값은 b6
Len(x)	문자열의 길이를 구한다. 결과 값은 5
InStr(x,"b")	문자 b가 있는 위치를 구한다. 결과 값은 2

시간함수

Data	현재 컴퓨터의 날짜 예)99-8-28
Time	현재 컴퓨터의 시간 예)오후 2:01:56
Now	현재 컴퓨터의 날짜와 시간 예) 99-8-28 오후 2:01:56

IIF() 함수 : If- Then 문과 기능이 유사한 함수이다.

예) a=5

print iif(a > 0, "양수","음수")

: 이 예제의 결과로 양수가 출력된다. 변수 a가 양수이므로 조건식 a>0이 참이 되며, 따라서 "양수"가 출력된 것이다.

Format() 함수 : 이 함수는 화면에 표시되는 형태를 지정할 수 있다.

예) format(a,b) 'a를 b에 의거하여 출력한다.

예) a =10000

print format(a, "##,###")

결과) 10,000

프로시저 ▲TOP

정의

:프로시저는 서브루틴으로서 필요시 호출되는 프로그램의 모듈적 단위를 뜻한다. 주로 반복적인 작업을 필요로 하거나 프로그램의 효율적인 관리 운영을 위해 사용된다.

프로시저의 종류

프로시저는 크게 2가지 구분된다.
첫번째는 '이벤트 프로시저'로서 객체의 이벤트 발생에 대한 프로시저이고 두번째는 일반적인 프로시저로서 사용자의 명시적인 호출명령이 있을 때 로딩되는 프로시저이다.
비주얼 베이직 프로그램은 윈도우 프로그램이다. 윈도우 프로그램의 특성이 이벤트 방식이고 보면 위의 '이벤트 프로시저'가 중요한 위치에 있음을 느끼기에 무리가 없을 것이다. 예를 들겠다.

Private Sub Text1_KeyPress()
...........
End Sub

Private Sub Baek()
........
End Sub

위의 것이 이벤트 프로시저이고 아래것이 일반적인 프로시저이다. 툴박스의 텍스트 박스 컨트롤을 선택해 폼위로 옮긴 후 코드 윈도우창에서 객체의 리스트와 이벤트의 리스트를 확인할 수 있다
텍스트 박스의 '이름' 프로퍼티는 기존적으로 Text1, Text2.....로 명명된다.
그리고 각 컨트롤들은 적당한 이벤트들을 갖고 있다. 위의 이벤트는 KeyPress 이벤트로서 프로그램 실행시 텍스트 박스에 어떤 키보드 입력을 주면 자동발생하여 키에 눌려진 키의 아스키값을 검사하는 이벤트이다. 이벤트 프로시저는 앞서도 이야기했지만, 해당되는 객체의 해당 동작 (이벤트) 이 발생하면 그에 합당한 이벤트 프로시저가 발생되는데 우리는 단지 이 이벤트 프로시저의 코드 부분에 원하는 동작을 코딩하면 되는 것, 이것이 이벤트 프로시저를 사용하는 이유다.
Baek는 그냥 일반적인 프로시저인데 이것은 호출하면 프로시저내의 코드를 실행한다. 객체와의 직접적인 반응을 통해 발생하는 모듈은 아닌 것이다.
하지만 프로시저도 세부적으로 2가지로 나뉠 수 있다.
반환값이 없는 프로시저와 반환값이 있는 프로시저이다. 흔히 반환값이 있는 프로시저를 함수라고 부른다. 예를 들어보자.
Private Function Baek() as Integer
Dim i as Integer
i = 2
Baek = i + 4
End Sub
Private Sub Text1_KeyPress()
Baek
End Sub

위 소스코드의 동작은 이렇다.
텍스트 박스1에 어떤 키보드를 입력하면 Text1_KeyPress 이벤트 프로시저로 제어가 넘어간다. 그리고 Baek라는 함수를 호출한다. 다시 프로그램의 제어는 Baek()로 넘어가며 이 함수에선 i = 2에 4를 증가시켜 6이라는 정수값을 반환값을 선택하게 된다. Baek라는 함수의 이름이 반환값을 확인할 수 있는 저장공간으로 활용된다.
함수호출은 몇번 해보았을 것이다. 보통 이름(전달인수, 전달인수,...)인데 위의 함수는 전달인수가 없으므로 괄호는 생략한 채 호출을 한 것이다.

종합적인 문제 1 ▲TOP

공부한다고 고생많았죠? 하지만 여기까지는 비주얼 베이직을 한 것이 아니라, 모든 언어에서 공통으로 쓰이는 프로그래밍을 한 것입니다. 즉 기초문법을 했다는 말이죠. 그러니까 지금까지 배운 것은 하나도 빠짐없이 이해를 하도록 합니다.

그리고 지금 여러분이 풀어 볼 것은 아래와 같습니다.

이것은 정보문화사에서 나온 정보처리기사2급 책에 수록된 문제입니다.

1학년학생들은 기능사 자격증이 없죠?

이번 방학동안 배운 것을 가지고 기능사 자격증은 문제 없이 따도록 모두 노력합시다!!!!

그럼 아래의 문제를 풀어보세요..

문제) 사진 현상점에 필름을 맡겼을 때의 가격이 다음과 같을 때 사진 매수와 크기를 선택하면 가격이 계산되는 프로그램을 작성하시오.

사진 크기

3x5

4x6

5x7

8x10

장당 가격

120

150

200

350

단. 현상료는 1000원이지만 50장 이상이면 받지 않습니다. 그리고 신속 현상을 선택하면 10%가 추가됩니다.

입력양식

매수를 입력할 수 있는 텍스트 박스, 신속현상여부의 체크박스, 크기를 결정할수 있는 옵션버튼 그리고 총 금액을 출력할수 있는 박스가 필요합니다. 그리고 중요한 하나!! 이벤트가 발생할 버튼도 만들어 줘야겠죠?

위 사항이 모두 들어간다는 가정하에 폼은 하나만 짭니다.!!

처리과정

우리가 베운 것 중에 어떠한 것을 사용하여 프로그래밍을 하면 될까요?

자알 생각해 봅시다.

먼저 금액을 계산할 프로시저를 만들어 보세요. 왜 만드냐면 나중에 금액계산한 것을 호출만 하면 편리하니까요.

sub 금액계산()

end sub

그리고 신속현상을 선택할 시 수행할 프로그램도 작성해야겠죠?