创建一个简单绘图工作的效果

       这是一个简单的画图工具,如果用户按住鼠标右键在屏幕上拖动,将画出一条沿鼠标移动轨迹的曲线;

    如果在按住鼠标右键拖动的同时按下Alt键,将在屏幕上画出一条连接起始位置和和终止位置的直线。该实例

    利用了Authorware的交互功能和画图函数制作完成。

1、创建一个程序主界面。在流程线上放置一个[显示]图标,命名为[instructions],输入文本内容  “按下鼠标在屏幕上拖动得到曲线,如果同时按下“Alt”键,将得到直线。"

2、在流程线上放置一个[运算]图标,双击打开,输入如图(2-1)所示计算式,系统变量      [CursorX]和[CursorY]记录的是当前鼠标指针在显示窗口上坐标的X和Y轴值。

3、在流程线上放置一个[交互]图标,命名为[Interation]。

4、拖动一个[运算]图标到[交互]图标的右下侧,释放图标,此时,弹出一个[Response      Type]的对话框,选择[Conditional]选项如图(2-2)所示,单击[OK]按钮,建立一个条件响应。

5、双击运算图标上方的条件响应标志,弹出[Properties:Response]对话框在[Condition]后面的  正文框里输入响应条件[~Mousedown]如图(2-3)所示,Mousedown是一个系统变量,当鼠标被按  下时,其值为TRUE,在[Automatic]下拉列表框中选择[on false to true]选项,即在放开鼠标  键时,该条件响应被激活。

6、双击打开该[运算]图标,在编辑窗口中输入如图(2-4)所示内容,[drawstart]为自定义变  量,其作用为当其值为TRUE时,可以开始描绘一条新的曲线或直线。

7、重复上述步骤,拖动一个[运算]图标到[交互]图标的右侧释放,建立条件响应[       Mousedown&((oldx<>cursorx)|(oldy<>cursory))&Altdown ],该条件的含义为按下鼠标键的同  时按下Alt键,并且鼠标在屏幕上移动时,条件响应被激活。[Automatic]选项也设为[On     false to TRUE],双击打开,在编缉窗口中输入如图(2-5)所示的程序段,函数[Setmode()]  为图形函数设置绘图模式,参数为2时翻转,为4时为不透明。所以上述程序在执行时,将先覆  盖掉前一次执行时所画的直线,然后在新位置画出一条到起始点的直线。

8、建立条件响应[Mousedown&((oldx<>cursorx)|(oldy<>cursory))&~Altdown ],该条件响应的含  义为不按下Alt键时,将在屏幕上画出一条鼠标移动轨迹曲线。在该[运算]图标中输入程序段  如图(2-6).

9、至此,简单的画图工具制作完成,流程线如下图(2-7)