【PowerPoint教学课件规则圈点工具的设计与实现】气排球规则教学课件

　　【摘要】在利用PowerPoint教学课件进行讲课时,为了更好的指引学生或者强调所讲内容,教师们往往会使用PowerPoint的实时圈点功能。但是,PowerPoint的实时圈点功能有一个较大的局限和不足:没有提供如直线、方框、圆圈、椭圆等规则图形的圈点功能,而只提供了涂鸦式画线圈点的功能。为此,该文设计并利用VB实现了一个规则圈点工具,有效的弥补了PowerPoint的这一不足。该规则圈点工具的使用,将能大大的提高教师利用PowerPoint课件进行多媒体辅助教学的效率和学生听课的效果,从而提高教学质量。
　　【关键词】计算机辅助教学;教学课件;实时圈点;规则圈点;工具软件
　　【中图分类号】G40-057 【文献标识码】B【论文编号】1009―8097(2010)03―0115―04
　　
　　引言
　　
　　随着现代教育技术的发展与普及,计算机辅助多媒体教学的方式已被越来越多的学校和教师所采用。其中,多媒体教学课件是实现计算机辅助多媒体教学的关键。而PowerPoint教学课件则是当前设计、开发和使用最多的一类多媒体教学课件。
　　PowerPoint软件提供了在演示课件的同时能利用其“绘图笔”对课件画圈划线进行实时圈点的功能[1]。教师在利用PowerPoint教学课件进行讲课时,为了更好的指引学生或者强调所讲内容,往往会使用PowerPoint的这一实时圈点功能。但是,PowerPoint的实时圈点功能有一个较大的局限和不足:没有提供如直线、方框、圆圈、椭圆等规则图形的圈点功能,而只提供了涂鸦式画线圈点的功能。为此,本文将设计并利用VB实现一个规则圈点工具,以弥补PowerPoint的这一不足。
　　
　　
　　一 规则圈点工具的设计
　　
　　1 本工具的规则圈点图形
　　本工具的规则圈点功能完全体现在使用规则的图形进行圈点上。根据多媒体教学课件的圈点实际需求,直线、方框、椭圆是不可缺少的最基本的规则图形。
　　(1) 直线
　　直线是指,给定起点和终点后连接这两点获得的直线段。起点和终点可以任意指定,也就是说,直线的方向可以是任意的。
　　
　　(2) 方框
　　方框是指,由给定左上(或左下)顶点和右下(或右上)顶点获得的空心矩形框。方框的两条边框水平、两条边框垂直。基于此,水平的直线和垂直的直线即可方便的分别用高度为0和宽度为0的方框来绘制出。
　　(3) 椭圆
　　椭圆是指,由给定左上(或左下)顶点和右下(或右上)顶点获得矩形的内接椭圆周。若两顶点构成的是一个正方形,则此时获得的椭圆就是一个圆。因此,圆就不需要单独作为一种基本图形了。
　　2 规则圈点图形的属性设置
　　(1) 图形线条的颜色设置
　　为加强实时规则圈点的效果,本工具为用户提供设置规则圈点图形线条颜色的功能。
　　(2) 图形线条的宽度设置
　　
　　规则圈点图形线条宽度的灵活设置也可加强实时规则圈点的效果,比如,对小的文字设置细线条,对大的文字设置粗线条等。为此,本工具为用户提供不同宽度大小的线条供选择。
　　3 辅助功能
　　(1) 圈点图形的擦除
　　当需要进行重新圈点时,就需要擦除当前已有的圈点图形。为此,本工具为用户提供圈点图形的擦除功能。
　　(2) 白板与黑板
　　电子白板或电子黑板是教师们利用其来补充说明事物的有效工具。为此,本工具为用户提供调入白板或调入黑板的功能。
　　4本工具的功能结构图
　　本工具的功能结构图如图1所示。
　　
　　二 规则圈点工具的实现
　　
　　本工具采用VB(6.0版)[2]这一所见即所得的可视化软件开发工具来实现。
　　1 基本思想和方法
　　本文利用VB实现PowerPoint教学课件规则圈点工具的基本思想和方法是:用一个最大化的、无标题栏的、透明的窗体完全覆盖住PowerPoint教学课件,然后在这个透明窗体对应于PowerPoint教学课件待圈点的位置上绘制规则图形。这样,在效果上就如同直接在PowerPoint教学课件上进行规则圈点一样。这个透明的窗体,为方便描述,在接下来的部分我们就称之为“圈点窗体”。
　　2 圈点窗体的设置
　　(1) 圈点窗体的属性设置
　　圈点窗体在其属性窗口中关键属性的设置及其相关说明见表1。
　　(2) 圈点窗体的透明性设置
　　VB窗体没有直接用于设置窗体透明性的属性或方法,这样,将圈点窗体设置为透明的需要通过间接方式来实现。本文的实现方法是:将当前屏幕显示的PowerPoint教学课件通过屏幕硬拷贝的方式存至剪贴板,然后将剪贴板中的屏幕快照显示在圈点窗体上。这样,圈点窗体显示出的就是PowerPoint教学课件的内容,就如同窗体是透明的一样。
　　由于VB没有提供屏幕硬拷贝函数,因而我们需要借助API函数来实现。相关API函数的声明如下:
　　Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
　　API函数keybd_event的功能为模拟键盘键入,根据其用法,只需如下的方式调用该API函数就可以实现屏幕硬拷贝:
　　Call keybd_event(&H2C, 1, 0, 0)
　　于是,圈点窗体的透明性可通过在圈点窗体的“Load”事件中加入如下代码实现:
　　Call keybd_event(&H2C, 1, 0, 0) "屏幕硬拷贝
　　DoEvents "等待屏幕硬拷贝完毕后再继续执行
　　Me.Picture = Clipboard.GetData() "从剪贴板对象中获得屏幕硬拷贝的图像,并将其设置为圈点窗体上的图像
　　3 圈点图形的相关设置
　　(1) 圈点图形的类型设置
　　根据圈点的需求,直线、方框和椭圆这3种类型的规则圈点图形以及涂鸦式画线间必须能方便的进行相互切换。为了操作上的便捷性,采用右键快捷菜单的方式进行当前圈点图形类型的设置。其实现方法是:首先通过菜单设计器设计好相关快捷菜单项,如图2(a)所示,然后在快捷菜单项“图型”的每个子菜单项的“Click”事件中加入相应的代码来设置当前圈点图形的类型。比如,要设置为“直线”(其他的图形类型类似),则在其相应“Click”事件中加入如下代码:
　　sPenStyle = "Line"
　　其中,字符串类型变量sPenStyle存储当前圈点图形的类型。初始时,sPenStyle为“Doodle”(涂鸦),其在圈点窗体的“Load”事件中加入如下代码实现:
　　sPenStyle = "Doodle"
　　(2) 图形线条的颜色设置
　　圈点图形线条的颜色设置在进行圈点时起到非常重要的作用,因此需要设置圈点图形线条的颜色为红、黄、绿、青、蓝、紫、黑、白等常见颜色。同样的,为操作上的便捷性,采用右键快捷菜单的方式进行当前圈点图形线条颜色的设置。其实现方法是:首先通过菜单设计器设计好相关快捷菜单项,如图2(b)所示,然后在快捷菜单项“线色”的每个子菜单项的“Click”事件中加入相应的代码来设置当前圈点图形线条的颜色。比如,要设置为“黄”(其他的图形线条颜色类似),则在其相应“Click”事件中加入如下代码:
　　Me.ForeColor = vbYellow
　　(3) 图形线条的宽度设置
　　圈点图形线条的宽度设置在进行圈点时必不可少,根据实际多媒体教学中对圈点的需求,一般需要设置圈点图形线条的宽度为1~9。同样的,为操作上的便捷性,采用右键快捷菜单的方式进行当前圈点图形线条宽度的设置。其实现方法是:首先通过菜单设计器设计好相关快捷菜单项,如图2(c)所示,然后在快捷菜单项“线宽”的每个子菜单项的“Click”事件中加入相应的代码来设置当前圈点图形线条的宽度。比如,要设置为“3”(其他的图形线条宽度类似),则在其相应“Click”事件中加入如下代码:
　　Me.DrawWidth = 3
　　4 圈点图形的绘制
　　 圈点图形的绘制,是通过圈点窗体的“MouseDown”、“MouseMove”和“MouseUp”这3个事件联合实现的。其实现方法是:在点下鼠标左键触发的窗体“MouseDown”事件中获取当前鼠标的位置作为起始点,在接着不松开鼠标左键进行移动触发的窗体“MouseMove”事件中获取当前鼠标的位置作为中间点,在最后松开鼠标左键触发的窗体“MouseUp”事件中获取当前鼠标的位置作为终止点;除涂鸦式图形外,起始点与中间点确定的图形为临时图形,其采用“XOR”(异或)模式在窗体上绘制,再一次以“XOR”模式绘制同一个图形即可消除该图形而不影响窗体的背景图像,起始点与终止点确定的图形为最终绘制出的圈点图形;对涂鸦式图形,直接在前一点与当前点间绘制一条线段,不再进行消除。下面,将详细的给出在这3个事件中的具体实现代码。
　　(1) 在“MouseDown”事件中
　　If Button = vbLeftButton Then "如果点下鼠标左键
　　bIsDrawing = True "设置为正在绘制(圈点)
　　iFstX = X : iFstY = Y "起始点取鼠标当前位置
　　iPreX = X : iPreY = Y "前一点取鼠标当前位置
　　Me.DrawMode = vbXorPen "以“XOR”模式进行绘制
　　Select Case sPenStyle "判断当前的圈点图形类型
　　 Case "Doodle" "若为“涂鸦”
　　 Me.DrawMode = vbCopyPen "以直接模式进行绘制
　　 Me.Line (iPreX, iPreY)-(X, Y) "在前一点与当前点间绘制直线
　　 Case "Line" "若为“直线”
　　 Me.Line (iFstX, iFstY)-(iPreX, iPreY) "在起始点与前一点间绘制直线
　　 Case "Rectangle" "若为“方框”
　　 Me.Line (iFstX, iFstY)-(iPreX, iPreY), , B "在起始点与前一点间绘制方框
　　 Case "Ellipse" "若为“椭圆”
　　 If iFstX - iPreX = 0 Then
　　r = 255
　　 Else
　　r = Abs(iFstY - iPreY) / Abs(iFstX - iPreX)
　　 End If "计算待绘制椭圆的长轴短轴比
　　 Me.Circle (CLng(iFstX / 2 + iPreX / 2), CLng(iFstY / 2 + iPreY / 2)), Max(Abs(iFstX - iPreX), Abs(iFstY - iPreY)) / 2, , , , r "在起始点与前一点间绘制椭圆
　　End Select
　　End If
　　(2) 在“MouseMove”事件中
　　If Button = vbLeftButton And bIsDrawing Then "如果点下鼠标左键,并且正在绘制(圈点)
　　Me.DrawMode = vbXorPen "以“XOR”模式进行绘制
　　Select Case sPenStyle "判断当前的圈点图形类型
　　 Case "Doodle" "若为“涂鸦”
　　 Me.DrawMode = vbCopyPen "以直接模式进行绘制
　　 Me.Line (iPreX, iPreY)-(X, Y) "在前一点与当前点间绘制直线
　　 Case "Line" "若为“直线”
　　 Me.Line (iFstX, iFstY)-(iPreX, iPreY) "在起始点与前一点间绘制直线,即可消除中间状态的直线
　　 Me.Line (iFstX, iFstY)-(X, Y) "在起始点与当前点间绘制直线
　　 Case "Rectangle" "若为“方框”
　　 Me.Line (iFstX, iFstY)-(iPreX, iPreY), , B "在起始点与前一点间绘制方框,即可消除中间状态的方框
　　 Me.Line (iFstX, iFstY)-(X, Y), , B "在起始点与当前点间绘制方框
　　 Case "Ellipse" "若为“椭圆”
　　 If iFstX - iPreX = 0 Then
　　r = 255
　　 Else
　　r = Abs(iFstY - iPreY) / Abs(iFstX - iPreX)
　　 End If "计算待绘制椭圆的长轴短轴比
　　 Me.Circle (CLng(iFstX / 2 + iPreX / 2), CLng(iFstY / 2 + iPreY / 2)), Max(Abs(iFstX - iPreX), Abs(iFstY - iPreY)) / 2, , , , r "在起始点与前一点间绘制椭圆,即可消除中间状态的椭圆
　　 If iFstX - X = 0 Then
　　r = 255
　　 Else
　　r = Abs(iFstY - Y) / Abs(iFstX - X)
　　 End If "计算待绘制椭圆的长轴短轴比
　　 Me.Circle (CLng(iFstX / 2 + X / 2), CLng(iFstY / 2 + Y / 2)), Max(Abs(iFstX - X), Abs(iFstY - Y)) / 2, , , , r "在起始点与当前点间绘制椭圆
　　End Select
　　iPreX = X : iPreY = Y "前一点取鼠标当前位置
　　End If
　　(3) 在“MouseUp”事件中
　　If bIsDrawing Then "如果正在绘制(圈点)
　　If Button = vbLeftButton Then "如果松开鼠标左键
　　 Me.DrawMode = vbCopyPen "以直接模式进行绘制
　　ElseIf Button = vbRightButton Then "如果松开鼠标右键
　　 Me.DrawMode = vbXorPen "以“XOR”模式进行绘制
　　End If
　　Select Case sPenStyle "判断当前的圈点图形类型
　　 Case "Doodle" "若为“涂鸦”
　　 Me.DrawMode = vbCopyPen "以直接模式进行绘制
　　 Me.Line (iPreX, iPreY)-(X, Y) "在前一点与当前点间绘制直线
　　 Case "Line" "若为“直线”
　　 Me.Line (iFstX, iFstY)-(X, Y) "在起始点与当前点间绘制直线
　　 Case "Rectangle" "若为“方框”
　　 Me.Line (iFstX, iFstY)-(X, Y), , B "在起始点与当前点间绘制方框
　　 Case "Ellipse" "若为“椭圆”
　　 If iFstX - X = 0 Then
　　r = 255
　　 Else
　　r = Abs(iFstY - Y) / Abs(iFstX - X)
　　 End If "计算待绘制椭圆的长轴短轴比
　　 Me.Circle (CLng(iFstX / 2 + X / 2), CLng(iFstY / 2 + Y / 2)), Max(Abs(iFstX - X), Abs(iFstY - Y)) / 2, , , , r "在起始点与当前点间绘制椭圆
　　End Select
　　bIsDrawing = False "设置为不在绘制(圈点)
　　End If
　　5 工具的辅助功能
　　(1) 圈点图形的擦除
　　已绘制的各类圈点图形的擦除,通过快捷菜单项“擦除”(如图2)的“Click”事件中加入如下代码实现:
　　Me.Cls() "清除屏幕,但保留背景图像
　　(2) 调入白板
　　调入白板,即把背景图像替换为全白,这可通过快捷菜单项“白板”(如图2)的“Click”事件中加入如下代码实现:
　　Set Me.Picture = Nothing "去除背景图像
　　Me.BackColor = vbWhite "将背景设置为全白
　　(3) 调入黑板
　　调入黑板,即把背景图像替换为全黑,同调入白板类似,可通过快捷菜单项“黑板”(如图2)的“Click”事件中加入如下代码实现:
　　Set Me.Picture = Nothing "去除背景图像
　　Me.BackColor = vbBlack "将背景设置为全黑
　　6 工具的启动与结束
　　(1) 工具的启动
　　在PowerPoint中,可以启动任意的外部应用程序。本工具的启动,就是利用这一点来实现的。具体实现方法是:在PowerPoint教学课件适当的地方(比如左上角、左下角、右上角或右下角等)放置一个图形按钮,并将图形按钮对应“动作设置”中的“运行程序”设置为本工具的应用程序名(比如“Punctuator.exe”,必要时需带上路径)。这样,当演示PowerPoint教学课件并需要进行规则图形圈点时,点击这个图形按钮就开始启动本规则图形圈点工具了。
　　(2) 工具的结束
　　圈点窗体的关闭事实上就意味着本工具的结束,从而返回到PowerPoint教学课件的正常演示。这样,本工具的结束即可通过快捷菜单项“结束”(如图2)的“Click”事件中加入如下代码实现:
　　Unload Me "卸载(关闭)圈点窗体,从而结束程序
　　
　　三 结束语
　　
　　本文设计并利用VB实现了一个规则圈点工具,有效的弥补了在PowerPoint中只能进行涂鸦式画线圈点的不足。本规则圈点工具的使用,将能大大的提高教师利用PowerPoint课件进行多媒体辅助教学的效率和学生听课的效果,从而提高教学质量。
　　
　　参考文献
　　[1] 马力克.用PowerPoint2003制作教学课件[M].上海:华东师范大学出版社,2008.
　　[2] 仲维俊.Visual Basic 6.0完全自学手册[M].北京:机械工业出版社,2007.
　　
　　Design and Implementation of Regular Punctuation Tool for PowerPoint Teaching Courseware
　　LI Xu-dong
　　(School of Mathematics & Statistics, Zhejiang University of Finance & Economics, Hangzhou 310018, China)
　　Abstract: When teaching with PowerPoint teaching courseware, for better guide to students or emphasizing contents, teachers often use the real-time punctuation function of PowerPoint. However, there is a big limitation and shortage of the real-time punctuation function of PowerPoint: It provides no punctuation function by regular-graphics of line, rectangle, circle and ellipse but only provides punctuation function by doodling. For this reason, a regular punctuation tool for PowerPoint teaching courseware was designed and implemented using VB, which effectively made up for the shortage of PowerPoint. The using of this regular punctuation tool would well improve multimedia aided teaching efficiency of teachers with PowerPoint teaching courseware and the listening effect of students, and therefore it would improve the teaching quality.
　　Keywords: Computer Aided Instruction; Teaching Courseware; Real-time Punctuation; Regular Punctuation; Tool Software
　　编辑:山石

推荐访问:圈点 教学课件 规则 工具