排序-初级程序-极语言教程

//窗体代码:

整数 窗体,按钮1,标签2;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-417)>>1,上=(桌面.高-321)>>1;
窗体=创建窗口($100,程序.名称,"单线程排序",$14CF0064,左,上,417,321,0,0,0,0);
按钮1=创建窗口($0,"Button","测试",$50000000,155,105,70,35,窗体,1,3,0);
标签2=创建窗口($0,"Static","毫秒",$50000000,150,50,70,20,窗体,2,2,0);
窗体启动;读取消息
结束

//程序代码:

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键 测试排序
否则{处理窗口(窗口,消息,参数,数据)}
结束;
小程序 窗体启动
桌面.左=窗体
读取消息
结束;
小程序 测试排序
    整数 缓存=申请内存(1000000000)
    整数 数值,文件,时间
文件=开文件("01.dat",0)
读文件(文件,缓存,1000000000)
时间=开机毫秒;排序(缓存,250000000,4,@比较)
时间=开机毫秒-时间
释放内存(缓存)关文件(文件)
改控件数(窗体,2,时间,0)
结束;
小程序 比较
指令[8B45088B4D0C8B002B01]
结束;