
创建一个简单绘图工作的效果
这是一个简单的画图工具,如果用户按住鼠标右键在屏幕上拖动,将画出一条沿鼠标移动轨迹的曲线;
如果在按住鼠标右键拖动的同时按下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)