|
PureBytes Links
Trading Reference Links
|
Yes ZoomToRange requries unadjusted date/times
Best regards,
Tomasz Janeczko
amibroker.com
----- Original Message -----
From: "psytek2" <psytek@xxxxxxxx>
To: <amibroker@xxxxxxxxxxxxxxx>
Sent: Monday, August 14, 2006 6:13 AM
Subject: [amibroker] Re: Do i need to install ActiveX?
> Correction...The problem seems related to time offset set in my DB
> config. I work with -12 hours, if i change it to zero everything
> works fine.
>
> best regards,
> herman
> --- In amibroker@xxxxxxxxxxxxxxx, "psytek2" <psytek@xxx> wrote:
>>
>> FYI: Found the problem: data holes!
>>
>> I use 24 hour RT data and it has lots of holes, depending on where
> i
>> place the cursor it works or it doesn't. Gotto work out a function
>> that returns the nearest bar with a valid DateTime.
>>
>> best regards,
>> herman
>>
>> --- In amibroker@xxxxxxxxxxxxxxx, "psytek2" <psytek@> wrote:
>> >
>> > I had the dates swapped for the Zoomout trigger, below the
>> corrected
>> > code. I tested on EOD data and the code works fine, but it does
> not
>> > work on RT minute datat.
>> >
>> > best regards,
>> > herman
>> > SetBarsRequired(1000000,1000000);
>> > BI = BarIndex();
>> > DT = DateTime();
>> > CursorBar = SelectedValue(BI);
>> > Lastbar = Min(CursorBar + 5, BarCount-1); // use Ref()
>> > FirstBar = Max(CursorBar - 5,0);
>> > LDT = LastValue(ValueWhen( Lastbar ==BI, DT ));
>> > FDT = LastValue(ValueWhen( FirstBar ==BI, DT ));
>> > LDTstr = DateTimeToStr( LDT );
>> > FDTstr = DateTimeToStr( FDT );
>> >
>> > FDT1 = LastValue(ValueWhen( BI==0, DT ));
>> > LDT1 = LastValue(ValueWhen( BarCount-1==BI, DT ));
>> > LDTstr1 = DateTimeToStr( LDT1 );
>> > FDTstr1 = DateTimeToStr( FDT1 );
>> >
>> > AB = CreateObject("Broker.Application");
>> > AW = AB.ActiveWindow;
>> > ZoomIn = ParamTrigger("Click to Zoom in","ZOOM");
>> > ZoomOut = ParamTrigger("Click to Zoom out","ZOOM");
>> > if( ZoomIn )
>> > {
>> > if( AW.ZoomToRange( FDTstr, LDTstr ) )
>> > {
>> > Msg="Zoom In successfull";
>> > }
>> > }
>> > if( ZoomOut )
>> > {
>> > if( AW.ZoomToRange( FDTstr1, LDTstr1 ) )
>> > {
>> > Msg="Zoom Out successfull";
>> > }
>> > }
>> > else Msg = "";
>> >
>> > Plot(C,"",1,128);
>> > 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 +"\n"+
>> > "DataStart: "+ FDTstr1 + "\n"+
>> > " Lastdate: "+ LDTstr1;
>> >
>> >
>> > --- In amibroker@xxxxxxxxxxxxxxx, "psytek2" <psytek@> wrote:
>> > >
>> > > Boy, why does it work for you and not for me? Nothing happens
>> when
>> > i
>> > > click the paramtriggers. Is there a setting that can prevent
> this?
>> > >
>> > > Below the code what i "expect" should zoom you back to max
> range
>> > > again however that doesn't work for me either.
>> > >
>> > > The whole execrise is to get to know this function so that I
> can
>> > step
>> > > from signal to signal to inspect backtester trades; without
>> tedious
>> > > scrolling.
>> > >
>> > > I think the code can be simplified a bit using Ref()...but i
> want
>> > it
>> > > working first. If anyone has an idea why it might not work for
> me
>> > let
>> > > me know...
>> > >
>> > > best regards,
>> > > herman
>> > >
>> > > SetBarsRequired(1000000,1000000);
>> > > BI = BarIndex();
>> > > DT = DateTime();
>> > > CursorBar = SelectedValue(BI);
>> > > Lastbar = Min(CursorBar + 10, BarCount-1); // use Ref()
>> > > FirstBar = Max(CursorBar - 10,0);
>> > > LDT = LastValue(ValueWhen( Lastbar ==BI, DT ));
>> > > FDT = LastValue(ValueWhen( FirstBar ==BI, DT ));
>> > > LDTstr = DateTimeToStr( LDT );
>> > > FDTstr = DateTimeToStr( FDT );
>> > >
>> > > LDT1 = LastValue(ValueWhen( BI==0, DT ));
>> > > FDT1 = LastValue(ValueWhen( BarCount-1==BI, DT ));
>> > > LDTstr1 = DateTimeToStr( LDT1 );
>> > > FDTstr1 = DateTimeToStr( FDT1 );
>> > >
>> > > AB = CreateObject("Broker.Application");
>> > > AW = AB.ActiveWindow;
>> > > ZoomIn = ParamTrigger("Click to Zoom in","ZOOM");
>> > > ZoomOut = ParamTrigger("Click to Zoom out","ZOOM");
>> > > if( ZoomIn )
>> > > {
>> > > if( AW.ZoomToRange( FDTstr, LDTstr ) )
>> > > {
>> > > Msg="Zoom In successfull";
>> > > }
>> > > }
>> > > if( ZoomOut )
>> > > {
>> > > if( AW.ZoomToRange( FDTstr1, LDTstr1 ) )
>> > > {
>> > > Msg="Zoom Out successfull";
>> > > }
>> > > }
>> > > else Msg = "";
>> > >
>> > > Plot(C,"",1,128);
>> > > 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, "Anthony Faragasso"
> <ajf1111@>
>> > > wrote:
>> > > >
>> > > > Herman,
>> > > >
>> > > > I just tried your formula and it zooms at the cursor
> position
>> 10
>> > > bars + / - both ways on my computer.....could you add UnZoom
>> > also :)
>> > > >
>> > > > Thanks
>> > > > Anthony
>> > > > ----- Original Message -----
>> > > > From: psytek2
>> > > > To: amibroker@xxxxxxxxxxxxxxx
>> > > > Sent: Sunday, August 13, 2006 5: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
>> > > > >
>> > > >
>> > > >
>> > > >
>> > > >
>> > > >
>> > > >
>> > > > -------------------------------------------------------------
> ---
>> --
>> > --
>> > > --------
>> > > >
>> > > > avast! Antivirus: Inbound message clean.
>> > > >
>> > > > Virus Database (VPS): 0632-2, 08/10/2006
>> > > > Tested on: 8/13/2006 6:17:00 AM
>> > > > avast! - copyright (c) 1988-2006 ALWIL Software.
>> > > >
>> > >
>> >
>>
>
>
>
>
>
>
>
> 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
>
>
>
>
>
>
>
>
>
|