vb 反弹球小程序

277关注590浏览

有这样一个问题,设计一个反弹球程序:在窗体中添加一个图片框控件,在图片框中引入一个形状控件,填充为圆形红色,定时器的时间间隔为0.1秒,启动后圆球运动,圆球碰壁后改变方向。每个时间间隔水平方向改变量和垂直方向改变量为100twips。我做了没有成功,现请各位大侠赐教!谢谢!

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 薛嘉言

    12人对此回答表示赞同

    反射定律,你可以用VB内置的三角函数,然后计算球所在的点的坐标,按照反射定律去算就可以了
    展开
    12
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 喜怒无常

    12人对此回答表示赞同

    题目没有看清··我做的是个以窗体为背景的反弹球,你只要拿去改一下就好了··呵呵··蛮有意思的···
    Option Explicit
    Dim flag As Boolean, vx As Single, vy As Single
    Private Sub Form_Click()
    If flag = False Then
    Randomize
    vx = Rnd * (-1) ^ Int(Rnd * 2)
    Rand
    展开
    12
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Sally1

    2人对此回答表示赞同

    设两个 方向变量 fx , fy 两个速度变量 sx,sy
    fx 和 fy 初始值为 1 当圆球碰壁后,将 fx 或 fy 乘 -1
    然后 圆球的坐标=圆球的坐标+(速度*方向)
    展开
    2
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部