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

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

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

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)

--當用戶選中該選項時,程序則向記錄文件中重新寫入數(shù)據(jù)(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)

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

line_num:=random(1,total_line,1)

--隨機產生一行（條）

display_line:=getline(word_txt,line_num)

--取出該行的內容

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

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

該交互圖標中共包含五個按鈕交互項：上一條，下一條，啟動時顯示，啟動時關閉，退出。將這些按鈕與圖片的位置排列好。

“上一條”按鈕屬性設置為默認，.運算圖標內容為：

line_num:=line_num-1

--取出上一行（條）

if line_num=0 then line_num:=total_line

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

display_line:=getline(word_txt,line_num)

--取得該行（條）內容

“下一條”按鈕屬性設置為默認，運算圖標中內容為：

line_num:=line_num+1

if line_num=total_line then line_num:=1

display_line:=getline(word_txt,line_num)

“啟動時關閉”按鈕屬性設置為：[active if]域為deci_txt=1；選中hide when inactive，其余默認，運算圖標中內容為：

deci_txt:=0

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

“啟動時顯示”按鈕屬性只須將上面的[active if]設為deci_txt=0，其余相同，運算圖標內容為：

deci_txt:=1

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

“退出”按鈕屬性中將[branch]設為exit interaction，其余默認，其組圖標中內容為空。

四．“其它內容”組圖標為你的主程序內容。

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

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