Page 213 - 3-3

' 포트이름은 선택된 포트이름
.PortName = cmbPPort.Text
' 보레이트는 설정된 보레이트
.BaudRate = cmbPBaud.Text
' 패리티 없음
.Parity = Parity.None
' 스탑비트 1bit
.StopBits = StopBits.One
' 데이터비트 8bit
.DataBits = 8
End With
Catch ex As Exception ' 예외 발생 시 예외 잡기

Finally ' 이후 단계
' 예외처리
Try
' 팔굽혀펴기 시리얼포트 열기
PSerialPort.Open()
' 연결버튼의 텍스트 해제 로 바꾸기" "
btnPConnect.Text = " 해제"
' 포트이름 콤보박스 사용 불가
cmbPPort.Enabled = False
' 보레이트 콤보박스 사용 불가
cmbPBaud.Enabled = False
' 메시지 박스 출력
MsgBox(" 연결되었습니다", MsgBoxStyle.Information)

Catch ex As Exception ' 예외 발생시
' 예외메시지 출력
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Try
' 연결버튼의 텍스트가 연결 이 아니면" "
Else
' 팔굽혀펴기 시리얼포트 닫기
PSerialPort.Close()
' 연결버튼의 텍스트 연결 로 바꾸기" "
btnPConnect.Text = " 연결"
' 학생정보 라벨텍스트를 학생정보 로 바꾸기" "
lblPstu.Text = " 학생정보"
' 포트이름 콤보박스 사용 가능
cmbPPort.Enabled = True
' 보레이트 콤보박스 사용 가능
cmbPBaud.Enabled = True
' 개수 초기화

- 213 -