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