{*******************************************************************
Name: TS.Link.SETDATA
Analysis Type: Indicator
Description : Example Indicator for TS Link DLL
Used: tslink.dll
Provided By : Trade Smart Research (c) Copyright 2001 - 2005
www.tsresearchgroup.com
********************************************************************}
Inputs:
SetData1(GetSymbolName), {String value}
SetData2(Date),
SetData3(Time),
SetData4(High-Low),
SetData5(Volume),
SetSheet(1),
SetBeginRow(1),
SetColum(2),
ExcelFileName("TSLinkExample.xls"),
ExcelFilePath("C:\Program Files\TradeSmart\TS Link\TSLinkExample.xls");
Var: StartValue(0), SetRow(0);
{Declaration functions}
defineDLLFunc: "tslink.dll", int, "TS_StartExcel",LPSTR,LPSTR; {initalisation excel file 1 - Short BookName, 2 - full path bookname}
defineDLLFunc: "tslink.dll", int, "TS_SetValue",float,int,int,int,int; {value,sheet number, row, column, spleep milisekonds}
defineDLLFunc: "tslink.dll", int, "TS_SetString",lpstr,int,int,int,int; {text,sheet number, row, column, spleep milisekonds}
{Start Excel}
if currentbar = 1 then begin
StartValue = TS_StartExcel(ExcelFileName,ExcelFilePath);
end;
{Call Dll and send to it of the value, 10 miliseconds sleep}
SetRow = SetBeginRow;
SetRow = SetRow[1] + 1;
TS_SetString(SetData1,SetSheet,SetRow,SetColum,0); {Set String value}
TS_SetValue(SetData2,SetSheet,SetRow,SetColum+1,10);
TS_SetValue(SetData3,SetSheet,SetRow,SetColum+2,10);
TS_SetValue(SetData4,SetSheet,SetRow,SetColum+3,10);
TS_SetValue(SetData5,SetSheet,SetRow,SetColum+4,10);
Plot1(SetData4, "SetData4");
{***** Copyright (c) 2001-2005 Trade Smart Research, Ltd. All rights reserved. www.tsresearchgroup.com *****
***** Trade Smart Research reserves the right to modify or overwrite this analysis technique
with each release. *****}
|
