“易语言.飞扬”做的电子板
下载地址(含源代码):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 "
{
公开 窗口场景 场景;
公开 整数[] 板数组;
位图 位图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 "