방법: Visual Basic에서 직렬 포트의 문자열 받기

아티클
09/05/2008

업데이트: 2007년 11월

이 항목에서는 Visual Basic에서 My.Computer.Ports를 사용하여 컴퓨터의 직렬 포트에서 문자열을 받는 방법을 설명합니다.

직렬 포트에서 문자열을 받으려면

반환 문자열을 초기화합니다.
```
Dim returnStr As String = ""
```
문자열을 제공하는 직렬 포트를 확인합니다. 이 예제에서는 COM1으로 가정합니다.
My.Computer.Ports.OpenSerialPort 메서드를 사용하여 포트에 대한 참조를 가져옵니다. 자세한 내용은 My.Computer.Ports.OpenSerialPort 메서드를 참조하십시오.

Using 블록을 사용하면 예외가 생성되는 경우에도 응용 프로그램에서 직렬 포트를 닫을 수 있습니다. 직렬 포트를 조작하는 모든 코드는 이 블록이나 Try...Catch...Finally 블록 안에 있어야 합니다.
```
Using com1 As IO.Ports.SerialPort = _
        My.Computer.Ports.OpenSerialPort("COM1")
End Using
```
더 이상의 줄이 없을 때까지 텍스트 줄을 읽는 Do 루프를 만듭니다.
```
Do
Loop
```
ReadLine 메서드를 사용하여 직렬 포트에서 다음 텍스트 줄을 읽습니다.
```
Dim Incoming As String = com1.ReadLine()
```
If 문을 사용하여 ReadLine 메서드가 더 이상 텍스트가 없음을 의미하는 Nothing을 반환하는지 확인합니다. Nothing을 반환하면 Do 루프를 종료합니다.
```
If Incoming Is Nothing Then
    Exit Do
End If
```
If 문에 Else 블록을 추가하여 문자열을 실제로 읽은 경우의 대/소문자를 처리합니다. 이 블록에서는 직렬 포트의 문자열을 반환 문자열에 추가합니다.
```
Else
    returnStr &= Incoming & vbCrLf
```
문자열을 반환합니다.
```
Return returnStr
```

예제

Function ReceiveSerialData() As String
    ' Receive strings from a serial port.
    Dim returnStr As String = ""

    Using com1 As IO.Ports.SerialPort = _
            My.Computer.Ports.OpenSerialPort("COM1")
        Do
            Dim Incoming As String = com1.ReadLine()
            If Incoming Is Nothing Then
                Exit Do
            Else
                returnStr &= Incoming & vbCrLf
            End If
        Loop
    End Using

    Return returnStr
End Function

이 코드 예제는 IntelliSense 코드 조각으로도 사용할 수 있습니다. 이 코드 조각은 코드 조각 선택기의 연결 및 네트워킹에 있습니다. 자세한 내용은 방법: 사용자 코드에 코드 조각 삽입(Visual Basic)을 참조하십시오.

코드 컴파일

이 예제에서는 컴퓨터에서 COM1을 사용하는 것으로 가정합니다.

강력한 프로그래밍

이 예제에서는 컴퓨터에서 COM1을 사용하는 것으로 가정합니다. 유연성을 높이려면 사용자가 사용 가능한 포트 목록에서 원하는 직렬 포트를 선택할 수 있도록 코드를 작성해야 합니다. 자세한 내용은 방법: Visual Basic에서 사용할 수 있는 직렬 포트 표시를 참조하십시오.

이 예제에서는 Using 블록을 사용하여 응용 프로그램에서 예외를 throw하는 경우에도 포트를 닫도록 합니다. 자세한 내용은 Using 문(Visual Basic)을 참조하십시오.