커뮤니티
부탁드립니다
2021-05-17 21:00:51
928
글번호 149100
#,아래식을 타주기 분봉으로 수정 요청드립니다.
input : n(0),굵기(0);
var : tl(0),tl1(0),tl2(0),tl3(0),tl4(0),tx(0),tx1(0),tx2(0),tx3(0),tx4(0);
var1 = (H+L)/2;
var2 = (O);
var3 = (L);
var4 = (H);
var5 = (C);
TL_Delete(TL);
tl = TL_New(sdate[n],stime[n],var1[n],NextBarSdate,NextBarStime,var1[n]);
TL_SetExtRight(tl,true);
TL_SetColor(tl,LGREEN);
TL_SetSize(tl,굵기);
Text_Delete(tx);
tx =Text_New(NextBarSdate,NextBarStime,var1[n]," "+NumToStr(var1[n],2));
Text_SetStyle(tx,3,0);
Text_SetColor(tx,LGREEN);
TL_Delete(TL1);
tl1 = TL_New(sdate[n],stime[n],var2[n],NextBarSdate,NextBarStime,var2[n]);
TL_SetExtRight(tl1,true);
TL_SetColor(tl1,MAGENTA);
TL_SetSize(tl1,굵기);
Text_Delete(tx1);
tx1 =Text_New(NextBarSdate,NextBarStime,var2[n]," "+NumToStr(var2[n],2));
Text_SetStyle(tx1,3,0);
Text_SetColor(tx1,MAGENTA);
TL_Delete(TL2);
tl2 = TL_New(sdate[n],stime[n],var3[n],NextBarSdate,NextBarStime,var3[n]);
TL_SetExtRight(tl2,true);
TL_SetColor(tl2,BLUE);
TL_SetSize(tl2,굵기);
Text_Delete(tx2);
tx2 =Text_New(NextBarSdate,NextBarStime,var3[n]," "+NumToStr(var3[n],2));
Text_SetStyle(tx2,3,0);
Text_SetColor(tx2,BLUE);
TL_Delete(TL3);
tl3 = TL_New(sdate[n],stime[n],var4[n],NextBarSdate,NextBarStime,var4[n]);
TL_SetExtRight(tl3,true);
TL_SetColor(tl3,RED);
TL_SetSize(tl3,굵기);
Text_Delete(tx3);
tx3 =Text_New(NextBarSdate,NextBarStime,var4[n]," "+NumToStr(var4[n],2));
Text_SetStyle(tx3,3,0);
Text_SetColor(tx3,RED);
TL_Delete(TL4);
tl4 = TL_New(sdate[n],stime[n],var5[n],NextBarSdate,NextBarStime,var5[n]);
TL_SetExtRight(tl4,true);
TL_SetColor(tl4,BLACK);
TL_SetSize(tl4,굵기);
Text_Delete(tx4);
tx4 =Text_New(NextBarSdate,NextBarStime,var5[n]," "+NumToStr(var5[n],2));
Text_SetStyle(tx4,3,0);
Text_SetColor(tx4,BLACK);
#,미리감사드립니다.
답변 1
예스스탁 예스스탁 답변
2021-05-18 09:47:44
안녕하세요
예스스탁입니다.
input : ntime(30);
input : n(1),굵기(0);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Array : DD[20](0),TT[20](0),OO[20](0),HH[20](0),LL[20](0),CC[20](0),MM[20](0);
var : tl(0),tl1(0),tl2(0),tl3(0),tl4(0),tx(0),tx1(0),tx2(0),tx3(0),tx4(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
OO[0] = O;
HH[0] = H;
LL[0] = L;
DD[0] = sdate;
TT[0] = sTime;
for cnt = 1 to 99
{
DD[cnt] = DD[cnt-1][1];
TT[cnt] = TT[cnt-1][1];
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
MM[cnt] = MM[cnt-1][1];
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
MM[0] = (HH[0]+LL[0])/2;
CC[0] = C;
if OO[n] > 0 Then
{
TL_Delete(TL);
tl = TL_New(DD[n],TT[n],MM[n],NextBarSdate,NextBarStime,MM[n]);
TL_SetExtRight(tl,true);
TL_SetColor(tl,LGREEN);
TL_SetSize(tl,굵기);
Text_Delete(tx);
tx =Text_New(NextBarSdate,NextBarStime,MM[n]," "+NumToStr(MM[n],2));
Text_SetStyle(tx,3,0);
Text_SetColor(tx,LGREEN);
TL_Delete(TL1);
tl1 = TL_New(DD[n],TT[n],OO[n],NextBarSdate,NextBarStime,OO[n]);
TL_SetExtRight(tl1,true);
TL_SetColor(tl1,MAGENTA);
TL_SetSize(tl1,굵기);
Text_Delete(tx1);
tx1 =Text_New(NextBarSdate,NextBarStime,OO[n]," "+NumToStr(OO[n],2));
Text_SetStyle(tx1,3,0);
Text_SetColor(tx1,MAGENTA);
TL_Delete(TL2);
tl2 = TL_New(DD[n],TT[n],LL[n],NextBarSdate,NextBarStime,LL[n]);
TL_SetExtRight(tl2,true);
TL_SetColor(tl2,BLUE);
TL_SetSize(tl2,굵기);
Text_Delete(tx2);
tx2 =Text_New(NextBarSdate,NextBarStime,LL[n]," "+NumToStr(LL[n],2));
Text_SetStyle(tx2,3,0);
Text_SetColor(tx2,BLUE);
TL_Delete(TL3);
tl3 = TL_New(DD[n],TT[n],HH[n],NextBarSdate,NextBarStime,HH[n]);
TL_SetExtRight(tl3,true);
TL_SetColor(tl3,RED);
TL_SetSize(tl3,굵기);
Text_Delete(tx3);
tx3 =Text_New(NextBarSdate,NextBarStime,HH[n]," "+NumToStr(HH[n],2));
Text_SetStyle(tx3,3,0);
Text_SetColor(tx3,RED);
TL_Delete(TL4);
tl4 = TL_New(DD[n],TT[n],CC[n],NextBarSdate,NextBarStime,CC[n]);
TL_SetExtRight(tl4,true);
TL_SetColor(tl4,BLACK);
TL_SetSize(tl4,굵기);
Text_Delete(tx4);
tx4 =Text_New(NextBarSdate,NextBarStime,CC[n]," "+NumToStr(CC[n],2));
Text_SetStyle(tx4,3,0);
Text_SetColor(tx4,BLACK);
}
}
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> #,아래식을 타주기 분봉으로 수정 요청드립니다.
input : n(0),굵기(0);
var : tl(0),tl1(0),tl2(0),tl3(0),tl4(0),tx(0),tx1(0),tx2(0),tx3(0),tx4(0);
var1 = (H+L)/2;
var2 = (O);
var3 = (L);
var4 = (H);
var5 = (C);
TL_Delete(TL);
tl = TL_New(sdate[n],stime[n],var1[n],NextBarSdate,NextBarStime,var1[n]);
TL_SetExtRight(tl,true);
TL_SetColor(tl,LGREEN);
TL_SetSize(tl,굵기);
Text_Delete(tx);
tx =Text_New(NextBarSdate,NextBarStime,var1[n]," "+NumToStr(var1[n],2));
Text_SetStyle(tx,3,0);
Text_SetColor(tx,LGREEN);
TL_Delete(TL1);
tl1 = TL_New(sdate[n],stime[n],var2[n],NextBarSdate,NextBarStime,var2[n]);
TL_SetExtRight(tl1,true);
TL_SetColor(tl1,MAGENTA);
TL_SetSize(tl1,굵기);
Text_Delete(tx1);
tx1 =Text_New(NextBarSdate,NextBarStime,var2[n]," "+NumToStr(var2[n],2));
Text_SetStyle(tx1,3,0);
Text_SetColor(tx1,MAGENTA);
TL_Delete(TL2);
tl2 = TL_New(sdate[n],stime[n],var3[n],NextBarSdate,NextBarStime,var3[n]);
TL_SetExtRight(tl2,true);
TL_SetColor(tl2,BLUE);
TL_SetSize(tl2,굵기);
Text_Delete(tx2);
tx2 =Text_New(NextBarSdate,NextBarStime,var3[n]," "+NumToStr(var3[n],2));
Text_SetStyle(tx2,3,0);
Text_SetColor(tx2,BLUE);
TL_Delete(TL3);
tl3 = TL_New(sdate[n],stime[n],var4[n],NextBarSdate,NextBarStime,var4[n]);
TL_SetExtRight(tl3,true);
TL_SetColor(tl3,RED);
TL_SetSize(tl3,굵기);
Text_Delete(tx3);
tx3 =Text_New(NextBarSdate,NextBarStime,var4[n]," "+NumToStr(var4[n],2));
Text_SetStyle(tx3,3,0);
Text_SetColor(tx3,RED);
TL_Delete(TL4);
tl4 = TL_New(sdate[n],stime[n],var5[n],NextBarSdate,NextBarStime,var5[n]);
TL_SetExtRight(tl4,true);
TL_SetColor(tl4,BLACK);
TL_SetSize(tl4,굵기);
Text_Delete(tx4);
tx4 =Text_New(NextBarSdate,NextBarStime,var5[n]," "+NumToStr(var5[n],2));
Text_SetStyle(tx4,3,0);
Text_SetColor(tx4,BLACK);
#,미리감사드립니다.
다음글
이전글