有VB"Ginkgo_USB-SPI适配器API函数库"函数库？

algx

有VB"Ginkgo_USB-SPI适配器API函数库"函数库？

lxk

下载APP函数库
http://www.viewtool.com/demo/Gin ... AN_API_v2.0.3.5.zip

algx

收到谢谢！

algx

vb 实时错误“53”
文件未找到：Ginkgo_driver.dll

algx

algx 发表于 2020-3-3 17:30
vb 实时错误“53”
文件未找到：Ginkgo_driver.dll

设置路径后，VB实时错误变成“48”了

algx

换了一个版本Ginkgo_driver.dll成功运行。

algx

    Dim FLASH_IDREAD As Byte
    Dim WriteDataTemp(1024) As Byte
    Dim ReadDataTemp(1024) As Byte

    FLASH_IDREAD = &H9F
    '读出芯片ID
    WriteDataTemp(0) = FLASH_IDREAD
    ret = VSI_WriteReadBytes(VSI_USBSPI, 0, 0, WriteDataTemp(1024), 0, ReadDataTemp(1024), 4)


        If ret <> ControlSPI.SUCCESS Then
          MsgBox ("读取flash ID AT45DB321D错误!")
          Exit Sub
        Else
          Debug.Print WriteDataTemp(0)
          Debug.Print ReadDataTemp(0), ReadDataTemp(1), ReadDataTemp(2), ReadDataTemp(3)
          Text1.Text = "读取flash ID AT45DB321D:" + Str(ReadDataTemp(0)) + Str(ReadDataTemp(1)) + Str(ReadDataTemp(2)) + Str(ReadDataTemp(3))
        End If
上面程序读取flash ID，读不出来不知道错那儿请指导。

algx

读取flash ID有进展了。1F270101

algx

    '读出芯片ID

    ReDim WriteDataTemp(0)
    ReDim ReadDataTemp(4)
     Text1.Text = "   读取flash ID AT45DB321D:0×"
   
    CopyMemory WriteDataTemp(0), FLASH_IDREAD, 1

    ret = VSI_WriteReadBytes(VSI_USBSPI, 0, 0, WriteDataTemp(0), 1, ReadDataTemp(0), 4)
        
        If ret <> ControlSPI.SUCCESS Then
          MsgBox ("读取flash ID AT45DB321D错误!")
          Exit Sub
        Else
          Text1.Text = Text1.Text + IIf(Len(Hex(ReadDataTemp(0))) = 1, "0" + Hex(ReadDataTemp(0)), Hex(ReadDataTemp(0))) + IIf(Len(Hex(ReadDataTemp(1))) = 1, "0" + Hex(ReadDataTemp(1)), Hex(ReadDataTemp(1))) + IIf(Len(Hex(ReadDataTemp(2))) = 1, "0" + Hex(ReadDataTemp(2)), Hex(ReadDataTemp(2))) + IIf(Len(Hex(ReadDataTemp(3))) = 1, "0" + Hex(ReadDataTemp(3)), Hex(ReadDataTemp(3)))
        End If

nihaolai

讨债公司 www.zhent.com