import win.ui;
import win.timer;
import Mine.TimeSys;
import Mine.GrowUpSys;
/*DSG{{*/
mainForm = ..win.form(text="定时器";right=134;bottom=51;max=false;min=false;topmost=1)
mainForm.add(
m={cls="static";text="00";left=6;top=6;right=30;bottom=31;align="center";center=1;font=LOGFONT( h=-20 );transparent=1;z=1};
s={cls="static";text="00";left=39;top=6;right=65;bottom=31;align="center";center=1;font=LOGFONT( h=-20 );transparent=1;z=2};
start={cls="button";text="开始";left=80;top=8;right=124;bottom=42;font=LOGFONT( name='Tekton Pro Ext';h=-16;weight=700 );z=6};
static={cls="static";text=":";left=26;top=6;right=43;bottom=27;align="center";center=1;font=LOGFONT( h=-20 );transparent=1;z=5};
static5={cls="static";text="番茄  X";left=4;top=29;right=49;bottom=49;align="center";center=1;transparent=1;z=3};
南瓜值={cls="static";text="0";left=40;top=29;right=72;bottom=49;align="center";center=1;transparent=1;z=4}
)
/*}}*///初始化
var timesys = Mine.TimeSys(0,30,0);
timesys.initTime();
var growUp = Mine.GrowUpSys();BlockInput := User32.api("BlockInput","BOOL (BOOL fBlockIt)");mainForm.start.oncommand = function(id,event){var text = mainForm.start.text;if(text=="开始")//{//开始计数timesys.start();//转变为停止text = "重置";}elseif(text == "重置"){//重置时间timesys.initTime();text="开始";      }   mainForm.start.text = text;
}var isWork = true;
var workTimeHandle = function(){if(timesys.timeout()){//刷新成就growUp.update();//重置时间timesys.initTime();mainForm.start.text="开始";//锁住键盘鼠标BlockInput(1);timesys.setTime(0,5,0);timesys.start(); isWork = !isWork;  }else {timesys.update();}}var restTimeHandle = function(){if(timesys.timeout()){timesys.setTime(0,30,0);timesys.initTime();BlockInput(0);isWork = !isWork;    }else {timesys.update();}
}Mine.TimeSys.time1.onTimer = function(hwnd,msg,id,tick){if(isWork){workTimeHandle();}else {restTimeHandle();}}mainForm.onClose = function(hwnd,message,wParam,lParam){growUp.close();
}
mainForm.show() ;
win.loopMessage();

2、GrowUpSys.aau 文件处理番茄计数，有个很难忍受的问题是不知道怎么把data文件内置在exe文件，现在发布后需要多出一个data.txt文件来管理计数数据。

namespace Mine;
import fsys;class GrowUpSys{/*成长系统*/ctor(){var 番茄=0;       var filePath = "\data.txt";var str = ..string.load(filePath);if(#str)番茄 = tonumber(str);global.mainForm.番茄值.text = 番茄;};close = function(){      if( !..io.exist(filePath) )//若路径不存在..fsys.createParentDir(filePath);..string.save(filePath,tostring(番茄) );}update = function(){番茄++;global.mainForm.番茄值.text = 番茄;}
}

import win.ui;
import win.timer; namespace Mine;class TimeSys{ctor(h1,m1,s1){var h,m,s;var startTime;var tm;var show;var initTime;var time;this.h = h1;this.m = m1;this.s = s1;time1 = ..win.timer(,1000);};setTime = function(h1,m1,s1){this.h = h1;this.m = m1;this.s = s1;}show = function(){ //将时间改写到显示//global.mainForm.h.text = ..string.format("%02d",tm.hour);global.mainForm.m.text = ..string.format("%02d",tm.minute);global.mainForm.s.text = ..string.format("%02d",tm.second);}initTime = function(){time1.disable();var str = this.h+':'+this.m+':'+this.s;tm = ..time(str,"%H:%M:%S");this.show();      }start = function(){this.initTime();time1.enable();}update = function(){tm.addsecond(-1);this.show();}timeout = function(){if(tm.hour==0&&tm.minute==0&&tm.second==0){return 1; }return 0; }}

源码下载前往：