Page 217 - 3-3

End If

' 소켓 전송 메서드 호출
SendSocket(0, Mid(lblRstu.Text, 1, 6), Mid(lblRstu.Text, 7), lblRecordRun.Text)

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

' 열린 상태가 아니면
Else
' 메시지 박스 출력
MsgBox("EXCEL 버튼을 누르세요", MsgBoxStyle.Exclamation)
'Go Excel 에러 출력
rtbError.Text = "Go Excel"
End If
End If
End If
End Sub
' 팔굽혀펴기 데이터 리시브 메서드
Private Sub ReceivedTextP(ByVal [text] As String)
' 컨트롤의 Handle 이 호출 스레드와 다른 스레드에서 만들어져 호출 메서드를 통해 해당 컨트
롤을 호출해야 하는 경우 true 이고 그렇지 않으면, false
If lblPstu.InvokeRequired Or lblRecordPushup.InvokeRequired Then
' 대리자 객체형으로 변수 생성
Dim x As New SetTextBackCall(AddressOf ReceivedTextP)
' 컨트롤의 내부 창 핸들이 있는 스레드에서 지정된 대리자를 실행
Invoke(x, New Object() {(text)})
Else
' 수신한 데이터 에러 박스에 추가
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 출력
lblPstu.Text = student
' 팔굽혀펴기 개수 초기화
Pcount = 0
' 팔굽혀펴기 개수 초기화 출력( )
lblRecordPushup.Text = Pcount

- 217 -