极语言6-9 运算电路原理源码

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)

判断(消息)为 窗口关闭 停止(0)
为 单击左键 左键点击(参数)
否则 处理窗口(窗口,消息,参数,数据)

结束;
整数 图一,图二,图三,算法=1,控件()
小程序 窗体启动
图一=加载图像(0,"1.bmp",0,0,0,$10)
图二=加载图像(0,"2.bmp",0,0,0,$10)
图三=加载图像(0,"3.bmp",0,0,0,$10)
显示图片(图一)重置 控件(24)
按钮复选(窗体,1,1)桌面.左=窗体
创建控件;读取消息
结束;
小程序 左键点击(整数 编号)

判断(编号)
为 1{算法=1;显示图片(图一)}
为 2{算法=2;显示图片(图二)}
为 3{算法=3;显示图片(图三)}
为 4{算法=4;显示图片(图三)}
为 7显示运算

结束;
小程序 显示图片(整数 图像)
显隐窗口(背景,0)
发送消息(背景,换静图片,0,图像)
显隐窗口(背景,1)结束;
小程序 创建控件

整数 指针,左=200,上=8;
循环数组(指针>控件)
{
    如果(左=1000)
    {
        指针=创建窗口(0,"Static","#1",$4000000E,376,上,85,85,窗体,0,$400000,0)
        左=200;上+100;
    }
    否则
    {
        指针=创建窗口(0,"Static","",$40000006,左,上+32,30,25,窗体,0,0,0)
        左+400
    }
}

结束;
小程序 显示运算

整数 结果,开关,数,值,序=128,号=0
数=取控件数(窗体,5,0,1)
值=取控件数(窗体,6,0,1)
判断(算法)
为 1结果=数 & 值
为 2结果=数 | 值
为 3结果=!数
为 4结果=数 ^ 值
改控件数(窗体,8,结果,1)
循环
{
开关=如果是(数 & 序)0,5
显隐窗口(控件(号),开关)
开关=如果是(值 & 序)0,5
显隐窗口(#4,开关)
开关=如果是(结果 & 序)5,0
显隐窗口(#8, 开关)
号+3;序=序 >> 1;
}(号>=24)

结束;