Page 212 - 3-3

' 이후 단계
Finally
' 예외처리
Try
'50m 달리기 시리얼포트 열기
RSerialPort.Open()
' 연결버튼의 텍스트 해제 로 바꾸기" "
btnRConnect.Text = " 해제"
' 포트이름 콤보박스 사용 불가
cmbRPort.Enabled = False
' 보레이트 콤보박스 사용 불가
cmbRBaud.Enabled = False
' 메시지 박스 출력
MsgBox(" 연결되었습니다", MsgBoxStyle.Information)
' 예외 발생시
Catch ex As Exception
' 예외메시지 출력
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Try
' 연결버튼의 텍스트가 연결 이 아니면" "
Else
'50m 달리기 시리얼포트 닫기
RSerialPort.Close()
' 연결버튼의 텍스트 연결 로 바꾸기" "
btnRConnect.Text = " 연결"
' 학생정보 라벨텍스트를 학생정보 로 바꾸기" "
lblRstu.Text = " 학생정보"
' 포트이름 콤보박스 사용 가능
cmbRPort.Enabled = True
' 보레이트 콤보박스 사용 가능
cmbRBaud.Enabled = True
'50m 달리기 스탑워치 리셋
Rstopwatch.Reset()
End If
End Sub
' 팔굽혀펴기 연결 버튼을 누르면
Private Sub btnPConnect_Click(sender As Object, e As EventArgs) Handles
btnPConnect.Click
' 팔굽혀펴기 연결버튼의 텍스트가 연결 이면" "
If btnPConnect.Text = " 연결" Then
' 예외처리
Try
' 팔굽혀펴기 시리얼포트에 관해
With PSerialPort

- 212 -