스테이지 틱 차트에 적용하면 틱봉을 장중에 실시간으로 보여 줍니다.
글쓴이 : JMLee 조회수 : 3977 작성일 : 2019-06-13
1번첨부 : _o_Tick_Candle_1.png 2번첨부 : 없음 3번첨부 : 없음

스테이지 틱 차트에 적용하면 틱봉을 장중에 실시간으로 보여 줍니다.

프로그램 소스를 받아서 사용해 보시고 도움이 되시길 바랍니다.

도움이 안되거나 혼돈이 되시면 사용하지 마시기 바랍니다.

문의사항 올리시면 시간날때 답변 드리겠습니다.

첨부한 그림파일 참조 하세요.

감사 합니다.

=========================================================================================


//
//  _o_Tick_Candle
//
//  _틱 봉표기

Parameter : Double_Disp(1)
Parameter : No_Bars(1000)
Parameter : Border_Disp(1)
Parameter : Double_Text_Disp(0)

var : oneflag(0)
Var : mStartDate(0)
Var : mStartTime(0)
Var : mStartOpen(0)
Var : mStartClose(0)
Var : ChangeMonthCnt(0)

array : bOpen[100](0), bClose[100](0)
var : bCnt(0)

Var : iter(-1)


if(Double_Disp == 0) then return


if(oneflag == 0) then
   oneflag = 1
   mStartDate = Date
   mStartTime = Time
   mStartOpen = Open
   mStartClose = Close  
end if


++iter

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Is_Change_Ticks = ((iter % No_Bars) == 0)
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Is_Change = Is_Change_Ticks


//======================================================
//   틱 이 변경되었는지 검사
//======================================================
if Is_Change == TRUE  Then
    ++bCnt
   
    for pos = 100 to 1 step -1
        bOpen[pos]  = bOpen[pos-1]      // Shift
        bClose[pos] = bClose[pos-1]     // Shift
    end for
   
    bOpen[0] = mStartOpen               // 저장할 데이터 저장
    bClose[0] = Close[0]                // 저장할 데이터 저장


    if(Double_Text_Disp != 0) then
    //  if(mStartOpen < Close[1]) then
        if(bOpen[0] < bClose[0]) then
            oTc = new Text (mStartDate, mStartTime, Close+0.20, NumToStr(abs(bOpen[0]- bClose[0]),  2))
            oTc.Color = red

        //  oTc = new Text (mStartDate, mStartTime, Close+0.15, NumToStr(Close[1],   2))
            oTc = new Text (mStartDate, mStartTime, Close+0.15, NumToStr(bClose[0],  2))
        //  oTo = new Text (mStartDate, mStartTime, Close+0.10, NumToStr(mStartOpen, 2))
            oTo = new Text (mStartDate, mStartTime, Close+0.10, NumToStr(bOpen[0],   2))

            oTo.Color = red
            oTc.Color = red
        else
        //  oTc = new Text (mStartDate, mStartTime, Close+0.10, NumToStr(Close[1],   2))
            oTc = new Text (mStartDate, mStartTime, Close+0.10, NumToStr(bClose[0],  2))
        //  oTo = new Text (mStartDate, mStartTime, Close+0.15, NumToStr(mStartOpen, 2))
            oTo = new Text (mStartDate, mStartTime, Close+0.15, NumToStr(bOpen[0],   2))

            oTc = new Text (mStartDate, mStartTime, Close+0.05, NumToStr(abs(bOpen[0]- bClose[0]),  2))
           
            oTc.Color = blue
            oTo.Color = blue
        end if
    end if


    if(mStartDate != 0) then
        if(Double_Disp != 0) then
            oRC = new Rectangle(mStartDate, mStartTime, mStartOpen,  Date[1], Time[1], Close[1])
        //  oRC.Style = 2
            oRC.Fill = TRUE
            oRC.Alpha = 80
            oRC.Color = white
 
            if(mStartOpen < Close[1]) then
                oRC.Color = RGB(225, 225, 255)      // Red
             // oRC.FillColor = RGB(225, 225, 255)  // Red
                oRC.FillColor = Red
   
                if(Border_Disp) then
                    oRC.Color = Red
                end if
            else
                oRC.Color = RGB(227,231,254)        //  Blue
             // oRC.FillColor = RGB(227,231,254)    //  Blue
                oRC.FillColor = Blue
   
                if(Border_Disp) then
                    oRC.Color = Blue
                end if
            end if        
        end if
    end if
  

   mStartDate = Date[0]
   mStartTime = Time[0]
   mStartOpen = Open[0]
   mStartClose = Close[0]  
end if


var : LastOne(0)

if(1) then
   if(LastBarOnChart == TRUE) then
      if(Double_Disp != 0) then

         if(mStartDate != 0) then
            if(LastOne == 0) then
               oRC = new Rectangle(mStartDate, mStartTime, mStartOpen,  Date[0], Time[0], Close[0])
//             mStartDate = 1
               LastOne = 1
            else
               oRC.SetEnd(Date[0], Time[0], Close[0])
            end if
           
         // oRC.Style = 2
            oRC.Fill = TRUE
            oRC.Alpha = 80
            oRC.Color = white
     
            if(mStartOpen < Close[0]) then
               oRC.Color = RGB(225, 225, 255)       // Red
            // oRC.FillColor = RGB(225, 225, 255)   // Red
               oRC.FillColor = Red
            else
               oRC.Color = RGB(227,231,254)         //  Blue
            // oRC.FillColor = RGB(227,231,254)     //  Blue
               oRC.FillColor = Blue
            end if
     
      //    print(ChangeMonthCnt, mStartDate, mStartTime, mStartOpen,  Date[1], Time[1], Close[1])           
         end if
      end if
   end if
end if



번호 제목 첨부 작성자 작성일 조회
350  Stage + GOM 을 이용한 델타헷지 가능할까요? [1] 펜블렌 2020-08-28 3098
349  코스닥150지수선물 차트. 이상헌 2020-03-17 3342
348  스테이지 틱 차트에 적용하면 틱봉을 장중에 실.. JMLee 2019-06-13 3978
347  스테이지 차트에서 마우스 휠 사용기능 추가 요.. [1] JMLee 2018-10-12 3960
346  스테이지에서 현재 선물지수 및 K200지수를 가로.. JMLee 2018-03-22 5519
345  스테이지에서 이평선 계산한 영역을 표시하는 프.. JMLee 2018-03-14 5957
344  스테이지 사용에 대한 호소문 JMLee 2017-04-28 5914
343  EF 주문 II 창에서 월물 선택 문의 드립니다. [1] JMLee 2016-08-09 5636
342   Re : EF 주문 II 창에서 월물 선택 문의 드립니.. 와루차차 2017-01-04 6126
341  스테이지차트에 옵션 종목을 선택 할 때 화면표.. [1] JMLee 2016-07-13 5763
340  유안타 고수 선물 차트. [1] 이상헌 2015-12-28 7034
339  stage 자동주문. [1] 이상헌 2015-09-25 6651
338  서식문의.. [1] 조정룡 2015-05-25 6787
337  서식문의합니다. [3] 이상헌 2015-05-19 6799
336  차트 테스트기간을 설정할수없을까요? [1] 솔루션 2015-04-14 6552
335  서식문의 [4] 조정룡 2015-04-13 6710
334   Re : 서식문의 [1] 조정룡 2015-04-18 6667
333  동영상보기 안되네요.. [1] 솔루션 2015-04-06 6373
332  서식문의합니다. [3] 이상헌 2014-12-20 6203
331  문의드려요. [1] kgt73 2014-11-21 6392
330  서식 문의합니다. [4] 이상헌 2014-11-15 7277
329  추세선저장기능?? [1] 충주황쏘가리 2014-11-10 6872
328  투자주체의 포지션 및 변화 수식 [1] sk125 2014-11-02 6420
327  시간서식. [2] 이상헌 2014-10-25 6269
326  서식문의합니다. [1] 이상헌 2014-10-15 5805
325   Re : 서식문의합니다. [1] 이상헌 2014-10-15 5957
324    Re : Re : 서식문의합니다. [7] 이상헌 2014-10-16 5864
323   Re : 서식문의합니다. [14] 이상헌 2014-10-16 6419
322   Re : 서식문의합니다. [1] Mercury 2014-10-17 6262
321  서식문의. [1] 이상헌 2014-10-10 5696
320  단일봉에서 한번만 주문되게하려면. [2] 이상헌 2014-10-06 6018
319  고수 로그인 창이 이상합니다 [1] 만년하수 2014-10-05 5944
318  서식문의드립니다.. [1] 이상헌 2014-09-28 6127
317  매매서식 [3] 이상헌 2014-09-27 5822
316  시스템 주문설정에서. [1] 이상헌 2014-09-26 5695
1  2  3  4  5  6  7  8  9  10