为了显示圆生成的过程，我们修改6-1的代码，实现每隔100毫秒，添加一个随机圆并绘制。完整代码参看Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormDim圆心x(99)AsLong'数组存储所有圆心的x坐标Dim圆心y(99)AsLong'数组存储所有圆心的y坐标Dim半径(99)AsLong'数组存储所有圆的半径Dim圆的个数AsLong=100Dim游戏…

本节讲解如何利用数组记录生成100个随机圆首先定义3个数组存储所有圆的圆心坐标、半径：Dim圆心x(99)AsLong'数组存储所有圆心的x坐标Dim圆心y(99)AsLong'数组存储所有圆心的y坐标Dim半径(99)AsLong'数组存储所有圆的半径设定圆的个数=100，在for循环中随机生成圆心坐标、半径，并存储在数组中：'生成圆，把数据保存在数组中DimiAsLongFori=0To圆的个…

在本章我们将探讨如何绘制一些漂亮的随机图案，如图6-1所示，随机生成的圆互不相交且尽量填满画布，按空格键可以切换不同的绘制模式。本章首先分析了如何利用数组实现多个圆的生成和绘制，并使得圆和圆之间不相交；然后介绍了函数的概念、如何应用函数改进代码，以及如何实现添加新圆半径最大化的功能；最后讲解了如何利用函数封装多种绘制模式，并通过键盘按键进行互动。

当新增加的针和已有针发生碰撞时，游戏失败。在此设定当两根针的旋转角度差的绝对值小于0.5度时，认为两根针足够接近，即发生了碰撞，然后退出游戏循环IfIsKeyPress(VK_SPACE)Then'按下空格键IflineNum

首先在画面左边绘制一根针，表示待发射针的位置：gg.DrawLine0,120,100,120假设初始状态下没有针在旋转：DimlineNumAsLong=0浮点数数组存储所有可能针的旋转角度，假设最多有1000根针DimAngles(999)AsSingle当用户按下空格键时，针的个数加1，并且新增加的针初始角度为PI。用户不断按下空格键，即可持续生成新的针IfIsKeyPress(VK_SPA…

当绘制的元素较多时，会出现明显的画面闪烁，这时可以使用批量绘图函数。以上情况是在使用普通绘图必须要做的事情。然而我们用的是yGDI绘图类（可以查看VFB代码绘图篇）DimggAsyGDI有缓冲，绘图快。不需要考虑这些问题。

要实现多根针的绘制，需要记录每根针的角度值。这一节将介绍数组的概念，读者可以输入并运行以下代码：Sub游戏执行过程(hWndFormAshWnd)Dima(2)AsLonga(0)=1Printa(0)a(1)=3*a(0)Printa(1)a(2)=a(0)+a(1)Printa(2)Endsub程序运行后输出：其中，Dima(2)AsLong定义了整型数组a，a一共有3个元素——a(0)、a(…

针的起点坐标为中心(200,120)，假设针的长度为lineLength，针的旋转角度为angle，则由三角函数可以求出针的末端坐标(xEnd,yEnd)。完整代码参看。Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormDimpiAsSingle=3.1415926/180DimlineLengthAsLong=100'针的长度DimAsLongxEnd,y…

输入并运行以下代码，可以在画面中间绘制一个圆表现圆盘、一条线段，用来表示一根针，圆心坐标及线段起点坐标均为(200,120)。Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.Pen3,BGR(0,0,0)'线宽为3，这样针看起来更明显gg.Brush'不填充色彩gg.DrawLine200,120,300,120gg.Pen2,BGR(255,0,0…

在本章我们将探讨如何实现一个“见缝插针”游戏。按下空格键后发射一根针到圆盘上，所有针逆时针方向转动；如果新发射的针碰到已有的针，游戏结束。如图5-1所示。本章首先讲解了如何绘制圆盘与针，利用三角函数实现了针的旋转；然后介绍了一维数组的概念，并利用数组解析了如何实现多根针的效果；接着利用批量绘制函数分析了绘制效果改进方法；最后分析了针的发射与增加、游戏失败判断、得分与显示效果的改进方法。