
在HDevelop中
count_seconds (Seconds)
*统计程序运行时间
*参数:自电脑启动以来的时间--单位:秒
Row:=[258.0, 195.065, 195.07, 308.931, 309.304, 258.0]
Col:=[180.455, 179.934, 58.0723, 58.0685, 179.1, 180.455]
gen_region_polygon (Region, Row, Col)
*创建多边形区域
wait_seconds (1)
*等待1秒
dev_open_window(10,10,500, 500,'black',WindowHandle3)
dev_display(Region)
count_seconds (Seconds1)
t:=Seconds1-Seconds
在QtCreator中
HObject ho_Region;
HTuple hv_Seconds, hv_Row, hv_Col, hv_WindowHandle3;
HTuple hv_Seconds1, hv_t;
CountSeconds(&hv_Seconds);
//统计程序运行时间
//参数:自电脑启动以来的时间--单位:秒
hv_Row.Clear();
hv_Row[0] = 258.0;
hv_Row[1] = 195.065;
hv_Row[2] = 195.07;
hv_Row[3] = 308.931;
hv_Row[4] = 309.304;
hv_Row[5] = 258.0;
hv_Col.Clear();
hv_Col[0] = 180.455;
hv_Col[1] = 179.934;
hv_Col[2] = 58.0723;
hv_Col[3] = 58.0685;
hv_Col[4] = 179.1;
hv_Col[5] = 180.455;
GenRegionPolygon(&ho_Region, hv_Row, hv_Col);
//创建多边形区域
WaitSeconds(1);
//等待1秒
SetWindowAttr("background_color","black");
OpenWindow(10,10,500,500,0,"visible","",&hv_WindowHandle3);
HDevWindowStack::Push(hv_WindowHandle3);
if (HDevWindowStack::IsOpen())
DispObj(ho_Region, HDevWindowStack::GetActive());
CountSeconds(&hv_Seconds1);
hv_t = hv_Seconds1-hv_Seconds;
