[Proramming]/VB2011. 12. 16. 08:57

VB 파일 처리


VB에서 파일 처리 하기 - 생성, 저장, 불러오기

    '저장할 파일
    Dim fileNum As Integer
    Dim str_name As String

    str_name = "test1"
    
   
    '파일 생성
    fileNum = FreeFile
    Open App.Path + "\data\" + str_name + ".txt" For Output As fileNum

    '파일 저장하기
    Print #fileNum, "Test Text"
    
    '파일 닫기
    Close #fileNum






디렉토리 생성하기
디렉토리가 없으면 생성해서 저장하려고 할때 사용하면 편리하다.

    If Dir(App.Path + "\data\", vbDirectory) = "" Then
        MkDir (App.Path + "\data\")
    End If
Posted by nexp

댓글을 달아 주세요

[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 udp, vb, W5100_EVM

댓글을 달아 주세요

[8051]2007. 3. 19. 12:27

[MSC1210 EVM] 시리얼 포트제어 - VB로 LED제어

[MSC1210 EVM] 시리얼 포트제어 - VB로 LED제어



MSC1210 EVM과 VB를 이용하여 시리얼 포트로 LED를 제어하는 예제를 테스트 했다. PC프로그램은 기존에 작성했던 USB제어 프로그램을 이용하였다. 사용한  MCU는 MSC1214 이다.




Posted by nexp
TAG 8051, MSC1210, USB, vb

댓글을 달아 주세요