EnableTextOutput (False);
EnableScript ("VBScript");
//Initialize all variables to zero
CPAUDJPY = 0;
NTSCPAUDJPY = 0;
STNCPAUDJPY = 0;
TFCAUDJPY1800 = 0;
MAAUDJPY1800 = 0;
NTSMAAUDJPY1800 = 0;
STNMAAUDJPY1800 = 0;
TFCAUDJPY3600 = 0;
MAAUDJPY3600 = 0;
NTSMAAUDJPY3600 = 0;
STNMAAUDJPY3600 = 0;
DT1 = Date();
printf ( "Date AND TIME " +DT1);
printf ( " \n" );
// VBScript codes for sending data to Excel
<%
Set ObjExcel = GetObject(,"Excel.Application")
Set ObjSheet = ObjExcel.ActiveWorkbook.Worksheets(1)
Function Fire(row, column, ValueX)
ObjSheet.Cells(row, column).Value = ValueX
End function
Function PrintTime(DT1)
Set ObjSheet888 = ObjExcel.ActiveWorkbook.Worksheets(2)
ObjSheet888.Cells(8, 1).Value = DT1
End Function
%>
//later call these from any symbol/ticker sections (call from GOOG or AUD.JPY)
MYVBS = GetScriptObject();
MYVBS.PrintTime(DT1);
MYVBS.Fire(3,3,333);
//*****************************************************
SetForeign("AUD.JPY-IDEALPRO-CASH");
//*****************************************************
CPAUDJPY = C;
NTSCPAUDJPY = NumToStr(CPAUDJPY,format = 1.3 );
STNCPAUDJPY = StrToNum(NTSCPAUDJPY);
//*****************************************************
TFCAUDJPY1800 = TimeFrameCompress(Close,1800);
MAAUDJPY1800 = MA(TFCAUDJPY1800,500);
NTSMAAUDJPY1800 = NumToStr(MAAUDJPY1800, format = 1.3 );
STNMAAUDJPY1800 = StrToNum(NTSMAAUDJPY1800);
//*****************************************************
TFCAUDJPY3600 = TimeFrameCompress(Close,3600);
MAAUDJPY3600 = MA(TFCAUDJPY3600,500);
NTSMAAUDJPY3600 = NumToStr(MAAUDJPY3600, format = 1.3 );
STNMAAUDJPY3600 = StrToNum(NTSMAAUDJPY3600);
//*****************************************************
RestorePriceArrays(); // UNsetforeign before we start new SetForeign
//setforeign again for any symbols/tickers (GOOG,CSCO,MFST etc)