[Proramming]/VB2007. 8. 10. 13:48

초간단 UDP데이터 송수신 프로그램 작성(VB)


[W5100 WVM]초간단 UDP데이터 송수신(VB)

- 1분만에 만드는 UDP통신 프로그램

 

 

VB UDP 테스트 소스코드 


소스코드 자체는 상당히 간단하다. VB에서 제공하는 ActiveX를 이용하면 단 몇줄의 코드로 UDP데이터를 전송할 수 있다.

VC++과는 비교도 않될정도의 간단히 프로그램을 작성할 수 있다. 물론 쓰레드나 다른 여러 기법을 사용하기에는 무리가 있겠지만 간단한 이더넷 프로그램 작성하기에는 정말 쉽고 간편히 만들 수 있다.

 전체 소스코드

'Send Data
Private Sub Command1_Click()
    'Set UDP Socket
    Winsock1.RemoteHost = Text1.Text  'Destination IP
    Winsock1.RemotePort = Text4.Text  'Destination Port
    
    'Send UDP Data
    Winsock1.SendData Text2.Text
End Sub

 

'Receive Data
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
   
    'Receive UDP Data
    Winsock1.GetData strData

    Text3.Text = strData
End Sub

  

Winsock ActiveX Control 추가

[구성요소]에서 Microsoft Winsock Control추가

 

 추가한 Winsock Control을 폼위에 올린다.

 

 Socket 속성 설정 - UDP로 설정

 

원하는 형태로 폼을 꾸민다.

 

데이터 전송
버튼을 눌렀을때 호출되는 Command1_Click()함수에서 Text2 박스의 내용을 UDP로 전송 하도록 프로그램 작성 한다.
상당히 간단하다. SendData()함수로 문자열을 전송하면 끝이다.

 

 데이터 수신
이더넷(UDP)로 데이터가 수신되면 호출되는 Winsock1_DataArrival()함수에서 GetData 함수로 수신된 데이터를 얻어서 Text3에 표시 하도록 한다.

 

 테스트


 

UDP데이터를 송수후 시리얼 포트로 표시

Posted by nexp
TAG , ,

댓글을 달아 주세요