忍者ブログ

私から見るマーケットの姿

デイトレ~スイングまで毎日こっそりやってます。 システムで本来出るはずだった損を裁量で防ぐスタイルのシステム売買を目指し、毎日のマーケットの感想を書いています^-^/

サインの画面表示3(2の下部表示ver)

/----- マクロ本体(Dnoによるループ) --------------
/Kind:  1:Buy、2:Sell、3:Tenbai、4:Kaimodoshi  
 
   if 条件 then writeMark(Dno,1~4,nowE);

/------------------- ユーザー関数 -----------------------
/種別毎のマーク
/Kind:  1:Buy、2:Sell、3:Tenbai、4:Kaimodoshi 
function writeMark(Dno,kind,p);
var x,y;
begin
  x:=GetX(Dno);
  y:=ChartH*0.75;
  case kind of
    /UserBuy
    1: begin
         RectAngleD(red,1,x-2,y-4,x+2,y+4);
         lineD(red,1,x,y+4,x,y+10);
       end;
      /UserSell
    2: begin
         RectAngleD(green,1,x-2,y-4,x+2,y+4);
         lineD(green,1,x,y+4,x,y+10);
       end;
       /UserTenbai
    3: begin
          fillRectD(green,1,x-2,y-4,x+2,y+4);
          lineD(green,1,x,y+4,x,y+10);
          if p<>0 then
            writefig(x,y-20,tostr(p/1000));
       end;
      /UserKaimodoshi
    4: begin
          fillRectD(red,1,x-2,y-4,x+2,y+4);
          lineD(red,1,x,y+4,x,y+10);
          if p<>0 then
            writefig(x,y-20,tostr(p/1000));
       end;
  end
end;
PR

サインの画面表示2(上部表示)

/----- マクロ本体(Dnoによるループ) --------------
/Kind:  1:Buy、2:Sell、3:Tenbai、4:Kaimodoshi  
 
   if 条件 then writeMark(Dno,1~4,nowE);

/------------------- ユーザー関数 -----------------------
/種別毎のマーク
/Kind:  1:Buy、2:Sell、3:Tenbai、4:Kaimodoshi 
function writeMark(Dno,kind,p);
var x,y;
begin
  x:=GetX(Dno);
  y:=ChartH*0.15;
  case kind of
    /UserBuy
    1: begin
         RectAngleD(red,1,x-2,y-4,x+2,y+4);
         lineD(red,1,x,y+4,x,y+10);
       end;
      /UserSell
    2: begin
         RectAngleD(green,1,x-2,y-4,x+2,y+4);
         lineD(green,1,x,y+4,x,y+10);
       end;
       /UserTenbai
    3: begin
          fillRectD(green,1,x-2,y-4,x+2,y+4);
          lineD(green,1,x,y+4,x,y+10);
          if p<>0 then
            writefig(x,y-20,tostr(p/1000));
       end;
      /UserKaimodoshi
    4: begin
          fillRectD(red,1,x-2,y-4,x+2,y+4);
          lineD(red,1,x,y+4,x,y+10);
          if p<>0 then
            writefig(x,y-20,tostr(p/1000));
       end;
  end
end;

サインの画面表示

 /----- マクロ本体(Dnoによるループ) --------------

  if 条件 then writeUnderMark(Dno);


/------------------- ユーザー関数 -----------------------
/種別毎のマーク
function writeUnderMark(Dno);
var x,y;
begin
  x:=GetX(Dno);
  y:=ChartH*0.75;
  fillrectD(red,1,x-Dw,y-2,x+Dw,y+2);
end;