aardio 计算器源码分享

xiqingongzi · 发表于 2016-6-23 23:45:28

源码如下

import win.ui;
/*DSG{{*/
mainForm = win.form(text="Aardio 计算器";right=661;bottom=376)
mainForm.add(
button={cls="button";text="+";left=392;top=112;right=492;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=14};
button10={cls="button";text="1";left=245;top=235;right=335;bottom=285;z=11};
button11={cls="button";text="0";left=46;top=295;right=235;bottom=345;z=12};
button12={cls="button";text="-";left=499;top=112;right=599;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=15};
button13={cls="button";text="*";left=392;top=210;right=492;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=16};
button14={cls="button";text="/";left=499;top=210;right=599;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=17};
button15={cls="button";text="=";left=390;top=303;right=600;bottom=347;font=LOGFONT(name='Times New Roman';h=-48);z=18};
button16={cls="button";text="清除";left=245;top=295;right=335;bottom=345;z=19};
button2={cls="button";text="7";left=45;top=115;right=135;bottom=165;z=3};
button3={cls="button";text="8";left=145;top=115;right=235;bottom=165;z=4};
button4={cls="button";text="9";left=245;top=115;right=335;bottom=165;z=5};
button5={cls="button";text="6";left=45;top=175;right=135;bottom=225;z=6};
button6={cls="button";text="5";left=145;top=175;right=235;bottom=225;z=7};
button7={cls="button";text="4";left=245;top=175;right=335;bottom=225;z=8};
button8={cls="button";text="3";left=47;top=235;right=134;bottom=285;z=9};
button9={cls="button";text="2";left=145;top=235;right=235;bottom=285;z=10};
edit={cls="edit";left=33;top=18;right=625;bottom=69;edge=1;font=LOGFONT(h=-29);multiline=1;z=1};
groupbox={cls="groupbox";text="数字区";left=33;top=91;right=362;bottom=358;edge=1;z=2};
groupbox2={cls="groupbox";text="计算区";left=377;top=91;right=625;bottom=358;edge=1;z=13}
)
/*}}*/
var onButtonCommand = function(id,event){
mainForm.edit.text = mainForm.edit.text ++ owner.text;
}
for(name,ctrl in mainForm.eachControl("button") ){
ctrl.oncommand = onButtonCommand;
}
mainForm.button15.oncommand = function(id,event){
mainForm.edit.text=eval(mainForm.edit.text);
}
mainForm.button16.oncommand = function(id,event){
mainForm.edit.text=""
}
mainForm.show()
return win.loopMessage();

复制代码

生成效果

已知Bug:
如果不按数字，只按运算符，再点击等号。会报错。需要加个算式的判定。

xiqingongzi · 发表于 2016-6-24 13:04:54

本帖最后由 xiqingongzi 于 2016-6-25 23:28 编辑

更新功能：
实现按钮输入，自动获取焦点。集成按键控制。按下回车键自动输入

import win.ui;
/*DSG{{*/
mainForm = win.form(text="Aardio 计算器";right=661;bottom=376)
mainForm.add(
button={cls="button";text="+";left=392;top=112;right=492;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=14};
button10={cls="button";text="1";left=245;top=235;right=335;bottom=285;z=11};
button11={cls="button";text="0";left=46;top=295;right=235;bottom=345;z=12};
button12={cls="button";text="-";left=499;top=112;right=599;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=15};
button13={cls="button";text="*";left=392;top=210;right=492;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=16};
button14={cls="button";text="/";left=499;top=210;right=599;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=17};
button15={cls="button";text="=";left=390;top=303;right=600;bottom=347;font=LOGFONT(name='Times New Roman';h=-48);z=18};
button16={cls="button";text="清除";left=245;top=295;right=335;bottom=345;z=19};
button2={cls="button";text="7";left=45;top=115;right=135;bottom=165;z=3};
button3={cls="button";text="8";left=145;top=115;right=235;bottom=165;z=4};
button4={cls="button";text="9";left=245;top=115;right=335;bottom=165;z=5};
button5={cls="button";text="6";left=45;top=175;right=135;bottom=225;z=6};
button6={cls="button";text="5";left=145;top=175;right=235;bottom=225;z=7};
button7={cls="button";text="4";left=245;top=175;right=335;bottom=225;z=8};
button8={cls="button";text="3";left=47;top=235;right=134;bottom=285;z=9};
button9={cls="button";text="2";left=145;top=235;right=235;bottom=285;z=10};
edit={cls="edit";left=33;top=18;right=625;bottom=66;edge=1;font=LOGFONT(h=-29);multiline=1;tabstop=1;z=1};
groupbox={cls="groupbox";text="数字区";left=33;top=91;right=362;bottom=358;edge=1;z=2};
groupbox2={cls="groupbox";text="计算区";left=377;top=91;right=625;bottom=358;edge=1;z=13}
)
/*}}*/
var onButtonCommand = function(id,event){
mainForm.edit.text = mainForm.edit.text ++ owner.text;
}
for(name,ctrl in mainForm.eachControl("button") ){
ctrl.oncommand = onButtonCommand;
}
mainForm.button15.oncommand = function(id,event){
mainForm.edit.text=eval(mainForm.edit.text);
}
mainForm.button16.oncommand = function(id,event){
mainForm.edit.text=""
}
import key.hook;
var hook=key.hook();
hook.proc = function(msg,vkcode,scancode,injected,flags,timeStamp,extraInfo){
if( injected ) return;
select(msg) {
case 0x100/*_WM_KEYDOWN*/ ,0x104/*_WM_SYSKEYDOWN*/{
mainForm.edit.setFocus();
}
case 0x101/*_WM_KEYUP*/,0x105/*_WM_SYSKEYUP*/{
if(vkcode == 13){
mainForm.edit.text=eval(mainForm.edit.text);
mainForm.msgbox("您的计算结果是"++mainForm.edit.text)
}
}
}
}
mainForm.show()
return win.loopMessage();

复制代码

---------------------------------------------------------------------------------
更新：调整了热键监听。加入错误处理。

import win.ui;
/*DSG{{*/
mainForm = win.form(text="西秦的练手计算器";right=661;bottom=465)
mainForm.add(
button={cls="button";text="+";left=392;top=112;right=492;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=14};
button10={cls="button";text="1";left=245;top=235;right=335;bottom=285;z=11};
button11={cls="button";text="0";left=46;top=295;right=235;bottom=345;z=12};
button12={cls="button";text="-";left=499;top=112;right=599;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=15};
button13={cls="button";text="*";left=392;top=210;right=492;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=16};
button14={cls="button";text="/";left=499;top=210;right=599;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=17};
button15={cls="button";text="=";left=392;top=303;right=600;bottom=347;font=LOGFONT(name='Times New Roman';h=-48);z=18};
button16={cls="button";text="清除";left=245;top=295;right=335;bottom=345;z=19};
button2={cls="button";text="7";left=45;top=115;right=135;bottom=165;z=3};
button3={cls="button";text="8";left=145;top=115;right=235;bottom=165;z=4};
button4={cls="button";text="9";left=245;top=115;right=335;bottom=165;z=5};
button5={cls="button";text="6";left=45;top=175;right=135;bottom=225;z=6};
button6={cls="button";text="5";left=145;top=175;right=235;bottom=225;z=7};
button7={cls="button";text="4";left=245;top=175;right=335;bottom=225;z=8};
button8={cls="button";text="3";left=47;top=235;right=134;bottom=285;z=9};
button9={cls="button";text="2";left=145;top=235;right=235;bottom=285;z=10};
edit={cls="edit";left=33;top=18;right=625;bottom=66;edge=1;font=LOGFONT(h=-29);multiline=1;tabstop=1;z=1};
groupbox={cls="groupbox";text="数字区";left=33;top=91;right=362;bottom=358;edge=1;z=2};
groupbox2={cls="groupbox";text="计算区";left=377;top=91;right=625;bottom=358;edge=1;z=13};
static={cls="static";left=38;top=378;right=615;bottom=415;transparent=1;z=20}
)
/*}}*/
import gdip;
var makeimage = function (text){
//图形对象graphics(可以看作是画板)
var graphics = gdip.graphics( mainForm.static ) ;
graphics.clear(0xFFFFFFFF)
//创建刷子
var brush = gdip.solidBrush(0xFFFF0000);
//创建FontFamily
var family = gdip.family("宋体");
//创建stringFormat
var strformat = gdip.stringformat ( );
//设置样式
strformat.align = 0/*_GdipStringAlignmentNear*/;
//创建Font
var curFont = family.createFont( 35,1, 2/*_GdipUnitPixel*/)
//设置文字抗据齿
graphics.smoothingMode = 4/*_GdipSmoothingModeAntiAlias*/ ;
//消除走样,且边作平滑处理
graphics.textRenderingHint = 3/*_GdipTextRenderingHintAntiAliasGridFit*/;
//设置文字区域
rclayout = gdip.RECTF();
//rclayout.x = 33;
//rclayout.y = 400;
rclayout.width = 500 //在这里指的是宽度
rclayout.height = 150 //在这里指的是高度
graphics.drawString( text , curFont
, rclayout, strformat,brush);
//删除所有GDI+对象
brush.delete()
curFont.delete()
strformat.delete();
family.delete();
}
var onButtonCommand = function(id,event){
mainForm.edit.text = mainForm.edit.text ++ owner.text;
}
for(name,ctrl in mainForm.eachControl("button") ){
ctrl.oncommand = onButtonCommand;
}
mainForm.button15.oncommand = function(id,event){
try{
var all= mainForm.edit.text;
mainForm.edit.text=eval(mainForm.edit.text);
all = all ++ "="++mainForm.edit.text
makeimage(all);
}
catch(e){
mainForm.msgbox("语句有误!");
return ;
}
}
mainForm.button16.oncommand = function(id,event){
mainForm.edit.text=""
}
mainForm.isDialogMessage = function(hwnd,msg){
if( msg.wParam == 0xD/*_VK_RETURN*/ ){
if( msg.message == 0x101/*_WM_KEYUP*/)
mainForm.button15.oncommand();
return true;
}
return win.isDialogMessage(hwnd,msg);
}
mainForm.show()
return win.loopMessage();

复制代码

-----------------------------
更新：加入历史算式功能和菜单

import win.ui;
import win.ui.menu;
/*DSG{{*/
mainForm = win.form(text="西秦的练手计算器";right=920;bottom=462)
mainForm.add(
button={cls="button";text="+";left=392;top=112;right=492;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=14};
button10={cls="button";text="1";left=245;top=235;right=335;bottom=285;z=11};
button11={cls="button";text="0";left=46;top=295;right=134;bottom=345;z=12};
button12={cls="button";text="-";left=499;top=112;right=599;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=15};
button13={cls="button";text="*";left=392;top=210;right=492;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=16};
button14={cls="button";text="/";left=499;top=210;right=599;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=17};
button15={cls="button";text="=";left=392;top=304;right=600;bottom=348;font=LOGFONT(name='Times New Roman';h=-48);z=18};
button16={cls="button";text="清除";left=245;top=295;right=335;bottom=345;z=19};
button17={cls="button";text=".";left=145;top=295;right=235;bottom=345;z=21};
button2={cls="button";text="7";left=45;top=115;right=135;bottom=165;z=3};
button3={cls="button";text="8";left=145;top=115;right=235;bottom=165;z=4};
button4={cls="button";text="9";left=245;top=115;right=335;bottom=165;z=5};
button5={cls="button";text="6";left=45;top=175;right=135;bottom=225;z=6};
button6={cls="button";text="5";left=145;top=175;right=235;bottom=225;z=7};
button7={cls="button";text="4";left=245;top=175;right=335;bottom=225;z=8};
button8={cls="button";text="3";left=47;top=235;right=134;bottom=285;z=9};
button9={cls="button";text="2";left=145;top=235;right=235;bottom=285;z=10};
edit={cls="edit";left=33;top=18;right=625;bottom=66;border=1;font=LOGFONT(h=-29);multiline=1;tabstop=1;transparent=1;z=1};
edit2={cls="edit";left=646;top=32;right=883;bottom=385;multiline=1;readonly=1;transparent=1;z=23};
groupbox={cls="groupbox";text="数字区";left=33;top=91;right=362;bottom=358;edge=1;z=2};
groupbox2={cls="groupbox";text="计算区";left=377;top=91;right=625;bottom=358;edge=1;z=13};
groupbox3={cls="groupbox";text="历史算式";left=635;top=14;right=891;bottom=402;edge=1;z=22};
static={cls="static";left=38;top=378;right=615;bottom=415;transparent=1;z=20}
)
/*}}*/
mainForm.popmenu = win.ui.popmenu(mainForm);//创建弹出菜单
mainForm.popmenu.add('&清除历史算式',function(id){
mainForm.edit2.text="";
});
mainForm.popmenu.add();//分隔线
mainForm.popmenu.add('&退出',function(id){ mainForm.close() })
var menu = win.ui.menu(mainForm);//创建主菜单
menu.add('文件',mainForm.popmenu)
mainForm.aboutmenu= win.ui.popmenu(mainForm);
mainForm.aboutmenu.add('关于我',function(id){
mainForm.msgbox("我是西秦公子")
}
)
mainForm.aboutmenu.add('关于Aardio',function(id){
mainForm.msgbox("自豪的采用Aardio")
}
)
menu.add('关于',mainForm.aboutmenu);
import gdip;
var makeimage = function (text){
//图形对象graphics(可以看作是画板)
var graphics = gdip.graphics( mainForm.static ) ;
graphics.clear(0xFFFFFFFF)
//创建刷子
var brush = gdip.solidBrush(0xFFFF0000);
//创建FontFamily
var family = gdip.family("宋体");
//创建stringFormat
var strformat = gdip.stringformat ( );
//设置样式
strformat.align = 0/*_GdipStringAlignmentNear*/;
//创建Font
var curFont = family.createFont( 35,1, 2/*_GdipUnitPixel*/)
//设置文字抗据齿
graphics.smoothingMode = 4/*_GdipSmoothingModeAntiAlias*/ ;
//消除走样,且边作平滑处理
graphics.textRenderingHint = 3/*_GdipTextRenderingHintAntiAliasGridFit*/;
//设置文字区域
rclayout = gdip.RECTF();
//rclayout.x = 33;
//rclayout.y = 400;
rclayout.width = 500 //在这里指的是宽度
rclayout.height = 150 //在这里指的是高度
graphics.drawString( text , curFont
, rclayout, strformat,brush);
//删除所有GDI+对象
brush.delete()
curFont.delete()
strformat.delete();
family.delete();
}
var onButtonCommand = function(id,event){
mainForm.edit.text = mainForm.edit.text ++ owner.text;
}
for(name,ctrl in mainForm.eachControl("button") ){
ctrl.oncommand = onButtonCommand;
}
mainForm.button15.oncommand = function(id,event){
try{
var all= mainForm.edit.text;
mainForm.edit.text=eval(mainForm.edit.text);
all = all ++ "="++mainForm.edit.text
makeimage(all);
mainForm.edit2.print(all)
}
catch(e){
mainForm.msgbox("语句有误!");
return ;
}
}
mainForm.button16.oncommand = function(id,event){
mainForm.edit.text=""
}
mainForm.isDialogMessage = function(hwnd,msg){
if( msg.wParam == 0xD/*_VK_RETURN*/ ){
if( msg.message == 0x101/*_WM_KEYUP*/)
mainForm.button15.oncommand();
return true;
}
return win.isDialogMessage(hwnd,msg);
}
mainForm.show()
return win.loopMessage();

复制代码

JacenHe · 发表于 2016-6-24 22:44:26

key.hook 是全局键盘钩子，这个不要随便用。

一般如果你是要添加快捷键，用 win.ui.accelerator （参考函数提示）
如果要添加全局快捷键 - 也应当使用 winform.reghotkey()

如果是希望按回车键默认调用哪个按钮。
在窗体设计器中右键点该按钮，选择排序到最后面就可以，这个是默认支持的。

也可以这样写：

/*
对话框上按回车键触发事件
*/
mainForm.isDialogMessage = function(hwnd,msg){

if(  msg.wParam == 0xD/*_VK_RETURN*/ ){

      if( msg.message == 0x101/*_WM_KEYUP*/)
         mainForm.button15.oncommand(); //调用按钮事件

      return true; //不要再处理该消息
}
return win.isDialogMessage(hwnd,msg);
}

yqs2016cl · 发表于 2016-6-25 12:08:47

基础上又添加些，按键没做，初学望支持！！

import win.ui;
/*DSG{{*/
mainForm = win.form(text="Aardio 计算器";right=661;bottom=376;border="thin")
mainForm.add(
button={cls="button";text="+";left=392;top=112;right=492;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=14};
button10={cls="button";text="1";left=245;top=235;right=335;bottom=285;z=11};
button11={cls="button";text="0";left=46;top=295;right=235;bottom=345;z=12};
button12={cls="button";text="-";left=499;top=112;right=599;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=15};
button13={cls="button";text="*";left=392;top=210;right=492;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=16};
button14={cls="button";text="/";left=499;top=210;right=599;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=17};
button15={cls="button";text="=";left=390;top=303;right=600;bottom=347;font=LOGFONT(name='Times New Roman';h=-48);z=18};
button16={cls="button";text="清除";left=245;top=295;right=335;bottom=345;z=19};
button2={cls="button";text="7";left=45;top=115;right=135;bottom=165;z=3};
button3={cls="button";text="8";left=145;top=115;right=235;bottom=165;z=4};
button4={cls="button";text="9";left=245;top=115;right=335;bottom=165;z=5};
button5={cls="button";text="6";left=45;top=175;right=135;bottom=225;z=6};
button6={cls="button";text="5";left=145;top=175;right=235;bottom=225;z=7};
button7={cls="button";text="4";left=245;top=175;right=335;bottom=225;z=8};
button8={cls="button";text="3";left=47;top=235;right=134;bottom=285;z=9};
button9={cls="button";text="2";left=145;top=235;right=235;bottom=285;z=10};
edit={cls="edit";left=33;top=18;right=625;bottom=69;edge=1;font=LOGFONT(h=-29);multiline=1;z=1};
groupbox={cls="groupbox";text="数字区";left=33;top=91;right=362;bottom=358;edge=1;z=2};
groupbox2={cls="groupbox";text="计算区";left=377;top=91;right=625;bottom=358;edge=1;z=13}
)
/*}}*/
var op=true,res=false, qian="";
var onButtonCommand = function(id,event){
if(res){
mainForm.edit.text =owner.text;
res=false;
}else {
mainForm.edit.text = mainForm.edit.text ++ owner.text;
}
op=true;
qian= mainForm.edit.text;
}
for(name,ctrl in mainForm.eachControl("button") ){
ctrl.oncommand = onButtonCommand;
}
var suanshuCommand =function(id,event){
res=false;
if(op){
mainForm.edit.text = mainForm.edit.text ++ owner.text;
op=false;
}else {
if(qian ==null){
mainForm.edit.text=owner.text;
}else {
mainForm.edit.text=qian ++ owner.text;
}
}
}
mainForm.button12.oncommand=suanshuCommand
mainForm.button13.oncommand=suanshuCommand
mainForm.button14.oncommand=suanshuCommand
mainForm.button.oncommand=suanshuCommand
mainForm.button15.oncommand = function(id,event){
try{
mainForm.edit.text=eval(mainForm.edit.text);
}catch(e){
var edtext =mainForm.edit.text ;
if(edtext=="+" || edtext=="-" || edtext=="*" || edtext=="/" ){
mainForm.edit.text="0";
return 0;
}
var v = string.match( edtext , "^(\D)" );
if(v){
edtext="0" ++ edtext;
}else {
edtext="0+" ++ edtext;
}
mainForm.edit.text=eval( string.match(edtext,"\d.*\d"))
}
qian=mainForm.edit.text;
res=true;
}
mainForm.button16.oncommand = function(id,event){
mainForm.edit.text=""
qian=""
}
mainForm.show()
return win.loopMessage();

复制代码

yqs2016cl · 发表于 2016-6-26 14:53:19

yqs2016cl 发表于 2016-6-25 12:08
基础上又添加些，按键没做，初学望支持！！

跟风的加了些，脑袋有点转不动，添加的是reghotkey，但是用了之后，本界面显示没问题，切换到别的界面按了键还是在计算器上显示，如果用消息回调mainForm.wndproc后，有时message是229 还有按键能用之后切换用鼠标按几下，再用键盘就不管用了，额~~~~~~~

import win.ui;
/*DSG{{*/
mainForm = win.form(text="Aardio 计算器";right=661;bottom=376;border="thin")
mainForm.add(
button={cls="button";text="+";left=392;top=112;right=492;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=15};
button10={cls="button";text="1";left=245;top=235;right=335;bottom=285;z=12};
button11={cls="button";text="0";left=46;top=295;right=133;bottom=345;z=13};
button12={cls="button";text="-";left=499;top=112;right=599;bottom=202;font=LOGFONT(name='微软雅黑';h=-48);z=16};
button13={cls="button";text="*";left=392;top=210;right=492;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=17};
button14={cls="button";text="/";left=499;top=210;right=599;bottom=300;font=LOGFONT(name='微软雅黑';h=-48);z=18};
button15={cls="button";text="=";left=390;top=303;right=600;bottom=347;font=LOGFONT(name='Times New Roman';h=-48);z=1};
button16={cls="button";text="清除";left=245;top=295;right=335;bottom=345;z=19};
button17={cls="button";text=".";left=145;top=295;right=232;bottom=345;font=LOGFONT(h=-29);valign="top";z=20};
button2={cls="button";text="7";left=45;top=115;right=135;bottom=165;z=4};
button3={cls="button";text="8";left=145;top=115;right=235;bottom=165;z=5};
button4={cls="button";text="9";left=245;top=115;right=335;bottom=165;z=6};
button5={cls="button";text="6";left=45;top=175;right=135;bottom=225;z=7};
button6={cls="button";text="5";left=145;top=175;right=235;bottom=225;z=8};
button7={cls="button";text="4";left=245;top=175;right=335;bottom=225;z=9};
button8={cls="button";text="3";left=47;top=235;right=134;bottom=285;z=10};
button9={cls="button";text="2";left=145;top=235;right=235;bottom=285;z=11};
edit={cls="edit";left=33;top=18;right=625;bottom=69;disabled=1;edge=1;font=LOGFONT(h=-29);z=2};
groupbox={cls="groupbox";text="数字区";left=33;top=91;right=362;bottom=358;edge=1;z=3};
groupbox2={cls="groupbox";text="计算区";left=377;top=91;right=625;bottom=358;edge=1;z=14}
)
/*}}*/
var op=true,res=false, qian="" ,dian=false; //op 为+-*/开关 res为等号开关 qian 为按(+-*/)的上一步的文本内容 dian 判断小数点位置开关
var onButtonCommand = function(id,event){
dian=false;
if(res){
//判断是否按了=号是！覆盖文本框否！在后面添加
mainForm.edit.text =owner.text;
res=false;
}else {
mainForm.edit.text = mainForm.edit.text ++ owner.text;
}
op=true;
qian= mainForm.edit.text;
}
var onButtonCommand2 = function(id){
dian=false;
if(res){
//判断是否按了=号是！覆盖文本框否！在后面添加
mainForm.edit.text =id;
res=false;
}else {
mainForm.edit.text = mainForm.edit.text ++ id;
}
op=true;
qian= mainForm.edit.text;
}
for(name,ctrl in mainForm.eachControl("button") ){
ctrl.oncommand = onButtonCommand;
}
var suanshuCommand =function(id,event){
res=false;dian=false;
if(op){
mainForm.edit.text = mainForm.edit.text ++ owner.text;
op=false;
}else {
if(qian ==null){
mainForm.edit.text=owner.text;
}else {
mainForm.edit.text=qian ++ owner.text;
}
}
}
var suanshuCommand2 =function(id){
res=false;dian=false;
if(op){
mainForm.edit.text = mainForm.edit.text ++ id;
op=false;
}else {
if(qian ==null){
mainForm.edit.text=id;
}else {
mainForm.edit.text=qian ++ id;
}
}
}
mainForm.button12.oncommand=suanshuCommand
mainForm.button13.oncommand=suanshuCommand
mainForm.button14.oncommand=suanshuCommand
mainForm.button.oncommand=suanshuCommand
mainForm.button17.oncommand = function(id,event){
if(res=true){
mainForm.edit.text=""
res=false;
}
if(dian=false){
if(mainForm.edit.text == ""){
mainForm.edit.text="0."
dian=true
return 0;
}
if(op == false){
mainForm.edit.text=mainForm.edit.text ++ "0."
dian=true
return 0;
}
mainForm.edit.text=mainForm.edit.text ++ "."
dian=true
}
}
mainForm.button15.oncommand = function(id,event){
try{
mainForm.edit.text=eval(mainForm.edit.text);
}catch(e){
var edtext =mainForm.edit.text ;
if(edtext=="+" || edtext=="-" || edtext=="*" || edtext=="/" ){
mainForm.edit.text="0";
return 0;
}
var v = string.match( edtext , "^(\D)" );
if(v){
edtext="0" ++ edtext;
}else {
edtext="0+" ++ edtext;
}
mainForm.edit.text=eval( string.match(edtext,"\d.*\d"))
}
qian=mainForm.edit.text;
res=true;
}
mainForm.button16.oncommand = function(id,event){
mainForm.edit.text=""
qian=""
}
/**
mainForm.wndproc = function(hwnd,message,wParam,lParam){
select( message ) {
case 256/*_WM_RBUTTONUP*/{
select(wParam) {
case 96 {
onButtonCommand2("0")
}
case 97 {
onButtonCommand2("1")
}
case 98 {
onButtonCommand2("2")
}
case 99 {
onButtonCommand2("3")
}
case 100 {
onButtonCommand2("4")
}
case 101 {
onButtonCommand2("5")
}
case 102 {
onButtonCommand2("6")
}
case 103 {
onButtonCommand2("7")
}
case 104 {
onButtonCommand2("8")
}
case 105 {
onButtonCommand2("9")
}
case 106 {
suanshuCommand2("*")
}
case 107 {
suanshuCommand2("+")
}
case 111 {
suanshuCommand2("/")
}
case 109 {
suanshuCommand2("-")
}
case 110 {
mainForm.button17.oncommand(0,0)
}
}
}
}
}
**/
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("0")},0,96)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("1")},0,97)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("2")},0,98)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("3")},0,99)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("4")},0,100)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("5")},0,101)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("6")},0,102)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("7")},0,103)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("8")},0,104)
mainForm.reghotkey( function(id,mod,vk){onButtonCommand2("9")},0,105)
mainForm.reghotkey( function(id,mod,vk){suanshuCommand2("*")},0,106)
mainForm.reghotkey( function(id,mod,vk){suanshuCommand2("+")},0,107)
mainForm.reghotkey( function(id,mod,vk){suanshuCommand2("/")},0,111)
mainForm.reghotkey( function(id,mod,vk){suanshuCommand2("-")},0,109)
mainForm.reghotkey( function(id,mod,vk){mainForm.button17.oncommand()},0,110)
mainForm.show()
return win.loopMessage();

复制代码

用户名		自动登录	找回密码
密码			注册会员

aardio 计算器 源码分享

aardio 计算器源码分享