path2:=1

ok:=1

else

path2:=2

end if

    11、“试用”热区交互属性设置为：永久交互、激活条件为l>0。对应计算图标中的内容为：

EraseAll()

Goto(IconID@"主程序")

    (在“试用”交互属性中将激活条件设为：l>0，这样就可以在用户使用10次后不响应“试用”交互，必须输入正确的注册码后才可继续使用，这样就可达到限制试用次数的功能。)

    “再说吧”热区交互下的计算图标中的内容为：

Quit()

　　12、在交互图标下放置一决策图标，并在决策图标右侧加入“真确”和“错误”两个群组图标。决策属性设置同上，只将变量改为path2即可。

    在“真确”群组图标中放置一个“写入注册文件”计算图标，双击打开后输入：

WriteExtFile(FileLocation^"\hwreg.ocx",sntext)--用户输入信息存入文档保存

    “错误”群组图标中放置一个显示图标用于错误提示，再加一个等待图标限时2秒，最后再添一个计算图标用goto语句跳转到“注册码输入”交互图标即可。

    最后记得，在第一级流程上放置一“主程序”群组用于放课件内容，再在“主程序”群组上附着一个计算图标(按ctrl+=快捷键)，在其中输入：

l:=l-1

WriteExtFile(FileLocation^"\trynum.txt",l)

    用于记录用户试用次数。

    至此，整个注册程序设计完成了，最终流程图见图2。怎么样，没有用到一个外部函数就做出了不错的注册程序，Authorware没有我们想象的那么菜吧？如果加以适当修改，效果会更眩。不过，在此给出这个源程序并不是让大家就真的去收费，只是向大家展示一下另类的课件制作方法，以此说明我们的Authorware不只是一个简单的多媒体制作软件，同时也从一个侧面展示了函数的魅力。只要你敢与幻想、勇于尝试，你会有更好的更有价值的创意。为了我们课件的明天，大家一起努力吧！(不过要记得，如果有有朝一日，您的课件真的拿出来与人“共享”了，课件的水平也得跟上哦。

此信息共有2页 上一页 1 2