|
PureBytes Links
Trading Reference Links
|
Thanks TJ, but no luck for me. Has anyone tried this code on IB
Minute data??? perhaps it works on EOD but not on RT data?
best regards,
herman
--- In amibroker@xxxxxxxxxxxxxxx, "Tomasz Janeczko" <groups@xxx>
wrote:
>
> It works for me .... (i.e. it zooms to +- 10 bars around selected
bar (provided
> that there are 10 bars before and after selected one))
>
> Best regards,
> Tomasz Janeczko
> amibroker.com
> ----- Original Message -----
> From: "psytek2" <psytek@xxx>
> To: <amibroker@xxxxxxxxxxxxxxx>
> Sent: Sunday, August 13, 2006 11:59 AM
> Subject: [amibroker] Re: Do i need to install ActiveX?
>
>
> > Thank you Tomasz, I am getting closer but my test code still
doesn't
> > want to do what i want. I want the code, when I click a
ParamTrigger
> > to zoom automatically +/- n bars around the cursor position.
> >
> > Can anybody tell my why this code doesn't work?
> >
> > Many thanks!
> > herman
> >
> > SetBarsRequired(1000000,1000000);
> > BI = BarIndex();
> > DT = DateTime();
> > CursorBar = SelectedValue(BI);
> > Lastbar = Min(CursorBar + 10, BarCount-1);
> > FirstBar = Max(CursorBar - 10,0);
> > LDT = LastValue(ValueWhen( Lastbar ==BI, DT ));
> > FDT = LastValue(ValueWhen( FirstBar ==BI, DT ));
> > LDTstr = DateTimeToStr( LDT );
> > FDTstr = DateTimeToStr( FDT );
> >
> > AB = CreateObject("Broker.Application");
> > AW = AB.ActiveWindow;
> > ZoomIn = ParamTrigger("Click to Zoom in","ZOOM");
> > if( ZoomIn )
> > {
> > if( AW.ZoomToRange( FDTstr, LDTstr ) )
> > {
> > Msg="Zoom successfull";
> > }
> > }
> > else Msg = "";
> > Title = "\n"+Msg+"\n"+
> > " BI: "+NumToStr(BI,1.0,False)+"\n"+
> > " DT: "+NumToStr(DT,1.0,False)+"\n"+
> > " FBAR: "+NumToStr(Firstbar ,1.0,False)+"\n"+
> > " CBAR: "+NumToStr(CursorBar,1.0,False)+"\n"+
> > " LBAR: "+NumToStr(Lastbar ,1.0,False)+"\n"+
> > "FirstDate: "+ FDTstr + "\n"+
> > "Last Date: "+ LDTstr;
> >
> >
> > --- In amibroker@xxxxxxxxxxxxxxx, "Tomasz Janeczko" <groups@>
> > wrote:
> >>
> >> BlankHerman,
> >>
> >> "new ActiveXObject" is a JScript-only syntax (so it can be used
in
> > EXTERNAL .JS file).
> >>
> >>
> >> If you want to use it from AFL use CreateObject.
> >>
> >> AB = CreateObject("Broker.Application");
> >>
> >>
> >> Best regards,
> >> Tomasz Janeczko
> >> amibroker.com
> >> ----- Original Message -----
> >> From: Herman
> >> To: _AmiBroker
> >> Sent: Saturday, August 12, 2006 3:23 PM
> >> Subject: [amibroker] Do i need to install ActiveX?
> >>
> >>
> >> I am trying to run this code:
> >>
> >> AB = new ActiveXObject("Broker.Application");
> >> AW = AB.ActiveWindow;
> >> if( AW.ZoomToRange( FDTstr, LDTstr ) )
> >> {
> >> WScript.Echo("Zoom successfull" );
> >> }
> >>
> >> and get a syntax error on the first line,
> >> I change computers recently, how do i know ActiveX is
installed?
> > How do I install it if it is not there?
> >> TIA,
> >> herman
> >>
> >
> >
> >
> >
> >
> >
> > Please note that this group is for discussion between users only.
> >
> > To get support from AmiBroker please send an e-mail directly to
> > SUPPORT {at} amibroker.com
> >
> > For other support material please check also:
> > http://www.amibroker.com/support.html
> >
> >
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
|