CANoe9.0用CAPL控制数控电源

1.前言

本文提供一种基于CAPL控制数控电源的方法，其实现原理是CAPL中调用RS232，发送SCPI指令与数控电源通信。

理论上，本文适用于串口通信的数控电源或其他串口设备。

2.开发环境

2.1硬件环境

数控电源KORAD KA3005P，CANcaseXL

2.2软件环境

CANoe 9.0，串口调试助手

3.参考资料

KA系列标准通信协议_百度文库  https://wenku.baidu.com/view/6adf09f1294ac850ad02de80d4d8d15abe230039.html

CANoe DEMO：File-Sample Configurations-IO HIL-RS232，这里是个使用RS232的DEMO

4.测试SCPI指令

将数控电源连上PC，注意，虽然是USB接口，但是数控电源内部虚拟了串口，可以在设备管理器中发现。

用串口助手打开电源的串口，设置波特率为9600（这里测试任何一个波特率都可以，不知为什么）。

然后以ASCII的方式发送指令。

这里测试的目的主要是为了验证通信。

具体的指令可以根据文档描述测试一下，这里就不细说了。

5.建立CANoe工程

创建个合适的工程，建立CAPL NODE，DBC，以及PANEL

6.编辑CAPL代码

以下代码参考了Demo

/*@!Encoding:936*/
includes
{
  
}

variables
{
  // GLOBAL
  const int kBUFFER_SIZE = 1000;
  const int kINFO        = 1;
  const int kWARN        = 2;
  const int kERROR       = 3;
  
  const int kHANDSHAKE_DISABLED = 0;
  const int kHANDSHAKE_RTSCTS   = 33;
  
  // define for dp serial port com9
  const dword port = 9;
  const dword baudrate = 9600;
  const dword dataBits = 8;
  const dword stopBits = 1;
  const dword parity = 0;//0:none 1:even 0:odd
   
  // data is copied from callback buffer to gReceiverBuffer (collects data)
  byte gReceiverCallbackBuffer[kBUFFER_SIZE];
  
  byte gReceivedBuffer[kBUFFER_SIZE];
  dword gReceivedIndex= 0;
  
  // state variable
  byte gSending = 0;
  
  byte gGetValueSt = 0;
  byte gSetValueSt = 0;
  
  msTimer t100ms;
  msTimer t20ms;
}

on preStart
{
  InitSerialPort();  
}

on start
{
  setTimer(t100ms,100);
}
//RS232 Init
InitSerialPort()
{
  // close serial port (port may have changed, former port shall not remain open)
  if(Rs232Close(port)!=1)
    writeLineEx(0,kERROR,"An error occurred during closing of the serial port %d.", port);    

  // set state (close aborts all open requests)
  gSending = 0;

  // open the serial port (comes up with Windows defaults)
  if(Rs232Open(port)==1)
    writeLineEx(0,kINFO, "Serial port %d successfully opened.", port);    
  else
    writeLineEx(0,kERROR,"An error occurred during opening of the serial port %d.", port);    

  // configure the serial port
  // - just take the panel content
  if(Rs232Configure(port,baudrate,dataBits,stopBits,parity)==1)
    writeLineEx(0,kINFO, "Serial port %d successfully initialized.", port);    
  else
    writeLineEx(0,kERROR,"An error occurred during initialization of the serial port %d.", port);    
  
  // port, handshake, xonLim, xoffLim, xonChar, xoffChar, writeTimeout
  // without last timeout parameter: use default timeout
  // for transmission of small amounts of data one may not need to use handshake ! 
  // e.g. 33 for RTS/CTS as second parameter for large volumes of data, 0 for small volumes
  if(Rs232SetHandshake(port, kHANDSHAKE_DISABLED, 0, 0, 0, 0))
    writeLineEx(0,kINFO, "Handshake parameters for serial port %d successfully configured.", port);    
  else
    writeLineEx(0,kERROR,"An error occurred during the serial port %d configuration of handshake parameters.", port);

  // set buffer for reception (otherwise callback would not work)
  if(Rs232Receive(port, gReceiverCallbackBuffer, kBUFFER_SIZE))
    writeLineEx(0,kINFO, "Receiver buffer for serial port %d successfully set.", port);    
  else
    writeLineEx(0,kERROR,"An error occurred during setting the receiver buffer for serial port %d.", port);
}
//RS232 Call back
RS232OnReceive( dword port, byte buffer[], dword number )
{
  dword i;
  for(i=0;i=5)
    {
      DP_DataRecevied(gReceivedBuffer,gReceivedIndex);
      gReceivedIndex=0;
    }
  }
}
//RS232 Call back
RS232OnSend( dword port, byte buffer[], dword number )
{
  // set state
  gSending = 0;

  //writeLineEx(0,kINFO,"Transmission of %d bytes from port %d completed !", number, port);
}
//RS232 Call back
RS232OnError( dword port, dword errorFlags )
{
  // set state
  gSending = 0;

  writeLineEx(0,kERROR,"Error handler called with error code %d !", errorFlags);

  if ( errorFlags & 1 )
    writeLineEx(0,1,"%d informs of send error",errorFlags);
  if ( errorFlags & 2 )
    writeLineEx(0,1,"%d informs of receive error",errorFlags);
  if ( errorFlags & 4 )
    writeLineEx(0,1,"%d informs of frame error",errorFlags);
  if ( errorFlags & 8 )
    writeLineEx(0,1,"%d informs of parity error",errorFlags);
  if ( errorFlags & 16 )
    writeLineEx(0,1,"%d informs of overrun error",errorFlags);
  if ( errorFlags & 32 )
    writeLineEx(0,1,"%d informs of receiver overrun error",errorFlags);
  if ( errorFlags & 64 )
    writeLineEx(0,1,"%d informs of break state",errorFlags);
  if ( errorFlags & 128 )
    writeLineEx(0,1,"%d informs of send timeout error",errorFlags);
}

CopyBuffer( byte destBuffer[], dword destOffset, byte srcBuffer[], dword srcNumber )
{
  dword i;

  for (i=0; i3000)
    writeLineEx(0,kERROR,"Voltage too high! ");
  else
  {
    buf[i++]=(byte)(vol/1000)+0x30;
    vol%=1000;
    buf[i++]=(byte)(vol/100)+0x30;
    vol%=100;
    buf[i++]='.';
    buf[i++]=(byte)(vol/10)+0x30;
    buf[i++]=(byte)(vol%10)+0x30;
    
    DP_Send(buf, i);
  }
}

DP_SetCurrent(float data)
{
  char str[7]="ISET1:";
  char buf[100];
  word vol=0;
  byte i;
  
  for(i=0; i<6; i++)
  {
    buf[i]=str[i];
  }
  
  vol = (word)(data*1000);
  
  if(vol>5000)
    writeLineEx(0,kERROR,"Current too high! ");
  else
  {
    buf[i++]=(byte)(vol/1000)+0x30;
    vol%=1000;
    buf[i++]='.';
    buf[i++]=(byte)(vol/100)+0x30;
    vol%=100;
    buf[i++]=(byte)(vol/10)+0x30;
    buf[i++]=(byte)(vol%10)+0x30;
    
    DP_Send(buf, i);
  }
}

DP_DataRecevied(byte buffer[], dword len)
{
  switch(gGetValueSt)
  {
    case 0:
      putValue(Env_GetVoltage,AtoF(buffer,len));
      gGetValueSt=1;
      break;
    case 1:
      putValue(Env_GetCurrent,AtoF(buffer,len));
      gGetValueSt=0;
      break;
    default:
      break;
  }
}

float AtoF(byte buffer[], dword len)
{
  double getData;
  dword i;
  byte flag;
  dword per;
  
  getData = 0;//static
  per=1;//static
  flag=0;//static
  
  for(i=0; i

 

7.测试

8.总结

（1）CANoe十分强大，可以干很多事情，本文中的方法也只是众多控制数控电源方式中的一种，本人未开发过基于CANoe的自动化测试设备，也并不清楚并不清楚商业上是如何实现的。

（2）DEMO很有参考价值，不会的可以找DEMO参考

（3）他节点可以通过调用dbc中定义的环境变量，来获取或者设置电源的电压电流

（4）win10微软拼音在360浏览器编辑此贴，打字会抽风