欢迎访问 Lu程序设计

Lu窗口库LuWin

目  录

1 什么是LuWin [返回页首]

    LuWin64.dll是一个Lu扩展动态库，主要包含一些窗口函数，特别是绘制2D或3D图形的函数。多线程动态绘制图形是LuWin的基本特点。

    LuWin主要由 网友笨笨开发的数据可视化库CChart提供支持，保留所有权利。 笨笨兄的E-mail：baita00@aliyun.com，QQ、微信：1541583，官方网站：www.cchart.net。

    在LuWin中的函数是通过二级函数命名空间“win”输出的，所有函数均具有类似“win::Plot(...)”的格式。使用!!!using("win");可简化LuWin中的函数访问。

    LuWin64.dll需要MLu64.dll的支持。

2 ChartWnd [返回页首]

    LuWin中的ChartWnd直接对数据可视化库CChart的包装类CChartWnd中的函数进行了封装。ChartWnd在独立的线程中运行，用户在ChartWnd窗口进行键盘或鼠标操作时，会转换为相应的Lu函数调用，以获取数据及属性进行绘图。 除函数cwSetExeMsg外，其他以cw开头的函数，只有在ChartWnd窗口线程中调用时，才会起作用。ChartWnd既可静态显示图形，也可动态显示图形。ChartWnd的动态运行机制见下图：

[返回页首] win::ChartWnd(@init)：显示窗口并进行初始化。

    init：初始化函数句柄 ，仅在窗口创建时调用一次。一般在初始化函数中添加图形数据、属性、用户操作图形界面时需要调用的函数等。

    返回值：窗口句柄。

    运行错误：1：非法的函数句柄。

    [例子]：

[返回页首] win::cwAttach(type, left,top,right,botton)：设置图像类型，并粘到窗口。

    type：图像类型。可取的值为：typeXY（折线图、普通XY图）、typePie（饼图）、typeStem（柱图）、typeOscillo（模拟示波器图）、typeContourLine（等高线图）、typeContourMap（ 等高云图）、typeSplit（分裂视图）、typeShareX（共享X轴视图）、typeLayered（分层视图）、type3DLine（三维折线图、3D曲线图）、type3DSurface（三维曲面图、3D曲面图）。
    left,top,right,botton：客户区坐标。

    返回值：逻辑值true或false。

    运行错误：1：参数个数不符合要求；2：非法的绘图类型；3： 非法的客户区坐标。

    用法1：cwAttach()       //默认typeXY类型
    用法2：cwAttach(type)
    用法3：cwAttach(type, left,top,right,botton)

    [例子1]：饼图

    [例子5]：3D曲线

    [例子6]：3D曲面

    [例子7]：定时器例子：自动演示一段折线动画

    [例子8]：参数修改窗口控制的例子

[返回页首] win::cwAddCurve(... ...)：添加二维曲线

    用法1：cwAddCurve()                          //默认0号子图，添加空曲线
    用法2：cwAddCurve(nPlot)                     //添加nPlot号子图空曲线
    用法3：cwAddCurve(pX, pY, nLen)              //默认0号子图，添加曲线：pX和pY是一维实数数组，nLen是数据个数
    用法4：cwAddCurve(pX, pY, nLen, nPlot)       //添加nPlot号子图曲线：pX和pY是一维实数数组，nLen是数据个数
    用法5：cwAddCurve(pStrTime, fmt, pY, nLen)        //默认0号子图，添加曲线：X坐标pStrTime是时间字符串 ，fmt是格式字符串；Y坐标pY是一维实数数组，nLen是数据个数
    用法6：cwAddCurve(pStrTime, fmt, pY, nLen, nPlot) //添加nPlot号子图曲线：X坐标pStrTime是时间字符串 ，fmt是格式字符串；Y坐标pY是一维实数数组，nLen是数据个数

    时间字符串pStrTime（包含nLen个时间字符串，每个时间字符串之间用字符"\%"分隔）的格式由格式字符串fmt解释，fmt包含了普通字符和特殊格式说明符的任何组合，说明符意义见下表：

    例如：时间字符串pStrTime="2018-09-19 08:59:07\%2018-09-20 08:59:07\%2018-09-20 09:59:07\%"，格式字符串fmt="%Y-%m-%d %H:%M:%S"。

    返回值：曲线的ID号，注意不是序号，返回-1表示添加曲线失败。

    运行错误：1：参数个数不符合要求；2：参数不符合要求 ；3：内存错误。

[返回页首] win::cwClearData(nData, nPlot)：清除曲线数据。

    nData：曲线的序号nIndex。
    nPlot：分裂视图、分层视图、共享X轴视图的子图序号。

    用法1：cwClearData()             //清除全部曲线数据
    用法2：cwClearData(nPlot)        //清除nPlot子图所有曲线数据
    用法3：cwClearData(nData, nPlot) //清除nPlot子图的第nData条曲线数据

    返回值：无意义。

    运行错误：1：参数个数不符合要求；2：参数不符合要求。

[返回页首] win::cwResizePlots(...)：设置子图数量或图层数量。

    用法1：cwResizePlots(nLayers)             //设置图层数量，用于分层视图、共享X轴视图，nLayers为大于0的整数。
    用法2：cwResizePlots(mode, nRows, nCols)  //设置子图数量，用于分裂视图，其中mode（0～5）表示分裂模式；nRows（大于0）表示行数，nCols（大于0）表示列数 ，这两个参数只有mode为1时起作用。

    分裂视图的分裂模式：0表示不分裂；1表示行列分裂；2表示左一右二的三分裂；3表示左二右一的三分裂；4表示上一下二的三分裂；5表示上二下一的三分裂。

    返回值：逻辑值，true表示成功。

    [例子1]：共享X轴视图

    [例子2]：分层视图

    [例子3]：分裂视图

[返回页首] win::cwSetGridLine(... ...)：设置网格线的绘制

    用法1：cwSetGridLine(MajorH, MajorV, MinorH, MinorV, nPlotIndex)

    说明：MajorH, MajorV, MinorH, MinorV为逻辑值；nPlotIndex为整数，是分裂视图、分层视图、共享X轴视图的子图序号 。所有参数均可缺省，缺省值为：MajorH=true, MajorV=true, MinorH=false, MinorV=false。返回逻辑值，true表示成功。

    用法2：cwSetGridLine(MajorXY, MinorXY, MajorYZ, MinorYZ, MajorZX, MinorZX)

    说明：用于设置三维曲线的网格。所有参数均为逻辑值。返回逻辑值，true表示成功。

[返回页首] win::cwSetVKFor(iVK, @f)：设置虚拟键函数，使用户通过虚拟键控制图形显示。

    iVK：虚拟键代码，可取的值为0～165。
    f：用户按键时执行的函数。

    返回值：逻辑值。

    运行错误：1：参数不符合要求。

    以下虚拟键名称已经定义，可以在程序中直接使用。

    [例子]：用PageUp键、PageDown键和→键控制图形。连续按→键可得到动画图形。

[返回页首] win::cwSetMouseFor(iMouse, @f)：设置鼠标函数，使用户通过鼠标图形显示，返回值无意义。

    iMouse：鼠标消息代码，可取的值为0x0200～0x0209（WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP, WM_LBUTTONDBLCLK, WM_RBUTTONDOWN, WM_RBUTTONUP, WM_RBUTTONDBLCLK, WM_MBUTTONDOWN, WM_MBUTTONUP, WM_MBUTTONDBLCLK）。
    f：鼠标消息发生时执行的函数。

    返回值：逻辑值。

    运行错误：1：参数不符合要求。

    [例子]：双击鼠标左键、单击鼠标左键和单击鼠标右键控制图形。连续单击鼠标左键可得到动画图形。

[返回页首] luShareX(data)：绘制共享X轴视图。data是一个矩阵或者二维数组。

    [例子1]：

!!!using("win","math");
init(x)=
  matrix[        //用一个矩阵形式的字符串对矩阵进行初始化
"
1 5 100
2 3 300
3 1 600
4 2 200
5 6 500
"
  ].luShareX();
ChartWnd[@init];

    [例子2]：

!!!using("win","math");
init(x)=
  x = matrix[
"
1    2    3    4    5
5    3    1    2    6
100  300  600  200  500
"
  ],
  luShareX(x');      //求矩阵x的转置
ChartWnd[@init];

    [例子3]：

!!!using("win","math");
f(t,r,f,dr,df,p)={dr=2*r-2*r*f, df=-f+r*f, 0}; //函数定义
init(x) = gsl_ode{@f,nil,0.0,linspace[0.0,10.0,100],ra1[1,3]}.luShareX();  //ode方程的解是一个二维数组
ChartWnd[@init];

[返回页首] luShareX2(data1, data2)：绘制共享X轴视图。data1和data2是两个矩阵或者二维数组。用于比较data1和data2的差别。

    说明：data1和data2列数可以不相同，但相同的列有相同的坐标轴；data1绘制点图，data2绘制折线图。

    [例子]：

!!!using("win","math");
init(x,y)=
  x=matrix[
"
1 5  100
2 3  300
3 1  600
4 2  200
5 6  500
"
  ],
  y=matrix[
"
1 4.9 110
2 3.0 300
3 1.2 595
4 2.0 210
5 5.9 510
"
  ],
  luShareX2(x, y);
ChartWnd[@init];

[返回页首] luPlot(data)：绘制一元函数共享X轴图形。data是一个lu对象。

    说明：luPlot接受一个lu对象，绘制一元函数共享X轴图形，lu对象格式：lu{xMin, xMax, 绘图点数_缺省为1000, @f1, "f1曲线标记（可缺省）", @f2, "f2曲线标记（可缺省）", ... ...}

    [例子]：

!!!using("win");
f(x) = sin[x].*x-x;        //必须是矢量化代码，简单地：乘号用 .* ；除号用 ./ ；乘方用 .^ ；加号和减号不变，仍然用 + 和 - 。
g(x) = cos[x];
init(x) = luPlot{lu[-9.0,9.0, @f,"函数f", @g,"函数g"]};
ChartWnd[@init];

3 LuWin函数 [返回页首]

[返回页首] win::Plot(Item1,Attribute1,Value1,Attribute2,Value2,...,Item2,Attribute3,Value3,Attribute4,Value4,... ...)：动态绘制一元函数及数组图形

    Plot的参数有三种类型：

    （1）以I开头的参数为项目，例如Ix表示要设置X轴的绘图范围，Iufun表示要绘制一元函数图形等等；

    （2）以A开头的参数为项目的属性，例如Acolor表示要设置曲线的颜色；

    （3）以V开头的参数为属性的值，例如Vred表示曲线是红色的。

    所有参数的说明见下表：

    返回值：0。

    运行错误：1：不可识别的参数类型标识；2：参数不匹配；3：参数不符合要求；4：非法的函数句柄；5：内存错误；6：非法是字符串参数；7：函数的参数个数太多或者太少。

    说明：

    目前Plot函数支持三种函数图形：

    （1）Igarray类型的数组，Iufun、Iifun和Ipfun类型的函数。此类图形仅在通过菜单命令更改设置时更新数据（例如改变了X轴的最小值），内部计时器及外部控制对此毫无影响。

    （2）Iiarray类型的数组。此类图形的更新仅受内部计时器的控制。

    （3）Ioarray类型的数组。此类图形的更新仅受外部（计时器）的控制。

    Plot函数的运行机制如下图所示：

    Plot函数的基础用法：

    Plot函数的例子：

    [例子1] 一元函数图形绘制

!!!using("win");        //使用命名空间win
f(x)=sin[x];            //函数定义
g(x)=x*sin[x];          //函数定义
Plot{Ix : -5.,5.,       //设置X轴绘图范围
     Iufun : @f,        //绘制函数f的图形
     Iufun : @g,Adot,Adots,100 //绘制函数g的图形，将绘制散点图，绘制100个点
};

    本例近乎等效的矢量化代码如下：

!!!using("win","math");
(::x,y1,y2,max)= max=100, x=linspace(-5.,5.,max), y1=sin(x), y2=x.*sin(x);
f(xx,yy,n::x,y1,max)= xx=x,yy=y1,n=max;
g(xx,yy,n::x,y2,max)= xx=x,yy=y2,n=max;
Plot{Ix : -5., 5.,
     Igarray : @f,     //绘制普通数组图形，绘制为曲线图
     Igarray : @g,Adot //绘制普通数组图形，绘制为散点图
};

    本例近乎等效的隐函数图形绘制代码为：

!!!using("win");
f(x,y)=sin[x]-y;       //隐函数定义
g(x,y)=x*sin[x]-y;     //隐函数定义
Plot{Ix : -10.,10.,
     Iifun : @f,
     Iifun : @g
};

    图形如下所示：

    在Plot窗口，可以双击或右单击打开“曲线设置”窗口，设置曲线属性。

    [例子2] 一元函数图形绘制并显示标题、坐标轴、图例和标记

!!!using("win");
f(x)=sin[x];
g(x)=x*sin[x];
Plot{Ix : -5.,5.,
     Iufun : @f, Alegend,"sin[x]",  Amarker,true, Acolor,Vblue,        //绘制函数f的图形并显示图例和标记
     Iufun : @g, Alegend,"x*sin[x]",Amarker,true, Acolor,RGB(0,255,0), //绘制函数g的图形并显示图例和标记
     Ititle : "Plot演示程序",           //显示标题
     Ilable : "t /℃","V /m^3"         //显示坐标轴说明
};

    图形如下所示：

    在Plot窗口，可以双击或右单击打开“曲线设置”窗口，设置曲线属性。

    [例子3] 一元函数及含参变量函数图形绘制

!!!using("win");
f(x)=sin[x];
g(u,x,y)= x=u*sin[u],y=u*cos[u]^2;
Plot{Ix : -9.,9.,
     Iufun : @f,Acolor,Vred,  //绘制函数f的图形，颜色是红色的
     Ipfun : @g,Arange,-9.,9. //绘制函数g的图形，参变量的变化范围是 -9～9
};

    图形如下所示：

    [例子4] 通过参数控制函数图形

!!!using("win");
init(::A,B,C)= A=2.,B=1.,C=0.;    //初始化模块变量
A(m,x::A)= which{m==0:A, m==1:[A=A+x], m==2:[A=A-x], m==3:[A=x], PlotExe(0)}; //修改模块变量A并刷新Plot窗口的函数
B(m,x::B)= which{m==0:B, m==1:[B=B+x], m==2:[B=B-x], m==3:[B=x], PlotExe(0)}; //修改模块变量B并刷新Plot窗口的函数
C(m,x::C)= which{m==0:C, m==1:[C=C+x], m==2:[C=C-x], m==3:[C=x], PlotExe(0)}; //修改模块变量C并刷新Plot窗口的函数
f(x::A,B,C)=A*sin[B*x+C];
g(u,x,y::A,B)= x=u*sin[u+A],y=u*cos[u*B]^2;
Plot{Ix : -5.,5.,
     Iufun : @f,Acolor,Vred,
     Ipfun : @g,Arange,-3.,3.
},
SetPara{GetWin(hPlot), //获得Plot函数的窗口句柄。可以缺省该参数获得另一效果。
        @A,0.5,        //使参数A可动态修改
        @B,0.5,        //使参数B可动态修改
        @C,0.5         //使参数C可动态修改
};

    图形如下所示（其动态效果需通过参数控制演示）：

    [例子5] 普通数组图形绘制

!!!using("win","math");
init(::A,B)= A=ra1[-9.5, -9, -7, -6.5, -5, -3, -2, -1.2, 0, 1.5, 2, 3, 5, 6, 7.7, 8, 8.2, 8.6, 9, 10],
             B=ra1[5, -9, 7, 6.5, -5, -3, 12, 1.2, 0, 11.5, -9, -3, 5, -6, 7.7, -8, 5.2, -8.6, -9, 7];
f(x,y,n::A,B)= x=A,y=B,n=15;
ff(x,y,n)= f(&x,&y,&n);
g(x,y,n::A,B)= x=B,y=A,n=15;
Plot{Ix : -12.,12.,
     Igarray : @f,       //绘制数组为曲线
     Igarray : @ff,Adot, //绘制数组为散点图
     Igarray : @g,Ashape,Vdash,Acolor,Vred //绘制数组为曲线
};

    图形如下所示：

    [例子6] 内部计时器控制的数组图形绘制

!!!using("win","math");
init(::A,B)= A=ra1[-9.5, -9, -7, -6.5, -5, -3, -2, -1.2, 0, 1.5, 2, 3, 5, 6, 7.7, 8, 8.2, 8.6, 9, 10],
             B=ra1[5, -9, 7, 6.5, -5, -3, 12, 1.2, 0, 11.5, -9, -3, 5, -6, 7.7, -8, 5.2, -8.6, -9, 7];
f(x,y,n,t:static,i:A,B)= x=A,y=B,n=++i%20,if[i>50,return(false)],true;   //函数f只运行50次
ff(x,y,n,t)= f(&x,&y,&n,&t);
g(x,y,n,t:static,i:A,B)= x=B,y=A,n=++i%20,true;
Plot{Ix : -12.,12.,
     Iiarray : @f,
     Iiarray : @ff,Adot,
     Iiarray : @g,Ashape,Vdash,Acolor,Vred
};

    图形如下所示（其动态效果需通过内部计时器控制演示 ：在Plot窗口，打开“计时器设置”窗口，点击开始按钮，观察动态图形）：

    [例子7] 外部（计时器）控制的数组图形绘制，横轴固定不变

!!!using("win","math");
init(::A,B)= A=ra1[-9.5, -9, -7, -6.5, -5, -3, -2, -1.2, 0, 1.5, 2, 3, 5, 6, 7.7, 8, 8.2, 8.6, 9, 10],
             B=ra1[5, -9, 7, 6.5, -5, -3, 12, 1.2, 0, 11.5, -9, -3, 5, -6, 7.7, -8, 5.2, -8.6, -9, 7];
f(x,y,n,t:static,i:A,B)= x=A,y=B,n=++i%20;
ff(x,y,n,t)= f(&x,&y,&n,&t);
g(x,y,n,t:static,i:A,B)= x=B,y=A,n=++i%20;
Plot{Ix : -12.,12.,
     Iiarray : @f,
     Iiarray : @ff,Adot,
     Iiarray : @g,Ashape,Vdash,Acolor,Vred
};
~~~:::a(:static,k) = PlotExe[],if[++k>=50,return(false)],true;  //全局函数a只运行50次
~~~:::b() = PlotExe[],true;
FunTimer[];  //启动定时器

    图形如下所示（其动态效果需通过外部计时器控制演示）：

    在FunTimer窗口，在计时器1的全局函数名输入窗口输入“a”，点击开始按钮，观察动态图形，直至图形自动停止更新；在计时器2的全局函数名输入窗口输入“b”，点击开始按钮，观察动态图形，该动态图形不会自动停止。

    [例子8] 外部（计时器）控制的数组图形绘制，横轴动态更新

!!!using("win","math");
init(::A,B)= A=ra1[-9.5, -9, -7, -6.5, -5, -3, -2, -1.2, 0, 1.5, 2, 3, 5, 6, 7.7, 8, 8.2, 8.6, 9, 10],
             B=ra1[5, -9, 7, 6.5, -5, -3, 12, 1.2, 0, 11.5, -9, -3, 5, -6, 7.7, -8, 5.2, -8.6, -9, 7];
f(x,y,n,t:static,i:A,B)= x=A,y=B,n=++i%20;
ff(x,y,n,t)= f(&x,&y,&n,&t);
Plot{Ixdynamic : true,     //X轴是动态的
     Ioarray : @f,
     Ioarray : @ff,Adot,Acolor,Vred
};
~~~:::a(:static,k) = PlotExe[],if[++k>=50,return(false)],true;
~~~:::b() = PlotExe[],true;
FunTimer[];

    图形如下所示（其动态效果需通过外部计时器控制演示）：

    在FunTimer窗口，在计时器1的全局函数名输入窗口输入“a”，点击开始按钮，观察动态图形，直至图形自动停止更新；在计时器2的全局函数名输入窗口输入“b”，点击开始按钮，观察动态图形，该动态图形不会自动停止。

    [例子9] 内部计时器控制演示动态图形

!!!using("win","math");
init(::A,B,max)= max=500, A=new[real_s, max], B=new[real_s, max];
f(x,y,n,t:i,u,d,static,k:A,B,max)=
{
    x=A,y=B,n=++k%(max+1), t=0.,
    u=-9.,d=18./max,i=0,(i<n).while{
        x[i]=u*sin[u], y[i]=u*cos[u]^2,
        u=u+d, i++
    },
    true
};
Plot{Ixdynamic : true,
     Iiarray : @f,Adot,Ashape,Vdiamond,Acolor,Vred,
     Itimer : true, 100
};

    图形如下所示（直接运行程序即可动态演示）：

    [例子10] 内部计时器控制演示动态图形：旋轮线动画

!!!using("win","math");
init(::A,B,C,D,max)= max=200, A=new[real_s, max+1], B=new[real_s, max+1], C=new[real_s, max], D=new[real_s, max];
f(x,y,n,t:i,u,d,static,k:A,B,max)=
{
    x=A,y=B,n=[++k%(max+1)], t=0.,
    u=0.,d=15./(max-1),i=0,(i<n).while{
        x[i]=[u-sin(u)], y[i]=[1-cos(u)],
        u=u+d, i++
    },
    x[i]=u, y[i]=1., n++,
    true
};
g(x,y,n,t:i,u,d,static,k,v:C,D,max)=
{
    x=C, y=D, n=max, t=0.,
    if[1==[++k%(max+1)], v=0.],
    u=0.,d=2*3.1416/(max-1),i=0,(i<n).while{
        x[i]=v+cos(u), y[i]=1+sin(u),
        u=u+d, i++
    },
    v=v+15./(max-1), true
};
Plot{Ix : 0.,15., Iy : 0.,2., Iydynamic : false, Iaxisshape : Vaxisequal,
     Iiarray : @f,Acolor,Vred,
     Iiarray : @g,Acolor,Vblue,
     Itimer : true, 100
};

    图形如下所示：

    [例子11] 隐函数图形（x取1.5～10，y取2附近）：f(x,y)=ln(3.5*x^y)+x-y^x-(sin(y-x))^2+0.6-(x+y)^(0.1*x)/x;

!!!using("win");
f(x,y)=ln(3.5*x^y)+x-y^x-(sin(y-x))^2+0.6-(x+y)^(0.1*x)/x;
Plot{Ix : 1.5,8.,
     Iifun : @f,Arange,2.,2.  //y取2附近
};

    图形如下所示：

    [例子12] 隐函数图形（x取-8～8，y取-8～8附近）：f(x,y)=(x^2+y^2)^3-36*(x^2-y^2)^2;

!!!using("win");
f(x,y)=(x^2+y^2)^3-36*(x^2-y^2)^2;
Plot{Ix : -8.,8., Iaxisshape : Vaxissquare,
     Iifun : @f,Arange,-8.,8. //y取-8～8
};

    图形如下所示：

    [例子13] 隐函数图形（x取-5～5，y取-5～5附近）：f(x,y)=cos(x*y);

!!!using("win");
f(x,y)=cos(x*y);
Plot{Ix : -5.,5., Iy : -5.,5., Iydynamic : false, Igrid : true,
     Iifun : @f, Acolor,Vblue, Adots,300
};

    图形如下所示：

[返回页首] win::PlotExe()或win::PlotExe(x)：向Plot发送执行函数命令并刷新图形

    说明：win::PlotExe()用于执行用win::Ioarray注册到Plot的绘图函数 ；win::PlotExe(x)用于执行用注册到Plot的非计时器绘图函数（包括win::Igarray、win::Iufun、win::Iifun、win::Ipfun），x为任意值。可在任意线程中通过该函数控制Plot中图形的刷新。

    [例子]

[返回页首] win::FunTimer()：使用计时器定时执行函数

    返回值：0。

    说明：最多设置三个同时运行的计时器，每个计时器定时执行一个对应的全局函数。若全局函数返回false，将销毁对应的计时器，该全局函数也不再执行。

    计时器窗口启动后，可以打开计时器设置窗口，如下所示：

    [例子1] 先编译运行以下代码，然后按上面的计时器窗口进行设置，点击按钮，观察运行情况。

~~~:::a() = o{"执行函数a！\r\n"},true;  //必须定义为全局函数，前面的~~~表示只编译，不运行
~~~:::b() = o{"执行函数b！\r\n"},true;
~~~:::c() = o{"执行函数c！\r\n"},true;
win::FunTimer[];                       //启动定时器窗口

    [例子2] 由全局函数自身控制运行次数。

~~~:::a(:static,k) = o{"执行函数a！\r\n"},if[++k>=5,return(false)],true;  //全局函数a只运行5次
~~~:::b() = o{"执行函数b！\r\n"},true;
~~~:::c() = o{"执行函数c！\r\n"},true;
win::FunTimer[];

[返回页首] win::SetPara(hWin,hFor1,dx1,hFor2,dx2,... ...)：设置可通过参数修改窗口修改的参数

    hWin：父窗口句柄。可以缺省该参数。
    hFor1,dx1,hFor2,dx2,... ...：hFor为二元函数句柄，该函数由SetPara的参数修改窗口调用，具有以下格式：

修改x(mode,dx::x)=  //mode为工作模式，整数；dx为增量，实数；x是一个模块变量
{
    if{mode==0, return(x)},          //mode为0，返回x当前值；SetPara初始化时，会使用mode=0获得x的初值
    if{mode==1, x=x+dx, return(x)},  //mode为1，使x增加dx并返回x当前值
    if{mode==2, x=x-dx, return(x)},  //mode为2，使x减少dx并返回x当前值
    if{mode==3, x=dx,   return(x)},  //mode为3，重置x为初值，返回值被忽略
    if{mode<0, ... 用户定义操作 ...]  //mode小于0时，执行用户定义的操作
};

    该函数的作用是通过增量dx修改模块变量x，并执行某些操作。SetPara初始化时，将先调用 修改x(0,任意值) 以获得模块变量x的初值xx。SetPara的参数修改窗口有三个按钮：增加、减少、重置。

    【增加】：先执行修改x(1,dx)，然后执行修改x(-1,任意值)。
    【减少】：先执行修改x(2,dx)，然后执行修改x(-1,任意值)。
    【重置】：先执行修改x(3,xx)，然后执行修改x(-1,任意值)。

    运行错误：1：参数不匹配，函数参数个数太多或者太少；2：找不到全局函数，或者该函数不是二元函数，或者函数返回值不是一个实数；3：内存错误；4：参数不符合要求。

    [例子]

[返回页首] win::MessageBox("消息框中显示的字符串","作为标题的字符串")：消息框函数

    格式1：MessageBox["消息框中显示的字符串","作为标题的字符串"]
    格式2：MessageBox["消息框中显示的字符串","作为标题的字符串",nType]
    格式3：MessageBox[HWND,"消息框中显示的字符串","作为标题的字符串",nType]

    说明：HWND标识将被创建的消息框的拥有窗口，如果此参数为null，则消息框没有拥有窗口；nType指定一个决定对话框的内容和行为的位标志集，此参数可以为下列标志组中标志的组合（尚未定义这些参数）：MB_OK、MB_OKCANCEL、MB_YESNO、MB_YESNOCANCEL，其他标志请参考WINDOWS API手册中该函数的说明。

    返回值：如果没有足够的内存来创建消息框，则返回值为0。如果函数调用成功，则返回值为下列对话框返回的菜单项目值中的一个（尚未定义这些参数）：
    IDABORT：Abort按钮被选中。
    IDCANCEL：Cancel按钮被选中。
    IDIGNORE：Ignore按钮被选中。
    IDNO：NO按钮被选中。
    IDOK：OK按钮被选中。
    IDRETRY：RETRY按钮被选中。
    IDYES：YES按钮被选中。
    标志和返回值的具体值请参考WINDOWS API手册，也可以自行验证。

    运行错误：1：参数个数不符合要求；2：参数不符合要求。

版权所有© Lu程序设计 2002-2021，保留所有权利
E-mail: forcal@sina.com  QQ：630715621
最近更新: 2021年07月30日