一款可编程的工程计算软件
cqweb
cqweb Lv.2
2009年07月29日 22:15:53
只看楼主

该软件具有工程管理、保存计算结果、打印计算结果、导出word文档等功能,提供了编程示例代码,可轻松实现简单的公式计算或复杂的计算流程。软件内部提供了圆曲线、直线、缓和曲线等公路坐标计算,以及三点前交会、三点后交会等测量计算。截图下载 主页

该软件具有工程管理、保存计算结果、打印计算结果、导出word文档等功能,提供了编程示例代码,可轻松实现简单的公式计算或复杂的计算流程。软件内部提供了圆曲线、直线、缓和曲线等公路坐标计算,以及三点前交会、三点后交会等测量计算。

截图


下载 主页
免费打赏
lhb_jx
2009年07月30日 10:02:50
2楼
谢谢楼主诚心的奉献!
回复
young_yang2000
2009年07月30日 17:52:07
3楼
谢谢楼主诚心的奉献!
回复
cqweb
2009年07月30日 19:26:27
4楼
该软件不仅可对公式及计算流程编程,还可轻松实现输入输出窗口界面的编程。例如:

LTEXT "参数",IDC_STATIC,6,6,46,8;
EDITTEXT LINK_g_x,80,6,70,12;

创建一个带标签的参数输入框
-----------------------------------------------------------------------------------------------------
main_report.AddColumn("参数",100);
main_report.AddColumn("结果",100);

创建两个宽度为100点的结果输出列
回复
cqweb
2009年07月30日 19:39:09
5楼
编程语言类似 C、C++、Java 等通用编程语法,对于工程计算来说,编程就像抄写公式一样简单,只需把资料、书籍上的计算公式翻译为编程语言即可,其它功能由软件平台提供,比如结果打印、结果导出为word文档等,不需编写任何代码。
回复
cqweb
2009年07月30日 22:19:39
6楼
这时一款绿色软件,免安装,解压后即可运行。免费下载。
回复
cqweb
2009年08月01日 09:51:02
7楼
#define MODULE_NAME "dbxmjjs"
#pragma module_name "多边形面积计算"
#pragma module_class "@road_func"

double g_x,g_y,g_s;
int pane_type=param_seg
{
DIALOG 0, 0, 166, 100;
FONT 10, "System";

LTEXT "x坐标",IDC_STATIC,6,6,46,8; EDITTEXT LINK_g_x,80,6,70,12;
LTEXT "y坐标",IDC_STATIC,6,20,46,8; EDITTEXT LINK_g_y,80,20,70,12;
LTEXT "面积",IDC_STATIC,6,34,46,8; EDITTEXT LINK_g_s,80,34,70,12,ES_READONLY;
PUSHBUTTON "增加顶点",LINK_add_pt,100,63,50,14;
PUSHBUTTON "计算",LINK_calc,100,80,50,14;
};

int add_pt()
{
main_param_pane.UpdateData(1);
main_report.AddRow(-1,StrFormat("%.3f",g_x),StrFormat("%.3f",g_y));
g_x=0;
g_y=0;
main_param_pane.UpdateData(0);
}

int calc()
{
int ct=main_report.GetRowCount();
ct-=1;
if(ct<3)
{
MsgBox("顶点数不足");
return;
}
int c=0;
g_s=0;
int x1,y1,x2,y2,ni;
for(c=0;c {
x1=main_report.GetCellText(c,0);
y1=main_report.GetCellText(c,1);
ni=c+1;
if(c==ct-1)
{
ni=1;
}
x2=main_report.GetCellText(ni,0);
y2=main_report.GetCellText(ni,1);

g_s=g_s+x1*y2-x2*y1;
}
g_s=g_s/2;
if(g_s<0)
{
g_s*=-1;
}
main_param_pane.UpdateData(0);
}

export int build_pane(int type)
{
SetStateModule();
main_param_pane.SetTypeFmt(1,"%.3f");
info_browser.BrowserCmd("clear history");
info_browser.Navigate(url:"html\\test.html");
right_pane.SetUIAttrs("show_border:0");
mainWnd.SetCellWindow(0,1,road_coordinate_pane);
main_param_pane.CreateParamItems(pane_type);

ExecModuleCode(1,"Set_Width");
main_report.DeleteAllColumns();
main_report.AddColumn("x坐标",100);
main_report.AddColumn("y坐标",100);

SetStateModule(0);
update_button_state();
}

export int update_button_state(string seg_name)
{
}

export int load()
{
}

export int save()
{
}

export int onexit()
{
}
回复
cqweb
2009年08月01日 09:56:48
8楼
因为拷贝格式变化,上面的代码超过了试用版文件长度限制,再贴上适合试用版代码。使用方法:将以下源代码拷贝到试用版本的 test.ec 文件中(注册用户可拷贝到任何文件中),替换原文件内容,重启程序即可。在参数输入面板中,依次输入各个顶点坐标,点击“增加顶点”在输出列表中增加该顶点的坐标行,如果输入有误可在列表中双击错误的数字进行修改。注意,将每个顶点输入完成后,需要在最后增加输入第一点坐标以形成闭合多边形。

#define MODULE_NAME "dbxmjjs"
#pragma module_name "多边形面积计算"
#pragma module_class "@road_func"

double g_x,g_y,g_s;
int pane_type=param_seg
{
DIALOG 0, 0, 166, 100;
FONT 10, "System";

LTEXT "x坐标",IDC_STATIC,6,6,46,8; EDITTEXT LINK_g_x,80,6,70,12;
LTEXT "y坐标",IDC_STATIC,6,20,46,8; EDITTEXT LINK_g_y,80,20,70,12;
LTEXT "面积",IDC_STATIC,6,34,46,8; EDITTEXT LINK_g_s,80,34,70,12,ES_READONLY;
PUSHBUTTON "增加顶点",LINK_add_pt,100,63,50,14;
PUSHBUTTON "计算",LINK_calc,100,80,50,14;
};

int add_pt()
{
main_param_pane.UpdateData(1);
main_report.AddRow(-1,StrFormat("%.3f",g_x),StrFormat("%.3f",g_y));
g_x=0;
g_y=0;
main_param_pane.UpdateData(0);
}

int calc()
{
int ct=main_report.GetRowCount();
ct-=1;
if(ct<3)
{
MsgBox("顶点数不足");
return;
}
int c=0;
g_s=0;
int x1,y1,x2,y2,ni;
for(c=0;c {
x1=main_report.GetCellText(c,0);
y1=main_report.GetCellText(c,1);
ni=c+1;
if(c==ct-1)
{
ni=1;
}
x2=main_report.GetCellText(ni,0);
y2=main_report.GetCellText(ni,1);

g_s=g_s+x1*y2-x2*y1;
}
g_s=g_s/2;
if(g_s<0)
{
g_s*=-1;
}
main_param_pane.UpdateData(0);
}

export int build_pane(int type)
{
SetStateModule();
main_param_pane.SetTypeFmt(1,"%.3f");
info_browser.BrowserCmd("clear history");
info_browser.Navigate(url:"html\\test.html");
right_pane.SetUIAttrs("show_border:0");
mainWnd.SetCellWindow(0,1,road_coordinate_pane);
main_param_pane.CreateParamItems(pane_type);

ExecModuleCode(1,"Set_Width");
main_report.DeleteAllColumns();
main_report.AddColumn("x坐标",100);
main_report.AddColumn("y坐标",100);

SetStateModule(0);
update_button_state();
}

export int update_button_state(string seg_name)
{
}

export int load()
{
}

export int save()
{
}

export int onexit()
{
}
回复
cqweb
2009年08月02日 16:24:19
9楼
呵呵,本软件下载不需花币。
回复
cqweb
2009年08月04日 20:34:27
10楼
感谢楼上朋友关注,软件内部提供的功能除缓和曲线计算外都是免费不限时的,另有1800字符的免费可编程空间,对一些工程小计算来说也应该够了,比如软件网站上发布的《多边形面积计算》,可计算任意点数的多边形面积,也在免费空间之内;而且,因为编程内容可随时修改,所以支持编程计算的数量应该是没有限制的。
回复
wangjie9802
2009年08月05日 20:02:39
11楼
可以计算方格网的标高吗?还有方格网的土方工程量!:hug:
回复

相关推荐

APP内打开