曲线-初级程序-极语言教程

//窗体代码:

整数 窗体,滑块;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-561)>>1,上=(桌面.高-581)>>1;
窗体=创建窗口($100,程序.名称,"窗口标题",$10C80000,左,上,561,581,0,0,0,0);
滑块=创建窗口($0,"msctls_trackbar32","",$50010000,10,510,510,30,窗体,1,22,0);
窗体启动;读取消息
结束

 

//程序代码:

小程序 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 水平滚动{如果(参数 & 255=5)曲线显示(参数 >>14)}
    否则{处理窗口(窗口,消息,参数,数据)}
结束

整数 设备;文本 位置[16];小数 角=15,度=0.00872664625

小程序 窗体启动
    设备=取设备(窗体)
    移到(设备,240,480,0);
    读取消息
结束

小程序 曲线显示(整数 数)
    整数 上,左;小数 勾,股
    角=数 * 0.0174532925
    股=(角)余弦
    勾=(角)正弦
    左=勾 * 240
    上=股 * 240
    格式化(位置,"%d %d %d",左,上,数)
    改窗口字(窗体,位置)
    画线(设备,左+240, 240+上)
结束;