相關(guān)素材：首先，用截圖軟件取得其它程序“日積月累”的圖片picture.jpg，當(dāng)然也可用vb做一個(gè)，注意一定要去掉其中的按鈕部分。其次，在該程序所在的文件夾下建立decision.txt(記錄是否顯示“日積月累”窗口的信息，其中只有一個(gè)數(shù)字1)、tips.txt(記錄名言佳句，每句各占一行)。

程序流程(圖一)及各個(gè)模塊說明：

一．在“讀取記錄是否顯示的數(shù)據(jù)”運(yùn)算圖標(biāo)中輸入：

deci_txt:=readextfile(filelocation^"decision.txt")

二．在“設(shè)置”交互模塊中只有一個(gè)菜單交互“日積月累”，該交互項(xiàng)的屬性設(shè)置如下：[scope]域選中

perpetual；[active if]域設(shè)置為deci_txt=0；[branch]域設(shè)置為return,其余默認(rèn)。

其中的運(yùn)算圖標(biāo)內(nèi)容為：

deci_txt:=deci_txt+1

writeextfile(filelocation^"decision.txt",deci_txt)

--當(dāng)用戶選中該選項(xiàng)時(shí),程序則向記錄文件中重新寫入數(shù)據(jù)(1),以便下次啟動(dòng)時(shí)顯示

三．雙擊分支圖標(biāo)，其屬性設(shè)置為：[repeat]域中選擇don't repeat；[branch]域中選擇to calculated path，在下面的路徑表達(dá)式為deci_txt+1(.其值如為1，進(jìn)入“不顯示”分支；為2，進(jìn)入“顯示”圖標(biāo))

“不顯示”分支圖標(biāo)中的組圖標(biāo)中無任何內(nèi)容。

“顯示”分支圖標(biāo)中的組圖標(biāo)結(jié)構(gòu)如下：（圖二）

1．“隨機(jī)讀取”運(yùn)算圖標(biāo)中內(nèi)容：

word_txt:=readextfile(filelocation^"tips.txt")

--讀出記錄名言佳句的所有文字

total_line:=linecount(word_txt)

--取得上述文字的總行數(shù)（總條目）

line_num:=random(1,total_line,1)

--隨機(jī)產(chǎn)生一行（條）

display_line:=getline(word_txt,line_num)

--取出該行的內(nèi)容

2．雙擊“日積月累”交互圖標(biāo)，輸入（file/import）剛才做的圖片picture.jpg，點(diǎn)擊文字工具，在圖片上欲顯示文字的區(qū)域單擊，輸入{display_line}，設(shè)置好顏色、字體等。（圖三）

現(xiàn)在明白怎么回事了？還有更精彩的，繼續(xù)看。

該交互圖標(biāo)中共包含五個(gè)按鈕交互項(xiàng)：上一條，下一條，啟動(dòng)時(shí)顯示，啟動(dòng)時(shí)關(guān)閉，退出。將這些按鈕與圖片的位置排列好。

“上一條”按鈕屬性設(shè)置為默認(rèn)，.運(yùn)算圖標(biāo)內(nèi)容為：

line_num:=line_num-1

--取出上一行（條）

if line_num=0 then line_num:=total_line

--如果已到第一行（條），則取最后一（條）

display_line:=getline(word_txt,line_num)

--取得該行（條）內(nèi)容

“下一條”按鈕屬性設(shè)置為默認(rèn)，運(yùn)算圖標(biāo)中內(nèi)容為：

line_num:=line_num+1

if line_num=total_line then line_num:=1

display_line:=getline(word_txt,line_num)

“啟動(dòng)時(shí)關(guān)閉”按鈕屬性設(shè)置為：[active if]域?yàn)閐eci_txt=1；選中hide when inactive，其余默認(rèn)，運(yùn)算圖標(biāo)中內(nèi)容為：

deci_txt:=0

writeextfile(filelocation^"decision.txt",deci_txt)

“啟動(dòng)時(shí)顯示”按鈕屬性只須將上面的[active if]設(shè)為deci_txt=0，其余相同，運(yùn)算圖標(biāo)內(nèi)容為：

deci_txt:=1

writeextfile(filelocation^"decision.txt",deci_txt)

“退出”按鈕屬性中將[branch]設(shè)為exit interaction，其余默認(rèn)，其組圖標(biāo)中內(nèi)容為空。

四．“其它內(nèi)容”組圖標(biāo)為你的主程序內(nèi)容。

好了，大功告成，點(diǎn)擊restart（圖四），如果沒有出現(xiàn)“日積月累”窗口，只須選中菜單“選項(xiàng)”中的“日積月累”，重新啟動(dòng)即可。

是不是很酷？再仔細(xì)看看，怎么少了一個(gè)按鈕？您自己琢磨吧！