VisualBasic – Page 7 – Form Follows Energy

2006/10/192015/12/12

컬렉션 사용할 때 주의할 점

비주얼베이직 닷넷으로 프로그래밍할 때 컬렉션을 사용하면 간편하게 개체 집합을 다룰 수 있다. 컬렉션을 주로 For Each…Next 문과 함께 사용하게 되는데, 다음의 내용을 주의해야 한다.

컬렉션 수정 불가. GetEnumerator에서 반환된 열거자 개체를 사용하여 요소를 추가하거나 삭제하거나 바꾸거나 다시 정렬하여 컬렉션을 변경할 수는 없다. For Each…Next 루프를 시작한 다음 컬렉션을 변경하면 열거자 개체는 유효하지 않게 되고, 다음에 요소에 액세스하려고 하면InvalidOperationException 예외가 발생한다.
컬렉션 요소 수정 불가. 열거자 개체의 Current 속성은 ReadOnly(Visual Basic)이며 각 컬렉션 요소의 로컬 복사본을 반환한다. 이것은 For Each…Next 루프에서 요소 자체를 수정할 수 없음을 의미한다. 모든 수정 내용은 Current의 로컬 복사본에만 영향을 주며 내부 컬렉션에 반영되지는 않는다.(중요!) 그러나 요소가 참조 형식인 경우에는 요소가 가리키는 인스턴스의 멤버를 수정할 수 있다. 다음은 이에 대한 예이다.

Public Overrides Sub LinkTo(ByVal BuildingDB As BuildingLibrary)
For Each myItem As Layer In Me.Layers
If BuildingDB.FloorMaterials.ContainsKey(myItem.Material.Name) Then
myItem.Material = BuildingDB.FloorMaterials(myItem.Material.Name)
End If

Next
End Sub

Public Overrides Sub LinkTo(ByVal BuildingDB As BuildingLibrary)

For Each myItem As Layer In Me.Layers

If BuildingDB.FloorMaterials.ContainsKey(myItem.Material.Name) Then

myItem.Material = BuildingDB.FloorMaterials(myItem.Material.Name)

End If

End Sub

아래는 안되는 코드

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)
'공간에 대해
For Each myItem As Space In Me.Spaces.Values
If BuildingDB.Spaces.ContainsKey(myItem.Name) Then
myItem = BuildingDB.Spaces(myItem.Name) 'myItem은 복사본이기에 원본 컬렉션에 영향을 주지 못한다.
End If
Next
End Sub

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)

'공간에 대해

For Each myItem As Space In Me.Spaces.Values

If BuildingDB.Spaces.ContainsKey(myItem.Name) Then

myItem = BuildingDB.Spaces(myItem.Name) 'myItem은 복사본이기에 원본 컬렉션에 영향을 주지 못한다.

End If

End Sub

‘그래서 수정한 코드 = 되는 코드

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)
'공간에 대해
Dim ItemsToLink As New Spaces

For Each myItem As Space In Me.Spaces.Values
If BuildingDB.Spaces.ContainsKey(myItem.Name) Then
ItemsToLink.Add(myItem.Name, BuildingDB.Spaces(myItem.Name))
End If
Next
Me.Spaces.Clear()
For Each myItem As Space In ItemsToLink.Values
Me.Spaces.Add(myItem.Name, myItem)

Next
For Each myItem As Space In Me.Spaces.Values
CType(myItem, OndolSpace).LinkTo(BuildingDB)
Next
End Sub

Public Sub LinkTo(ByVal BuildingDB As BuildingLibrary)

'공간에 대해

Dim ItemsToLink As New Spaces

For Each myItem As Space In Me.Spaces.Values

If BuildingDB.Spaces.ContainsKey(myItem.Name) Then

ItemsToLink.Add(myItem.Name, BuildingDB.Spaces(myItem.Name))

End If

Me.Spaces.Clear()

For Each myItem As Space In ItemsToLink.Values

Me.Spaces.Add(myItem.Name, myItem)

For Each myItem As Space In Me.Spaces.Values

CType(myItem, OndolSpace).LinkTo(BuildingDB)

End Sub

2006/10/182015/12/12

한글 텍스트 파일 읽기

한글 텍스트 파일을 읽기 위해서는 인코딩을 다음과 같이 지정해 주어야 한다.

'파일스트림 열기
Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)
'
'스트림리더 열기
'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!
'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다
'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)
'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.
'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.
Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))
'여기서 949는 한글에 대한 code page이다.
'
'자료를 읽기
Call Parse(Reader)
'
'스트림리더 닫기
Reader.Close()

'파일스트림 열기

Dim fs As New FileStream("myhangultext.txt", FileMode.Open, FileAccess.Read)

'스트림리더 열기

'*** 주의 : System.Text.Encoding.Default를 지정해야 '한글'을 읽어올 수 있음!!!

'시스템의 현재 ANSI 코드 페이지에 대한 인코딩을 가져옵니다

'Dim Reader As New StreamReader(fs, System.Text.Encoding.Default)

'--> 사실 이렇게 하면, 한글윈도우이어야 읽을 수 있다.

'명확히 한글을 읽을 수 있게 하려면 다음과 같이 해야 한다.

Dim Reader As New StreamReader(fs, System.Text.Encoding.GetEncoding(949))

'여기서 949는 한글에 대한 code page이다.

'자료를 읽기

Call Parse(Reader)

'스트림리더 닫기

Reader.Close()

2006/09/212015/12/12

List와 Dictionary 클래스

.NET Framework v1.1이하에서는 ArrayList와 HashTable을 이용하여 콜렉션을 관리하였다.

ArrayList는 항목이 중복될 수 있는 콜렉션을 관리하며 추가된 순서(인덱스)가 중요한 관리대상이다. 예를 들어 벽체의 구성은 벽돌, 단열재, 방습층, 벽돌 등과 같이 중복되는 재료가 있는 경우이기 때문에 ArrayList를 사용하는 것이 좋다.

HashTable은 항목이 중복될 수 없는 콜렉션을 관리하며 중복되지 않는 키(key)가 중요한 관리대상이다. 예를 들어, 건축재료 전체 목록을 관리하고자 한다면 이름을 키(key)로하여 각 재료의 물성치를 관리할 수 있다.

이 둘을 안전하게 사용하려면 자료형(data type)을 항상 검토하여야 한다.

저장할 자료형을 정하여, 이와 다를 경우 코딩시부터 오류를 발생시키도록 강력한 자료형검토를 보장하는 클래스가 v2.0에서 추가되었다.

Generic.List와 Generic.Dictionary가 바로 새로 추가된 클래스들이다.

변경전[.NET Framework v1.1]

Private m_Elements As ArrayList

변경전[.NET Framework v1.1]

Private m_Elements As ArrayList

변경후[.NET Framework v2.0]

Private m_Elements As Generic.List(Of Node)

변경후[.NET Framework v2.0]

Private m_Elements As Generic.List(Of Node)

———

변경전 [.NET Framework v1.1]

Private m_Elements As HashTable

변경전 [.NET Framework v1.1]

Private m_Elements As HashTable

변경후[.NET Framework v2.0]
Private m_Elements As Generic.Dictionary(Of String, Pipe)

1 2	변경후[.NET Framework v2.0] Private m_Elements As Generic.Dictionary(Of String, Pipe)

*주의 : .NET Framework v2.0에 Generic이 추가된 것임. 기존의 ArrayList와 HashTable은 계속사용할 수 있음

2006/09/192015/12/12

Main프로시저로 윈도우 프로그램을 실행시키기

윈도우 프로그래밍에서는 폼을 이용하여 창(윈도우)을 만들어 화면에 보여준다.

시작 폼(form) 없이 윈도우프로그램을 실행시키려면 다음과 같이 하면 된다.

1. 모듈에 Main 프로시저를 정의한다.

Public Module MainModule
Public Sub Main()
'여기에 코드를 입력한다.
End Sub
End Module

Public Module MainModule

Public Sub Main()

'여기에 코드를 입력한다.

End Sub

End Module

2. 방법1 :폼의 메소드를 활용하기

Public Module MainModule
Public Sub Main()
Dim frm As New frmMain()
' ShowDialog()는 a modal window를 보여줌.
' 윈도우가 닫힐 때까지 Main()메소드 실행안됨
frm.ShowDialog()
' Show()는 a modeless window를 보여줌
' Main()메소드가 계속 실행됨
frm.Show()
End Sub
End Module

Public Module MainModule

Public Sub Main()

Dim frm As New frmMain()

' ShowDialog()는 a modal window를 보여줌.

' 윈도우가 닫힐 때까지 Main()메소드 실행안됨

frm.ShowDialog()

' Show()는 a modeless window를 보여줌

' Main()메소드가 계속 실행됨

frm.Show()

End Sub

End Module

3.방법2 : Application.Run 이용

Public Module MainModule
Public Sub Main()
Dim frm As New Form1()
    Application.Run(frm)
End Sub
End Module

Public Module MainModule

Public Sub Main()

Dim frm As New Form1()

Application.Run(frm)

End Sub

End Module

이 방법으로 윈도우프로그램을 실행시킨 경우, 종료하려면 다음과 같은 메소드를 사용한다.
프로그램을 끝낼 때는 Application.Exit()를 호출한다.

2006/08/072021/01/03

문자열을 읽어서 단어로 나누어 주는 함수 짜기

입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.

Function GetWords(ByVal TextLine As String, ByVal ParamArray Separators() As Char) As String()
'
' 입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.
' divide character string into separate words according to period and blank space.
'
'Revision History
' &amp;amp;nbsp;Written by Yong-Yee Kim, 2005/11/25
'
Dim MySeparators() As Char = {","c, ":"c, "|"c, ";"c, """"c, "'"c} '기본 구분자 = 쉼표, 콜론, 파이프, 세미콜론, 큰따옴표, 작은따옴표
Dim Words() As String = {}
'
'1)문자열 시작과 끝의 공백을 제거한다.
TextLine = TextLine.Trim()
'
'2)문자열을 구분자(쉼표)를 통하여 분할한다.
If Separators.Length &amp;amp;gt; 0 Then
MySeparators = Separators
End If
Dim Tokens() As String = TextLine.Split(MySeparators)

'
'3)얼마나 많은 단어가 존재하는가?
Dim nums As Integer = 0
For i As Integer = 0 To Tokens.Length - 1
If Tokens(i).Trim.Length &amp;amp;gt; 0 Then '빈 문자열의 단어는 제외시킴
nums += 1
End If
Next i
'
'4)단어수만큼 배열을 할당
ReDim Words(nums - 1)
'
'5)단어를 반환한다.
Dim WordCount As Integer = 0
For j As Integer = 0 To Tokens.Length - 1
If Tokens(j).Trim.Length &amp;amp;gt; 0 Then
Words(WordCount) = Tokens(j).Trim
WordCount += 1
End If
Next j
'
Return Words
End Function

Function GetWords(ByVal TextLine As String, ByVal ParamArray Separators() As Char) As String()

' 입력받은 문자열을 쉼표와 빈칸에 따라 단어를 나누어 준다.

' divide character string into separate words according to period and blank space.

'Revision History

' &amp;nbsp;Written by Yong-Yee Kim, 2005/11/25

Dim MySeparators() As Char = {","c, ":"c, "|"c, ";"c, """"c, "'"c} '기본 구분자 = 쉼표, 콜론, 파이프, 세미콜론, 큰따옴표, 작은따옴표

Dim Words() As String = {}

'1)문자열 시작과 끝의 공백을 제거한다.

TextLine = TextLine.Trim()

'2)문자열을 구분자(쉼표)를 통하여 분할한다.

If Separators.Length &amp;gt; 0 Then

MySeparators = Separators

End If

Dim Tokens() As String = TextLine.Split(MySeparators)

'3)얼마나 많은 단어가 존재하는가?

Dim nums As Integer = 0

For i As Integer = 0 To Tokens.Length - 1

If Tokens(i).Trim.Length &amp;gt; 0 Then '빈 문자열의 단어는 제외시킴

nums += 1

End If

Next i

'4)단어수만큼 배열을 할당

ReDim Words(nums - 1)

'5)단어를 반환한다.

Dim WordCount As Integer = 0

For j As Integer = 0 To Tokens.Length - 1

If Tokens(j).Trim.Length &amp;gt; 0 Then

Words(WordCount) = Tokens(j).Trim

WordCount += 1

End If

Next j

Return Words

End Function

여기서 3)과 5)가 많이 비슷하고 중복된 것으로 느낄 것이다.
그래서 어느 한 쪽을 지워버리면 어떤 일이 생길까?
시간이 되시면 한 번씩 해보면 좋을 것 같다.
결론부터 말하자면, 빈 문자열도 하나의 단어처럼 취급될 수 있다.
즉, 원하는 결과를 제대로 얻을 수 없다.

[사용법]

Dim Words() As String = Getwords("김창선, 4", ",") '문자열을 쉼표로 구분하라
'Words(0) 의 내용은 "김창선"
'Words(1)의 내용은 "4"

Dim Words() As String = Getwords("김창선, 4", ",") '문자열을 쉼표로 구분하라

'Words(0) 의 내용은 "김창선"

'Words(1)의 내용은 "4"

2006/08/022016/05/02

XML 주석활용하기-내가 짠 함수에 대한 설명이 보이게

프로그램 작성시 중요한 것 중의 하나가 주석을 적절하게 다는 것이다.
이제 주석 처리가 VB.NET 2005에 들어오면서 획기적으로 발전하였다. 단순한 주석에서 머무르지 않고 이제는 XML 주석을 통해 각 코드에 구조화된 주석을 쉽게 첨가할 수 있게 되었다. 주석을 작성할 때 각 요소들의 상단에 작은따옴표 3개(”’)를 입력하면(원래 비베의 주석은 작은따옴표 한 개면 됨) [그림1]과 같이 자동으로 XML 주석이 생성되는 것을 확인 할 수 있다.

[그림 1] 비베20005에서 XML 자동 주석 달기

해당 요소에 대한 XML 주석 작성 후 다른 곳에서 그 요소를 참조하게 되면 작성된 XML 주석의 내용이 인텔리센스로 표현되어 코딩시 혼동을 방지할 수 있다.

[그림2], [그림3]은 작성된 XML 주석이 참조시 사용되는 예이다.

[그림 2] XML 주석의 활용 – 첫째 인자에 대한 설명이 나옴

[그림 3] XML 주석의 활용 – 둘째 인자에 대한 설명이 나옴

[For your information]
Visual Basic에서는 프로젝트를 빌드할 때 자동으로 XML 설명서 파일을 생성합니다. 이 파일은 응용 프로그램 출력 디렉터리에 AssemblyName.xml로 나타납니다. 이 파일은 XML 파일이므로 필요할 경우 다른 출력 형식으로 쉽게 변환할 수 있습니다. XML 주석을 사용하면 쉽고 편리하게 코드 설명서를 생성할 수 있습니다. 즉, 코드를 작성하는 동안에는 IntelliSense로, 응용 프로그램을 빌드한 후에는 코드 설명서로 생성할 수 있습니다. (출처 : Visual Basic 2005의 언어 향상)

2006/07/252015/11/12

리팩터링(refactoring)

리팩터링(refactoring)
1. 정의
– 기존 코드의 설계를 개선하는 절차
– 동작(operation)을 보존하는 변환
-> 겉으로 보이는 동작을 바꾸지 않고, 이해하거나 수정하기 쉽게 소프트웨어의 내부 구조를 바꾸는 것 (Martin Fowler)

2. 리팩터링을 하는 이유
– 새로운 코드를 더 쉽게 추가할 수 있도록 하기 위해
– 기존 코드의 설계를 개선하기 위해
– 기존 코드를 더 잘 이해하기 위해
– 덜 짜증나는 코드로 만들기 위해

“Any fool can write code that a computer can understand. Good programmers write code that humans can understand.
컴퓨터가 이해하는 코드는 어느 바보나 짤 수 있다. 훌륭한 프로그래머는 사람이 이해할 수 있는 코드를 짠다.” – Martin Fowler

<참고>
패턴(pattern) : 반복해 나나타는 설계 문제에 대한 표준 해법
설계 초기 단계부터 패턴을 적용하는 것보다 기존 설계를 개선하는 데 패턴을 사용하는 것이 더 낫다.

2006/04/042021/11/11

If문과 Select문의 비교

프로그래밍의 가장 기본 중의 하나가 If문에 의한 실행의 분기일 것이다.

단순한 분기에서부터 다중 분기까지 가능하다.

<문제>

성적 점수에 따라 평점(A, B, C, D, F 등으로 표시되는 것. 학점하고 구분)을 반환하는 함수를 작성하라.

1) If문을 이용한 함수 1

Public Function GetGrade(ByVal AverageScore As Single) As String
If AverageScore >= 95 Then
Return "A+"
ElseIf AverageScore >= 90 And AverageScore &lt; 95 Then
Return "A0"
ElseIf AverageScore >= 85 And AverageScore &lt; 90 Then
Return "B+"
ElseIf AverageScore >= 80 And AverageScore &lt; 85 Then
Return "B0"
ElseIf AverageScore >= 75 And AverageScore &lt; 80 Then
Return "C+"
ElseIf AverageScore >= 70 And AverageScore &lt; 75 Then
Return "C0"
Else
Return "F"
End If
End Function

Public Function GetGrade(ByVal AverageScore As Single) As String

If AverageScore >= 95 Then

Return "A+"

ElseIf AverageScore >= 90 And AverageScore < 95 Then

Return "A0"

ElseIf AverageScore >= 85 And AverageScore < 90 Then

Return "B+"

ElseIf AverageScore >= 80 And AverageScore < 85 Then

Return "B0"

ElseIf AverageScore >= 75 And AverageScore < 80 Then

Return "C+"

ElseIf AverageScore >= 70 And AverageScore < 75 Then

Return "C0"

Else

Return "F"

End If

End Function

조건이 굉장히 복잡하게 보이지만, 계산 논리를 한번에 알아볼 수 있다.
이렇게 다중 분기하는 경우 다음과 같이 Select문을 생각해 볼 수 있다.

2)Select문을 이용한 함수

Public Function GetGrade(ByVal AverageScore As Single) As String
Select Case AverageScore
Case 95 To 100
Return "A+"
Case 90 To 94
Return "A0"
Case 85 To 89
Return "B+"
Case 80 To 84
Return "B0"
Case 75 To 79
Return "C+"
Case 70 To 74
Return "C0"
Case Else
Return "F"
End Select
End Function

Public Function GetGrade(ByVal AverageScore As Single) As String

Select Case AverageScore

Case 95 To 100

Return "A+"

Case 90 To 94

Return "A0"

Case 85 To 89

Return "B+"

Case 80 To 84

Return "B0"

Case 75 To 79

Return "C+"

Case 70 To 74

Return "C0"

Case Else

Return "F"

End Select

End Function

이 함수는 심각한 문제를 안고 있다. 즉, 85.5와 같은 점수에 대해서는 “F”를 줄 수 있기 때문이다.
Case 간에 비어있는 범위가 생길 수 있다는 점에서 유의해야 한다.

3)다시 If문을 이용한 함수

처음 If문을 간결하게 다시 작성하면 다음과 같이 할 수 있다.

여기서 중요하게 볼 것은 처음 조건문은 그 다음 조건문의 필터 역할을 한다는 것이다.

예를들어 85.5점은 처음 조건문부터해서 두번째 조건문까지 만족하지 않는다. 그러나, 세번째 조건문에서는 통과하여 평점을 받게 된다. 즉, 세번째 조건문에 ’90보다 작다’는 필터가 두번째의 조건문을 통해서 만들어진 것이다.

Function GetGrade(ByVal 점수 As Single) As String
  Dim grade As String = ""

  If 점수 >= 95 Then
    grade = "A+"
  ElseIf 점수 >= 90 Then
    grade = "A"
  ElseIf 점수 >= 85 Then
    grade = "B+"
  ElseIf 점수 >= 80 Then
    grade = "B"
  ElseIf 점수 >= 75 Then
    grade = "C+"
  ElseIf 점수 >= 70 Then
    grade = "C"
  ElseIf 점수 >= 65 Then
    grade = "D+"
  ElseIf 점수 >= 60 Then
    grade = "D"
  Else
    grade = "F"
  End If
  Return grade
End Function

Function GetGrade(ByVal 점수 As Single) As String

Dim grade As String = ""

If 점수 >= 95 Then

grade = "A+"

ElseIf 점수 >= 90 Then

grade = "A"

ElseIf 점수 >= 85 Then

grade = "B+"

ElseIf 점수 >= 80 Then

grade = "B"

ElseIf 점수 >= 75 Then

grade = "C+"

ElseIf 점수 >= 70 Then

grade = "C"

ElseIf 점수 >= 65 Then

grade = "D+"

ElseIf 점수 >= 60 Then

grade = "D"

Else

grade = "F"

End If

Return grade

End Function

주의사항 : 제대로 된 필터 기능을 사용하고자 한다면, 점수가 고득점부터 저득점으로 내려오든, 저득점에서 고득점으로 올라가든, 일정한 순서로 조건문을 배열해야 한다는 점이다.

정령 Select문으로는 해결할 수 없는가?
이것을 Select문으로 바꾸면 다음과 같이 될 것이다.

4) 다시 Select문을 이용한 함수
Is라는 키워드를 사용하면 다음과 같이 작성할 수 있다.

Function GetGrade(ByVal 점수 As Single) As String
  Dim grade As String = ""
  Select Case 점수
    Case Is >= 95
      grade = "A+"
    Case Is >= 90
grade = "A"
Case Is >= 85
grade = "B+"
Case Is >= 80
grade = "B"
Case Is >= 75
grade = "C+"
Case Is >= 70
grade = "C"
Case Is >= 65
grade = "D+"
Case Is >= 60
grade = "D"
Case Else
grade = "F"
End Select
Return grade
End Function

Function GetGrade(ByVal 점수 As Single) As String

Dim grade As String = ""

Select Case 점수

Case Is >= 95

grade = "A+"

Case Is >= 90

grade = "A"

Case Is >= 85

grade = "B+"

Case Is >= 80

grade = "B"

Case Is >= 75

grade = "C+"

Case Is >= 70

grade = "C"

Case Is >= 65

grade = "D+"

Case Is >= 60

grade = "D"

Case Else

grade = "F"

End Select

Return grade

End Function

이 방법도 Case 점수가 일정한 순서로 배치되어 가능하다는 점을 유의해야 한다.

2006/04/032015/12/13

Single.Parse()처럼 문자열을 객체로 만드는 방법

Single.Parse()는 문자열을 읽어서 그 값을 Single형 값으로 바꾸어준다.

Dim myValue As Single = Single.Parse("36.5")

1	Dim myValue As Single = Single.Parse("36.5")

myValue는 단정도 실수인 36.5가 된다.

이 방법은 파일에서 문자열을 읽어온 후에, 그 값을 전환하는데 있어서 매우 유용하다.

같은 방법으로 문자열을 읽어서 특정 객체를 생성시키려면 다음과 같이 하면 된다.

<작성하고자 하는 클래스>

Public Class Person '클래스명 = Person
  Private m_Name As String
  Private m_Age As Short
  ...<중략>....
End Class

Public Class Person '클래스명 = Person

Private m_Name As String

Private m_Age As Short

...<중략>....

End Class

1) String형 매개변수를 갖는 생성자를 선언한다.

그리고, 생성자 코드 안에 문자열을 해석할 InternalParse를 호출한다.

Public Sub New(ByVal myText As String)
  InternalParse(myText)
End Sub

Public Sub New(ByVal myText As String)

InternalParse(myText)

End Sub

생성자 내용을 간단하게 하는 것이 좋다.

다른 함수(초기화메소드)를 이용하면, 인스턴스 변수에 대한 초기화를 생성자 이외에서도 할 수 있다.

2) InternalParse() 메소드를 작성한다.

Private Sub InternalParse(ByVal myText As String)
  '문자열을 분해한다.
  Dim Words() As String = GetWords(myText) 'GetWords에 대한 함수는 각자가 작성 ^^
  '하나의 문자열을 의미있는 단어로 분할!
  '분해된 문자열을 인스턴스 변수에 대입한다.
  m_Name = Words(0) '이름
  m_Age = Short.Parse(Words(1)) '나이
End Sub

Private Sub InternalParse(ByVal myText As String)

'문자열을 분해한다.

Dim Words() As String = GetWords(myText) 'GetWords에 대한 함수는 각자가 작성 ^^

'하나의 문자열을 의미있는 단어로 분할!

'분해된 문자열을 인스턴스 변수에 대입한다.

m_Name = Words(0) '이름

m_Age = Short.Parse(Words(1)) '나이

End Sub

3) Parse() 메소드를 작성한다.

이 때, 이 클래스의 인스턴스 없이 Parse()메소드를 호출하기 위해서는 Shared를 선언한다.

Public Shared Function Parse(ByVal myText As String) As Person
  Return New Person(myText)
End Sub

Public Shared Function Parse(ByVal myText As String) As Person

Return New Person(myText)

End Sub

4)사용법

Dim mySon As Person = Person.Parse("김창선, 4")

1	Dim mySon As Person = Person.Parse("김창선, 4")

이름은 ‘김창선’이고 나이는 ‘4’인 mySon 인스턴스가 생긴다.

2006/03/252015/12/13

Visual Basic.NET의 구조

1. Visual Basic.NET의 소스파일에는 무엇이 들어있나?
– 확장자가 .vb인 소스코드 파일에서는 클래스를 정의

Public Class Dog
  '클래스
End Class

Public Class Dog

'클래스

End Class

– 모듈(module) -> 암시적으로 공유되는 클래스의 특수 형태로 볼 수 있음

2. 클래스(class) 안에는 무엇이 들어 있나?
– 메소드(method)가 한 개 이상 들어 있음

Public Class Dog
  Sub Bark()
    '메소드
  End Sub
End Class

Public Class Dog

Sub Bark()

'메소드

End Sub

End Class

3. 메소드 안에는 무엇이 들어 있나?
– 처리할 일을 지시하는 내용이 들어있음
-> 일련의 명령문이 들어 있음

Public Class Dog
  Sub Bark()
    Statement1 '명령문
    Statement2
  End Sub
End Class

Public Class Dog

Sub Bark()

Statement1 '명령문

Statement2

End Sub

End Class

4. 클래스를 해부한다면?
비베닷넷에서는 프로그램을 실행시키기 위한 Main함수, 클래스, 폼을 지정해야 함
시작 함수로서의 Main에 대한 정의는 어떻게 하는가?

Public Class MyFirstApp
  Public Shared Sub Main()
  End Sub
End Class

Public Class MyFirstApp

Public Shared Sub Main()

End Sub

End Class

콘솔프로그램을 작성하고자 한다면 다음과 같이 하면 된다.

Public Class MyFirstApp
  Public Shared Sub Main()
    Console.WriteLine("Hello, World.")'내용을 콘솔에 출력한다.
    Console.ReadLine()'사용자의 입력을 받아들인다.
  End Sub
End Class

Public Class MyFirstApp

Public Shared Sub Main()

Console.WriteLine("Hello, World.")'내용을 콘솔에 출력한다.

Console.ReadLine()'사용자의 입력을 받아들인다.

End Sub

End Class

5. Main함수를 가지고 윈도우 프로그램을 실행하려면?
1) Application.Run 메소드를 이용

Public Module StartModule
  Public Sub Main()
    Dim frm As New Form1()
    Application.Run(frm)
  End Sub
End Module

Public Module StartModule

Public Sub Main()

Dim frm As New Form1()

Application.Run(frm)

End Sub

End Module

프로그램을 끝낼 때는 Application.Exit()라고 하면 된다.
2) 폼의 ShowDialog메소드를 이용

Public Module StartModule
  Public Sub Main()
    Dim frm As New Form1()
    frm.ShowDialog() 'modal window를 보여줌.
    '윈도우가 닫힐 때까지는 Main()의 다른 명령은 실행되지 않음
  End Sub
End Module

Public Module StartModule

Public Sub Main()

Dim frm As New Form1()

frm.ShowDialog() 'modal window를 보여줌.

'윈도우가 닫힐 때까지는 Main()의 다른 명령은 실행되지 않음

End Sub

End Module

3) 폼의 Show메소드를 이용

Public Module StartModule
  Public Sub Main()
    Dim frm As New Form1()
    frm.Show() 'modeless window를 보여줌.
    'Main()가 계속 실행됨
  End Sub
End Module

Public Module StartModule

Public Sub Main()

Dim frm As New Form1()

frm.Show() 'modeless window를 보여줌.

'Main()가 계속 실행됨

End Sub

End Module

6. 메소드(method)란?
1) 뭔가를 하는 것
명령문 : 선언, 대입, 메소드 호출 등
2) 뭔가를 여러 번 반복하는 것
순환문 : For, While
For : 반복횟수를 알 때
While : 반복횟수를 모르며, 탈출조건은 알 때.
3) 조건에 따라 뭔가를 하는 것
분기문 : If/Else, Select Case

7. 그렇다면 클래스는 어떻게 설계해야 하는가?
– 클래스를 설계할 때믄 그 클래스 유형으로부터 생성되는 객체에 대해 생각한다.
객체에서 아는 것 -> 인스턴스 변수
객체에서 하는 것 -> 메소드
– 이 클래스가 무엇을 할 것인가(역할-> 메소드)를 먼저 생각한다.

Public Class Song
  Dim m_Title As String '아는 것 -> 인스턴스 변수(상태)
  Dim m_Artist As String
  '
  Sub SetTitle() '하는 것 -> 메소드(행동)
  Sub SetArtist()
  Sub Play()
End Class

Public Class Song

Dim m_Title As String '아는 것 -> 인스턴스 변수(상태)

Dim m_Artist As String

Sub SetTitle() '하는 것 -> 메소드(행동)

Sub SetArtist()

Sub Play()

End Class

– 클래스와 객체 사이에는 어떤 차이가 있는가?
클래스는 객체(인스턴스)를 만들기 위한 청사진 -> 그 유형의 객체를 만드는 방법을 알려주는 역할을 한다
클래스는 하나이나 객체는 여럿이 될 수 있다.

8. 점(.) 연산자
– 클래스 내부의 상태와 행동을 어떻게 참조/호출하는가?
– 점(.) 연산자는 객체의 상태(인스턴스 변수)와 행동(메소드)을 접근할 수 있게 해주는 역할을 한다.

Dim myDog As Dog = New Dog() '새로운 객체를 만든다.
myDog.Bark() '점 연산자를 myDog변수에 적용하여 Bark()메소드를 호출하여 그 개가 짖도록 한다.
myDog.m_Size = 40 '점 연산자를 써서 그 크기를 설정한다.

Dim myDog As Dog = New Dog() '새로운 객체를 만든다.

myDog.Bark() '점 연산자를 myDog변수에 적용하여 Bark()메소드를 호출하여 그 개가 짖도록 한다.

myDog.m_Size = 40 '점 연산자를 써서 그 크기를 설정한다.

Public Class Dog
  Dim m_Size As Integer '***실제 코딩에서는 상태를 직접 바꾸는 것을 피하자. 상태는 Private으로 선언하여 숨긴다.
  Dim m_Breed As String
  Dim m_Name As String
  '
  Public Sub Bark()
    Console.WriteLine("멍멍")
  End Sub
End Class

Public Class Dog

Dim m_Size As Integer '***실제 코딩에서는 상태를 직접 바꾸는 것을 피하자. 상태는 Private으로 선언하여 숨긴다.

Dim m_Breed As String

Dim m_Name As String

Public Sub Bark()

Console.WriteLine("멍멍")

End Sub

End Class

9. 결국 비베닷넷의 프로그램은 무엇이라 할 수 있는가?
-클래스를 통해여 만들어진 객체들의 연극
– 비베닷넷 프로그램이란 객체가 다른 객체와 대화하는 것에 불과함
– 대화한다는 것은 객체에서 서로 다른 객체의 메소드를 호출하는 것을 의미함.

myDog.Bark()

1	myDog.Bark()

-> myDog에게 Bark하라고 말함
-> myDog에게 Bark하라는 메시지를 전함
-> myDog이라는 변수로 참조할 수 있는 객체를 이용하여 Bark()라는 메소드를 호출하라는 뜻

– 메시지 = 참조변수 + 점(.)연산자 + 메소드