Page 216 - 3-3

' 대리자 객체형으로 변수 생성
Dim x As New SetTextBackCall(AddressOf ReceivedTextR)
' 컨트롤의 내부 창 핸들이 있는 스레드에서 지정된 대리자를 실행
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()
'50m 달리기 학생정보 라벨에 student 텍스트 출력
lblRstu.Text = student
'50m 달리기 스탑워치 리셋
Rstopwatch.Reset()
' 초 단위 리셋
Rsec = 0
' 소수점 아래 단위 리셋
Rmsec = 0
' 시간 출력
lblRecordRun.Text = Rsec & "." & IIf(Rmsec <= 9, "0" & Rmsec, Rmsec)
' 학생 데이터 믈리어
student = 0

' 문자열 "RS" 이 수신되면
ElseIf Mid(rtbError.Text, 1, 2) = "RS" Then
'50m 달리기 스탑워치 사용 가능
RTimer.Enabled = True
'50m 달리기 스탑워치 시작
Rstopwatch.Start()
' 에러 박스 텍스트 지우기
rtbError.Text = ""

' 문자열 "RF" 가 수신되면
ElseIf Mid(rtbError.Text, 1, 2) = "RF" Then
'50m 달리기 스탑워치 정지
RTimer.Stop()

'50m 달리기 시간 초 이( ) 30 이 넘으면
If Rsec >= 30 Then
' 실격 메시지 박스 출력
MsgBox(" 실격입니다", MsgBoxStyle.OkOnly)

- 216 -