|
主题: 进度条行为的Lingo问题
|
 柱子
职务:普通成员
等级:1
金币:0.0
发贴:5
|
#12002/5/16 12:09:55
on isPrime n repeat with i=1 to 1000 div=float(n)/float(i) if div=integer(div) then return FALSE end repeat return TRUE end on isPrime函数用2和该数值的平方根间的每一个数值进行尝试,以察看是否有整除的情况。 它将除后的数值与该数值转换成整数后的结果相比较,以查看是否有余数存在。 问题 1(我不知道on isPrime函数这样做有何意义?) 问题 2 on isPrime n中的n为何不是me那? on findPrimeNumebers list=[] repeat with i= 1 to 1000 sendSprie(sprite 2,#setProgress,i,1000) upDateStage if isPrime(i) then add list,i end repeat return list end 问题 3 #setProgress,i,1000 的意义我清楚, 是不是发送给sprite 2 的setProgress me,currentVal,HighestVal的。 currentVal=i HighestVAl=1000 相关文件: 点这儿打开
|
 D计划-混沌
职务:管理员
等级:6
金币:15.2
发贴:3528
|
#22002/5/16 14:45:50
2.me一般返回是当前目标的内存地址的调用,而n是形参是处理程序的变量,me是不可以设定的,n是可以设定的 1.看不出什么意思,而且好像不大正确,整个程序看看
|
 柱子
职务:普通成员
等级:1
金币:0.0
发贴:5
|
#32002/5/16 21:27:39
我顶
那位高手能不能,看看我的进度条行为,在回答一下 呵呵 谢谢了
|
 threem
职务:普通成员
等级:2
金币:1.0
发贴:338
|
#42002/5/17 0:44:46
好厉害的方程。
findPrimeNumebers n 返回的是参数n以内的所有质数。 但是这个好象和行为没有关系。
是你自己写的?
这个isPrime n 判断n是否是质数。
编辑历史:[这消息被threem编辑过(编辑时间2002-05-17 00:45:59)] [这消息被threem编辑过(编辑时间2002-05-17 00:50:28)]
|
 柱子
职务:普通成员
等级:1
金币:0.0
发贴:5
|
#52002/5/17 7:55:16
谢谢,楼上(不是我写的,我在学习这个进度条。对了奥古怎么了?)
能不能帮我改一下,呵呵
|
 D计划-混沌
职务:管理员
等级:6
金币:15.2
发贴:3528
|
#62002/5/17 10:01:41
果然是求质数的,zip中的写法就没问题了,其实mod一下就可以了,省得浮点运算,1中如果写repeat with i=2 to n -1也不能算错误,1-1000就不行了,这个算法到可以不管,关键是他和进度条会有什么内在联系,着实值得推敲一番,还是看看整个程序先。 (拜托以后贴出来程序和源文件不一样,先说一声,呵呵,很丢人的,好像被摆了一道)
|
 threem
职务:普通成员
等级:2
金币:1.0
发贴:338
|
#72002/5/17 12:00:39
柱子在上个帖子中说 引用: 谢谢,楼上(不是我写的,我在学习这个进度条。对了奥古怎么了?)
能不能帮我改一下,呵呵
你还是提供一个完整的文件吧!上面这个根本没有效果。
|
 柱子
职务:普通成员
等级:1
金币:0.0
发贴:5
|
#82002/5/17 17:21:42
先谢过 54zq 和 threem了 :~)
54zq 引用 (拜托以后贴出来程序和源文件不一样,先说一声,呵呵,很丢人的,好像被摆了一道)
答:1 呵呵,源程序河源文件一样呀,我是从那里复制来的,呵呵。 如果真的是那样,我向你道歉 :) 2 进度条和内在的联系,我也在想,可能只是为了拖延时间吧(别笑我) threem引用 你还是提供一个完整的文件吧!上面这个根本没有效果
答:对呀,我在书上看的这个行为,呵呵,研究了半天,没做出来,还请你执教呀!
|
 满眼金星
职务:普通成员
等级:2
金币:1.0
发贴:441
|
#92002/5/19 0:15:57
哪本书呀???
编辑历史:[这消息被满眼金星编辑过(编辑时间2002-05-19 00:18:56)]
|
 柱子
职务:普通成员
等级:1
金币:0.0
发贴:5
|
#102002/5/19 11:27:18
D7 开发使用手册
|
 满眼金星
职务:普通成员
等级:2
金币:1.0
发贴:441
|
#112002/5/20 12:47:22
on findPrimeNumebers ...... repeat with i= 1 to 1000 sendSprie(sprite 2,#setProgress,i,1000) -- ..... end 应该是sendsprite(sprite 2,#setprogress,n,1000) 要有事件激活isPrime
|