Authorware制作“日积月累”

2005-11-24 18:09:11  作者:︶ㄣ儍氣︷   来源:eNet论坛   文字大小:】【】【
一.在“读取记录是否显示的数据”运算图标中输入:

deci_txt:=ReadExtFile(FileLocation^"decision.txt")

二.在“设置”交互模块中只有一个菜单交互“日积月累”,该交互项的属性设置如下:[Scope]域选中

Perpetual;[Active If]域设置为deci_txt=0;[Branch]域设置为Return,其余默认。

其中的运算图标内容为:

deci_txt:=deci_txt+1

WriteExtFile(FileLocation^"decision.txt",deci_txt)

--当用户选中该选项时,程序则向记录文件中重新写入数据(1),以便下次启动时显示

三.双击分支图标,其属性设置为:[Repeat]域中选择Don't Repeat;[Branch]域中选择To Calculated Path,在下面的路径表达式为deci_txt+1(.其值如为1,进入“不显示”分支;为2,进入“显示”图标)

“不显示”分支图标中的组图标中无任何内容。

“显示”分支图标中的组图标结构如下:(图二)



1.“随机读取”运算图标中内容:

word_txt:=ReadExtFile(FileLocation^"tips.txt")

--读出记录名言佳句的所有文字

total_line:=LineCount(word_txt)

--取得上述文字的总行数(总条目)

line_num:=Random(1,total_line,1)

--随机产生一行(条)

display_line:=GetLine(word_txt,line_num)

--取出该行的内容




相关文章