' File: CAN_TX_1.BAS
' Desc.: Test sending message on CAN bus
' MM Basic: DuinoMite_MMBasic_V4.2 with CAN
' Date: Jan-15 2012
' Orig: John Harding
' Hack: Sir_M


Cls

Dim ok
Dim msg(8)


CAN config ok 'enter configuration mode
CAN setspeed 500000, ok 'set bus speed to 500000kbps
CAN addtxchnl 0,1,ok 'use channel 0, 16 bytes buffer
CAN enable ok 'enable CAN bus
Pause 100
Pin(0) = ok 'if CAN is enable then turn
'green LED on (Duinomite Mega)
CAN printconfig 'shows CAN configuration on screen
'Pause 100
Timer = 0

Do
ok=0 'just to be sure that "ok" is reset
If (Inkey$="q") Then Exit 'routine to quit execution
If Timer > 100 Then 'routine to send 10 message per second

If x > 247 Then x=0 'max msg value = 255 (247+8)
x=x+1 'produce data to send
msg(0)=x+0:msg(1)=x+1:msg(2)=x+2
msg(3)=x+3:msg(4)=x+4:msg(5)=x+5
msg(6)=x+6:msg(7)=x+7

CAN tx 0,&h1,0,8,msg(0),ok 'send on channel 0, message ID 1hex
'11 bit message type
'8 byte data length

Print msg(0);msg(1);msg(2);msg(3);
Print msg(4);msg(5);msg(6);msg(7) 'print message after it been sent
Print ok 'print message status
Timer = 0 'reset timer
EndIf
Loop


CAN enable ok 'check if CAN is shut down
Pin(0)=ok 'turn green LED off (Duinomite Mega)
End