主题:  进度条行为的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