用CAPL通过RS232远程控制ALR3220程控电源

1. ALR3220程控电源

The ALR3220 from ELC is a 0V to 32V, 0 to 20A programmable power supply. It provides protection against short-circuits, by current regulation, against overtemperature by fan and thermal circuit-breaker and against overcurrent on main input, by internal fuses. It has 4 digit graphic LCD 128 x 64 pixels display with white backlight for clear view.

• Automatic constant voltage operation adjustable voltage of 0 to 32V(0 to ±10mV) with 10mV resolution
• Automatic constant current operation adjustable current from 0Amps to 20Amps with 10mA resolution
• Input voltage of 230Volts ±10%, 50 / 60Hz
• Power consumption of 770W
• 16 memory configurations
• USB, RS232 and RS485 interface & 0-10V insulated interface
• Complies with EN 61326-1, EN 55011, EN 61010-1 and CAT II standards
• Operating temperature range from +5°C to +40°C
• Dimension is 155mm x 250mm x 335mm and weight is 3.15Kg
• LabVIEW drivers and executable provided

由于ALR3220支持RS232通信，那么就可以在开发测试中通过CAPL远程控制输出的电压电流，满足不同的测试要求。

2. ALR3220 远程控制命令

其中：
[Address] = characters ASCII 0 (RS232 or USB)
characters ASCII 1 to 31 (RS485)
Parameters = VOLT- CURR- OVP-OCP- OUT-RCL-STO (ASCII characters).
Command = WR- RD- MES (ASCII characters).
<SP> = 20h (space).
[Value] = ASCII characters.
<CR> = 0Dh (Enter)
Example 1 : 0 VOLT WR 1250 --> Writing setpoint 1,25 V on RS232 or USB port

Example 2 : 1 CURR MES --> Current measurement request on address 1 from the RS485 port

Answer :
[Address] <SP>Status<SP>Value<CR>
[Address] = characters ASCII 0 (RS232 or USB)
characters ASCII 1 to 31 (RS485)
Status = OK- ERR- Local (ASCII characters).

• OK Command valid.
• ERR Syntax error in the command.
• Local Command impossible, the power supply is in local mode.
  <SP> = 20h (space).
  [Value] = characters ASCII.
  <CR> = 0Dh (retour chariot)
  Example 3 : 0 OK   Back of example 1
  Example 4 : 1 OK 450   Back of example 2 current measurement : 450 mA

3. 用CAPL控制ALR3220

3.1 首先需要用Panel Designer设计一个控制面板

3.2 编写CAPL

variables
{dword  gPortNo=14; /*COM14*/dword  gBaudRate=9600;dword  gDataBits=8;dword  gStopBits=2;dword  gParity = 0;/*0-NOPARITY,1-ODDPARITY,2-EVENPARITY*/// GLOBALconst int kBUFFER_SIZE = 1000;const int kINFO        = 1;const int kWARN        = 2;const int kERROR       = 3;// data is copied from callback buffer to gReceiverBuffer (collects data)byte gReceiverCallbackBuffer[kBUFFER_SIZE];byte gReceiverBuffer[kBUFFER_SIZE];byte gEmptyBuffer   [kBUFFER_SIZE];long gNumberOfReceivedBytes = 0;// state variablebyte gSending = 0;// timer for indication of data reception msTimer tBytesReceived;byte Alr32320CmdEnter= 0x0d;/*<CR> = 0Dh (Enter)*/byte Alr32320CmdSp = 0x20;byte Alr32320WRCmd[2]= {0x57,0x52};/*WR*/byte Alr32320RDCmd[2]= {0x52,0x44};/*RD*/byte AlR3220Volt_Cmd[7]={0x30,0x20,0x56,0x4F,0x4C,0x54,0x20};/*0 VOLT */byte AlR3220Curr_Cmd[7]={0x30,0x20,0x43,0x55,0x52,0x52,0x20};/*0 CURR */byte AlR3220OVP_Cmd[6]={0x30,0x20,0x4F,0x56,0x50,0x20};/*0 OVP */byte AlR3220OCP_Cmd[6]={0x30,0x20,0x4F,0x43,0x50,0x20};/*0 OCP */byte AlR322OutputOnCmd[10]={0x30,0x20,0x4F,0x55,0x54,0x20,0x57,0x52,0x20,0x31};/*0 OUT WR 1*/byte AlR322OutputOffCmd[10]={0x30,0x20,0x4F,0x55,0x54,0x20,0x57,0x52,0x20,0x30};/*0 OUT WR 0*/}on preStart
{InitSerialPort();
}
on envVar EnvSetVoltage
{long numberOfBytes;byte buffer[kBUFFER_SIZE];char volbuf[10];long setvol=0;int i=0;if ( !gSending ){CopyBuffer(buffer,0,AlR3220Volt_Cmd,elCount(AlR3220Volt_Cmd));numberOfBytes = elCount(AlR3220Volt_Cmd);setvol = getValue(EnvSetVoltage);CopyBuffer(buffer,numberOfBytes,Alr32320WRCmd,elCount(Alr32320WRCmd));numberOfBytes+=elCount(Alr32320WRCmd);buffer[numberOfBytes]=Alr32320CmdSp;numberOfBytes = numberOfBytes+1;ltoa(setvol,volbuf,10);for (i=0; i<5; i++){buffer[numberOfBytes+i] = volbuf[i];}numberOfBytes = numberOfBytes+5;buffer[numberOfBytes]=Alr32320CmdEnter;numberOfBytes = numberOfBytes+1;if(0==Rs232Send(gPortNo, buffer, numberOfBytes)){writeLineEx(0,kERROR,"An error occurred during write of block of data to the serial port %d.", gPortNo);return;} else {writeLineEx(0,kINFO, "Write block of bytes to serial port %d worked well.", gPortNo);    }// set stategSending = 1;}
}
on timer tBytesReceived
{/*Process receive data--begin*//*Process receive data--end*/// reset buffergNumberOfReceivedBytes = 0;// reset data indicationputValue(EnvReceptionIndication,0);
}
void InitSerialPort()
{// close serial port (port may have changed, former port shall not remain open)if(Rs232Close(gPortNo)==1)writeLineEx(0,kINFO, "Serial port %d successfully closed.", gPortNo);    elsewriteLineEx(0,kERROR,"An error occurred during closing of the serial port %d.", gPortNo);    // set state (close aborts all open requests)gSending = 0;// open the serial port (comes up with Windows defaults)if(Rs232Open(gPortNo)==1)writeLineEx(0,kINFO, "Serial port %d successfully opened.", gPortNo);    elsewriteLineEx(0,kERROR,"An error occurred during opening of the serial port %d.", gPortNo);// configure the serial port// - just take the panel contentif(Rs232Configure(gPortNo,gBaudRate,gDataBits,gStopBits,gParity)==1)writeLineEx(0,kINFO, "Serial port %d successfully initialized.", gPortNo);    elsewriteLineEx(0,kERROR,"An error occurred during initialization of the serial port %d.", gPortNo); // set buffer for reception (otherwise callback would not work)if(Rs232Receive(gPortNo, gReceiverCallbackBuffer, kBUFFER_SIZE))writeLineEx(0,kINFO, "Receiver buffer for serial port %d successfully set.", gPortNo);    elsewriteLineEx(0,kERROR,"An error occurred during setting the receiver buffer for serial port %d.", gPortNo);
}RS232OnReceive( dword port, byte buffer[], dword number )
{dword numberOfBytesToCopy;// collect data as long as buffer has space for itif ( (gNumberOfReceivedBytes+number)>kBUFFER_SIZE ){numberOfBytesToCopy = kBUFFER_SIZE-gNumberOfReceivedBytes; // no more than that ! it is full now} else {numberOfBytesToCopy = number;}if ( numberOfBytesToCopy==0 ){return; // nothing to add}CopyBuffer(gReceiverBuffer,gNumberOfReceivedBytes,buffer,numberOfBytesToCopy);gNumberOfReceivedBytes += numberOfBytesToCopy; // indicate data receptionputValue(EnvReceptionIndication,1);cancelTimer(tBytesReceived);setTimer(tBytesReceived,500);
}CopyBuffer( byte destBuffer[], dword destOffset, byte srcBuffer[], dword srcNumber )
{dword i;for (i=0; i<srcNumber; i++){destBuffer[destOffset+i] = srcBuffer[i];}
}RS232OnSend( dword port, byte buffer[], dword number )
{// set stategSending = 0;writeLineEx(0,kINFO,"Transmission of %d bytes from port %d completed !", number, port);
}RS232OnError( dword port, dword errorFlags )
{// set stategSending = 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);
}