[Visual Basic]문법 2부






Enum 문

Enum문은 비슷한 유형을 가진 상수를 묶어서 이용하는 경우에 사용됩니다. [상수 값]을 생략하는 경우에는 첫 번째 선언된 상수 값이 0이 되고 다음 상수부터는 1씩 증가한 값이 [구성요소 이름]에 자동으로 들어 갑니다.


형식

[Public | Private] Enum 이름

구성요소이름 [= 상수 값]

.

.

End Enum


Enum
문을 이용하여 상수 값을 다음과 같이 선언했을 경우 유의할 사항이 있습니다.


Enum 번호

신문섭

김을동 = 2

이우동

End Enum

'신문섭'에는 상수값이 1되지만 , '김을동'의 상수값이 2로 선언되어 있기 때문에 '이우동''김을동'의 상수값에 1이 증가한 3이 됩니다. 사용 예제는 다음과 같습니다.


Enum 번호

신문섭

김을동 = 2

이우동

End Enum

Private Sub Command1_Click()

Dim num As 번호

num = 신문섭

Label1.Caption = num

num = 김을동

Label2.Caption = num

num = 이우동

Label3.Caption = num

End Sub

실행 결과 : Label1은 0이 출력되고 Label2는 2가 출력되고 Label3은 3이 출력됩니다.


Enum 번호

신문섭

김을동 = 2

이우동

End Enum

Private Sub Command1_Click()

 

Label11.Caption = 번호.신문섭

End Sub

실행 결과 : Label1은 0이 출력됩니다.


[ 자동으로 목록이 나타난 화면 ]



주석문

주석문은 코딩을 한 후 소스를 이해하기 편리하기 위해서 사용합니다. 어포스트로피(')기호나 Rem문을 이용하여 주석을 포함시킬 수 있습니다.


'- - - - - - - - - - - - - - - - - - - - -

'- 주석문 -

'- - - - - - - - - - - - - - - - - - - - -

명령버튼을 누르면 수행합니다.

Private Sub Command1_Click()

' A변수와 B변수를 선언합니다.

Dim a, b As Integer

a = 10: ' a 변수에 10값을 넣습니다.

b = 20: ' b 변수에 20값을 넣습니다.

라벨 컨트롤에 A와 B를 더한 값을 출력합니다.

Label1.Caption = a + b

End Sub

 

Rem - - - - - - - - - - - - - - - - - - - - -

Rem - 주석문 -

Rem - - - - - - - - - - - - - - - - - - - - -

Rem 명령버튼을 누르면 수행합니다.

Private Sub Command1_Click()

Rem A변수와 B변수를 선언합니다.

Dim a, b As Integer

a = 10: Rem a 변수에 10값을 넣습니다.

b = 20: Rem b 변수에 20값을 넣습니다.

Rem 라벨 컨트롤에 A와 를 더한 값을 출력합니다.

Label1.Caption = a + b

End Sub



주석문을 소스에 써넣는 일은 어쩌면 귀찮은 일일지도 모릅니다. 귀찮다고 해서 주석문을 쓰지 않는다면 오래전에 만들었던 소스를 이해하지 못하는 일이 생깁니다. 또한 프로젝트를 할 경우에는 다른 프로그래머가 그 소스를 이해하지 못하는 어려움이 있어 불편함을 느낄 수 있습니다. 습관이라는 것은 매우 중요한 것이니, 주석문을 쓰는 습관을 갖도록 합시다.

 



Reactions

댓글 쓰기

0 댓글