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.fo...@nassur.net> 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/
>> Amforth-devel@lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>
>
> --
> May the Forth be with you ...
>
>
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amforth-devel@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel
