[FT2232 EVM, FT245 EVM] VB테스트 프로그램 작성
FTDI사 최신 드라이버 및 DLL파일
VB예제 소스
먼저 최신 드라이버 파일을 설치한다.
새로운 프로젝트를 생성하고 간단한 폼을 하나 만든다.
FT245, FT2232 제어를 위한 DLL함수 정의 모듈 등록
VB 모듈
등록되면 아래 그림과 같이 추가된것을 확인 할 수 있다.
프로그램 작성
장치 초기화
1)장치를 초기화 하기 위해 FT_Open()함수를 이용하여 장치를 열고 디바이스 핸들을 얻는다.
2)FT_SetBitMode() 함수를 이용하여 Bit제어 모드를 설정한다.
3)FT_SetBaudRate() 함수를 이용해 전송 속도를 설정한다.
'장치 열기
If FT_Open(DEVICE_NO, m_DeviceHandle) <> FT_OK Then
Label1.Caption = "장치 열기 실패"
Exit Sub
Else
Label1.Caption = "장치 열기 성공"
End If
좀더 추가하여 타이머 컨트롤을 이용하여 Led를 시프트 하면서 점등하는 예제를 작성해 보았다.
테스트 동영상
FT245 EVM을 이용하여 VB프로램으로 LED를 시프트 하는 예제
작성한 프로그램은 [FT245 EVM], [FT2232 EVM] 에서 적용가능하다
[FT245 EVM]
[FT2232 EVM]
앞으로 C#에서 적용해 보면 더 좋을듯한 생각이 든다...
FTDI사 최신 드라이버 및 DLL파일
VB예제 소스
먼저 최신 드라이버 파일을 설치한다.
새로운 프로젝트를 생성하고 간단한 폼을 하나 만든다.
FT245, FT2232 제어를 위한 DLL함수 정의 모듈 등록
VB 모듈
등록되면 아래 그림과 같이 추가된것을 확인 할 수 있다.
프로그램 작성
장치 초기화
1)장치를 초기화 하기 위해 FT_Open()함수를 이용하여 장치를 열고 디바이스 핸들을 얻는다.
2)FT_SetBitMode() 함수를 이용하여 Bit제어 모드를 설정한다.
3)FT_SetBaudRate() 함수를 이용해 전송 속도를 설정한다.
'장치 열기
If FT_Open(DEVICE_NO, m_DeviceHandle) <> FT_OK Then
Label1.Caption = "장치 열기 실패"
Exit Sub
Else
Label1.Caption = "장치 열기 성공"
End If
'BitBang모드 설정.b0-b7=Out, BitBangMode(1)
If FT_SetBitMode(m_DeviceHandle, &HFF, &H1) <> FT_OK Then
Label1.Caption = "모드설정 실패"
Exit Sub
End If
'보레이트 설정
FT_SetBaudRate m_DeviceHandle, 57600
Data Write
FT245, FT2232 FIFO로 1Byte 쓰기위해 FT_WriteByte()함수를 이용한다.
첯번째 인자는 디바이스 핸들이고, 두번째는 쓸 데이터, 세번째는 바이트 수, 성공한 바이트 수 이다.
'USB FIFO로 1Byte 쓰기
ret = FT_WriteByte(m_DeviceHandle, &H0, 1, 0)
장치 닫기
'프로그램 종류시 장치 닫기 -> 반드시 장치를 Close해야 함
'Close하지 않고 프로그램이 종료되는 경우 USB커넥터를 다시 연결해야 함, 혹은 리셋
If FT_Close(m_DeviceHandle) <> FT_OK Then
Label1.Caption = "장치 닫기 실패"
End If
좀더 추가하여 타이머 컨트롤을 이용하여 Led를 시프트 하면서 점등하는 예제를 작성해 보았다.
테스트 동영상
FT245 EVM을 이용하여 VB프로램으로 LED를 시프트 하는 예제
작성한 프로그램은 [FT245 EVM], [FT2232 EVM] 에서 적용가능하다
[FT245 EVM]
[FT2232 EVM]
앞으로 C#에서 적용해 보면 더 좋을듯한 생각이 든다...
반응형