“易语言.飞扬”做的电子板（含源代码），作者大伟

“易语言.飞扬”做的电子板

下载地址（含源代码）：http://bbs.dywt.com.cn/dispbbs.asp?boardID=148&ID=146448&page=1

 

 

此“易语言.飞扬”程序的完整源代码请到论坛下载，以下是部分核心代码：

公开 类 电子板
{
    公开 窗口场景 场景;
    公开 整数[] 板数组;
    位图 位图1,位图2;
    
    公开 初始化(用户界面.面板 面板)
    {
        场景 = 创建 窗口场景(面板);
        板数组 = 创建 整数[设置.电子板宽][设置.电子板高]; // 初始状态=0
        位图1 = 创建 位图();
        位图1.加载( " pic暗.bmp " ,位图类型.BMP);
        位图2 = 创建 位图();
        位图2.加载( " pic亮.bmp " ,位图类型.BMP);
        文本 ccc = 辅助类.取当前目录();
    }

    刷新电子板()
    {
        整数 a,b,x,y;
        计次循环(设置.电子板宽,a)
        {
            计次循环(设置.电子板高,b)
            {
                x = 10 + a * 设置.灯宽;y = 10 + b * 设置.灯高;
                如果(板数组[a][b] == 0 ) 场景.画位图(位图1,x,y,真);
                否则 场景.画位图(位图2,x,y,真);
            }
        }
    }

    公开 重置电子板() // 重置电子板为白灯状态
    {
        板数组.清零();
        刷新电子板();
    }

    公开 显示(文本 显示文本)
    {
        整数 数字,汉字,x,行,列,a,b,c;
        文本 字,文本;
        计次循环(显示文本.长度(),x)
        {
            字 = 显示文本.中间(x, 1 );
            假如(字)
            {
                为  " # " , " 1 " , " 2 " , " 3 " , " 4 "