设为首页收藏本站
切换到宽版

 找回密码
 立即注册

微信登录

只需一步，快速开始

QQ登录

只需一步，快速开始

搜索
非业余 - aardio 编程语言 - 非官方问答社区»论坛 › aardio 编程语言 › 源码分享 › 磁矩表磁计算器
返回列表 发新帖
查看: 497|回复: 0

[心得] 磁矩表磁计算器

[复制链接]
鹿其
  • TA的每日心情
    奋斗
    2024-9-15 10:28

    • 签到天数: 7 天

    连续签到: 2 天

    [LV.3]偶尔看看II

    3

    主题

    10

    回帖

    128

    积分

    培训会员

    积分
    128
    来自: 中国浙江宁波
    发表于 2024-6-14 11:18:58 | 显示全部楼层 |阅读模式 来自: 中国浙江宁波
    非业余 - aardio 编程语言 - 非官方问答社区
    限时85折！暑假期间，用aardio培训班充实自己！https://mp.weixin.qq.com/s/c4Z8sZPOiMh_OTG2VPOJmA
    Aardio培训大揭秘，轻松上手打造个人项目！https://mp.weixin.qq.com/s/cr47qhp_Cpz0p57lbbPwug
    aardio风行者第二期培训班https://mp.weixin.qq.com/s/uB6XHUDnGSk0JlWuiBE9AA
    请老师们抽空帮看看，有哪些代码走了弯路，有哪些不良的习惯，请帮我纠正一下。谢谢！

    有几个地方现在处理不了：
    1）输入限制，输入框只允许输入带小数点的数字

    [AAuto] 纯文本查看 复制代码
    import fonts.fontAwesome;
import win.ui;
/*DSG{{*/
mainForm = win.form(text="磁矩表磁计算器";right=599;bottom=553;border="dialog frame";max=false)
mainForm.add(
bkplusAS={cls="bkplus";text="Anson  ";left=101;top=8;right=580;bottom=28;align="right";bgcolor=12639424;color=15793151;forecolor=15780518;linearGradient=1;z=2};
bkplusD={cls="bkplus";left=20;top=303;right=580;bottom=543;bgcolor=12639424;db=1;dl=1;dr=1;z=3};
bkplusF={cls="bkplus";left=20;top=30;right=580;bottom=270;bgcolor=15780518;dl=1;dr=1;dt=1;z=4};
bkplusLK={cls="bkplus";text="说明  ";left=101;top=281;right=580;bottom=301;align="right";bgcolor=15780518;color=15793151;forecolor=12639424;linearGradient=0;z=1};
buttonD={cls="button";text="点击计算";left=247;top=471;right=461;bottom=532;border=1;color=14120960;db=1;dr=1;font=LOGFONT(h=-14);note="磁化方向必须填在高度方向";z=8};
buttonF={cls="button";text="点击计算";left=247;top=192;right=461;bottom=254;border=1;color=14120960;dr=1;dt=1;font=LOGFONT(h=-14);note="磁化方向必须填在高度方向";z=6};
checkboxBC1={cls="checkbox";text="启用";left=484;top=221;right=552;bottom=243;bgcolor=15780518;checked=1;z=40};
checkboxBC2={cls="checkbox";text="启用";left=484;top=499;right=552;bottom=521;bgcolor=12639424;checked=1;z=42};
editBr={cls="edit";left=116;top=191;right=234;bottom=213;dl=1;dt=1;edge=1;tabstop=1;z=29};
editBr2={cls="edit";left=115;top=452;right=233;bottom=474;dl=1;dt=1;edge=1;tabstop=1;z=33};
editCS1={cls="edit";text="3";left=483;top=81;right=536;bottom=103;edge=1;readonly=1;z=17};
editCS2={cls="edit";text="3";left=483;top=355;right=536;bottom=377;edge=1;readonly=1;z=21};
editD={cls="edit";left=115;top=339;right=229;bottom=361;db=1;dl=1;edge=1;group=1;tabstop=1;z=31};
editH={cls="edit";left=116;top=150;right=234;bottom=172;dl=1;dt=1;edge=1;tabstop=1;z=28};
editL={cls="edit";left=116;top=68;right=234;bottom=90;dl=1;dt=1;edge=1;tabstop=1;z=26};
editMM1={cls="edit";text="0";left=481;top=146;right=552;bottom=166;edge=1;readonly=1;z=19};
editMM2={cls="edit";text="0";left=483;top=418;right=554;bottom=440;edge=1;readonly=1;z=23};
editS1={cls="edit";text="0.01";left=116;top=232;right=234;bottom=254;dl=1;dt=1;edge=1;tabstop=1;z=30};
editS2={cls="edit";text="0.01";left=115;top=509;right=233;bottom=531;dl=1;dt=1;edge=1;tabstop=1;z=34};
editT={cls="edit";left=115;top=396;right=229;bottom=418;db=1;dl=1;edge=1;group=1;tabstop=1;z=32};
editW={cls="edit";left=116;top=109;right=234;bottom=131;dl=1;dt=1;edge=1;tabstop=1;z=27};
groupbox3={cls="groupbox";text="磁损(%)";left=471;top=332;right=566;bottom=388;bgcolor=12639424;edge=1;z=20};
groupbox7={cls="groupbox";text="亮片磁矩";left=471;top=394;right=566;bottom=450;bgcolor=12639424;edge=1;z=22};
groupboxBC1={cls="groupbox";text="表磁补偿";left=471;top=189;right=566;bottom=253;bgcolor=15780518;edge=1;z=39};
groupboxBC2={cls="groupbox";text="表磁补偿";left=471;top=468;right=566;bottom=532;bgcolor=12639424;edge=1;z=41};
groupboxGs1={cls="groupbox";text="亮片磁矩";left=471;top=120;right=566;bottom=176;bgcolor=15780518;edge=1;z=18};
groupboxMM1={cls="groupbox";text="磁损(%)";left=471;top=58;right=566;bottom=114;bgcolor=15780518;edge=1;z=16};
listviewD={cls="listview";left=247;top=340;right=461;bottom=452;edge=1;fullRow=1;msel=false;z=37};
listviewF={cls="listview";left=247;top=68;right=461;bottom=176;edge=1;fullRow=1;msel=false;z=35};
plus3={cls="plus";text=" 方块产品";left=7;top=16;right=117;bottom=50;align="right";bgcolor=12639424;clipBk=false;dl=1;dt=1;edge=1;font=LOGFONT(h=-18;name='微软雅黑');forecolor=15780518;iconStyle={align="left";font=LOGFONT(h=-18;name='FontAwesome');padding={left=12}};iconText='\uF04D';linearGradient=1;z=9};
plus4={cls="plus";text=" 圆柱产品";left=8;top=288;right=118;bottom=322;align="right";bgcolor=15780518;clipBk=false;dl=1;dt=1;edge=1;font=LOGFONT(h=-18;name='微软雅黑');forecolor=12639424;iconStyle={align="left";font=LOGFONT(h=-18;name='FontAwesome');padding={left=12}};iconText='\uF111';linearGradient=1;z=10};
spin1={cls="spin";left=536;top=81;right=556;bottom=103;z=36};
spin2={cls="spin";left=536;top=355;right=556;bottom=377;z=38};
staticBr1={cls="static";text="Br(kGs)：";left=48;top=190;right=116;bottom=212;center=1;dl=1;dt=1;font=LOGFONT(name='微软雅黑');transparent=1;z=13};
staticBr2={cls="static";text="Br(kGs)：";left=41;top=452;right=109;bottom=474;center=1;dl=1;dt=1;transparent=1;z=15};
staticD={cls="static";text="直径(mm)：";left=41;top=339;right=109;bottom=361;center=1;db=1;dl=1;group=1;transparent=1;z=7};
staticH={cls="static";text="高(mm)：";left=48;top=149;right=102;bottom=171;center=1;dl=1;dt=1;font=LOGFONT(name='微软雅黑';weight=700);transparent=1;z=12};
staticL={cls="static";text="长(mm)：";left=48;top=68;right=102;bottom=90;center=1;dl=1;dt=1;font=LOGFONT(name='微软雅黑');transparent=1;z=5};
staticS1={cls="static";text="距离(mm)：";left=48;top=230;right=116;bottom=252;center=1;dl=1;dt=1;font=LOGFONT(name='微软雅黑');transparent=1;z=25};
staticS2={cls="static";text="距离(mm)：";left=41;top=509;right=109;bottom=531;center=1;dl=1;dt=1;transparent=1;z=24};
staticT={cls="static";text="高度(mm)：";left=41;top=396;right=109;bottom=418;center=1;db=1;dl=1;font=LOGFONT(weight=700);group=1;transparent=1;z=14};
staticW={cls="static";text="宽(mm)：";left=48;top=109;right=102;bottom=131;center=1;dl=1;dt=1;font=LOGFONT(name='微软雅黑');transparent=1;z=11}
)
/*}}*/

_Urec = 1.05;         //回复磁导率
_Pai = math.pi;                //圆周率

mainForm.bkplusAS.text = "Anson   _v1.12_24_0613  ";
mainForm.bkplusLK.text = "基于黑片状态计算，需要考虑公差、倒角、酸洗、镀层屏蔽等因素。";

/*listview控件*/
//属性设置“选择整行”
//插入列
mainForm.listviewF.insertColumn("项目",80);
mainForm.listviewF.insertColumn("数据",60);
mainForm.listviewF.insertColumn("单位",60);
mainForm.listviewF.fillParent() //让最后一列自动填满控件  

mainForm.listviewD.insertColumn("项目",80);
mainForm.listviewD.insertColumn("数据",60);
mainForm.listviewD.insertColumn("单位",60);
mainForm.listviewD.fillParent() //让最后一列自动填满控件  

//表磁补偿选择框1
if(mainForm.checkboxBC1.checked){
        mainForm.editS1.text = "0.5";
        mainForm.editS1.readonly =false;
}else {
        mainForm.editS1.text = "0.01";
        mainForm.editS1.readonly =true;
}

//表磁补偿选择框2
if(mainForm.checkboxBC2.checked){
        mainForm.editS2.text = "0.5";
        mainForm.editS2.readonly =false;
}else {
        mainForm.editS2.text = "0.01";
        mainForm.editS2.readonly =true;
}

var mm1 = 0;        //黑片磁矩变量，不考虑磁损
//方块产品计算
mainForm.buttonF.oncommand = function(id,event){
        mainForm.listviewF.clear()
        mainForm.editL.text = string.trim(mainForm.editL.text);
        if mainForm.editL.text == ""{
                mainForm.msgboxErr("方块长度数值不能为空");
                mainForm.editL.setFocus();
        return ;         
        }
        mainForm.editW.text = string.trim(mainForm.editW.text);
        if mainForm.editW.text == ""{
                mainForm.msgboxErr("方块宽度数值不能为空");
                mainForm.editW.setFocus();
        return ;         
        }
        mainForm.editH.text = string.trim(mainForm.editH.text);
        if mainForm.editH.text == ""{
                mainForm.msgboxErr("方块高度数值不能为空");
                mainForm.editH.setFocus();
        return ;         
        }
        mainForm.editBr.text = string.trim(mainForm.editBr.text);
        if mainForm.editBr.text == ""{
                mainForm.msgboxErr("剩磁Br数值不能为空");
                mainForm.editBr.setFocus();
        return ;         
        }
        mainForm.editS1.text = string.trim(mainForm.editS1.text);
        if mainForm.editS1.text == ""{
                mainForm.msgboxErr("距离数值不能为空");
                mainForm.editS1.setFocus();
        return ;         
        }

        var a = math.abs(tonumber( mainForm.editL.text));                //方块长度，取绝对值
        var b = math.abs(tonumber( mainForm.editW.text));                //方块宽度，取绝对值
        var L = math.abs(tonumber( mainForm.editH.text));                //方块高度，取绝对值，大写是为了区分
        var V = a*b*L;                //方块体积
        var Pc = math.sqrt(_Pai*(a*b+(a+b)*L))*L/(a*b);
                Pc = math.round(Pc,2);                //保留2位小数
                mainForm.listviewF.addItem({
                text={"磁导系数Pc",Pc,"(--)"}
                })
        
        var Br = math.abs(tonumber(mainForm.editBr.text));        //方块剩磁
        var Bdi = Br*(Pc+1)/(_Urec+Pc);                //本质磁通密度
        
                mm1 = V*Bdi/100;
                mm1 = math.round(mm1,2);                //保留2位小数
                mainForm.listviewF.addItem({
                text={"磁矩",mm1,"(uVS·cm)"}
                })
                //磁损后的磁矩
        var mm =math.round(mm1*(100-tonumber(mainForm.editCS1.text))/100,2);
                mainForm.editMM1.text=mm;
        
        var X1 = math.abs(tonumber( mainForm.editS1.text));                //探头的气隙，距离磁铁表面的距离
        var G1 = math.atan(a*b/(2*X1*math.sqrt(a**2+b**2+4*X1**2))); 
        var G2 = math.atan(a*b/(2*(X1+L)*math.sqrt(a**2+b**2+4*(X1+L)**2)));
                var Gs = 0;
        if(mainForm.checkboxBC1.checked){
                Gs = Bdi*1000/_Pai*(G1-G2);        
        }else {
                Gs = Br*1000/_Pai*(G1-G2);
        }
                Gs = math.round(Gs,1);                //保留1位小数
                mainForm.listviewF.addItem({
                text={"中心表磁",Gs,"(Gs)"}
                })
        }

var mm2 = 0 ; 
//圆柱产品计算
mainForm.buttonD.oncommand = function(id,event){
        mainForm.listviewD.clear()
        mainForm.editD.text = string.trim(mainForm.editD.text);
        if mainForm.editD.text == ""{
                mainForm.msgboxErr("圆柱直径数值不能为空");
                mainForm.editD.setFocus();
        return ;         
        }
        mainForm.editT.text = string.trim(mainForm.editT.text);
        if mainForm.editT.text == ""{
                mainForm.msgboxErr("圆柱高度数值不能为空");
                mainForm.editT.setFocus();
        return ;         
        }        
        mainForm.editBr2.text = string.trim(mainForm.editBr2.text)
        if mainForm.editBr2.text == ""{
                mainForm.msgboxErr("剩磁Br数值不能为空");
                mainForm.editBr2.setFocus();
        return ;         
        }
        mainForm.editS2.text = string.trim(mainForm.editS2.text);
        if mainForm.editS2.text == ""{
                mainForm.msgboxErr("距离数值不能为空");
                mainForm.editS2.setFocus();
        return ;         
        }                
        
        var d = math.abs(tonumber( mainForm.editD.text));                //圆柱直径，取绝对值
        var L = math.abs(tonumber( mainForm.editT.text));                //圆柱高度，取绝对值
        var R = d/2;
        var V = _Pai*R**2*L;                //圆柱体积，取绝对值，2个*号连在一起是幂运算，这里2是平方，3是立方
        var Pc = math.sqrt(R*(R+L))*L/(R**2);
                Pc = math.round(Pc,2);                //保留2位小数
                mainForm.listviewD.addItem({
                text={"磁导系数Pc",Pc,"(--)"}
                })
                
        var Br = math.abs(tonumber(mainForm.editBr2.text));        //方块剩磁
        var Bdi = Br*(Pc+1)/(_Urec+Pc);                //本质磁通密度        
        
                mm2 = V*Bdi/100;
                mm2 = math.round(mm2,2);                //保留2位小数
                mainForm.listviewD.addItem({
                text={"磁矩",mm2,"(uVS·cm)"}
                })
                var mm =math.round(mm2*(100-tonumber(mainForm.editCS2.text))/100,2);
                mainForm.editMM2.text=mm;
                
        var X2 = math.abs(tonumber( mainForm.editS2.text));                //探头的气隙，距离磁铁表面的距离
        var G1 = (X2+L)/math.sqrt(4*(X2+L)**2+d**2); 
        var G2 = X2/math.sqrt(4*X2**2+d**2);
                var Gs = 0; 
                if(mainForm.checkboxBC2.checked){
                        Gs = Bdi*1000*(G1-G2);
                }else {
                        Gs = Br*1000*(G1-G2);
                }
                Gs = math.round(Gs,1);                //保留1位小数
                mainForm.listviewD.addItem({
                text={"中心表磁",Gs,"(Gs)"}
                })        
}

//滚动选框1
mainForm.spin1.setRange(0,30)  //磁损最多也就30%了吧
mainForm.spin1.pos = mainForm.editCS1.text;
mainForm.spin1.oncommand = function(id,event,pos){
        if( event == 8/*_SB_ENDSCROLL*/ ){
                mainForm.editCS1.text = mainForm.spin1.pos;
        }
}
mainForm.editCS1.onChange = function(){
        mainForm.spin1.pos = mainForm.editCS1.text;
        var mm = math.round(mm1*(100-tonumber(owner.text))/100,2);
        mainForm.editMM1.text=mm;
}

//滚动选框2
mainForm.spin2.setRange(0,30)  //磁损最多也就30%了吧
mainForm.spin2.pos = mainForm.editCS2.text;
mainForm.spin2.oncommand = function(id,event,pos){
        if( event == 8/*_SB_ENDSCROLL*/ ){
                mainForm.editCS2.text = mainForm.spin2.pos;
        }
}

mainForm.editCS2.onChange = function(){
        var mm = math.round(mm2*(100-tonumber(owner.text))/100,2);
        mainForm.editMM2.text=mm;
}

mainForm.checkboxBC1.oncommand = function(id,event){
        if(owner.checked){
                mainForm.editS1.text = "0.5";
                mainForm.editS1.readonly =false;
        }else {
                mainForm.editS1.text = "0.01";
                mainForm.editS1.readonly =true;        
        }
}

mainForm.checkboxBC2.oncommand = function(id,event){
        if(owner.checked){
                mainForm.editS2.text = "0.5";
                mainForm.editS2.readonly =false;
        }else {
                mainForm.editS2.text = "0.01";
                mainForm.editS2.readonly =true;        
        }
}

mainForm.show();
return win.loopMessage();


    quot, right, left, bottom, cls
    非业余 - aardio 编程语言 - 非官方问答社区
    限时85折！暑假期间，用aardio培训班充实自己！https://mp.weixin.qq.com/s/c4Z8sZPOiMh_OTG2VPOJmA
    Aardio培训大揭秘，轻松上手打造个人项目！https://mp.weixin.qq.com/s/cr47qhp_Cpz0p57lbbPwug
    aardio风行者第二期培训班https://mp.weixin.qq.com/s/uB6XHUDnGSk0JlWuiBE9AA

    相关帖子
    回复

    使用道具 举报

    返回列表 发新帖
    *滑块验证:
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    Archiver|手机版|小黑屋|非业余 - aardio 编程语言 - 非官方问答社区 知道创宇云防御

    GMT+8, 2024-11-21 14:57 , Processed in 0.117835 second(s), 30 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

    快速回复 返回顶部 返回列表