《2013年下—天女散花.doc》由会员分享，可在线阅读，更多相关《2013年下—天女散花.doc（2页珍藏版）》请在三一文库上搜索。
1、天女散花计时器和随机函数的使用教学目标：1、 了解并学会使用计时器（interval）.2、 学会随机函数的使用。（Randomize,rnd）3、 学会使用RGB等常用函数。4、 通过对本程序的练习，培养其举一反三的能力及其对艺术的欣赏能力。教学重点：计时器和几个函数的使用（RGB，rnd,int等）教学难点：灵活地应用这几个函数来改变所绘制的图形样式（如大小，粗细）。教学工具：电子教室教学过程：一、 引入通过这学期的学习，大家对VB有一定的了解，但很不全面，平时上课过程中，学习兴趣不是太浓，那我们现在来欣赏一下利用几个函数，几行代码就能实现的精彩。教师展示。二、 新授我们先来分析一下本程序
2、的窗体和代码。1、 窗体的设计：先画一个Picture。从工具箱中拖放一个Picture，调整大小到适当位置。在窗体的下面放一些按扭。例开始、停止、清屏、退出等。一个timer。这是一个计时器，在英语中加R的通常表示人，这儿time(时间)加R表示的是计时器。2、 代码的设计：主要是计时器中的代码。其它代码略。Private Sub Timer1_Timer()随机数初始化Randomizekd = Int(12 * Rnd) + 1)Picture1.DrawWidth = kdPicture1.DrawWidth = 1定义三种颜色r = Int(Rnd * 256)g = Int(Rnd
3、 * 256)b = Int(Rnd * 256)取宽和高w = Picture1.Widthh = Picture1.Height定义坐标x = Int(Rnd * w)y = Int(Rnd * h)画点Picture1.PSet (x, y), RGB(r, g, b)画的是点，Picture1.Circle (x, y), kd * 100, RGB(r, g, b)画的是圆,End sub其它代码自行设计。计时器的interval是计时间隔，以ms为单位。起决定动作快慢的作用。Randomize是初始化随机数，就是让生面的随机数不一样。Int()是取整数。GRB表示的是三元色的三种颜色。Pset是画点，Circle是画圆。各函数的使用请参考帮助。三、 思考你能将点变成画吗？参加：Circle 方法可画出圆形和椭圆形的各种形状。另外，Circle 方法还可以画出圆弧（圆的一部分）和楔形饼块。使用变化的 Circle 方法，可画出多种曲线。为了画圆，Visual Basic 需要给出该圆的圆心位置和它的半径。画一个理想圆的语法是：object.Circle Step(x, y), radius, color.四、 小结