영어청취와 사업아이디어, 컴퓨터무료강의가 있는 곳

General Declarations에 추가
Imports System

Imports System.IO

값 얻기 위한 코드

For Each drive_info As DriveInfo In DriveInfo.GetDrives()

            Console.Write(drive_info.Name & "   ")

            Console.WriteLine(drive_info.DriveType().ToString)

Next drive_info

결과 확인

NET Framework Library에 있는 StreamReader Class를 이용했음.

StreamReader Class

StreamReader 클래스를 이용하기 위해서는 코드 맨 상단에 Imports System.IO 를
추가해 준다.

폼디자인

코딩하기

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click

        Dim StreamToDisplay As StreamReader

        '읽을 txt 파일을 할당

        StreamToDisplay = New StreamReader("E:\test.txt")

        '파일 끝까지 읽어서 그 데이터를 txtRead.Text에 입력하라

        txtRead.Text = StreamToDisplay.ReadToEnd

        'StreamReader 객체를 닫고 관련 리소스를 release하라.

        StreamToDisplay.Close()

    End Sub

End Class

test.txt 파일의 내용은 RFC5090의 첫머리를 저장한 것이다.

Network Working Group                                   B. Sterman

Request for Comments: 5090                               Kayote Networks

Obsoletes: 4590                                            D. Sadolevsky

Category: Standards Track                                 SecureOL, Inc.

                                                             D. Schwartz

                                                         Kayote Networks

                                                             D. Williams

                                                           Cisco Systems

                                                                 W. Beck

                                                     Deutsche Telekom AG

                                                           February 2008

               RADIUS Extension for Digest Authentication

Status of This Memo

   This document specifies an Internet standards track protocol for the

   Internet community, and requests discussion and suggestions for

   improvements.  Please refer to the current edition of the "Internet

   Official Protocol Standards" (STD 1) for the standardization state

   and status of this protocol.  Distribution of this memo is unlimited.

 Abstract

   This document defines an extension to the Remote Authentication

   Dial-In User Service (RADIUS) protocol to enable support of Digest

   Authentication, for use with HTTP-style protocols like the Session

   Initiation Protocol (SIP) and HTTP.

실행하기

프로그램을 작성하다 보면 반복해서 처리해 줘야하는 경우가 종종 있다. 예를 들면 적게는 수십명에서 많게는 수 만명의 사람에게 SMS 문자메시지나 이메일을 보내줘야 하는 경우같이 반복되는 작업을 처리해야 할 때 사용하면 좋은 반복문에 대해서 알아보기로 하자.

1. For ~ Next 문
For문과 Next문 사이의 코드를 조건에 따라서 반복 처리한다.

1.1  형식

For 변수 = 초기치 To 최종치 [Step 증감값]

…
실행코드들
[Exit For]

Next [변수]

è  Step문이 생략된 경우에는 증감값은 1이 된다.

1.2  예제

이중 For ~ Next문을 사용하여 “0123456789”가 10번 출력되도록 함.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim number, count As Integer

        Dim thisString As String = ""

        For number = 10 To 1 Step -1

            For count = 0 To 9

                thisString &= CStr(count)

            Next count

            thisString &= " "

            MsgBox("현재 number 값은 :" & CStr(number) & "현재
                    thisString값은 :" & thisString & "이다")

        Next number

        MsgBox("For Next문을 수행한 최종 결과는 : " & thisString &
                "이다.")

End Sub

[참고] For … Each문은 배열에 대해서 할 때 글을 올리도록 하겠습니다.

2. Do While … Loop문

For 반복문은 루핑 수행시 회수에 의존하므로 일반적인 조건들을 반영하기가 조금은 불편하다. 이럴 경우 어떤 조건이든 사용이 가능한 Do While문을 알아보자.

부연하자면 Do While문은 조건이 참인 동안(거짓일 될 때까지) 일정한 블록 내의 코드를 반복 처리한다.

2.1 형식

Do While 조건식

…
실행코드들

Loop

2.2 예제

TextBox1에 입력한 숫자로 합계가 10미만이 될때까지 반복하는 예제

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'CInt()함수는 문자를 숫자로 변환해주는 함수

        Dim sum As Integer = 0

        Dim counter As Integer = 0

        Do While sum < 10

            sum = sum + CInt(TextBox1.Text)

            counter = counter + 1

            MsgBox("반복수는 : " & CStr(counter) & "현재 sum 값은 : "
                   & CStr(sum) & "이다")

        Loop

        MsgBox("총 반복수는 :  " & CStr(counter) & " 번이다!")

End Sub

3. Do … Loop While 문

이 반복문은 Do While Loop문과 동일하지만 다른 점은 루프 내의 문장이 최소한 한 번은 수행된다는 점이다.


4. Do Until … Loop 문

Do Until문은 Do While문과는 달리 지정된 조건이 참이 될 때까지 루프 내의 코드들을 실행한다.

4.1 형식

Do Until 조건식

…
실행코드들

Loop

4.2 예제

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'TextBox1에 입력한 숫자로 sum<10 일때까지 반복한다.

        'CInt()함수는 문자를 숫자로 변환해주는 함수

        Dim sum As Integer = 0

        Dim counter As Integer = 0

        If TextBox1.Text <> "" Then

            Do Until sum = 10

                sum = sum + CInt(TextBox1.Text)

                counter = counter + 1

                MsgBox("반복수는 : " & CStr(counter) & "현재 sum
                          값은 : " & CStr(sum) & "이다")

                'sum 값이 10보다 클 경우 Do Until ... Lop 탈출

                If sum > 10 Then

                    Exit Do

                End If

            Loop

            MsgBox("총 반복수는 :  " & CStr(counter) & " 번이다!")

        Else

            MsgBox("숫자를 입력해주세요.")

        End If

End Sub

5. Do … Loop  Until 문

이 반복문은 Do Until .. Loop문과 동일하지만 다른 점은 루프 내의 문장이 최소한 한 번은 수행된다는 점이다.

예제 결과

Select 문
Select 문은 하나의 식을 검사하여 여러 개의 실행 블록 중 하나를 선택하여 분기한다.

1.1 형식

Select Case 비교대상

Case 비교값 1

  처리코드 1

Case 비교값 2

  처리코드 2

…

Case Else

  처리코드

           End Select

1.2 예제

Select Case Val(TextBox1.Text)

                Case 91 To 100

                    MsgBox("아주 영어를 잘하는군요..수")

                Case 81 To 90

                    MsgBox("영어를 잘하는군요..우")

                Case 71 To 80

                    MsgBox("영어가 조금 부족합니다..미")

                Case 61 To 70

                    MsgBox("영어가 많이 부족하군요..양")

                Case Else

                    MsgBox("영어를 너무 못하는군요..가")

      End Select

이번에는 실제 예제를 볼까요?

                                                 폼 디자인

                                       값이 입력되지 않았을 때

                                  숫자가 아닌 값이 입력되었을 때

Expression이 숫자형이면 참(True)을 숫자형이 아니면 거짓(False)을 나타낸다.

TextBox.Focus
텍스트박스의 입력창에 입력이 가능하도록 포인터를 위치시킨다.

If문 테스트 클릭시 코딩된 부분
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'TextBox1에 값이 입력되어 있지 않으면 표시해주는 부분

        If TextBox1.Text = "" Then

            MsgBox("TextBox에 값이 입력되지 않았습니다. 값을 입력해주세요.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

            TextBox1.Focus()

            '입력된 값이 숫자형인지 파악해서 숫자입력 요청

        ElseIf IsNumeric(TextBox1.Text) = False Then

            MsgBox("TextBox에 0~100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

            'TextBox1에 0 ~ 100 사이의 값을 입력 요청 조건문

        ElseIf Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0에서 100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

        ElseIf Val(TextBox1.Text) < 90 Then

            MsgBox("당신은 공부를 더 열심히 해야겠군요.!!")

        End If

End Sub


Select문 테스트 클릭시 코딩된 부분
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        'TextBox1에 값이 입력되어 있지 않으면 표시해주는 부분

        If TextBox1.Text = "" Then

            MsgBox("TextBox에 값이 입력되지 않았습니다. 값을 입력해주세요.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

            TextBox1.Focus()

            '입력된 값이 숫자형인지 파악해서 숫자입력 요청

        ElseIf IsNumeric(TextBox1.Text) = False Then

            MsgBox("TextBox에 0~100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

            'TextBox1에 0 ~ 100 사이의 값을 입력 요청 조건문

        ElseIf Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0에서 100 사이의 정수값을 입력해주세요.")

            TextBox1.Text = ""

            TextBox1.Focus()

        End If

        If TextBox1.Text <> "" Then

            Select Case Val(TextBox1.Text)

                Case 91 To 100

                    MsgBox("아주 영어를 잘하는군요..수")

                Case 81 To 90

                    MsgBox("영어를 잘하는군요..우")

                Case 71 To 80

                    MsgBox("영어가 조금 부족합니다..미")

                Case 61 To 70

                    MsgBox("영어가 많이 부족하군요..양")

                Case Else

                    MsgBox("영어를 너무 못하는군요. 가")

            End Select

        End If

If 조건문
If 조건문은 프로그램을 짜다보면 너무도 자주 접하게 되는 프로그램의 흐름을 결정하는 중요한 부분으로 잘 알아두면 좋을 것입니다.

1. 단일 If 문

1.1 형식
           If 조건 Then 실행문
           End If

1.2 예제
           영어점수가 70점 미만일 때는 합격 취소하는 경우

Dim English As Integer
           If English < 70 Then
             Passed = False
           End If

2. 이중 선택 If 문
조건을 테스트한 결과가 참인지 혹은 거짓인지에 따라 서로 다른 문장 블록을 선택적으로 실행해야 하는 경우가 있는데 이때 다음과 같이 Else 문을 추가하여 프로그래밍한다.

2.1 형식

        If 조건 Then

             참인 경우 실행할 코드

        Else      

          거짓인 경우 실행할 코드

        End If

2.2 예제
           영어 점수가 70점 이상이면 합격이고 그 미만일 경우에는 불합격 메시지를 표시
           Dim English As Integer
           If English >=70 Then

MsgBox(“합격하셨습니다.”)
           Else

MsgBox(“불합격하셨습니다.”)
End If

3. 다중 조건 If 문

검사할 조건이 여러 개인 경우 ElseIf문을 사용한다.

3.1 형식

           If 조건 1 Then
             실행코드 1
           ElseIf 조건 2 Then
             실행코드 2

           Else

             실행코드 3

           End If

3.2 예제

하나의 숫자를 가지고 비교하여 각각에 다른 메시지 보여주기
Dim number As Integer
number = 155

           If number < 100 Then
  MsgBox(“100보다 작군요”)

ElseIf number < 200 Then

          MsgBox(“200보다 작군요”)

           Else

             MsgBox(“200보다 크군요”)

           End If

단순히 이해를 쉽게 하기 위해서 되도록 간단한 예제를 들었습니다. 실제 프로그래밍을 하다보면 이와 같이 간단한 경우도 있지만 복잡한 구조를 만나게 되는데 무엇보다 중요한 것을 기본에 충실해야겠죠.
실제 예제를 직접 입력해 보시면서 감각을 익히시길 바랍니다.
그럼 If 조건문에 대해서는 이 정도에서 마칩니다.

연산자(Operator)

산술 연산자

산술 연산자는 덧셈, 뺄셈, 곱셈 등과 같이 대수연산기능을 제공한다.

결합 연산자(&)

문자열을 결합하는데 사용한다.

Dim str As string

str = “I love” & “You!”

비교 연산자

크기 비교를 수행하며 결과값은 True, False이다.

논리 연산자

적용하려는 데이터형이 일정치 않을 때 보통 예전에는 Variant형을 썼지만
메모리 낭비가 발생하게 되는 단점이 있다.

이러한 메모리 낭비를 줄이기 위해서는 코딩시 정확한 자료형을 사용하면 된다.

그래서 이번에는 Visual Basic 2008에서 사용되는 자료형을 알아보자.

Visual Basic 2008에서 사용되는 자료형

Short, UShort, Integer, UInteger, Long, ULong, Single, Double, Decimal, Byte, SByte, Char, String, Boolean, Date, Object, 사용자 정의 자료형

예전에 VB를 짜보거나 다른 프로그래밍 언어를 사용해 본적이 있다면 쉽게 이해할 수 있는 자료형이라고 생각됩니다.

[참고] Variant형
예전 버전에서는 변수선언시 데이터 유형을 지정하지 않으면 Variant형으로 자동 지정되었으나 Visual Basic 2008부터는 Variant형이 지원되지 않는다. 그 대신 object형이 등장함.

여기서는 기본자료형 설명은 제외하고 사용자 정의 자료형을 알아봅니다.

예를 들어, C 언어를 사용해 보신 분들이라면 아시겠지만. 구조체와 비슷한 형태로 만들어서 사용하는 법을 보도록 하겠습니다.

폼 클래스 밑에 아래와 같이 입력합니다.
Structure student

        Dim Name As String

        Dim Number As String

        Dim English As UShort

        Dim History As UShort
End Structure
물론 향후 공부하게 되면 자신만의 모듈을 만들어서 그곳에 넣어놓고 불러서 사용할 수 있습니다.

[예제] 사용자 정의 데이터형

Public Class Form1

'사용자 자료형

    Structure student

        Dim Name As String

        Dim Number As String

        Dim English As UShort

        Dim History As UShort

    End Structure

 

 

    Private Sub Button1_Click(ByVal sender As System.Object,
         ByVal e As System.EventArgs) Handles Button1.Click

       'OurStudent를 사용자정의 자료형인 student로 선언

        Dim OurStudent As student

       '변수에 값 할당

        OurStudent.Name = "홍길동"

        OurStudent.Number = "2002975"

        OurStudent.English = 98

        OurStudent.History = 78

 

        MsgBox("학생의 이름, 학번, 영어점수, 국사점수는 각각 " _ 
        &  OurStudent.Name & "," & OurStudent.Number & _

        "," & CStr(OurStudent.English) & "," & _
        CStr(OurStudent.History) & "입니다.", , _
        "사용자정의 데이터  예제")

 

    End Sub

End Class

[참고] Cstr() 함수
문자열 자료형으로 변환해주는 함수. 위의 경우에는 English, History가 UShort형이므로
이를 문자열로 바꿔주었음.

실행 화면
(버튼 하나만 배치하였음)

사용자 정의 데이터 테스트 버튼을 눌렀을 때

이상으로 사용자 정의 자료형에 대해서 알아봤습니다. 쉽지요?
그럼 다음 강좌를 기대해 주세요.

InputBox 사용하기

프로그램을 만들다보면 사용자로부터 데이터를 받아서 처리해야 할 경우가 의외로 많은 것 같다. 그럴 경우 사용자가 선택할 수 있는 것들을 미리 정해놓고 그 가운데 선택하도록 하는 하는 방법과 사용자가 직접 입력하도록 하는 방법이 있는데 오늘은 그 중에서 유용하게 쓸 수 있는 InputBox에 대해서 알아보고자 한다.

함수 정의

변수(Variable)

Visual Basic 2008에서 변수선언

Dim 변수명 As 변수자료형

여기서 Dim은 Dimension의 약자이다.

Dim strCopy As String  ‘strCopy라는 문자열형 변수선언

선언된 변수에 값 할당하기

strCopy=”안녕하세요. 여러분!”

변수의 명시적 선언

1. Option explicit

  ‘on’ 상태일 때 선언되지 않은 변수명을 만나면 에러 메시지를 표시

2. Option Infer ->Visual Basic 2008에서 추가된 기능

  Infer option이 ‘on’ 상태이면 초기에 설정된 변수형을 추측하여 해석

  예를 들면
Dim intnumber=100 이라고 변수를 선언, 값을 할당했을 경우

 
Infer option이 ‘on’ 상태이면 아래와 같이 해석한다.

  Dim intnumber As Integer = 100

 
그러나 만일 Infer option이 ‘off’ 상태이면 object로 저장된다.
따라서 보다 효율적인 데이터 공간을 이용해서 프로그래밍하고자 할 경우에는
모듈 최상위에

Option Infer On

 
이라고 해주면 Infer 옵션을 사용할 수 있게 되는 것이다.

하지만 이것보다도 더 좋은 방법은 변수 선언시 정확한 자료형을 정의해서 사용하는 것이
 좋다고 생각한다.

[참고] 프로젝트 IDE에서 설정하는 방법

위에서 Options..를 선택하면 아래와 같은 Options 화면이 나온다.
여기에서 설정을 해주면 된다.

이상으로 변수에 관한 첫번째 내용을 마칩니다.
편안한 밤들 되시길...

오늘은 MsgBox에 대해서 보다 심도있는 내용을 올려봅니다.
결과를 먼저 볼까요?

        Dim msg, button, title '메시지 박스 인수들에 넣어줄 변수 선언
        msg = "첫번째 테스트입니다. 줄을 바꿔볼까요?" & Chr(10) & "줄이 바뀌었네!!"
        button = vbYesNoCancel + vbInformation
        title = "메시지박스 첫번째 테스트"
        MsgBox(msg, button, title)

End Sub

두번째 버튼을 클릭하면

        Dim msg, button, title, response
        msg = "두번째 테스트입니다." & Chr(10) & "프로그래밍 배우기가 쉬운가요?
                   아니면 어려운가요?"
        button = vbYesNo + vbInformation
        title = "메시지박스 두번째 테스트"

        response = MsgBox(msg, button, title) '메시지 박스에서 버튼클릭결과를 받기 위함

        '메시지박스 결과에 따른 후속처리 요청하는 부분
        '이런 식으로 메시지 박스 선택한 것에 따라 DB에 데이터를 저장,삭제,조회 등
        '원하는 작업을 처리할 수 있도록 한다.
        If response = MsgBoxResult.Yes Then
            TextBox1.Text = "프로그래밍 고수가 될 소질이 있으시군요."
        Else
            TextBox1.Text = "열심히 하다보면 고수가 될 수 있을 겁니다."
        End If
End Sub

그냥 봐서는 모르겠지요.
자세히 알아 볼까요?

MsgBox 함수 정의
Public Function MsgBox( _

   ByVal Prompt As Object, _

   Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _

   Optional ByVal Title As Object = Nothing _

) As MsgBoxResult

Buttons 인수에 사용되는 상수

인수는 메시지 박스의 타이틀을 나타냄

MsgBox 결과 상수(vB6.0 과 비교하여)

마지막으로 Chr(10)은 무엇인지 궁금할텐데요. 줄바꾸기를 해주는 겁니다.
그럼 그림으로 이해를 해볼까요?