roboforum.ru

Код: Выделить всё • Развернуть

Dim lpszBuffer As String
Dim lngBufferSize As Long
Dim lngBytesReturned As Long
Dim lngBytesWritten As Long
Dim lngBytesToRead As Long

    Dim MyArray(6) As Byte
    
    If FT_OpenEx("FT245R USB Parallel FIFO", FT_OPEN_BY_DESCRIPTION, lngHandle) = FT_OK Then
        LoggerList.AddItem "Open OK"
    Else
        LoggerList.AddItem "Open Failed"
        'Exit Sub
    End If
    ' --------------------------------------------------------
    MyArray(1) = Asc("s")
    MyArray(2) = Asc("t")
    MyArray(3) = Asc("a")
    MyArray(4) = Asc("r")
    MyArray(5) = Asc("t")
    MyArray(6) = &HD
    If FT_WriteByte(lngHandle, MyArray(1), UBound(MyArray), lngBytesWritten) = FT_OK Then
        LoggerList.AddItem "WriteByte OK"
    Else
        LoggerList.AddItem "WriteByte Failed status=" & ftstatus
        'Exit Sub
    End If
    ' --------------------------------------------------------
lpszBuffer = ""

For f = 1 To 200
   If FT_GetQueueStatus(lngHandle, lngBytesToRead) = FT_OK Then
       LoggerList.AddItem "GetQueueStatus OK"
   Else
       LoggerList.AddItem "GetQueueStatus Failed"
       'Exit Sub
   End If
   If lngBytesToRead > 0 Then Exit For
Next f

LoggerList.AddItem "In buffer:" + Str(lngBytesToRead) + " Byte var."

lngBufferSize = lngBytesToRead

If FT_Read(lngHandle, lpszBuffer, lngBufferSize, lngBytesReturned) = FT_OK Then
    LoggerList.AddItem "Read OK"
Else
    LoggerList.AddItem "Read Failed"
    'Exit Sub
End If

If lpszBuffer <> "" Then Text1.Text = lpszBuffer
LoggerList.AddItem "lpszbuffer= " + lpszBuffer + " buffersize=" + Str(lngBufferSize) + " bytesreturned=" + Str(lngBytesReturned)
    ' --------------------------------------------------------
    If FT_Close(lngHandle) = FT_OK Then
        LoggerList.AddItem "Closed OK"
    Else
        LoggerList.AddItem "Close Failed"
        Exit Sub
    End If

Код: Выделить всё • Развернуть

Public Declare Function FT_Read Lib "FTD2XX.DLL" (ByVal lngHandle As Long, ByVal lpszBuffer As String, ByVal lngBufferSize As Long, ByRef lngBytesReturned As Long) As Long

Madf писал(а):Почему грабля в коде МК, если MSCOMM через VCP работает без проблем?