Page 220 - 3-3

' 양수 값이 수신되면
ElseIf ((Asc(Mid(rtbError.Text, 2, 1) >= Asc(0))) And (Asc(Mid(rtbError.Text, 2,
1)) <= Asc(9))) Then
' 거리값을 Double 형으로 저장
Fdist = CDbl(Mid(rtbError.Text, 2))
' 라벨에 거리값 출력
lblRecordFlex.Text = Fdist
' 에러 텍스트박스 지우기
rtbError.Text = ""
End If
End If
End Sub

' 학생 정보 메서드
' 에러 박스의 텍스트를 읽어서 태그 값을 판별
Private Sub StudentInfo()
' 태그값이 a 면
If Mid(rtbError.Text, 2, 1) = "a" Then
' 통신 30110 엄태환
student = "330110 엄태환"

' 태그값이 b 면
ElseIf Mid(rtbError.Text, 2, 1) = "b" Then
' 통신 10101 스폰지밥
student = "310101 스폰지밥"

' 태그값이 c 면
ElseIf Mid(rtbError.Text, 2) = "c" Then
' 통신 10201 도라에몽
student = "310201 도라에몽"

' 태그값이 d 면
ElseIf Mid(rtbError.Text, 2, 1) = "d" Then
' 통신 20101 몰랑이
student = "320101 몰랑이"

' 태그값이 e 면
ElseIf Mid(rtbError.Text, 2, 1) = "e" Then
' 통신 20201 리사심슨
student = "320201 리사심슨"

' 태그값이 면f
ElseIf Mid(rtbError.Text, 2, 1) = "f" Then
' 통신 30101 짱구
student = "330101 짱구"

- 220 -