Page 215 - 3-3

MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Try
' 연결버튼의 텍스트가 연결 이 아니면" "
Else
' 체공시간 시리얼포트 닫기
FSerialPort.Close()
' 연결버튼의 텍스트 연결 로 바꾸기" "
btnFConnect.Text = " 연결"
' 학생정보 라벨텍스트를 학생정보 로 바꾸기" "
lblFstu.Text = " 학생정보"
' 포트이름 콤보박스 사용 가능
cmbFPort.Enabled = True
' 보레이트 콤보박스 사용 가능
cmbFBaud.Enabled = True
End If
End Sub

'50m 달리기 시리얼 포트에서 데이터를 수신하면
Private Sub RSerialPort_DataReceived(ByVal sender As Object, ByVal e As
SerialDataReceivedEventArgs) Handles RSerialPort.DataReceived
' 데이터 리시브 메서드 호출
'50m 달리기 시리얼포트로 받은 데이터 가져오기
ReceivedTextR("R" & RSerialPort.ReadExisting())
End Sub
' 팔굽혀펴기 시리얼 포트에서 데이터를 수신하면
Private Sub PSerialPort_DataReceived(sender As Object, e As
SerialDataReceivedEventArgs) Handles PSerialPort.DataReceived
' 데이터 리시브 메서드 호출
' 팔굽혀펴기 시리얼포트로 받은 데이터 앞에 "P" 를 붙여서 수신
ReceivedTextP("P" & PSerialPort.ReadExisting())
End Sub
' 유연성 시리얼 포트에서 데이터를 수신하면
Private Sub FSerialPort_DataReceived(sender As Object, e As
SerialDataReceivedEventArgs) Handles FSerialPort.DataReceived
' 데이터 리시브 메서드 호출
' 유연성 시리얼포트로 받은 데이터 앞에 "F" 를 붙여서 수신
ReceivedTextF("F" & FSerialPort.ReadExisting())
End Sub

'50m 달리기 데이터 리시브 메서드
Private Sub ReceivedTextR(ByVal [text] As String)
' 컨트롤의 Handle 이 호출 스레드와 다른 스레드에서 만들어져 호출 메서드를 통해 해당 컨트
롤을 호출해야 하는 경우 true 이고 그렇지 않으면, false
If lblRstu.InvokeRequired Then

- 215 -