易语言做的板金展开计算器

watking · 发表于 2013-8-28 14:17:25

功能很简单：计算板金展开的长度

[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]