VisualFreeBasic游戏趣味编程_3.5_随机方块的速度和高度

为了增加游戏的趣味性，可以添加一定的随机性。首先输入并运行代码

Sub 游戏执行过程(hWndForm As hWnd)
   Print Rnd 
   Print Rnd 
   Print Rnd 
End Sub

rnd()函数可以生成随机数，程序运行后输出一些随机数：

为了得到设定范围内的随机数（比如：0~100），我们需要乘法。输入并运行代码

Sub 游戏执行过程(hWndForm As hWnd)
   Print Rnd *100
   Print Rnd *100
   Print Rnd *100
End Sub

程序运行后输出（是 0 和 100之间，但不包括 0 和 100）

最后会发现，随机数，运行一次软件，第一个，第二个 数 都是一样的，为了每次都不一样，需要初始化 Randomize

Sub 游戏执行过程(hWndForm As hWnd)
   Randomize 
   Print Rnd * 100
   Randomize 
   Print Rnd * 100
   Randomize 
   Print Rnd *100
End Sub

现在每次都不一样了。

如果不需要小数，需要整数，就增加转换函数：Int

Sub 游戏执行过程(hWndForm As hWnd)
   Randomize 
   Print Int(Rnd * 100)
   Randomize 
   Print Int(Rnd * 100)
   Randomize 
   Print Int(Rnd * 100)

运行结果，整数是结果是 0~99 ，就是 Rnd *100 结果是永远不会出现 100 。

当方块重新出现时，添加代码设置其随机高度范围为height/4到height/2，随机速度为-3到-7，添加代码如下：

      If (rect_left_x <= -20) Then '如果方块跑到最左边
         rect_left_x = ww ' 在最右边重新出现
         Randomize
         rect_height = Int(Rnd * (hh / 2 - hh / 4)) + hh / 2
         Randomize
         rect_vx    = - (Int(Rnd * 4) + 3) ' 3 到 7 之间
         rect_top_y = hh - rect_height '方块顶部y坐标
      End If

好了，把代码复制去使用吧。