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
|