Capl 语言发送lin

模拟发送lin 信号，让灯循环点亮

includes
{
  
}

variables
{
  linFrame  0x0A  Mesg1={dlc=8};
  linFrame  0x10  Mesg2={dlc=8};
  msTimer time1; 
  int count=0;
}

on key'a'
{
  Mesg1.rtr=0;
  Mesg1.byte(0)=0x11;
  Mesg1.byte(1)=0x12;
  Mesg1.byte(2)=0x13;
  Mesg1.byte(3)=0x0;
  Mesg1.byte(4)=0xC9;
  Mesg1.byte(5)=0xFF;
  Mesg1.byte(6)=0xFF;
  Mesg1.byte(7)=0x80;

  output(Mesg1);
  Mesg1.rtr=1;
  output(Mesg1);
  
  Mesg2.rtr=1;
  output(Mesg2);
}

on start
{ 
 setTimer(time1,1000);
}

on timer time1
{ 
if (count%6==0)   
 {
  Mesg1.rtr = 0;
  Mesg1.SLC_Blue=0xff;
  Mesg1.SLC_Green=0x00;
  Mesg1.SLC_Red=0x60;
 }

 else if(count%6==1) 
  {
  Mesg1.rtr = 0;
  Mesg1.SLC_Blue=0x0;
  Mesg1.SLC_Green=0xff;
  Mesg1.SLC_Red=0x0;    
 }

   else if(count%6==2) 
  {
  Mesg1.rtr = 0;
  Mesg1.SLC_Blue=0x0;
  Mesg1.SLC_Green=0x0;
  Mesg1.SLC_Red=0xff;
 }

  else if(count%6==3) 
 {
  Mesg1.rtr = 0;
  Mesg1.SLC_Blue=0xf;
  Mesg1.SLC_Green=0xf;
  Mesg1.SLC_Red=0xf;
 }
   
   else if(count%6==4) 
 {
  Mesg1.rtr = 0;
  Mesg1.SLC_Blue=0x0;
  Mesg1.SLC_Green=0xff;
  Mesg1.SLC_Red=0xff;
 }
 
   else if(count%6==5) 
 {
  Mesg1.rtr = 0;
  Mesg1.SLC_Blue=0x00;
  Mesg1.SLC_Green=0x00;
  Mesg1.SLC_Red=0x55;
 }
 
  output(Mesg1);
  Mesg1.rtr=1;
  output(Mesg1);
 
  Mesg2.rtr=1;
  output(Mesg2);
    
  count+=1;  
  setTimer(time1,100);
  
  {
    if(count==10000)
    count=0;
  }
}