[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. 9. 10. 18:35

무료 Visual Studio2005 테스트 - VB2005 시리얼 포트 제어

무료 Visual Studio2005 테스트 - VB2005 시리얼 포트 제어

MicroSoft가 무료로 제공하고 있는 Visual Studio Express는 기존 VB가 가지고 있던 고질적인 단점을 보안하고 여러가지 인터페이스나 기능면에서 완전히 새로워 졌다.

소스코드



다운로드는 여기서..

http://www.microsoft.com/korea/msdn/vstudio/express/default.aspx

 

인터페이스 부터 예전과 완전히 다르다...


시리얼 포트 제어가 기본적으로 포함되어 있어 예전 컴포넌트 사용하는것 보다는 훨신 기능도 좋고 사용하기도 편리한것 같다.

인터페이스도 깔끔해 졌고... 사용하기도 편리하고.. 게다가 무료이니 여러가지 재미 있는 테스트 해 보는데 좋을것 같다.
물론 기존 프로젝트는 호환이 않되는것 같다.


간단하게 작성한 시리얼 포트 제어 예제



소스코드 작성

앞으로 시리얼/USB/LPT등 테스트 하는 예제는 이걸로 작성해 봐야 겠군...

Posted by nexp
TAG VB.NET

댓글을 달아 주세요

  1. 알고싶어요

    운영자님! 여기에 쓰여진 소스를 알수있을까요?

    제가 비쥬얼베이직으로 시리얼 컴포트를 제어하는방법을 알아야되는데 ㅠ

    2008.10.08 20:20 [ ADDR : EDIT/ DEL : REPLY ]
  2. 알고싶어요

    이글보시면 꼭 한번 이매뉴에 소스좀 올려주세요 ㅠㅠ요청합니다.

    비베로 시리얼 포트를 제어하는 소스요 ㅠㅠ꼭 부탁드립니다 주석달아주시면 감사해요 ㅠ

    2008.10.08 21:28 [ ADDR : EDIT/ DEL : REPLY ]

[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

댓글을 달아 주세요