一个好用的程序请高手解密(酬谢)

黄生健

一个好用的程序请高手解密(酬谢)  Email:hsj1979723@163.com

duanjunqi

dialog{
label="**计算抽芽高度(含料厚)**";
spacer;
:boxed_row{
:column{
label="INDICATED MESSAGE";
spacer;
:text{
label="根据所输入料厚,抽芽内外径,";
}
:text{
label="预冲孔直径计算出抽芽高度:";
}
:text{
label="此程式按体积不变原理计算!";
}
}
:image_button{
key="image";
width=25;
aspect_ratio=0.8;
color=-2;
}
}
:edit_box{
label=" ( 材 料 厚 度)     T=";
key="t";
fixed_width=true;
value="1.0";
edit_width=5;
}
:edit_box{
label="(  抽 芽 内 径)  D1=";
key="d1";
fixed_width=true;
value="3.1";
edit_width=5;
}
:edit_box{
label="( 抽 芽 外 径)   D2=";
key="d2";
fixed_width=true;
value="4.4";
edit_width=5;
}
:edit_box{
label="( 预 孔 直 径)     D=";
key="d";
fixed_width=true;
value="1.5";
edit_width=5;
}
:edit_box{
label="(抽芽高度含1T)H=";
key="h";
fixed_width=true;
edit_width=5;
}: row{: button{
label="D to H";
key="b1";
witdth=8;}
: button{
label="H to D";
key="b2";
withdth=8;}
: button{
label="exit";
key="cancel";
is_cancel=true;
}
}
}     VRTLIB-1