[VB.NET] 간단한 시리얼(RS232) 통신

VB.NET 에서 간단하게 시리얼값 받아오기
시리얼 통신, RS232 통신

Imports System.IO.Ports
Imports System.Text
 
Public Class Form1
 
    Public Delegate Sub StringSubPointer(ByVal Buffer As String)
    Dim WithEvents COMPort As New SerialPort
    Dim Received As StringBuilder
 
    Private Sub Display(ByVal Buffer As String)
        ' 값이 수신되면 이쪽으로 온다.
        Received.AppendLine(Buffer)
    End Sub
    
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '포트 설정
        SerialPort.PortName = "COM3"
        SerialPort.BaudRate = 2400
        SerialPort.Parity = Parity.Even
        SerialPort.StopBits = StopBits.Two
        SerialPort.DataBits = 7
 
        SerialPort.ReadTimeout = 500
 
        Try
            SerialPort.Open()
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub COMPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles COMPort.DataReceived
        Me.BeginInvoke(New StringSubPointer(AddressOf Display), SerialPort.ReadLine)
    End Sub
End Class