Chia sẻ công cụ theo dõi chốt lời và cắt lỗ.

Sau một hồi thì mình cũng code dc. Do mù code nên có thể chưa được hoàn thiện lắm nhưng cũng xin chia sẻ với anh em. Cái này để theo dõi cổ phiếu mình mua từ ngày nào và đến ngày hiện tại lãi lỗ bao nhiêu % đồng thời để anh em chủ động chốt lãi với cắt lỗ.

- Cutlo01 -5% .Nếu ae mua mà giá giảm liên tục thì chính là -5% từ giá mua, còn giá cổ phiếu nó tăng thì là -5% từ giá cao nhất Price1.
- Price1 là giá cao nhất kể từ ngày mua cổ phiếu.
- Mũi tên xanh chỉ vào ngày ae mua cổ phiếu.

Đây là code như hình xin chia sẻ với anh em:

Mã:

_SECTION_BEGIN("TPvsSL");
GiaMua=Param("GiaMua",0, minimum = 0,maximum = 200,step = 0.01,sincr = 0); 
NgayMua = ParamDate("NgayMua","default", fomat = 2);
TP1=Param("MucTieu01",15);
TP2=Param("MucTieu02",25);
CL1=Param("CutLo01",5);
CL2=Param("CutLo02",8);
Price1= Giamua;
 

function Masocuangay( AAA )
{
  p=0;
  g=0;
  j=1900;
  do 
        {
            if (j%100==0)
            {
                if(j%400==0)
                    {
                        P=P+1;
                    }
                else
                    {
                        G=G+1;
                    }


            }
            else
            {
                if( j%4==0 )
                    {
                        P= P+1;
                    }
                else
                    {
                        G=G+1;
                    }

            } 
        }
    while( ++j < StrToNum(DateTimeFormat("%#Y",AAA)) );
    b= StrToNum(DateTimeFormat("%#j",AAA))+1;
    return p*366+g*365+b;
}

ee= LastValue(DaysSince1900())- masocuangay(NgayMua);




x= Now(5);
if (Masocuangay(x) != LastValue(DaysSince1900()))
{
    x=DateTimeAdd(x, Masocuangay(x) - LastValue(DaysSince1900()), inDaily);
}
else x= x;

bar=1;
for( i = 0; i < ee +1 && Masocuangay(NgayMua) != masocuangay(DateTimeAdd(x,-i,inDaily)) ; i++ )
{
  if (Masocuangay(NgayMua) != masocuangay(DateTimeAdd(x,-i,inDaily)) AND StrToNum(DateTimeFormat("%w",DateTimeAdd(x,-i,inDaily))) != 0 AND StrToNum(DateTimeFormat("%w",DateTimeAdd(x,-i,inDaily))) != 6)
  {
  bar= bar+1;
  }
  else bar = bar;
}

bar1 = BarIndex();
Len = bar1 - BarCount-1;
PlotShapes(IIf(Len== -bar ,shapeUpArrow,shapeNone),colorBrightGreen,0,L,-12);

Price1 = HHV(H,bar);


CutLo01=IIf(Price1 > GiaMua,(Price1-((Price1/100)*CL1)), (GiaMua-((GiaMua/100)*CL1)));
MucTieu01=GiaMua+((GiaMua/100)*TP1);  // Gia muc tieu 01

PC1=((Price1-GiaMua)/GiaMua)*100; // Dinh lai da dat duoc
TG1=((MucTieu01-GiaMua)/GiaMua)*100; // Muc tieu huong toi
GHT=((c-GiaMua)/GiaMua)*100;
GCL=((Cutlo01 - GiaMua)/GiaMua)*100;


Plot(SelectedValue(Price1),"Price1",colorYellow,styleDots); x = LastValue( BarIndex() ) + 1; y = LastValue( Price1 );PlotText("Price1== "+ WriteVal(pc1, 1.2) +" %", x, y,colorYellow);
Plot(SelectedValue(CutLo01),"CutLo01",colorPink,styleLine); x = LastValue( BarIndex() ) + 1; y = LastValue( CutLo01 );PlotText("CutLo01==  "+WriteVal(GCL, 1.2) +" %", x, y,colorPink);
Plot(SelectedValue(MucTieu01),"MucTieu01",colorGreen,styleLine);x = LastValue( BarIndex() ) + 1; y = LastValue( MucTieu01 );PlotText("MucTieu01== " +WriteVal(TG1, 1.2)+" %", x, y,colorGreen);
Plot(SelectedValue(GiaMua),"GiaMua",colorLightBlue,styleLine);x = LastValue( BarIndex() ) + 1; y = LastValue( GiaMua );PlotText("GiaMua", x, y,colorLightBlue);
Plot(SelectedValue(C),"GiaHienTai",colorRed,styleLine);x = LastValue( BarIndex() ) + 1; y = LastValue( C );PlotText("GiaHienTai== " +WriteVal(GHT, 1.2)+" %", x, y,colorRed);

_SECTION_END();

MÌNH KHÔNG PHẢI BÊN CHUYÊN NÊN CÓ SAI SÓT MONG ANH EM CHỈ GIÁO. THANKS!


============================================================
Mình không biết về code nên tự mò cái code để chốt lời với cắt lỗ. Xin nhờ các bác chỉ giúp để hoàn thiện ạ.
Mình muốn khi nhập ngày mua cổ phiếu thì code chỉ chạy từ ngày đó thôi nhưng không biết làm thế nào. Xin cảm ơn các bác!

Mã:

GiaMua=Param("GiaMua",LastValue( BarIndex() ), minimum = 0,maximum = 200,step = 0.01,sincr = 0); // Gia mua co phieu
Price1= GiaMua;
NgayMua= ParamDate("NgayMua","default",0);// Ngay mua co phieu
for( i = 1; i < BarCount; i++ )
{

   if( price1 <= High[ i ] )
   {
      price1 = High[ i ] ;
   }
   else price1= price1 ;
 }
CutLo01=IIf(price1 > GiaMua,(Price1-((price1/100)*Param("CutLo01",5))), (GiaMua-((GiaMua/100)*Param("CutLo01",5))));
MucTieu01=GiaMua+((GiaMua/100)*Param("MucTieu01",15));  // Gia muc tieu 01

PC1=((price1-GiaMua)/GiaMua)*100; // Dinh lai da dat duoc
TG1=((MucTieu01-GiaMua)/GiaMua)*100; // Muc tieu huong toi
GHT=((c-GiaMua)/GiaMua)*100;



Plot(SelectedValue(price1),"price1",colorYellow,styleDashed); x = LastValue( BarIndex() ) + 2; y = LastValue( price1 );PlotText("price1--- "+ WriteVal(pc1, 1.2) +" %", x, y,colorYellow);
Plot(SelectedValue(CutLo01),"CutLo01",colorPink,styleDashed); x = LastValue( BarIndex() ) + 2; y = LastValue( CutLo01 );PlotText("CutLo01", x, y,colorPink);
Plot(SelectedValue(MucTieu01),"MucTieu01",colorGreen,styleDashed);x = LastValue( BarIndex() ) + 2; y = LastValue( MucTieu01 );PlotText("MucTieu01--- " +WriteVal(TG1, 1.2)+" %", x, y,colorGreen);
Plot(SelectedValue(GiaMua),"GiaMua",colorLightBlue,styleDashed);x = LastValue( BarIndex() ) + 2; y = LastValue( GiaMua );PlotText("GiaMua", x, y,colorLightBlue);
Plot(SelectedValue(C),"GiaHienTai",colorRed,styleDashed);x = LastValue( BarIndex() ) + 2; y = LastValue( C );PlotText("GiaHienTai---" +WriteVal(GHT, 1.2)+" %", x, y,colorRed);

 

Chia sẻ lại, mong dc góp ý.

 

Cảm ơn tinh thần chia sẻ của bác. Cùng hóng cao thủ.

 

thanks b

 

Cám ơn bro. mình có modify lại 1 chút theo mục đích sử dụng của mình.
- Đưa thông tin lên title bar
- Cho phép ẩn hiện trên title và ẩn hiện các thanh bar.
- Bổ sung công thức tính tỉ lệ R/R theo 2 target
- Nhập giá chốt lời và cutloss thủ công: add giá chứ ko add theo %
Minh hoạ như hình dưới

 

xin quả code tín hiệu mua bán mũi tên lun đc ko bác