Page 219 - 3-3

Me.rtbError.Text &= [text]

'RFID 태그값이 수신되면
If (Asc(Mid(rtbError.Text, 2, 1)) >= Asc("a")) And (Asc(Mid(rtbError.Text, 2, 1))
<= Asc("z")) Then

' 학생 정보 메서드 호출
StudentInfo()
' 팔굽혀펴기 학생정보 라벨에 student 출력
lblFstu.Text = student
' 유연성 거리 초기화
Fdist = 0.0
' 유연성 거리 초기화 출력( )
lblRecordFlex.Text = Fdist
' 학생정보 클리어
student = 0

'FF 라는 문자열을 수신하면
ElseIf Mid(rtbError.Text, 1, 2) = "FF" Then

' 소켓 전송 메서드 호출
SendSocket(2, Mid(lblFstu.Text, 1, 6), Mid(lblFstu.Text, 7), lblRecordFlex.Text)

' 엑셀이 열린 상태면
If Excel = True Then
' 데이터 전송 메서드 호출
SendToExcel()

' 열린 상태가 아니면
Else
' 메시지 박스 출력
MsgBox("EXCEL 버튼을 누르세요", MsgBoxStyle.Exclamation)
'Go Excel 에러 출력
rtbError.Text = "Go Excel"
End If

' 음수 값이 수신되면
ElseIf (Mid(rtbError.Text, 2, 1) = "-") Then
' 거리값을 -#.#(Double 형 으로 형식 포맷)
Fdist = Format(CDbl(Mid(rtbError.Text, 3)), "-#.#")
' 라벨에 거리값 출력
lblRecordFlex.Text = Fdist
' 에러 텍스트박스 지우기
rtbError.Text = ""

- 219 -