| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 334 人关注过本帖
标题:如何随机移动???
只看楼主 收藏
FunnyClown
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2017-12-14
结帖率:0
  已结贴   问题点数:20  回复次数:11   
如何随机移动???
附件: 您没有浏览附件的权限,请 登录注册
2017-12-14 15:03
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:45
帖 子:1161
专家分:2293
注 册:2007-4-27
  得分:5 
用随机数 rand()

只求每天有一丁点儿的进步就可以了
2017-12-14 15:56
FunnyClown
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2017-12-14
  得分:0 
回复 2楼 wengjl
我用了,只不过不能到达边距!
2017-12-15 06:58
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:123
帖 子:5213
专家分:21989
注 册:2014-5-20
  得分:5 
** test.prg
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 AS form
    ADD OBJECT shape1 AS shape WITH Top=10,Left=10,Height=70,Width=70,Curvature=99
    ADD OBJECT timer1 AS timer WITH Interval=500
    mTop = 0
    mLeft = 0
   
    PROCEDURE init
        this.mTop = this.Height - this.shape1.Height
        this.mLeft = this.Width - this.shape1.Width
    ENDPROC
   
    PROCEDURE timer1.Timer
        thisform.shape1.top = INT(thisform.mTop * RAND())
        thisform.shape1.left = INT(thisform.mLeft * RAND())
    ENDPROC
ENDDEFINE
2017-12-15 09:23
schtg
Rank: 5Rank: 5
等 级:职业侠客
威 望:9
帖 子:287
专家分:360
注 册:2012-2-29
  得分:5 
回复 3楼 FunnyClown
随机,有到边的可能性,那是随机的,要慢慢等待的哈。
2017-12-15 13:20
FunnyClown
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2017-12-14
  得分:0 
谢谢了
2017-12-15 18:12
FunnyClown
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2017-12-14
  得分:0 
谢谢了
2017-12-15 18:12
FunnyClown
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2017-12-14
  得分:0 
回复 4楼 吹水佬
附件: 您没有浏览附件的权限,请 登录注册
2017-12-15 18:19
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:123
帖 子:5213
专家分:21989
注 册:2014-5-20
  得分:0 
回复 8楼 FunnyClown
示例代码全部放到一个prg文件在VFP运行。
如果用表单设计器写,可以这样:
1、自定义新建表单属性:mTop,mLeft
2、在表单放一个shape控件,设置属性:Height=70,Width=70,Curvature=99
3、在表单放一个timer控件,设置属性Interval=500
4、表单init事件代码:
    this.mTop = this.Height - this.shape1.Height
    this.mLeft = this.Width - this.shape1.Width
5、表单Timer控件的Timer事件代码:
    thisform.shape1.top = INT(thisform.mTop * RAND())
    thisform.shape1.left = INT(thisform.mLeft * RAND())
2017-12-15 19:19
FunnyClown
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2017-12-14
  得分:0 
回复 9楼 吹水佬
知道了,谢谢
2017-12-15 19:22







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.121330 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved