2013年下—天女散花.doc

《2013年下—天女散花.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、天女散花——计时器和随机函数的使用教学目标：1、了解并学会使用计时器（interval）.2、学会随机函数的使用。（Randomize,rnd）3、学会使用RGB等常用函数。4、通过对本程序的练习，培养其举一反三的能力及其对艺术的欣赏能力。教学重点：计时器和几个函数的使用（RGB，rnd,int等）教学难点：灵活地应用这几个函数来改变所绘制的图形样式（如大小，粗细）。教学工具：电子教室教学过程：一、引入通过这学期的学习，大家对VB有一定的了解，但很不全面，平时上课过程中，学习兴趣不是太浓，那我们现在来欣赏一下利用几

2、个函数，几行代码就能实现的精彩。教师展示。二、新授我们先来分析一下本程序的窗体和代码。1、窗体的设计：先画一个Picture。从工具箱中拖放一个Picture，调整大小到适当位置。在窗体的下面放一些按扭。例开始、停止、清屏、退出等。一个timer。这是一个计时器，在英语中加R的通常表示人，这儿time(时间)加R表示的是计时器。2、代码的设计：主要是计时器中的代码。其它代码略。PrivateSubTimer1_Timer()'随机数初始化Randomizekd=Int((12*Rnd)+1)'Picture1.Dr

3、awWidth=kdPicture1.DrawWidth=1'定义三种颜色r=Int(Rnd*256)g=Int(Rnd*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)’画的是圆,Endsub其它代码自行设计。计时器的interval是计时间

4、隔，以ms为单位。起决定动作快慢的作用。Randomize是初始化随机数，就是让生面的随机数不一样。Int()是取整数。GRB表示的是三元色的三种颜色。Pset是画点，Circle是画圆。各函数的使用请参考帮助。一、思考你能将点变成画吗？参加：Circle方法可画出圆形和椭圆形的各种形状。另外，Circle方法还可以画出圆弧（圆的一部分）和楔形饼块。使用变化的Circle方法，可画出多种曲线。为了画圆，VisualBasic需要给出该圆的圆心位置和它的半径。画一个理想圆的语法是：[object.]Circle[St

5、ep](x,y),radius[,color].二、小结