VisualFreeBasic游戏趣味编程_2.3_显示多个小球

绘制出3个小球。

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Brush(&HFF0000)
   gg.DrawEllipse(100, 30, 50, 50)
   gg.DrawEllipse(100, 110, 50, 50)
   gg.DrawEllipse(100, 190, 50, 50)

End Sub

绘制区域采用直角坐标系，左上角的坐标为(0,0)，横轴方向由x坐标表示，纵轴方向由y坐标表示。窗口中任一点的位置可由其x坐标和y坐标表示，gg.DrawEllipse语句即可绘制对应圆坐标的3个小球，如图2-11所示。

提示
代码中100、30等整数在程序运行后值保持不变，因此它们称为常量。

练习题2-2：绘制所示的图形，分析左右两组图案中间圆的半径大小。

整数之间也可以进行加、减、乘、除四则运算，在FB语言中分别用+、-、*、/ 这4个符号表示。

Sub 游戏执行过程(hWndForm As hWnd)
   Print 1 + 2
   Print 10 -6
   Print 3 * 4
   Print 8 / 2
End Sub

程序运行后可得到整数运算的结果如下：

利用四则运算，可以修改2-3，让3个小球上下均匀分布

Sub 游戏执行过程(hWndForm As hWnd)
   Dim gg As yGDI = hWndForm
   gg.Brush(&HFF0000)
   gg.DrawEllipse(100, 1*(300/4)-50, 50, 50)
   gg.DrawEllipse(100, 2*(300/4)-50, 50, 50)
   gg.DrawEllipse(100, 3*(300/4)-50, 50, 50)

End Sub

整数之间也可以进行包含括号的加、减、乘、除混合运算，其规则和数学运算规则一致。