커뮤니티
값단위별 표시
2020-08-29 05:58:52
990
글번호 141896
첨부 이미지
그림1
안녕하세요
아래에 분단위 지표수식에 단위표식을 할려고하니
저로서는 도저히 못하겠네요
각각고점저점에 색상도 표현 할수있는지요
첨부파일 같이 부탁드립니다
input : 분(30);
var : S1(0),D1(0),TM(0),TF(0),dd(0),tt(0);
var : hh(0),ll(0),TL1(0),TL2(0),TL3(0),TL31(0),TL32(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%분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or
(Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then
{
hh = h;
ll = l;
dd = sDate;
tt = sTime;
TL31 = TL3[1];
TL32 = TL31[1];
TL_SetExtRight(TL32,False);
TL1 = TL_New(dd,tt,hh,NextBarSdate,NextBarStime,hh);
TL2 = TL_New(dd,tt,ll,NextBarSdate,NextBarStime,ll);
TL3 = TL_New(dd,tt,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
TL_SetColor(TL1,RED);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,GREEN);
TL_SetExtRight(TL3,true);
}
Else
{
if h > hh Then
{
hh = h;
TL_SetBegin(tl1,dd,tt,hh);
TL_SetBegin(tl3,dd,tt,(hh+ll)/2);
}
if l < ll Then
{
ll = l;
TL_SetBegin(tl2,dd,tt,ll);
TL_SetBegin(tl3,dd,tt,(hh+ll)/2);
}
TL_SetEnd(TL1,sDate,sTime,hh);
TL_SetEnd(TL2,sDate,sTime,ll);
TL_SetEnd(TL3,sDate,sTime,(hh+ll)/2);
}
}
- 1. 142540_K-002.png (0.05 MB)
답변 1
예스스탁 예스스탁 답변
2020-08-31 13:03:17
안녕하세요
예스스탁입니다.
input : 분(30),소숫점자리표시(0);
var : S1(0),D1(0),TM(0),TF(0),dd(0),tt(0);
var : hh(0),ll(0),TL1(0),TL2(0),TL3(0),TL31(0),TL32(0);
var : tx1(0),tx2(0),tx3(0),tx31(0),Tx32(0),DD1(0),TT1(0),vv1(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%분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or
(Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then
{
hh = h;
ll = l;
dd = sDate;
tt = sTime;
TL31 = TL3[1];
TL32 = TL31[1];
TL_SetExtRight(TL32,False);
TL1 = TL_New(dd,tt,hh,NextBarSdate,NextBarStime,hh);
TL2 = TL_New(dd,tt,ll,NextBarSdate,NextBarStime,ll);
TL3 = TL_New(dd,tt,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
TL_SetColor(TL1,RED);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,GREEN);
TL_SetExtRight(TL3,true);
Text_SetStyle(tx1,2,1);
Text_SetStyle(tx2,2,0);
Text_SetStyle(tx3,2,0);
Tx31 = Tx3[1];
Tx1 = Text_New(dd,tt,hh,"고 "+NewLine+NumToStr(hh,소숫점자리표시));
Tx2 = Text_New(dd,tt,ll,NumToStr(ll,소숫점자리표시)+NewLine+"저");
Tx3 = Text_New(dd,tt,(hh+ll)/2,"중심 "+NumToStr((hh+ll)/2,소숫점자리표시)+NewLine+"고저 "+NumToStr(hh-ll,소숫점자리표시));
Text_SetColor(Tx1,RED);
Text_SetColor(Tx2,BLUE);
Text_SetColor(Tx3,GREEN);
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,0);
Text_SetStyle(tx3,0,0);
}
Else
{
if h > hh Then
{
hh = h;
TL_SetBegin(tl1,dd,tt,hh);
TL_SetBegin(tl3,dd,tt,(hh+ll)/2);
}
if l < ll Then
{
ll = l;
TL_SetBegin(tl2,dd,tt,ll);
TL_SetBegin(tl3,dd,tt,(hh+ll)/2);
}
TL_SetEnd(TL1,sDate,sTime,hh);
TL_SetEnd(TL2,sDate,sTime,ll);
TL_SetEnd(TL3,sDate,sTime,(hh+ll)/2);
Text_SetString(Tx1,"고 "+NewLine+NumToStr(hh,소숫점자리표시));
Text_SetString(Tx2,NumToStr(ll,소숫점자리표시)+NewLine+"저 ");
Text_SetString(Tx3,"중심 "+NumToStr((hh+ll)/2,소숫점자리표시)+NewLine+"고저 "+NumToStr(hh-ll,소숫점자리표시));
Text_SetLocation(Tx1,sDate,sTime,hh);
Text_SetLocation(Tx2,sDate,sTime,ll);
Text_SetLocation(Tx3,sDate,sTime,(hh+ll)/2);
}
}
즐거운 하루되세요
> 이카도로 님이 쓴 글입니다.
> 제목 : 값단위별 표시
> 안녕하세요
아래에 분단위 지표수식에 단위표식을 할려고하니
저로서는 도저히 못하겠네요
각각고점저점에 색상도 표현 할수있는지요
첨부파일 같이 부탁드립니다
input : 분(30);
var : S1(0),D1(0),TM(0),TF(0),dd(0),tt(0);
var : hh(0),ll(0),TL1(0),TL2(0),TL3(0),TL31(0),TL32(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%분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or
(Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then
{
hh = h;
ll = l;
dd = sDate;
tt = sTime;
TL31 = TL3[1];
TL32 = TL31[1];
TL_SetExtRight(TL32,False);
TL1 = TL_New(dd,tt,hh,NextBarSdate,NextBarStime,hh);
TL2 = TL_New(dd,tt,ll,NextBarSdate,NextBarStime,ll);
TL3 = TL_New(dd,tt,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
TL_SetColor(TL1,RED);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,GREEN);
TL_SetExtRight(TL3,true);
}
Else
{
if h > hh Then
{
hh = h;
TL_SetBegin(tl1,dd,tt,hh);
TL_SetBegin(tl3,dd,tt,(hh+ll)/2);
}
if l < ll Then
{
ll = l;
TL_SetBegin(tl2,dd,tt,ll);
TL_SetBegin(tl3,dd,tt,(hh+ll)/2);
}
TL_SetEnd(TL1,sDate,sTime,hh);
TL_SetEnd(TL2,sDate,sTime,ll);
TL_SetEnd(TL3,sDate,sTime,(hh+ll)/2);
}
}
다음글
이전글