LC谐振计算程序--易语言写的,提供源代码,多家杀毒软件误报病毒

mobing80 · 发表于 2011-4-16 09:37:52

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

软件界面：

(原文件名:软件界面.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, , 真)

kupica · 发表于 2011-4-16 09:57:05

这语言不错，有特色。

renpeng009 · 发表于 2011-4-16 10:10:28

换成VB试试
鉴于360的恶心程度，凡是我看到有人使用360，我都建议卸载。

mobing80 · 发表于 2011-4-16 10:28:52

论坛怎么下载不了??重传一次好了
点击此处下载 ourdev_631319R8KGPA.rar(文件大小:287K) (原文件名:LC谐振计算程序.rar)

VB玩的不熟悉啊,中国人嘛,支持一下中文编程,语言是国家的灵魂

renpeng009 · 发表于 2011-4-16 10:33:13

下载不了不是你的错。第一次用易语言的时候我就想，这不就是"中文版"的VB么

ssaweee · 发表于 2011-4-16 10:37:00

回复【3楼】mobing80 莫兵
-----------------------------------------------------------------------

你难道不觉得不等号这些写着不方便？不觉得易。
非英语国家开发的语言都是在理念上下功夫，只有中国出个语言直接吧符号改了。

JAVA中也可以用中文写函数名样。
很多病毒就是易语言写的。

cc1989summer · 发表于 2011-4-16 10:42:02

回复【2楼】renpeng009 大鹏集成
-----------------------------------------------------------------------
有没有替别人想过
没有360 ，多少电脑悲剧尤其是小白

renpeng009 · 发表于 2011-4-16 10:47:33

回复【6楼】cc1989summer 超哥
-----------------------------------------------------------------------

免费的杀毒软件那么多，为什么抱住360不放？

mobing80 · 发表于 2011-4-16 11:08:49

回复【5楼】ssaweee
-----------------------------------------------------------------------

我觉得易语言的流程图做的不错嘛,别的语言就没有这么形象的箭头.不等号是！=，多按两个键也没什么难的。我还没发现什么语言不需要组合键的，难道要把Shift键取消了才易？？？

不管是仿的还是抄的，只要进行了改进，或多或少都有一部分是自己的。什么技术学识都不可能从源头而论。例如你现在所懂的就是你的学识，总不能归功于你的小学老师、文字创造者、乃至5000年文明吧！

zhanghaodianzi · 发表于 2011-4-16 11:23:08

这语言有意思啊，看来汉语编程还是有可行性的。

skynet · 发表于 2011-4-16 11:46:04

无法下载,因为服务器挂了没修好

guowei681 · 发表于 2011-4-16 15:07:45

标记上，服务器问题，下不了

st8051 · 发表于 2011-4-16 17:07:49

易语言编写的程序会被很多杀毒软件给报毒的，搞的我们的程序都是给客户装NOD32才没问题~~

hongguan · 发表于 2013-4-7 16:36:00

用哪种语言没关系的,关键是自己喜欢就行,好用就行.

maxking · 发表于 2013-4-7 16:52:52

很好用。谢谢！！！

WUWEWU · 发表于 2013-4-7 20:19:58

支持下！易语言写的程序

younge · 发表于 2013-4-7 21:13:40

renpeng009 发表于 2011-4-16 10:10
换成VB试试
鉴于360的恶心程度，凡是我看到有人使用360，我都建议卸载。

我给同事折腾电脑手机，第一件事就是处理360

jthykj · 发表于 2013-6-17 10:41:06

用哪种语言没关系的,关键是自己喜欢就行,好用就行.

我也是这种思想，顶！！！

sqmm · 发表于 2013-6-17 14:21:39

这么简单的功能,用啥易语言啊.
还报毒,多麻烦啊

LC谐振计算程序--易语言写的,提供源代码,多家杀毒软件误报病毒

阿莫论坛20周年了！感谢大家的支持与爱护！！