커뮤니티
수정부탁
2024-10-31 13:09:42
798
글번호 184839
사각박스에 사각선을 나타나게 부탁드립니다(두게조절가능필)
var :hPeodd1(10),h두께(1);
Var:상승색h(Red), 하락색h(Blue),상h색상두께(20),하h색상두께(20),h긁씨크기(35),nh긁씨크기(12),원크기11(30);
Var:JWh(0),JWhT(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),hfTL5사각(0),hText1사각(0),hText11사각(0),hTL55사각(0),hText111사각(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),Lh저val[20](0),h고Bar[20](0),Lh저Bar[20](0);
Array:hdr[7](0),hdfr[7](0);
var : hdbox(0),hdbox1(0);
For JWh = 0 To 19
{
h고Bar[JWh] = h고Bar[JWh] + 1;
Lh저Bar[JWh] = Lh저Bar[JWh] + 1;
}
if crossup(c,highest(H,hPeodd1)[1]) Then
JWhT = 1;
if CrossDown(c,Lowest(L,hPeodd1)[1]) Then
JWhT = -1;
If JWhT == -1 Then
{
If JWhT[1] != -1 Then
{
For JWh = 18 DownTo 0
{
Lh저val[JWh+1] = Lh저val[JWh];
Lh저Bar[JWh+1] = Lh저Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JWh = 0 to 6
{
hdfr[JWh] = Lh저val[1] + ((h고Val[0] - Lh저val[1]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,하락색h);
Box_SetFill(hdbox,true,하h색상두께);
}
If Lh저val[0] > L Then
{
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고22 = Date[0];
h시간22 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
If JWhT == 1 Then
{
If JWhT[1] != 1 Then
{
For JWh = 18 DownTo 0
{
h고Val[JWh+1] = h고Val[JWh];
h고Bar[JWh+1] = h고Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[Lh저Bar[0]];
h시간11 = stime[Lh저Bar[0]];
hVlue11 = Lh저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[Lh저Bar[0]];
h시간31 = stime[Lh저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JWh = 0 to 5
{
hdfr[JWh] = Lh저val[0] + ((h고Val[1] - Lh저val[0]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,상승색h);
Box_SetFill(hdbox,true,상h색상두께);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
답변 1
예스스탁 예스스탁 답변
2024-10-31 15:29:36
안녕하세요
예스스탁입니다.
박스는 채우기를 하면 위부 테두리가 표시되지 않습니다.
테두리를 보고자 하시면 채우기 하지 않은 박스를 추가로 그려서 보셔야 합니다.
var :hPeodd1(10),h두께(1);
Var:상승색h(Red), 하락색h(Blue),상h색상두께(20),하h색상두께(20),h긁씨크기(35),nh긁씨크기(12),원크기11(30),사각박스굵기(2);
Var:JWh(0),JWhT(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),hfTL5사각(0),hText1사각(0),hText11사각(0),hTL55사각(0),hText111사각(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),Lh저val[20](0),h고Bar[20](0),Lh저Bar[20](0);
Array:hdr[7](0),hdfr[7](0);
var : hdbox(0),hdbox1(0);
For JWh = 0 To 19
{
h고Bar[JWh] = h고Bar[JWh] + 1;
Lh저Bar[JWh] = Lh저Bar[JWh] + 1;
}
if crossup(c,highest(H,hPeodd1)[1]) Then
JWhT = 1;
if CrossDown(c,Lowest(L,hPeodd1)[1]) Then
JWhT = -1;
If JWhT == -1 Then
{
If JWhT[1] != -1 Then
{
For JWh = 18 DownTo 0
{
Lh저val[JWh+1] = Lh저val[JWh];
Lh저Bar[JWh+1] = Lh저Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JWh = 0 to 6
{
hdfr[JWh] = Lh저val[1] + ((h고Val[0] - Lh저val[1]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
Box_SetEnd(hdbox1,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,하락색h);
Box_SetFill(hdbox,true,하h색상두께);
hdbox1 = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox1,하락색h);
Box_SetSize(hdbox1,사각박스굵기);
}
If Lh저val[0] > L Then
{
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고22 = Date[0];
h시간22 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
Box_SetEnd(hdbox1,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
If JWhT == 1 Then
{
If JWhT[1] != 1 Then
{
For JWh = 18 DownTo 0
{
h고Val[JWh+1] = h고Val[JWh];
h고Bar[JWh+1] = h고Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[Lh저Bar[0]];
h시간11 = stime[Lh저Bar[0]];
hVlue11 = Lh저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[Lh저Bar[0]];
h시간31 = stime[Lh저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JWh = 0 to 5
{
hdfr[JWh] = Lh저val[0] + ((h고Val[1] - Lh저val[0]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
Box_SetEnd(hdbox1,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,상승색h);
Box_SetFill(hdbox,true,상h색상두께);
hdbox1 = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox1,상승색h);
Box_SetSize(hdbox1,사각박스굵기);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
Box_SetEnd(hdbox1,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
즐거운 하루되세요
> 외국인 님이 쓴 글입니다.
> 제목 : 수정부탁
> 사각박스에 사각선을 나타나게 부탁드립니다(두게조절가능필)
var :hPeodd1(10),h두께(1);
Var:상승색h(Red), 하락색h(Blue),상h색상두께(20),하h색상두께(20),h긁씨크기(35),nh긁씨크기(12),원크기11(30);
Var:JWh(0),JWhT(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),hfTL5사각(0),hText1사각(0),hText11사각(0),hTL55사각(0),hText111사각(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),Lh저val[20](0),h고Bar[20](0),Lh저Bar[20](0);
Array:hdr[7](0),hdfr[7](0);
var : hdbox(0),hdbox1(0);
For JWh = 0 To 19
{
h고Bar[JWh] = h고Bar[JWh] + 1;
Lh저Bar[JWh] = Lh저Bar[JWh] + 1;
}
if crossup(c,highest(H,hPeodd1)[1]) Then
JWhT = 1;
if CrossDown(c,Lowest(L,hPeodd1)[1]) Then
JWhT = -1;
If JWhT == -1 Then
{
If JWhT[1] != -1 Then
{
For JWh = 18 DownTo 0
{
Lh저val[JWh+1] = Lh저val[JWh];
Lh저Bar[JWh+1] = Lh저Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JWh = 0 to 6
{
hdfr[JWh] = Lh저val[1] + ((h고Val[0] - Lh저val[1]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,하락색h);
Box_SetFill(hdbox,true,하h색상두께);
}
If Lh저val[0] > L Then
{
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고22 = Date[0];
h시간22 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
If JWhT == 1 Then
{
If JWhT[1] != 1 Then
{
For JWh = 18 DownTo 0
{
h고Val[JWh+1] = h고Val[JWh];
h고Bar[JWh+1] = h고Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[Lh저Bar[0]];
h시간11 = stime[Lh저Bar[0]];
hVlue11 = Lh저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[Lh저Bar[0]];
h시간31 = stime[Lh저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JWh = 0 to 5
{
hdfr[JWh] = Lh저val[0] + ((h고Val[1] - Lh저val[0]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,상승색h);
Box_SetFill(hdbox,true,상h색상두께);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}