让您的课件赶上共享班车（二）

http://www.henanedu.com/       发布时间：2004-8-30 9:11:19       来源：AW驿站  

 5、在“读取注册信息”计算图标下放置一个决策图标，属性设置同第2步，只是将变量path换为path1即可。

    在决策图标右侧放置两个群组图标，将它们分别命名为“已注册”和“未注册”，其中“已注册”为空群组，不需设定。

    6、打开“未注册”群组图标，在其第三级流程线上放置三个显示图标并分别命名为“显示机器码”、“注册声明”和“按钮”。打开“显示机器码”显示图标，在其中适当位置输入“本机的机器码为：{g_ma}  识别码为：{sb_ma}”(不包括双引号，大括号要在英文状态下输入。)和相关信息。

    (友情提醒：点击“文本”→“定义风格(D)…”或按“Ctrl”+“Shift”+“Y”快捷键，在打开的定义风格对话框中新建一风格，并将数字格式对话框中的“显示数千\u25968数百万隔离”复选框前的勾去掉，以防在千分位显示逗号)，至于“注册声明”图标中的内容，各位可以自由发挥。而“按钮”显示图标中的内容是图1中的三个按钮文本信息，在下面用热区交互响应。

    选中“显示机器码”显示图标，按“ctrl+=”快捷键，在随后弹出的计算图标中输入以下内容：

sntext:=ReadExtFile(FileLocation^"\hwreg.txt")--读取原始注册信息

l:=ReadExtFile(FileLocation^"\trynum.txt")--读取试用次数信息并赋值给L

if l<10 then--加这一语句主要是为了获得用户使用次数，使程序更真实、贴近实际。为此，我可是费了一番周折的哟。

x_path:=1

else

x_path:=2

end if

    7、在下面加入一个决策图标，设置同上，只是将变量改为x_path即可。在其右侧分别放置一个“画线”计算图标和一个空群组图标，在计算图标中输入以下内容：

SetFrame(1,16711680)--设置线的颜色

if l<0 then l:=0--当l<0时，l值始终为0

Line(14,30,213,11+(10-l)*19,213)--画线，线的位置看情况而定。

    在决策图标下再放置一个显示图标，在其中输入：剩余{l}次使用机会，用于显示剩余次数。

    8、在“剩余次数”显示图标下放置一个“注册码输入”交互图标，将其属性设置为“更新变量”和“最优显示”，其余默认。打开“注册码输入”交互图标，再要显示用户注册码输入信息的地方输入：｛snDisplayed｝,也就是图1中的输入注册码方框处。

    交互图标右边的第一按?响应图标“Backspace”属性设置如下：激活条件为CharCount(snDisplayed)>0，擦除为“在下一次输入之后”。

    其计算图标输入的内容如下：

snEntry:=SubStr(snEntry,1,CharCount(snEntry)-1)

snDisplayed:=SubStr(snDisplayed,1,CharCount(snDisplayed)

    9、交互图标右边的第一按?响应图标“？”属性设置如下：激活条件为CharCount(snDisplayed)<9(用于控制用户输入的最大字符数)，擦除为“在下一次输入之后”。

    其计算图标输入的内容如下：

snEntry:=snEntry^Key--自定义变量snEntry用于存放用户输入信息

snDisplayed:=snDisplayed^"*"--“*”为密码显示字符

    10、“注册”热区交互属性设置为：永久交互、激活条件为ok<>1、退出交互。

    其计算图标中的内容为：

if snEntry=sntext then--判断注册码信息与用户输入信息是否相同，以此来决定流程走向。

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不只是一个简单的多媒体制作软件，同时也从一个侧面展示了函数的魅力。只要你敢与幻想、勇于尝试，你会有更好的更有价值的创意。为了我们课件的明天，大家一起努力吧！(不过要记得，如果有有朝一日，您的课件真的拿出来与人“共享”了，课件的水平也得跟上哦。

作者：
责任编辑：mary

    本网注明：“来源：XXX”（非中原教育网）的作品，均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其具有的真实性负责。如因作品内容、版权和其它问题需要同本网联系的，请在30日内进行。