|
我在研究超声波电源,谐振频率和电感量常需要计算,咬笔头浪费时间,网上只找到“任敬军”同学于2000年做的一个软件,他的软件计算精确度不够高,部分网友也许都用过。昨晚写这个程序为了自己方便使用,既然做了就贡献给大家吧,对该软件有什么好建议可在我QQ留言。
软件界面:![](http://cache.amobbs.com/bbs_upload782111/files_38/ourdev_631291WYAHY5.jpg)
(原文件名:软件界面.jpg)
点击此处下载 ourdev_631290VMMOJJ.rar(文件大小:287K) (原文件名:LC谐振计算程序.rar)
37家杀毒软件,其中6家误报为病毒,360安全卫士居然也误报,国外杀毒咱们管不着,但360安全卫士居然也误报,都是中国人,何必自残呢。。。
详细检测结果:http://www.virscan.org/report/acb0aa064b5b9fbf9e4da264956d1048.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, , 真) |
阿莫论坛20周年了!感谢大家的支持与爱护!!
曾经有一段真挚的爱情摆在我的面前,我没有珍惜,现在想起来,还好我没有珍惜……
|