精易论坛

标题: 易语言做的板金展开计算器 [打印本页]

作者: watking 时间: 2013-8-28 14:17
标题: 易语言做的板金展开计算器
功能很简单：计算板金展开的长度

[e]
.版本 2.支持库 spec.程序集窗口程序集1.子程序 _BJ_A_内容被改变.局部变量 BJ, 编辑框.局部变量 R, 小数型.局部变量 T, 小数型.局部变量 K, 小数型.局部变量 V, 小数型BJ ＝取事件组件 ().判断开始 (BJ.标记＝ “A”) BJA1.内容＝ BJ.内容.判断 (BJ.标记＝ “B”) BJA2.内容＝ BJ.内容.判断 (BJ.标记＝ “R”) BJR2.内容＝ BJ.内容.判断 (BJ.标记＝ “T”) BJT2.内容＝ BJ.内容.判断 (BJ.标记＝ “V”) BJV2.内容＝ BJ.内容.默认.判断结束.如果真 (BJA1.内容 ≠ “” 且 BJA2.内容 ≠ “” 且 BJT2.内容 ≠ “” 且 BJR2.内容 ≠ “” 且 BJV2.内容 ≠ “”) R ＝到数值 (BJR2.内容) T ＝到数值 (BJT2.内容) V ＝到数值 (BJV2.内容) .判断开始 (R ≥ 5 × T) K ＝ T ÷ 2 .判断 (R ≥ T 或 R ＜ 5 × T) K ＝ T ÷ 3 .判断 (R ＞ 0 且 R ＜ 1) K ＝ T ÷ 4 .默认 .判断结束 BJ_K.内容＝到文本 (K).如果真结束.子程序 __启动窗口_创建完毕事件转移 (BJ_B, BJ_A)事件转移 (BJ_R, BJ_A)事件转移 (BJ_T, BJ_A)事件转移 (BJ_V, BJ_A)' TAN((180-D4)*PI()/360)调试输出 (求正切 (80 × #pi ÷ 180)).子程序 _时钟1_周期事件.局部变量 R, 小数型.局部变量 T, 小数型.局部变量 K, 小数型.局部变量 V, 小数型.局部变量 A, 小数型.局部变量 B, 小数型.局部变量 ZX, 小数型.局部变量 BQ, 小数型.如果真 (BJA1.内容 ≠ “” 且 BJA2.内容 ≠ “” 且 BJT2.内容 ≠ “” 且 BJR2.内容 ≠ “” 且 BJV2.内容 ≠ “” 且 BJ_K.内容 ≠ “”) R ＝到数值 (BJR2.内容) T ＝到数值 (BJT2.内容) V ＝到数值 (BJV2.内容) K ＝到数值 (BJ_K.内容) A ＝到数值 (BJA1.内容) B ＝到数值 (BJA2.内容) ' ABS((D3+D5)*TAN((180-D4)*PI()/360)) BQ ＝四舍五入 (取绝对值 ((R ＋ T) × 求正切 ((180 － V) × #pi ÷ 360)), 3) BJ_对边长.内容＝到文本 (BQ) ' ABS((180-D4)*PI()*(D3+D8)/180) ' (180-D4)*PI()*(D3+D8)/180 ZX ＝四舍五入 (取绝对值 ((180 － V) × #pi × (R ＋ K) ÷ 180), 3) BJ_中性层弧长.内容＝到文本 (ZX) ' ABS(D6+D7+D11-2*D10) BJ_展开长.内容＝到文本 (四舍五入 (取绝对值 (A ＋ B ＋ ZX － 2 × BQ), 3)).如果真结束
[/e]

板金展开计算器.rar

38.84 KB, 下载次数: 11, 下载积分: 精币 -2 枚

程序源码

作者: 你还能爱谁 时间: 2013-8-28 14:24

好迷糊

作者: 月光族 时间: 2013-8-28 15:34
不知道有什么用

作者: 提拉米苏god 时间: 2013-8-28 16:09
折弯机

作者: Jimrc 时间: 2013-8-28 16:17
酱油族~飘过！

作者: mo2000 时间: 2013-8-28 17:02
这个跨界太大了吧

作者: 生活要继续1989 时间: 2013-8-29 15:36
专业人才需要，

作者: 宇智波·佐助 时间: 2013-9-5 22:34
好强大的数学方程式

欢迎光临精易论坛 (https://125.confly.eu.org/)