Public Sub Form_Load()
' Initialize the I2C address's to match the EZ-USB develoment board
WriteAddress.Text = "42": ReadAddress.Text = "41"
' Clear the display windows
WriteWindow.Text = "": ReadWindow.Text = ""
End Sub
Private Sub ReadI2C_Click()
' Send a I2C bus read request to the I0 device
Dim OutBuffer(2) As Byte: Dim InBuffer(2) As Byte
OutBuffer(0) = ReturnHexByte(ReadAddress.Text)
OutBuffer(1) = 0 ' Required pad
Call WriteUSBdevice(AddressFor(OutBuffer(0)), 2)
' I/O device will respond with an Input Report
' This version sends a single byte
Call ReadUSBdevice(AddressFor(InBuffer(0)), 2)
ReadWindow.Text = TwoHexCharacters(InBuffer(0))
End Sub
Private Sub WriteI2C_Click()
' Send the data in "WriteWindow" to the I2C "WriteAddress"
Dim Buffer(2) As Byte
Buffer(0) = ReturnHexByte(WriteAddress.Text)
Buffer(1) = ReturnHexByte(WriteWindow.Text)
Call WriteUSBdevice(AddressFor(Buffer(0)), 2)
End Sub
Private Sub ReadFile_Click()
' Not implemented in this version
End Sub
Private Sub WriteFile_Click()
' Not implemented in this version
End Sub