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, , 真)