CAPL脚本基本语法

lichengwan

在车载控制器测试中，CAPL是常用的总线测试脚本之一，今天来简单梳理一下常用的一些语法。

1.定时器

首先肯定是定时器了，在编写CAPL脚本中，使用的频率很高，比如我们需要周期性的发送CAN报文，或者周期性的检测某个系统变量的变化时就需要用到定时器。

使用定时器的第一步就是申明定时器，如下。

msTimer  msTimer50;  //声明了一个ms定时器；timer    sTimer1;  //声明了一个为s定时器；
申明完后，就需要设置定时器。
setTimer（msTimer50,50）;//设置定时器msTimer50的时间为50ms；setTimerCyclic(sTimer1,1);//设置定时器sTimer1为1s为周期的循环定时器；
在这些都做完之后，可以设计定时器到时之后，需要执行的操作了，以msTimer50为例。
on timer msTimer50{   .......}

2.信息的发送操作

CAN报文操作，是我们常用的之一，下面就以CAN报文的发送操作为示例。这里如果在CANOE工程中添加了dbc文件，则可以直接通过dbc来定义message。
message Msg;//声明一个message；Msg.dlc=8;//设置其DLC=8；Msg.id=0x100;//设置CAN ID=0x100;Msg.byte(0)=A5;//设置数据场的第一个字节为A5output（Msg）;//发送Msg

3.CAN错误帧检查

进行CAN总线测试时，检查错误帧是很常见的，用CAPL脚本实现自动检测错误帧也不困难，CAPL中有现成的函数接口ChkStart_ErrorFrameOccured()。

该函数一旦被调用，CANoe就会从此函数被调用时开始持续检测总线上有没有出现错误帧。
dword chechId;dword numCheckEvents;
checkId=ChkStart_ErrorFrameOccured();//开始检测错误帧TestAddCondition(checkId);//添加检测条件，如果出现了错误帧，则输出报告中会记录下来TestWaitForTimeout(10000);//持续检测10scheckControl_Stop(checkId);//停止检测错误帧numCheckEvents=ChkQuery_NumEvents(checkId);//对5s内的检测情况进行获取，若函数返回0则没有出现错误帧
if(numCheckEvents>0)     TestStepFail("Error Frames Occured");

4.添加事件信号

一般使用是某个事件发生，然后需要执行一些动作，比如打印出错误信息等。

具体做法是：在一个位置添加需要等待的事件，程序中的其他地方，如果某个事件发生了（如周期超界、错误帧出现等），提供该事件的供应，则等待的程序段获得了该事件，继续执行下面的操作。几个核心的函数接口如下所示。
//供应text事件，主要用于关联事件的触发源，以及特定的textlongTestSupplyTextEvent(char aText[] );//添加text事件longTestJoinTextEvent(char[]aText);//等待text事件，有一个出现则程序执行下一步longTestWaitForAnyJoinedEvent(dword aTimeout);//等待text事件，所有等待事件都出现则程序执行下一步long TestWaitForAllJoinedEvents(dword aTimeout);

5.回调函数

CAPL中也有类似于C语言中的回调函数的机制，如检测报错误帧的函数中就可以使用，当总线出现错误帧就会自动调用回调函数执行一些操作。
ErrChkId=ChkStart_ErrorFramesOccured("Callback_ErrorFrameOccured");//检查错误帧，如果发现错误帧就调用回调函数回调函数设计如下：voidCallback_errorFrameOccured(dword chk_id){float t;  t=timeNow()/100000.0;//记录出现错误帧的时间  testStep("ErrorFrame_TimeStamp","%.7f s",t);//打印事件戳  TestSupplyTextEvent("ErrorFrameOccured");//设置前面提到的事件}

6.总线节点检测

监控总线上有没有出现通讯异常的情况。需要使用函数接口ChkStart_NodeBabbling( )，例如检测一段时间内总线有没有出现停止通讯的情况。
CheckId=ChkStart_NodeBabbling(CAN::ACAN,0);//立即开始检查总线状态testWaitForTimeout(5000);//延时5sChkControl_Stop(CheckId);//停止检测NumberEvents=ChkQuery_NumEvents(CheckId);//如果在2s内总线停止通讯，则NumberEvents！=0