FT245 parallele Ausgabe

Gerd Gast #768402
Lesenswert?
• ▲
▼ 
Hallo NG,

ich versuche vergeblich, einem FT245 dazu zu bringen, auf den Leitungen 
D0-D7 eine parallele Ausgabe zu tätigen.

Wenn ich's richtig verstehe, brauche ich dazu den BitBang Mode. Die 
Applicationnote AN232R-01 von FTDI beschreibt dies, ich habe aber 
Probleme mit der Umsetzung.
Der relevante Codebrocken (der Handler wird vorher richtig übergeben)


Wäre toll wenn jemand helfen könnte, ein Beispielprogramm (VB prefered) 
wäre nützlich.

Danke!



Gerd

1
If FT_OpenEx(strDescription, FT_OPEN_BY_DESCRIPTION, lngHandle) <> FT_OK Then

2
    Stop

3
End If

4


5


6
' Bit Bang initialisieren

7
' init in Asynchronous mode

8
If FT_SetBitMode(lngHandle, &HFF, &H1) <> FT_OK Then

9
    Stop

10
End If

11


12


13
' Baudrate auf 9600 Baud

14
If FT_SetBaudRate(lngHandle, 9600) <> FT_OK Then

15
    Stop

16
End If

17


18
' ein Zeichen senden

19
strWriteBuffer = Chr(Limitieren(Val(InputBox("Sendedaten"))))

20
lngBytesWrite = 1 ' Len(strWriteBuffer)

21
lngBytesWritten = 0

22
If FT_Write(lngHandle, strWriteBuffer, lngBytesWritten, lngBytesWritten) <> FT_OK Then

23
    Stop

24
End If

25


26


27
CloseHandle:

28


29
' schließen

30


31
If FT_Close(lngHandle) <> FT_OK Then

32
    LoggerList.AddItem "Close Failed"

33
End If
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren