。裝配窗裝配1
。子程序_ _開始窗口_已創建
。subroutine _ button 1_被點擊。
標簽1。title = to text(to numeric value(標簽1。Title)+1)
。如果為真(值為(編輯框1。內容)> 0)
編輯框1。內容=到文本(到數值(編輯框1。內容)-5)
如果真的結束了。
。子程序_按鈕2_被點擊
標簽1。title = to text(to numeric value(標簽1。Title)-1)
編輯框1。內容=到文本(到數值(編輯框1。內容)+5)