找回密码
 立即注册

微信登录

只需一步,快速开始

QQ登录

只需一步,快速开始

搜索
查看: 315|回复: 0

[分享] 通用代码:猜数字

[复制链接]
  • TA的每日心情
    奋斗
    2024-3-20 10:26
  • 签到天数: 18 天

    连续签到: 1 天

    [LV.4]偶尔看看III

    21

    主题

    39

    回帖

    450

    积分

    培训会员

    积分
    450
    来自: 中国重庆
    发表于 2024-2-23 12:55:54 | 显示全部楼层 |阅读模式 来自: 中国重庆
    非业余 - 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
    [AAuto] 纯文本查看 复制代码
    //猜数字
    import win.ui;
    import console;
    /*DSG{{*/
    var winform = win.form(text="aardio form";right=693;bottom=361)
    winform.add(
    button={cls="button";text="提交";left=487;top=149;right=592;bottom=196;z=1};
    editNumber={cls="edit";left=247;top=149;right=423;bottom=192;edge=1;multiline=1;z=3};
    static={cls="static";text="请输入数字";left=53;top=149;right=182;bottom=195;font=LOGFONT(h=-21);transparent=1;z=2};
    static2={cls="static";text="猜数字";left=260;top=22;right=411;bottom=79;font=LOGFONT(h=-43);transparent=1;z=4}
    )
    /*}}*/
    
    //随机数字
    randNumber = math.random(1,100)
    
    winform.button.oncommand = function(id,event){
    	var number = tonumber(winform.editNumber.text):0
    	if(number==randNumber) {
    		winform.msgbox("猜中了")
    	}
    	elseif(number<randNumber){
    		winform.msgbox("猜小了")
    	} 
    	else{
    		winform.msgbox("猜大了")
    	}
    }
    
    winform.show();
    win.loopMessage();

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有账号?立即注册

    ×
    非业余 - 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
    回复

    使用道具 举报

    *滑块验证:
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    Archiver|手机版|小黑屋|非业余 - aardio 编程语言 - 非官方问答社区

    GMT+8, 2024-9-17 03:30 , Processed in 0.123571 second(s), 31 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

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