TS.LINK.RADAR
| EasyLanguage: |
{***************************************************************************************
Name: TS.LINK.RADAR
Analysis Type: Indicator
Used: TSLINK.dll
Description: Export Data from RadarScreen to Excel
Provided By: Trade Smart Research (c) Copyright 2001 - 2005 www.tsresearch.com
Inputs:
Row - The row number in RadarScreen.
***********************************************************************}
Input: Row(2);
Vars: TFrame("");
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 miliseconds}
defineDLLFunc: "tslink.dll", float, "TS_GetValue", int,int,int,int; {sheet number,row, column, spleep miliseconds}
defineDLLFunc: "tslink.dll", int, "TS_SetString", lpstr,int,int,int,int; {text,sheet number, row, column, spleep miliseconds}
defineDLLFunc: "tslink.dll", lpstr, "TS_GetString", int,int,int,int; {sheet number, row, column, spleep miliseconds}
TS_StartExcel("Radar.xls","C:\Omega\Radar.xls");
if CurrentBar = 1 then
Begin
If DataCompression = 1 then TFrame = NumToStr(BarInterval,0) + " Min";
if DataCompression = 2 then TFrame = "Daily";
if DataCompression = 3 then TFrame = "Weekly";
if DataCompression = 4 then TFrame = "Monthly";
if DataCompression = 5 then TFrame = "P&F";
if DataCompression = 0 then TFrame = NumToStr(BarInterval,0) + " Tick";
TS_SetString(GetSymbolName,1,Row,1,0);
TS_SetString(TFrame, 1,Row,2,0);
end;
TS_SetValue(H,1,Row,3,0);
TS_SetValue(L,1,Row,4,0);
TS_SetValue(O,1,Row,5,0);
TS_SetValue(C,1,Row,6,0);
Plot1(C,"Excel");
{***** 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. *****}
|
|
