针的起点坐标为中心(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所示。本章首先讲解了如何绘制圆盘与针，利用三角函数实现了针的旋转；然后介绍了一维数组的概念，并利用数组解析了如何实现多根针的效果；接着利用批量绘制函数分析了绘制效果改进方法；最后分析了针的发射与增加、游戏失败判断、得分与显示效果的改进方法。

利用do循环和IsKeyPress()函数，可以实现每次按键后，重新生成随机颜色。另外，利用Randomize()函数对随机函数初始化，避免每次运行的随机颜色都一样。Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.ClsBGR(180,180,180)'GDI的颜色值。gg.Pen0,0'设置线条为没有DimiAsLong,jAsLong,度AsLo…

除了RGB颜色模型外，还有一种根据颜色的直观特性创建的颜色模型——HSB，如图4-12所示。H是Hue的首字母，表示色调，取值范围为0～360，刻画不同的色彩，比如红色为0，绿色为120，蓝色为240；S是Saturation的首字母，表示饱和度，取值范围为0%--100%，表示混合了白色的比例，值越高颜色越鲜艳；B表示亮度度，取值范围为0%--100%，等于0时为黑色，等于100时最明亮。输入并…

for循环语句可以嵌套，输入并运行以下代码：Sub游戏执行过程(hWndFormAshWnd)DimAsLongi,jDim输出AsStringFori=1To9输出=""Forj=1To9输出&=Right(""&Str(i*j),3)NextPrint输出NextEndSub在VFB上，点击工具栏最后一个，选择带控制台，这是为了更好的查看打印输出程序运行后输出：（带控制台后，输出在控制台）代码…

为了绘制完整的“旋转蛇”错觉图片，我们可以利用for循环语句。首先输入并运行以下代码Sub游戏执行过程(hWndFormAshWnd)DimiAsLongFori=1To5PrintiNextEndSub程序运行后输出：for语句中，首先执行i=1;。然后判断i

下图展示了“旋转蛇”错觉图片的一个基本单元，一般由两组共4种颜色组成。人脑处理高对比度颜色（比如，黑与白）的时间，要比处理低对比度颜色（比如，红与青）短很多。我们会先感知到图中的黑白图案，后感知到红青图案，这个时间差会让图片产生相对运动的效果，所以我们会有图片旋转的错觉。先画一组：Sub游戏执行过程(hWndFormAshWnd)DimggAsyGDI=hWndFormgg.ClsBGR(180,…

当我们需要在代码中输入颜色时，点击这个按钮出现的颜色对话框，点击一个颜色即可，颜色选择RGB会在代码处，自动插入代码提示：代码中函数是BGR(r,g,b)参数顺序是r,g,b，另外函数名RGB(b,g,r)需要反过来参数，结果是一样的。因此我选择了，参数顺序习惯，用了BGR(r,g,b)根据三原色原理，任何色彩均可由红（Red）、绿（Green）、蓝（Blue）3种基本颜色混合而成，如图所示。代码…

“旋转蛇”错觉图片可由不同颜色的扇形组合而成。VFB里并没有画扇形，需要自己写一个过程，照抄下面代码即可。Sub画扇形(ggAsyGDI,圆心xAsLong,圆心yAsLong,半径AsLong,开始角度AsLong,结束角度AsLong,填充颜色AsLong)DimAsLong圆x,圆y,圆r,圆b,开始x,开始y,结束x,结束yDimpiAsSingle=3.1415926/180圆x=圆心x…