Page 222 - 3-3

' 소켓 통신 메서드
Private Sub SendSocket(ByVal subject As Byte, ByVal num As String, ByVal name As
String, ByVal record As Double)
' 예외 처리
Try
' 서버 IP
Dim serverIP As String = "192.168.0.201"
' 무인체력장용 포트
Dim port As Integer = 8002
'TCP Client 객체 생성
Dim socket As New TcpClient()
' 바이트 데이터 저장 변수 선언
Dim data() As [Byte]
' 소켓 연결
socket.Connect(serverIP, port)
' 네트워크 스트림 객체 생성
Dim stream As NetworkStream = socket.GetStream()

'Type(=0) 값 전송 기본 인코딩( )
data = System.Text.Encoding.Default.GetBytes(0)
' 네트워크 스트림에 쓰기
stream.Write(data, 0, data.Length)

' 종목 값 전송 기본 인코딩( )
data = System.Text.Encoding.Default.GetBytes(subject)
' 네트워크 스트림에 쓰기
stream.Write(data, 0, data.Length)

' 학번 값 전송 아스키 인코딩( )
data = System.Text.Encoding.ASCII.GetBytes(num)
' 네트워크 스트림에 쓰기
stream.Write(data, 0, data.Length)

' 이름 값 + "!" 전송 (UTF8 인코딩)
data = System.Text.Encoding.UTF8.GetBytes(name & "!")
' 네트워크 스트림에 쓰기
stream.Write(data, 0, data.Length)

' 기록 값 전송 기본 인코딩( )
data = System.Text.Encoding.Default.GetBytes(record)
' 네트워크 스트림에 쓰기
stream.Write(data, 0, data.Length)

' 네트워크 스트림 닫기
stream.Close()

- 222 -