在本节我们尝试实现小球落地反弹的效果。首先在小球逐渐下落代码的基础上，设定变量vy记录小球在y轴方向上的速度，vy初始化为3。在do循环语句中，小球的y坐标每次增加vy。提示do是无限循环语句for是有限循环语句一直向下运动效果Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Brush(&HFF0000)DimyAsLong=10DimvyAsLon…

2-6中小球落到窗口底部后就消失了，在这一节我们增加2-7代码，得到小球重复下落的效果。Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Brush(&HFF0000)DimyAsLongFory=10To300Step2Ify>280Theny=-20gg.DrawEllipse(100,y,20,20)gg.Redraw:Sleep(10):gg.…

在本节我们讲解For循环语句，用较少的代码实现小球连续运动的动画。首先，输入并运行以下代码：Sub游戏执行过程(hWndFormAshWnd)DimiAsLongFori=1To10Print10NextEndSub程序将重复输出整数10：Fori=1To10表示从1开始到10，重复执行Print1010次For和Next需要配套使用，中间部分是循环体，就是循环执行的代码利用For语句，我们可以实…

在2-4的基础上，每绘制一个小球后gg.Redraw刷新显示，加上Sleep(1000)语句，表示程序暂停1000毫秒（1秒），即可实现小球从上向下依次出现的效果。Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Brush(&HFF0000)DimyAsLong=10DimStAsLong=40gg.DrawEllipse(100,y,20,20)g…

如果希望更改3个小球位置仍然保持均匀分布，则需要修改4行代码，修改后代码Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Brush(&HFF0000)gg.DrawEllipse(100,1*(200/4)-50,50,50)gg.DrawEllipse(100,2*(200/4)-50,50,50)gg.DrawEllipse(100,3*(200…

绘制出3个小球。Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Brush(&HFF0000)gg.DrawEllipse(100,30,50,50)gg.DrawEllipse(100,110,50,50)gg.DrawEllipse(100,190,50,50)EndSub绘制区域采用直角坐标系，左上角的坐标为(0,0)，横轴方向由x坐标表示，纵…

显示一个蓝色的小圆Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Brush(&HFF0000)gg.DrawEllipse(150,100,100,100)EndSub执行代码后的效果gg.Brush填充的颜色，为RGB颜色。gg.DrawEllipse表示画一个填充圆，（150,100）为圆的左上角x坐标和y坐标，宽度和高度100。4个参数放在圆…

按照第一章的做法，先创建框架代码，以后所有的都是按照这个框架代码里执行后面就不再重复说明，都是在此修改代码。

在本章我们将探讨如何实现小球受重力影响加速下落后，碰到地面反弹的效果本章首先介绍了代码写在上面地方，以及如何显示一个静止小球；之后介绍了整数常量的知识，并讲解如何绘制多个小球；然后介绍了整型变量的定义和使用，以及如何修改小球坐标；接着介绍了while(1)循环和if语句，分析小球下落和反弹的实现方法；最后介绍了浮点型变量，讲解如何实现小球受重力加速下落的效果。

可视化FreeBasic语言集成开发环境一、新建一个工程点击新建按钮，然后选择VFB框架，输入软件名称二、切换到窗口代码三、写好代码框架复制以下代码，为我们后面写游戏使用注意：下面代码，必须存在，软件才可以执行，后面教程中将不会提及，也不出现下面代码。SubForm1_Shown(hWndFormAshWnd,UserDataAsInteger)ThreaddetachThreadCreate(C…