データの出力

/デバッグ用、Runボタンで画面下部へ経過データ表示
debugout(DnoDate(Dno),' ',usersisu1[Dno],' ',usersisu2[Dno]);

/日付、usersisu1[dno]のデータ、userisisu2[dno]のデータを出力



{$defresult}

{$defend}

を入れると最終日だけになります



-ワンポイント-

デバッグ欄に出力されたデータは、いったんメモ帳に保存し、エクセルからメモ帳を読み込みときれいに列ごとにデータが収まります

①エクセルでファイルを開く(ファイルの種類をすべてのファイル(*.*)に変更)
②***.txtを選択
③カンマや、タブなどの～を選択
④スペースにチェックを入れる

慣れれば30秒あればできます
保存するときに拡張子(最後の4桁の英語)を.xlsにしておきましょう

サインの画面表示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;

サインの画面表示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;