游戏开发：碰撞模型，球球大作战小游戏【VB编程经典案例】

案例功能实现目标

0、键盘事件，控制主角物体的移动，需要有一个方向变量

1、碰撞模型

2、获取到吃到的物体的颜色

3、主角的宽高大小变化由迟到的物体加上去

自定义函数

Function关键字的使用

格式1

Function 函数名称（参数1，参数2，。。。。）

End function

格式2

Function 函数名称（参数1，参数2，。。。。） as 返回值的类型

函数名称=返回值

End function

Len(“aaa”)=3

调用函数或过程使用关键字call

Call 函数名称

由返回值的时候，调用方式举例crash(shapeball, Shape2)

碰撞模型

Function  crash(A as shape,B asshape) as Boolean’返回true表示撞到，false表示没碰到

     dim f as Boolean

     ifA.left+A.width>=B.left  andA.left<=B.left+B.width _ ‘水平方向上的碰撞

        A.top+A.height>B.top andA.top<=B.top+B.height  then‘垂直方向的碰撞

          f=true

     endif

     crash=f ‘vb6中返回值的写法

End function

RGB函数

颜色函数

红绿蓝三原色

0-255之间表示一种颜色

课堂总结

1、碰撞模型的理解

2、rgb函数的运动

3、自定义函数的使用