Winsock API을 이용한 TCP-IP 기반 Home Automation / HomeNetworking 구현

목차

표및그림목차 ………………………………………………………… ⅰ
國文抄錄 …………………………………………… ⅱ

Ⅰ. 緖 論 ………………………………………………………………………… 1
Ⅱ. Introduction to Networking ……………………………… 2
Ⅱ-1. Networking의 목적 …………………………………………………… 2
Ⅱ-2. Network Programming Models ……………………………………… 2
Ⅲ. TCP/IP Overview …………………………………………………………… 4
Ⅲ-1. Overview ………………………………………………………………… 4
Ⅲ-2. BSD(Berkeley Software Distribution) ……………………………… 4
Ⅲ-3. Seven-Layer OSI Model ……………………………………………… 5
Ⅲ-4. TCP/IP Addressing Scheme ………………………………………… 6
Ⅲ-5. Routing …………………………………………………………………… 7
Ⅲ-6. Internet Layer …………………………………………………………… 8
Ⅲ-7. Transport Layer ………………………………………………………… 8
Ⅳ. Winsock Overview ………………………………………………………… 10
Ⅳ-1. Overview ……………………………………………………………… 10
Ⅳ-2. Berkeley Sockets 과 Winsock의 비교 ……………………………… 11
Ⅳ-3. Winsock Extensions ………………………………………………… 12
Ⅴ. 연구결과 …………………………………………………………………… 13
Ⅴ-1. Hardware 구성도 ……………………………………………………… 13
Ⅴ-2. Internet 접속모듈 ……………………………………………………… 14
Ⅴ-3. 구현알고리즘 …………………………………………………………… 15
Ⅴ-4. PDA Program(Embedded Visual Basic) …………………………… 16
Ⅴ-5. Server Program(Visual Basic) ……………………………………… 17
Ⅵ. 結 論 ………………………………………………………………………… 20
參考文獻 ……………………………………………………………………… 21

본문내용

k1.SendData ("B")
Text1.SelText = "220V 전구 끄기" + vbCrLf
Case 1
Winsock1.SendData ("D")
Text1.SelText = "라디오 끄기" + vbCrLf
Case 2
Winsock1.SendData ("F")
Text1.SelText = "선풍기 끄기" + vbCrLf
Case 3
Winsock1.SendData ("H")
Text1.SelText = "문 닫기" + vbCrLf
Case 4
Winsock1.SendData ("J")
Text1.SelText = "커튼 닫기" + vbCrLf
Case 5
Winsock1.SendData ("L")
Text1.SelText = "경고음 끄기" + vbCrLf
Case 6
Winsock1.SendData ("P")
Text1.SelText = "LCD 끄기" + vbCrLf
End Select
End Sub
Private Sub Command1_Click()
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1_Close
End Sub
Private Sub Command6_Click()
Winsock1_Close
End
End Sub
Private Sub Form_Load()
Winsock1.RemoteHost = "169.254.142.19"
Winsock1.RemotePort = 1470
Getbuffer = " "
Combo1.AddItem "220V 전구 켜기"
Combo1.AddItem "라디오 켜기"
Combo1.AddItem "선풍기 켜기"
Combo1.AddItem "문 열기"
Combo1.AddItem "커튼 열기"
Combo1.AddItem "경고음 내기"
Combo1.AddItem "LCD 켜기"
Combo2.AddItem "220V 전구 끄기"
Combo2.AddItem "라디오 끄기"
Combo2.AddItem "선풍기 끄기"
Combo2.AddItem "문 닫기"
Combo2.AddItem "커튼 닫기"
Combo2.AddItem "경고음 끄기"
Combo2.AddItem "LCD 끄기"
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Text1.SelText = "connection closed" + vbCrLf
End Sub
Private Sub Winsock1_Connect()
Text1.SelText = "Connected to " + Winsock1.RemoteHost + ":" + Str$(Winsock1.RemotePort) + vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Getbuffer
If Len(Getbuffer) = 0 Then
Exit Sub
End If
Text2.Text = Format(Val((Mid$(Getbuffer, 2, 4))), "0000")
ProgressBar1.Value = Val((Mid$(Getbuffer, 2, 4)))
Label1.Caption = Format(Val((Mid$(Getbuffer, 8, 3))), "000")
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Dim retval As Integer
retval = MsgBox("Winsock 에러 발생" + "(" + Str(Number) + "): " + Description, vbOKOnly, "에러발생")
Winsock1.Close
End Sub
PIC-Basic Program
Const device = r5
Dim DATA As Byte
Dim I As Byte
Dim TH As Integer
Dim TEMP(2) As Integer
LCDINIT
CSROFF
SET RS232 19200
MAIN: GET DATA
If DATA = 65 Then
OUT 16, 1
End If
If DATA = 66 Then
OUT 16, 0
End If
If DATA = 67 Then
OUT 17, 1
End If
If DATA = 68 Then
OUT 17, 0
End If
If DATA = 69 Then
OUT 18, 1
End If
If DATA = 70 Then
OUT 18, 0
End If
If DATA = 71 Then
OUT 19, 1
End If
If DATA = 72 Then
OUT 19, 0
End If
If DATA = 73 Then
OUT 20, 1
End If
If DATA = 74 Then
OUT 20, 0
End If
If DATA = 75 Then
OUT 21, 1
End If
If DATA = 76 Then
OUT 21, 0
End If
If DATA = 77 Then
OUT 38, 1
End If
If DATA = 78 Then
OUT 38, 0
End If
If DATA = 79 Then
LOCATE 1, 0
Print "Welcome to Mini"
End If
If DATA = 80 Then
LOCATE 1, 0
Print " "
End If
OUT 0, 1
SHIFTOUT 1, 2, 0, &HAA
TH = SHIFTIN(1, 2, 0, 9)
OUT 0, 0
TEMP(0) = ADIN(6)
TEMP(1) = TH / 2
PUT DEC(TEMP(0))
PUT DEC(TEMP(1))
LOCATE 0, 1
Print "AD:", DEC(TEMP(0), 5)
LOCATE 9, 1
Print "TH:", DEC(TEMP(1), 3)
For I = 0 To 10
DELAY 10
Next I
GoTo MAIN

키워드

Winsock,   TCP-IP,   Home Automation,   HomeNetworking,   홈오토메이션,   홈네트워크,   홈네트워킹