[FT2232 EVM, FT245 EVM] VB테스트 프로그램 작성 - Data Read

[FT2232 EVM, FT245 EVM] VB테스트 프로그램 작성 - Data Read

FT245, FT2232 EVM을 이용한 Data Read테스트 프로그램을 작성 했다.
기존 [FT2232 EVM, FT245 EVM] VB테스트 프로그램 예제를 수정하여 데이터 Read도 가능하도록 하였다.

VB소스 코드

invalid-file

VB 폼을 수정해 DataRead 해서 출력할 수 있도록 수정..

FT245, FT2232를 이용하여 1바이트 데이터를 읽기 위해 먼저 SetBitMode()함수에서 Data방향을 Input으로 설정하고 FT_GetBitMode()함수로 포트 상태를 읽으면 된다.

Private Sub Command5_Click()
    'Data Read Function
    Dim ret As Long
   
    Dim data As Byte

    'BitBang모드 설정.b0-b7=In, BitBangMode(1)
    If FT_SetBitMode(m_DeviceHandle, &H0, &H1) <> FT_OK Then
        Label1.Caption = "모드설정 실패"
        Exit Sub
    End If
   
    ret = FT_GetBitMode(m_DeviceHandle, data)
   
    Label2.Caption = data
   
    'BitBang모드 설정.b0-b7=In, BitBangMode(1)
    ret = FT_SetBitMode(m_DeviceHandle, &HFF, &H1)
End Sub