Halo pak Iwan,
Mantap oprekan AFL nya, pakai sound alert & colorfull.
Untuk penggunaan OR dan AND secara bersamaan bisa seperti ini:
Filter= Sell= (Rule1 AND V>2000) OR (Rule2 AND V>2000 );
Namun untuk dibawah ini sepertinya tidak perlu Filter Rule1 cukup Filter
Rule2 saja,
karena nilai Close Rule2 sudah didefinisikan lebih besar dan sama dengan
Close Rule1.
_SECTION_BEGIN("Scan Harga");
Rule1 = Param("Close", 0, 0, 10000, 1);
Rule2 = Close >= Rule1 ;
//Filter= Sell= Rule1 AND Rule2 AND V>2000 ;
Filter= Sell= Rule2 AND V>2000 ;
V0 = Ref(Volume,0) ;
V1 = Ref(Volume,- 1);
V2 = Ref(Volume,- 2);
V3 = Ref(Volume,- 3);
VR=(V1+V2+V3) /3;
VTREND = (V0 > VR);
VoK = V0>V1 AND V0>VR;
Vup= (V0>V1 AND V1>V2) AND (V0>Vr) AND ((V0/Vr)>1.1);
AddColumn(Ref( C,-1), "PrevClose",1.0, IIf( Ref(C,-1),
colorOrange,colorBlack ));
AddColumn(O, "Open",1.0, IIf( O==L , colorBrightGreen,
IIf(O==Ref(C, -1),colorOrange, IIf(O<Ref(C,-1),colorRed, colorBlue) )));
AddColumn(Close, "Last",1.0, IIf(C>Ref(C,-1), colorLime, colorRed ));
AddColumn(Rule1, "Sell Order", 1.0,colorDefault, IIf(C>=Rule1 AND
V>2000,colorGreen, colorWhite) );
AddColumn(VOk,"V.Ok",1.0,colorDefault, IIf( VOk, colorGreen, colorRed ) );
AddColumn( Vup, "V.Up", 1,IIf( Vup, colorBrightGreen, colorRed ) );
AddColumn(Volume,"V-Today",1.0, IIf( Volume >2000, colorLime, colorRed ));
AddColumn(V1,"V-Yest",1.0, IIf( Vr >2000, colorLime, colorRed ));
//AddColumn( Vr, "V-Avg",1.0, IIf( Vr >2000, colorLime, colorRed ));
//AddColumn( V0/ Vr,"Vol Ratio",1.1, IIf( V0/Vr >1.1, colorLime,colorRed ));
PlotShapes(IIf( Filter,shapeSmallCircle , shapeNone), colorBlack, 0,Low,
Offset=-15);
AlertIf( Sell, "SOUND C:\\Windows\ \Media\\XPhone11 .wav", "Audioalert", 2
);
_SECTION_END( );
From: amibroker-4-bei@yahoogroups.com
[mailto:amibroker-4-...@yahoogroups.com] On Behalf Of Iman Chandra
Sent: Saturday, February 28, 2009 11:53 PM
To: amibroker-4-bei@yahoogroups.com
Subject: Re: [Komunitas AmiBroker] AFL Alert Price
Pak Iwan,
Pertama Filternya yg pakai AND membuat scannernya gak keluar apa-apa tuh.
saya ganti dengan OR ya.
Filter
= Sell= Rule1 OR Rule2 AND V>2000 ;
Soal bunyi itu, memang defaultnya fungsi ALERTIF itu cuma mengeluarkan bunyi
sekali saja ketika scan yang sama dilakukan berkali-kali.
Agar bisa berkali-kali bunyi, perlu dimodif dikit menjadi
AlertIf
( Sell, "SOUND C:\Windows\Media\ding.wav", "Audioalert",1, 1+2 );
Lengkapnya AFL nya spt attachment.
Semoga membantu.
On 2/28/09, satthi_bdh <satthi_...@yahoo.com> wrote:
Halo Teman2,
Ini saya ada posting oprekan AFL untuk memantau harga yang diinginkan.
Jika harga tersebut sudah tercapai, maka diharapkan memberikan sinyal
suara. Tapi, suara kadang muncul kadang tidak. Ada yang bisa betulin
menjadi sempurna ?
Thank's.
Rgds,
Iwan.
_SECTION_BEGIN("Scan Harga");
Rule1 = Param("Close", 0, 0, 10000, 1);
Rule2 = Close >= Rule1 ;
Filter= Sell= Rule1 AND Rule2 AND V>2000 ;
V0 = Ref(Volume,0) ;
V1 = Ref(Volume,- 1);
V2 = Ref(Volume,- 2);
V3 = Ref(Volume,- 3);
VR=(V1+V2+V3) /3;
VTREND = (V0 > VR);
VoK = V0>V1 AND V0>VR;
Vup= (V0>V1 AND V1>V2) AND (V0>Vr) AND ((V0/Vr)>1.1);
AddColumn(Ref(C,-1), "PrevClose",1.0, IIf( Ref(C,-1), colorOrange,
colorBlack ));
AddColumn(O, "Open",1.0, IIf( O==L , colorBrightGreen,
IIf(O==Ref(C,-1),colorOrange, IIf(O<Ref(C,-1),colorRed,colorBlue) )));
AddColumn(Close, "Last",1.0, IIf(C>Ref(C,-1), colorLime, colorRed ));
AddColumn(Rule1, "Sell Order", 1.0,colorDefault, IIf(C>=Rule1 AND
V>2000,colorGreen,colorWhite));
AddColumn(VOk,"V.Ok",1.0,colorDefault, IIf( VOk, colorGreen, colorRed ) );
AddColumn( Vup, "V.Up", 1,IIf( Vup, colorBrightGreen, colorRed ) );
AddColumn(Volume,"V-Today",1.0, IIf( Volume >2000, colorLime, colorRed ));
AddColumn(V1,"V-Yest",1.0, IIf( Vr >2000, colorLime, colorRed ));
//AddColumn(Vr, "V-Avg",1.0, IIf( Vr >2000, colorLime, colorRed ));
//AddColumn(V0/ Vr,"Vol Ratio",1.1, IIf( V0/Vr >1.1, colorLime,
colorRed ));
PlotShapes(IIf(Filter,shapeSmallCircle , shapeNone), colorBlack, 0,
Low, Offset=-15);
AlertIf( Sell, "SOUND C:\\Windows\\Media\\XPhone11.wav", "Audio
alert", 2 );
_SECTION_END();
--
Salam,
Iman
