Jan,
Have a look at the source your-amforth/common/lib/hardware/i2c.frt
and the comments at the top of the file.
i2c.c! i2c.c@ i2c.n! i2c.n@ i2c.m!n@ already have the i2c.begin and
i2c.end within the respective word. I don't know the Gravitech shield
but if you are sending multiple bytes i2c.n! might be useful.
Best wishes,
Tristan
On 09Nov18 19:21, Jan Kromhout wrote:
> Hi,
>
> This is my first step on the I2C road.
> I have a Gravitech shield for the Arduino, that work well.
> The code is very simple, and I have translate it to Forth.
> The display is not working.
> I include the Forth code. What is wrong?
> Thangs for any help.
>
> Cheers,
>
> Jan
>
> \ Gravitech display, I2C Generic
>
> marker --gravitech--
>
> $38 constant 7SEG \ I2C address for 7-Segment
>
> / Configure 7-Segment to 12mA segment output current, Dynamic mode,
> / and Digits 1, 2, 3 AND 4 are NOT blanked
>
> : init7SEG
> 7SEG i2c.begin
> 0 7SEG i2c.c!
> %01000111 7SEG i2c.c!
> i2c.end
> ;
>
> : Send7SEG ( Digit Number )
> 7SEG i2c.begin
> swap 7SEG i2c.c! \ Digit
> 7SEG i2c.c! \ Number
> i2c.end
> ;
>
>
> /* Configure 7-Segment to 12mA segment output current, Dynamic mode,
> and Digits 1, 2, 3 AND 4 are NOT blanked */
>
> Wire.beginTransmission(_7SEG);
> Wire.write(0);
> Wire.write(B01000111);
> Wire.endTransmission();
>
>
> /***************************************************************************
> Function Name: Send7SEG
>
> Purpose:
> Send I2C commands to drive 7-segment display.
> ****************************************************************************/
>
> void Send7SEG (byte Digit, byte Number)
> {
> Wire.beginTransmission(_7SEG);
> Wire.write(Digit);
> Wire.write(Number);
> Wire.endTransmission();
> }
>
>
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
[email protected]
https://lists.sourceforge.net/lists/listinfo/amforth-devel
