기본문법1

3 장비주얼베이직 6.0 문법

3-1 객체지향프로그래밍 (OOP) 의개념 정의 장점 Windows 환경에서절차적인과정을따르지않고시각적인객체를중심으로프로그램을제어하는기법 을이용한프로그래밍 새로운기능의추가로인해기존코드의수정이거의없어유지보수가용이 한번작성한객체는다시재사용이가능 객체 속성과메소드를포함하는하나의실체로표현. 그실체는어떤사물일수도있고추상적인존재 예로명령버튼의 (Name) 속성과 Caption 속성을설정한후명령버튼에 Click 이라는이벤트가발생했을때의동작되는내용들을작성했을때한객체 ( 명령버튼 ) 는설정된속성과동작방법 ( 메소드 ) 를통하여프로그램안에서하나의객체 클래스란객체를생성하는설계서이고, OOP의전부

3-1 객체지향프로그래밍 (OOP) 의개념 추상화 (Abstraction) 추상화는 OOP 에있어서가장핵심적인개념이며더정확한의미로축약화 비주얼베이직으로프로그램을작성할때사용하려는컨트롤이어떻게작동하고무슨작업을할수있는지를축약해서우리들에게표현되는것이추상화개념 캡슐화 (Encapsulation) 데이터와그것을조작하는코드를같이묶는구조를말하는것 객체를추상화하는데있어서그객체의정보즉데이터를캡슐화하는작업은매우중요

3-1 객체지향프로그래밍 (OOP) 의개념 상속성 (Inheritance) OOP는객체를재사용할수있다는장점을갖게하여기존의프로그래밍기법과차별되도록하는것이상속성의개념 비주얼베이직의텍스트박스를예로텍스트박스를사용하기위해컨트롤박스에서그컨트롤을마우스로선택한후폼위에배치 이는텍스트박스의성질을그대로상속받는객체를그특성에맞게다시설계 다형성 (Polymorphism) OOP에서는하나의객체가같은동작방법즉, 같은메소드에대해서서로다른반응을하는것 OOP용어로오버로딩 (Overloadeing)

변수의종류및선언 변수란? 프로그램에서사용하는자료를임시로저장해두는기억장소 이러한기억장소는사용자의편의를돕기위하여이름을붙여구분 Dim ReDim Static Public Private 변수명 AS 데이터형, 변수명 AS 데이터형 Dim(ReDim) 문 : 변수를선언하기위한가장기본적인방법 데이터형을지정 Dim Var As String : 변수 Varr 가문자열변수임을선언 고정배열을만듬 Dim X (1 to 100, 1 to 200) : 고정 2 차원배열 x 를선언

동적배열을만듬 Dim Temp() : 동적배열을선언. 나중에배열이프로시저안에서재설정 (Redim) 되어사용될때크기재조정이가능 Sub Form_Clik() ReDim Temp(50) End Sub 고정길이문자열을만듬 Dim MyStr As String * 20 : MyStr 변수는문자를 20 개즉, 20byte 의크기의갖는다. Dim 을처음으로사용할때, 숫자배열의모든요소는 0 으로설정되고, 문 자배열의모든요소는 NULL 로설정

Static 문 : 지역변수의특수한유형으로다른프로시저에가더라도그값이영속적이므로어떤 것을기억하거나축적을시킬때 Static 으로선언 Static Counter As Integer : 정적변수 Counter 를정수형으로선언 Static 변수는프로시저안에서만선언 Public 문 프로그램모든곳에서사용이가능. 즉어느폼이나프로시저등에서그변수의값이영속적 이어서읽고쓰기가가능 모듈이나폼의일반선언부, 프로시저에서선언이된다. 이때그사용범위는전체폼이나모 듈에있어서유효 모듈에선언된경우 Public Pub As Integer ( 모듈에서선언 ) Pub = 1 ( 다른폼에서사용 ) X = Pub 폼의일반선언부, 프로시저에서선언된경우 Public Pub As Integer (Form1 에서선언 ) Form1.Pub = 1 ( 다른폼에서사용 ) X = Form1.Pu 모듈이란하나의프로젝트에서전역적으로쓰이는변수나프로시저또는상수등을모아놓은 프로그램

Private 문 Public 의반대개념이라고정의 모든프로시저앞에는 Private 가자동으로나타난다. 이는프로시저가 Public 인데비주얼베이직이 Private 로만들려하는이유 Public 으로한번사용된변수나프로시저이름은그프로그램에서다른용도로다시사용하지못하고 Private 로선언된프로시저안의변수들은기본적으로 Private 의성질을갖는다. 변수선언을이용한프로그램작성순서 -1 < 컨트롤의구성 > 1 2 3 4 종류속성값 Form( 폼 ) 1 Text 2 Text 3 Text 4 CommandButton Name frmcalc Caption 덧셈 Name txtnum1 Text Name txtnum2 Text Name txtnumtotal Text Name cmdcalc Caption 계산

변수의작성 일반 항목에변수를선언한예로 Dim 명령형식으로사용 Dim 변수명 두개이상의변수를동시에만들고싶으면컴마 (,) 로구분 Dim 변수명1, 변수명2, 변수명3 변수이름작성 변수이름을작성하는규칙은컨트롤이름작성방법과동일하게적용 255 자이내영문자, 숫자, 밑줄문자 (_) 로구성 첫번째문자는영문자로구성 Sub, For, End 등예약어 ( 비주얼베이직이재부적으로사용하는단어 ) 는사용불가 동일폼내에중복된이름사용불가

변수에값할당하기 계산 버튼 (cmdcalc) 을누르면 (cmdcalc_click) 다음과같은상황이발생 - 변수 Num1 에 txtnum1 의 Text 속성에입력되어있는값을할당 - 변수 Num2 에 TxtNum2 의 Text 속성에입력되어있는값을할당 - 변수 NumTotal 에 Num1 과 num2 를합한값을할당 - txtnumtotal 의 Text 속성에변수 NumTotal 의값을입력 변수에값을입력하는방법 변수명 = 값 변수에값을할당할때사용하는 = 은같다는의미가아니라오른쪽값을왼쪽의변수에집어넣으라는의미 데이터형 데이터형의종류 Boolean True(-1) 와 False(0) 두가지만을표현. Boolean 의기본값은 False. Dim blnrunning As Boolean 테이프가실행중인지점검한다. If Recorder.Direction = 1 Then blnrunning = True

Integer -32768~32767 사이의정수만을표현 X% = 1/50 X% 의결과값은 0 이된다. X = 1/50 X 의결과값은 0.5 가된다. X% = 15/4 X% 의결과값은 4 가된다 ( 반올림 ). Long -2147483648~2147483647 사이의정수만을표현 숫자범위를넘게지정하면런타임시오류가발생 Decimal 소수점이있을때와없을때의범위가바뀐다. 소수점이없을때엔 Long 정수의범위와정밀도를갖고, 소수점이있을때엔배정도 (Double) 부동소수점유형의범위와정밀도를갖는다. 그러나 Decimal 유형으로변수를선언할수는없다. Dim Deci As Decimal -> 잘못된선언 Deci = Cdec(1) -> 변수 Deci 를 Desimal 형으로선언하며 1 로초기화

Enum 형 서로관련있는상수들을열거하고자할때사용. 모듈에정의해주어야하며 이뉴머레이션 으로발음 [Private Public] Enum 이름구성요소이름 [ = 상수표현 ] : End Enum Public Enum colorname colorblack = 0 colorred = 1 colorblue = 2 colorgreen = 3 colorwhite = 4 End Enum 모듈에선언하게되면프로그램작성을할때숫자를사용하는것보다훨씬더수월하게프로그래밍을할수있으며, 프로그램의유지보수작업에도많은도움을주게된다.

사용자정의형 (Type 형 ) 어떤언어에서나기본적인데이터형만으로프로그램을작성하는것은불가능 사용자정의형은모듈이나일반선언부에정의하여야하며사용할때는사용자정의형으로선언된변수형으로변수를선언해서사용 Type EmployeeRecord ID As Integer Name As String * 20 Address As String * 30 End Type [Private Public] Type 사용자정의변수명구성요소 As 데이터형 : End Type 모듈에사용자정의형으로 EmployeeRecord 변수를선언 Sub CreateRecord() Dim MyRecord As EmployeeRecord MyRecord.ID = 1234 myrecord.name = Kim ju pyo MyRecord.Address = Seoul Korea End Sub 변수 MyRecord 를 EmployeeRecord 형으로선언하고 MyRecord 로참조되는각구성요소에데이터를설정

문자열자료형 (String 형 ) 숫자값이아닌문자열만을포함하는변수는 String 유형으로선언. Private S As String + : 여러개의문자열을하나로연결할때사용하는기호 & : 문자열이아닌다른형과문자열을연결시킬때사용 문자열변수또는인수의기본값 : 새데이터가지정되었을때길이가변하는가변길이문자열이나다음구문처럼고정길이문자열로지정 String * size 행기능 함 수 2개의문자열비교 StrComp() 소문자나대문자로변환 LCase(), Ucase() 반복문자의문자열작성 Space(10),String(5, $ ) 문자열길이구하기 Len() 문자열형식지정 Format() 문자열정렬 Lset(), Rest() 문자열조작 Instr(), Left(), Ltrim(), Med(), Right(), Rtrim(), Trim() 문자열변환 StrConv()

데이터형의변환 문자 -> 숫자 intvalue = Val( 1234 ) intvalue 의결과값은숫자 1234 숫자 -> 문자 strvalue = Str(1234) ascvalue 의결과값은문자열 1234 문자 -> ASCⅡ ascvalue = Asc( A ) ascvalue 의결과값은숫자 65 ASCⅡ -> 문자 Double -> Byte 소문자 -> 대문자 인수의데이터타입 -> 문자열 chrvalue = Chr(65) chrvalue 의결과값은문자 A dblvalue = 123.45 bytevalue = Cbyte(dblValue) bytevalue의결과값은숫자 123 lowvalue = Welcome To Windows upvalue = UCase(lowValue) upvalue의결과값은문자열 WELCOME TO WINDOWS TypeName함수 : 변수안에저장된데이터의종류를알아냄. 특히Variant변수에저장된데이터의종류를알아내는데유용 - whattype = TypeName(strVar) : whattype의결과값은문자열 String - whattype = TypeName(intVar) : whattype의결과값은문자열 integer - whattype = TypeName(CurVar) : whattype의결과값은문자열 Currency - whattype = TypeName(NullVar) : whattype의결과값은문자열 Null 배열의데이터유형 Dim N() As Integer Print TypeName(N) 결과값 : Integer() Variant 변수의데이터유형 X = 1 Print TypeName( ) 결과값 : Integer

변수선언의응용과상수선언 변수선언의응용 변수의선언을 Dim 이라는명령을사용하여처리 비주얼베이직에서는변수를선언하지않고도사용할수있는데그변수의데이터형은기본적으로 Variant 가된다. 변수를사용하지않고사용하는것은프로그램의논리적버그를초래하므로프로그램앞부분에지시자를사용하여선언되지않은변수는사용하지못하게하는것이바람직 Option Explicit 비주얼베이직 5.0 이후부터는변수, 함수, 컨트롤이름, 그리고컨트롤제작할때이벤트까지한글로가능 형식 Dim 변수명 as 데이터형식 < 한글변수로선언된소스 > Option Explicit Dim 홈페이지주소 as String Dim 서버포트번호 as integer

상수선언 3-2 비주얼베이직 6.0 기본문법 상수를선언할경우는 Const 지시자를사용 상수는값에대한매크로라고할수있다. 즉특정값 ( 수나문자, 문자열 ) 을다른이름으로치환하여사용 상수의필요성 소스의가독성. 한번의정의로여러번코딩하는번거러움을피할수있다. 비주얼베이직에서상수를정의하는방법 [public private] Const 상수명 [As 데이터형 ] = 값 [public private] 은제한자로써비주얼베이직에만있고선택적인사항으로써선언해도좋고선언안해도좋다. 다만안쓸경우는기본적으로 public이된다. 그리고상수는 [As 데이터형 ] 를사용하여데이터형을가질수있다. 이것역시선택사항 사용자상수작성 Const 문을사용하면수학기호나날짜 / 시간을나타낼수있을뿐아니라문자열상수를정의하는데사용 Const conpi = 3.14159265358979 Public Const conmaxplanets As Integer = 9 Const conreleasedate = #1/1/95# Public Const conversion = 07.10.A Const concodename = Enigma

등호의오른쪽표현은숫자또는문자열로나타나는식일수도있고, 이전에정의된상수를사용하여정의 쉼표를사용하여상수를분리하면같은줄에여러개의상수를정의 Const 문은변수선언의경우와같은참조범위를가지며적용되는규칙도같다. 프로시저내에서만존재하는상수는프로시저내에서선언하다. 모듈내의모든프로시저가사용할수있으나모듈외부에서는사용하지못하는상수는모듈의선언부에선언 응용프로그램전체에서사용가능한전역상수는표준모듈선언부의 Const 앞에 Public 키워드를붙여선언 비주얼베이직함수 내장함수 Const conpi2 = conpi * 2 Public Vonst conpi = 3.14, conmaxplanets = 9, conworldpop = 6E+09 End : 프로그램을종료할경우사용 End Str : 숫자형변수를문자 (String) 값으로반환한다. 숫자들이문자열로변환되면 number 의부호를위해문자열앞쪽에한개의공간이예약 Str(number) Format 함수는숫자값을날짜, 시간, 화폐단위나다른사용자정의형식으로형식화할때이용하며, Str 함수와는달리 number 의부호를위한앞쪽공간을포함하지않는다.

Val : 문자열변수 (String) 를숫자값 (Double) 으로반환한다. 숫자값으로인식할수없는문 자열을만나는순간 Val 함수는해당되는첫문자에서부터읽기를중단한다. 그러나 &O(8 진수 ), &H(16 진수 ) 와같은문자는인식할수있으며, 공백, 탭, 라인피드와같은 문자는인수에서제외한후처리한다. Val 함수는마침표 (.) 만을유효한십진수구분자로인식 Beep : 윈도우의기본음을발생시키거나스피커에서 ~ 삑 소리를나타낸다. 문자열함수 Val(string) Beep Left : Left 는문자열변수의왼쪽으로부터지정한양만큼의문자열을가져올수있게해준다. X = Welcome to Windows Y = Left(X,7) Print Y 결과값 : Welcome Ltrim : 문자열변수의왼쪽에있는공란을제거 X = Korea Print Ltrim(X) 결과값 : Korea ( 왼쪽의빈공간이사라짐 )

Mid : 문자열변수왼쪽에서부터시작해서지정한만큼을가져온다. Mid 에서는두개의숫자를지정해야하는데텍스트를가져오기시작할위치와가져올문자의수를지정 X = abcdefghijklmnopqrstuvwxyz Y = Mid(X, 5, 3) Print Y 결과값 : efg X = This is Mid function Mid(X, 1, 4) = That Print X 결과값 : That is Mid function Right : 문자열변수의오른쪽에서지정된길이의문자열을가져온다. Print Right( ABCDE, 2) 결과값 : DE Rtrim : 문자열변수의오른쪽에있는공란들을제거 X = ABC Y = Rtrim(X) Print Len(X), Len(Y) 결과값 : 4 3

Format() 함수 Format() 함수는필요에따라텍스트문자 ( 숫자 ) 로서숫자들을서식화하여화면이나프린터에표시 X = 1000000 Print X Print Format(X, #,###,### ) 결과값 : 1000000 1,000,000 날짜, 시간관련함수 날짜, 시간함수 X = 123 Print Format(X, # /d/a/y ) 결과값 : 123 day ( 매타문자의기능을없애기위해 / 사용 ) Print Date 결과값 : 98-08-11 Print Time 결과값 : 1:57:18 오전 Print Now 결과값 : 2004-08-11 1:57:18 오전 Print Second(Time) 결과값 : 18 Print Minute(Time) 결과값 : 57 Print Hour(Time) 결과값 : 1 Print Day(Date) 결과값 : 11 Print Month(Date) 결과값 : 8 Print Year(Date) 결과값 : 2004

Weekday() 함수 특정날짜의요일을 1~7 까지의상수로리턴하며 Format() 함수의날짜서식에서 dddd 옵션과같은기능을함. 상수값설명 vbsunday 1 일요일 vbmonday 2 월요일 vbtuesday 3 화요일 vbwednesday 4 수요일 vbthursday 5 목요일 vbfriday 6 금요일 vbsaturday 7 토요일 DateSerial(year, month, day) 함수 Print WeekDay(Now) 결과값 : 3 ( 화요일 ) DateSerial() 함수의각각의인자들은변수나계산식또는숫자가올수있으며리턴되는값은 Date 함수형으로변환. Dim year, month, day As Integer Print DateSerial(2004, 8, 11) Year= 2004 결과값 : 2004-08-11 Month=8 Day=10 Print DateSerial(year, month, day + 1) 결과값 : 2004-08-11

DateValue() 함수 DateValue() 함수는일정규칙으로정해진문자열을인자로하여 Date 함수형을표시 Print DateValue( jan 23 2004 ) Print DateValue( jan 23, 2004 ) Print DateValue( 23-Jan-2004 ) Print DateValue( 23 January 2003 ) Print DateValue( 1-23-2004 ) 결과값 : 2004-01-23 TimeSerial(hour, minute, second) 함수 Dateserial() 함수와마찬가지로각각의인자들은변수나계산식또는숫자가올수있으며리턴되는값은 Time 함수형으로변환 Print TimeSerial(12, 8, 11) 결과값 : 12:08:11 오후 Dim hour, minute, second As Integer hour=0 minute=8 second=10 Print TimeSerial(hour, minute, second + 1) 결과값 : 12:08:11 오전

TimeValue() 함수 DateValue() 함수와마찬가지로일정규칙에정해진문자열을인자로하여 Time 함수형을 표시 Print TimeValue( 13:2 ) Print TimeValue( 1:2 PM ) Print TimeValue( 13:02:00 ) 결과값 : 1:02:00 오후 MagBox() 와 InputBox() 함수 MsgBox() 함수 : 대화상자에메시지를표시하는함수로사용자가선택한버튼의정수값을리턴 MsgBox() 함수의리턴값 상수값설명 vbok 1 [ 확인 ] 버튼을눌렀을경우 vbcancel 2 [ 취소 ] 버튼을눌렀을경우 vbabout 3 [ 중단 ] 버튼을눌렀을경우 vbretry 4 [ 재시도 ] 버튼을눌렀을경우 vbignore 5 [ 무시 ] 버튼을눌렀을경우 vbyes 6 [ 예 ] 버튼을눌렀을경우 vbno 7 [ 아니오 ] 버튼을눌렀을경우