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

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

我在研究超声波电源,谐振频率和电感量常需要计算,咬笔头浪费时间,网上只找到“任敬军”同学于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, , 真)

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 static/image/common/back.gif
换成VB试试
鉴于360的恶心程度,凡是我看到有人使用360,我都建议卸载。

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

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

用哪种语言没关系的,关键是自己喜欢就行,好用就行.
我也是这种思想,顶!!!

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

这么简单的功能,用啥易语言啊.
还报毒,多麻烦啊
页: [1]
查看完整版本: LC谐振计算程序--易语言写的,提供源代码,多家杀毒软件误报病毒