中科因仑“3+1”工程特种兵精英论坛

标题: LC谐振计算程序 [打印本页]

作者: 痛苦的滋味 时间: 2016-5-19 21:58
标题: LC谐振计算程序
我在研究超声波电源，谐振频率和电感量常需要计算，咬笔头浪费时间，网上只找到“任敬军”同学于2000年做的一个软件，他的软件计算精确度不够高，部分网友也许都用过。昨晚写这个程序为了自己方便使用，既然做了就贡献给大家吧，对该软件有什么好建议可在我QQ留言。

软件界面：

(原文件名:软件界面.jpg)

点击此处下载 ourdev_631290VMMOJJ.rar(文件大小:287K) (原文件名

C谐振计算程序.rar)

37家杀毒软件，其中6家误报为病毒，360安全卫士居然也误报，国外杀毒咱们管不着，但360安全卫士居然也误报，都是中国人，何必自残呢。。。
详细检测结果：http://www.virscan.org/report/ac ... 4da264956d1048.html

主界面的源代码：

.版本 2
.支持库 xplib

.程序集窗口程序集1

.子程序 _按钮3_被单击

.如果 (编辑框1.内容 ≠ “”)
.如果 (编辑框2.内容 ≠ “”)
      编辑框3.内容＝到文本 (1 ÷ (2 × #pi × 求平方根 (到数值 (编辑框1.内容) ÷ 1000 × 到数值 (编辑框2.内容) ÷ 1000000)))
.否则
      信息框 (“请输入谐振电容的容量，单位为：微法”, 0, )
.如果结束

.否则
信息框 (“请输入谐振电感量，单位为：毫亨”, 0, )
.如果结束

.子程序 __启动窗口_创建完毕

XP风格 (#蓝色风格)

.子程序 _按钮1_被单击

.如果 (编辑框2.内容 ≠ “”)
.如果 (编辑框3.内容 ≠ “”)
      编辑框1.内容＝到文本 (1 ÷ (2 × 2 × #pi × #pi × 到数值 (编辑框3.内容) ÷ 1000 × 到数值 (编辑框3.内容) ÷ 1000 × 到数值 (编辑框2.内容) ÷ 1000000) ÷ 1000)
.否则
      信息框 (“请输入谐振频率，单位为：赫兹”, 0, )
.如果结束

.否则
信息框 (“请输入谐振电容的容量，单位为：微法”, 0, )
.如果结束

.子程序 _按钮2_被单击

.如果 (编辑框1.内容 ≠ “”)
.如果 (编辑框3.内容 ≠ “”)
      编辑框2.内容＝到文本 (1 ÷ (2 × 2 × #pi × #pi × 到数值 (编辑框3.内容) ÷ 1000 × 到数值 (编辑框3.内容) ÷ 1000 × 到数值 (编辑框1.内容) ÷ 1000000) ÷ 1000)
.否则
      信息框 (“请输入谐振频率，单位为：赫兹”, 0, )
.如果结束

.否则
信息框 (“请输入谐振电感量，单位为：毫亨”, 0, )
.如果结束

.子程序 _按钮4_被单击

载入 (窗口1, , 真)

.子程序 _按钮5_被单击

连续赋值 (“”, 编辑框3.内容, 编辑框2.内容, 编辑框1.内容)

.子程序 _按钮6_被单击

载入 (窗口2, , 真)

欢迎光临中科因仑“3+1”工程特种兵精英论坛 (http://bbs.enlern.com/)