MCC i2cStick, Руководство пользователя

Страница: 68 / 74

59
Example Code
The following examples are written in MS Visual Basic V3 for Windows using the
serial communications control (MSCOMM.VBX). It can be used as a guide in
implementing i2cStick interface programs in other programming languages and
operating environments.
Note: Sample code is also available online at: www.mcc-us.com
i2cStick Reset
Comm1.Output = Chr$(18) 'Ctrl/R
Comm1.Output = Chr$(18) 'Ctrl/R
Comm1.Output = Chr$(18) 'Ctrl/R
i2cStick Initialization
Comm1.Output = "/f0" 'Set i2cStick XON/XOFF Flow Control
Comm1.Output = Chr$(13)
Comm1.Output = "/i70" 'Set i2cStick’s Own Slave Address
Comm1.Output = Chr$(13)
Comm1.Output = "/d4e" 'Set Destination Slave Address
Comm1.Output = Chr$(13)
Comm1.Output = "/o" 'Open I
2
C Connection
Comm1.Output = Chr$(13)
Master Transmit Message
Comm1.Output = "/T~00~01" 'Send Master Tx Command
Comm1.Output = Chr$(13)
'Terminate Command
Master Receive Message
Comm1.Output = "/R10" 'Send Master Rx Command
Comm1.Output = Chr$(13) 'Terminate Command