Page 214 - 3-3

Pcount = 0
' 개수 초기화 출력( )
lblRecordPushup.Text = Pcount
End If
End Sub
' 유연성 연결 버튼 누르면
Private Sub btnFConnect_Click(sender As Object, e As EventArgs) Handles
btnFConnect.Click
' 체공시간 연결버튼의 텍스트가 연결 이면" "
If btnFConnect.Text = " 연결" Then
' 예외처리
Try
' 체공시간 시리얼포트
With FSerialPort
' 포트이름은 선택된 포트이름
.PortName = cmbFPort.Text
' 보레이트는 설정된 보레이트
.BaudRate = cmbFBaud.Text
' 패리티 없음
.Parity = Parity.None
' 스탑비트 1bit
.StopBits = StopBits.One
' 데이터비트 8bit
.DataBits = 8
End With
' 예외 발생 시 예외 잡기
Catch ex As Exception

' 이후 단계
Finally
' 예외처리
Try
' 체공시간 시리얼포트 열기
FSerialPort.Open()
' 연결버튼의 텍스트 해제 로 바꾸기" "
btnFConnect.Text = " 해제"
' 포트이름 콤보박스 사용 불가
cmbFPort.Enabled = False
' 보레이트 콤보박스 사용 불가
cmbFBaud.Enabled = False
' 메시지 박스 출력
MsgBox(" 연결되었습니다", MsgBoxStyle.Information)
' 예외 발생시
Catch ex As Exception
' 예외 메시지 출력

- 214 -