找回密码
 立即注册

微信登录

只需一步,快速开始

QQ登录

只需一步,快速开始

搜索
查看: 575|回复: 0

[分享] 随机点名器(刚开始)请大佬指点

[复制链接]
  • TA的每日心情
    开心
    2024-4-8 22:39
  • 签到天数: 4 天

    连续签到: 1 天

    [LV.2]偶尔看看I

    2

    主题

    5

    回帖

    45

    积分

    培训会员

    积分
    45
    来自: 中国河北邯郸
    发表于 2024-3-8 10:22:15 | 显示全部楼层 |阅读模式 来自: 中国河北邯郸
    非业余 - 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{{*/
    winform = win.form(text="随机点名器";right=799;bottom=449)
    winform.add(
    btnOpen={cls="button";text="打开文件";left=363;top=199;right=463;bottom=249;z=3};
    btnPointName={cls="button";text="点名";left=174;top=199;right=274;bottom=249;z=2};
    姓名={cls="static";left=278;top=47;right=548;bottom=147;align="center";border=1;center=1;color=255;font=LOGFONT(h=-64;name='楷体');notify=1;transparent=1;z=1}
    )
    /*}}*/
    
    winform.姓名.text = "会是谁?"
    winform.btnPointName.disabled = true;
    import fsys.dlg;
    winform.btnOpen.oncommand = function(id,event){
    	var path = fsys.dlg.open("文本文件|*.txt","请选择学生名单文件",,winform);
    	if( path ){ 
    		var 全体姓名 = string.load(path);
    		姓名列表 = string.split(全体姓名,'<\r\n>');
    		winform.btnPointName.disabled = false;
    	}
    }
    /*
    if( 姓名列表 != null ){ 
    	winform.btnPointName.disabled = false;
    }
    else{ 
    	winform.btnPointName.disabled = true;
    }*/
    //创建定时器
    import win.timer;
    var 定时器 = win.timer(winform);
    定时器.onTimer = function(){
    	幸运数字 = math.random(1,#姓名列表);
    	winform.姓名.text = 姓名列表[幸运数字];
    }
    //点名的开关
    var flag = true;
    winform.btnPointName.oncommand = function(id,event){
    	if( flag ){
    		定时器.enable(10);
    		flag = false;
    	}
    	else{
    		定时器.disable();
    		flag = true;
    		if( #姓名列表 != 1 ){ 
    			table.remove(姓名列表,幸运数字);
    			//console.print("现在还剩"+#姓名列表+"人")
    		}
    	}
    }
    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-11-21 17:05 , Processed in 0.123037 second(s), 31 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

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