Re: [Amforth] I2C Generic

[Jan K. <kro...@ho...>]

Hello Erich,

The i2c scanner is seeing $38, should i still shift to $70?

Cheers

Jan

Verstuurd vanaf mijn iPad

> Op 9 nov. 2018 om 22:30 heeft Jan Kromhout via Amforth-devel <amf...@li...> het volgende geschreven:
> 
> Thanks Erich,
> 
> Do I need this to start every time I use I2C  
> 
> i2c.init.default
> 
> Cheers,
> 
> Jan
> 
>> Op 9 nov. 2018, om 20:56 heeft Erich Wälde <ew....@na...> het volgende geschreven:
>> 
>> Hello Jan,
>> 
>> your i2c address: "$38", is this the 7bit address? You might
>> need to shift it by one position to "$70".
>> 
>> Just an idea.
>> Cheers,
>> Erich
>> 
>> Jan Kromhout writes:
>> 
>>> 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/
>>> Amf...@li...
>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>> 
>> 
>> -- 
>> May the Forth be with you ...
>> 
>> 
>> _______________________________________________
>> Amforth-devel mailing list for http://amforth.sf.net/
>> Amf...@li...
>> https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 
> 
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel