EXTERNAL: "net_assembly_interop.dll", double, "Summ", double, double;
if close + open <> Summ(close, open) then raiseruntimeerror(":-(");

EXTERNAL: "net_assembly_interop.dll", double, "Summ", double, double;

if (LastBarOnChart_s = True) then begin

   Print("10 + 231.2 = ", Summ(10, 231.2));

end;

System::String ^ __clrcall TestString(System::String ^ s1)

DefineDLLFunc: "net_assembly_interop.dll", string, "TestString", string;

#import "D:\Prog\TS Support\MultiCharts\tskit.dll"  no_namespace
#include <atlbase.h>

//////////////////////////////////////////////////////////////
// Calculate simple moving average value

double __stdcall MovAvg
( IEasyLanguageObject * pELObj, int iAvgLength )
{
  double dMovAvg ;
  dMovAvg = 0 ;
   
  // verify that sufficient bars have passed before back-referencing historical prices
   //if( pELObj->CloseMD[data1]->BarsBack > iAvgLength && iAvgLength > 0 )

  {
    double dSum = 0.0 ;
    for (int i = 0; i < iAvgLength; i++)
    {
      dSum += pELObj->CloseMD[data1]->AsDouble[ i ] ;
    }
    dMovAvg = dSum / iAvgLength ;
  }
  //return dMovAvg ;
  return 1.1;
}

//////////////////////////////////////////////////////////////
//  Generate a run-time error in TradeStation
//  This function is called internally by other DLL functions when an error in TradeStation
//  is to be produced.

void fnGenRunTimeError
( IEasyLanguageObject * pEL, int iErrorNum )
{
  TSRuntimeErrorItem tsItem;
  int m_HistErr ;
  tsItem.sCompany = _bstr_t("TradeStation Securities, Inc.").copy();
  tsItem.sErrorLocation = _bstr_t("Example Code Library").copy();
  tsItem.sErrorCategory = _bstr_t("Error").copy();
  tsItem.sLongString = NULL;
  tsItem.nParameters = 0;
     
    switch ( iErrorNum )
  {
  case 1:
    {
      // Error 1
tsItem.sShortString = _bstr_t("Error  –  Description of Error 1 goes here.").copy();
      tsItem.sSourceString = _bstr_t("Additional detailed description goes here.").copy();
      tsItem.nErrorCode = iErrorNum ;
    }
    break ;
    case 2: 
    {
      // Error 2
      tsItem.sShortString = _bstr_t("Error  –  Description of Error 2 goes here.").copy();
      tsItem.sSourceString = _bstr_t("Additional detailed description goes here.").copy();
      tsItem.nErrorCode = iErrorNum ;
    }
    break ;
    default:
    {
      // Generate a run-time error of undefined type or origin
      tsItem.sShortString = _bstr_t("Undefined error in "
        "MyDLL.dll.").copy();
      tsItem.sSourceString = _bstr_t("Error origin undefined.").copy();
      tsItem.nErrorCode = 9999 ;
    }
  }

  m_HistErr = pEL->Errors->RegisterError( &tsItem ) ;
    pEL->Errors->RaiseRuntimeError( m_HistErr ) ;
}


//////////////////////////////////////////////////////////////
// Server field call
double __stdcall GETSERVERFIELD
(IEasyLanguageObject *pEL, LPSTR szFName)
{
//  IEasyLanguageServerField *iSF = pEL->ServerField[_bstr_t(szFName)][dataDefault];
//  return iSF->AsDouble[0];
   return 1.0;
} 


//////////////////////////////////////////////////////////////
// Sort an EasyLanguage array using this DLL function

void __stdcall MYARRAYSORT
( IEasyLanguageObject* pELObj, char* MyArrayName )
{
  int nOuter, nInner ; 
  IEasyLanguageVariable* pELVar = pELObj->Variables[ MyArrayName ] ;
  if ( pELVar->Dimensions == 1 )
  {
    int nSize = pELVar->DimensionSize[0] ;
    for ( nOuter = 0; nOuter < nSize - 1; nOuter++ )
    {
      for ( nInner = nOuter + 1; nInner < nSize; nInner++ )
      {   
        pELVar->SelectedIndex[0] = nInner ;
        double dSecondValue = pELVar->Value[0] ;
        pELVar->SelectedIndex[0] = nOuter ;
        double dFirstValue = pELVar->Value[0] ;
        if ( dSecondValue < dFirstValue )
        {
          double dTmp = dFirstValue ;
          pELVar->Value[0] = dSecondValue ;
          pELVar->SelectedIndex[0] = nInner ;
          pELVar->Value[0] = dTmp ;
        }
      }
    } 
  } 
}


//////////////////////////////////////////////////////////////
// Fill dynamic EasyLanguage array

void __stdcall FILLDYNARRAY
(IEasyLanguageObject * pEL, LPSTR PassedVar)
{
  IEasyLanguageVariablePtr pMyVar = NULL;
  IELFrameworkArrayPtr pDynArray = NULL;
 
  IEasyLanguageDateTime * pMyDateTime = pEL->DateTimeMD[ dataDefault ] ;
  double myDT = pMyDateTime->AsDateTime [0] ;
   
  long nTotVars = pEL->VariablesCount;
  for (long n = 0; n < nTotVars; n++)
  {
    pMyVar = pEL->Variables[n];
    _bstr_t mybstr = pMyVar->Name;
    if (pMyVar->DataType == dtHandle)
    {
      int nValue = pMyVar->GetAsInteger(0);
      CComVariant xx(pEL->Close[0]);
      if (pEL->System->Array->IsValidHandle( (int) nValue ) && (mybstr == (_bstr_t) PassedVar))
      {
        pDynArray = pEL->System->Array;
        pDynArray->SetValue(nValue, 0, CComVariant(xx));
      }
    }
  }
}
//////////////////////////////////////////////////////////////
// Sum upticks and downticks from intraday chart to get volume in DLL  –  store in global DLL variable

double dMyDLLDouble = 0; //global variable

int __stdcall SetdMyDLLDouble 
( IEasyLanguageObject * ELObjP )
{
  dMyDLLDouble = ELObjP->UpTicksMD[dataDefault]->AsDouble[0]
    + ELObjP->DownTicksMD[dataDefault]->AsDouble[0] ;   
  return 1;
}

external: "MyDllFile.dll", double, "MovAvg", IEasyLanguageObject {self}, int {Length};

inputs:
  Length( 10 ) ;

variables:
  double MyELVar( 0 ) ;

MyELVar = MovAvg( self, Length ) ;

plot1(MyELVar ,"MyELVar ");

EXTERNAL: "net_assembly_interop.dll", lpstr, "ReturnStringExample", lpstr;
plot1( ReturnStringExample("from PL") );