Page 211 - 3-3

Private Sub frmHealth_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 시리얼포트 이름을 불러오기
For Each sp As String In My.Computer.Ports.SerialPortNames
'50m 달리기 시리얼포트 콤보박스에 포트이름 띄우기
cmbRPort.Items.Add(sp)
' 팔굽혀펴기 시리얼포트 콤보박스에 포트이름 띄우기
cmbPPort.Items.Add(sp)
' 체공시간 시리얼포트 코보박스에 포트이름 띄우기
cmbFPort.Items.Add(sp)
Next
End Sub
' 폼이 닫힐때
Private Sub frmHealth_FormClosed(sender As Object, e As FormClosedEventArgs) Handles
MyBase.FormClosed
'50m 달리기 시리얼포트 닫기
RSerialPort.Close()
' 팔굽혀펴기 시리얼포트 닫기
PSerialPort.Close()
' 유연성시리얼포트 닫기
FSerialPort.Close()
End Sub

'50m 달리기 연결 버튼을 누르면
Private Sub btnRConnect_Click(sender As Object, e As EventArgs) Handles
btnRConnect.Click
'50m 달리기 연결버튼의 텍스트가 연결 이면" "
If btnRConnect.Text = " 연결" Then
' 예외처리
Try
'50m 달리기 시리얼포트에 관해
With RSerialPort
' 포트이름은 선택된 포트이름
.PortName = cmbRPort.Text
' 보레이트는 설정된 보레이트
.BaudRate = cmbRBaud.Text
' 패리티 없음
.Parity = Parity.None
' 스탑비트 1bit
.StopBits = StopBits.One
' 데이터비트 8bit
.DataBits = 8
End With
' 예외 발생 시 예외 잡기
Catch ex As Exception

- 211 -