Line(Pensize, x1, y1, x2, y2)：画线函数，其中Pensize是线的宽度，x1, y1线的起点坐标，x2, y2线的终点坐标。
RGB(R, G, B)：颜色函数，R(红色)、G(绿色)、B(蓝色)取值范围是0~255。
图1 建立钟表图形
SetFill(Flag [,Color])：设置填充颜色，Flag为True填充，Flag为 False不填充，Color为RGB函数产生的颜色。
SetFrame(Flag [, Color])：设置边框颜色，Flag为 True填充，Flag为False不填充，Color为RGB函数产生的颜色。
SetLine(Type)：设置线条的形状，Type 可以取0、1、2、3。取0没有箭头，取1起始端有箭头，取2结束端有箭头，取3两端都有箭头。制作过程如下：
1、 拖曳一个显示图标到流程线上，命名为表盘，打开此图标在其中绘制图1的图形。
2、 拖曳一个显示图标到流程线上，命名为系统时间，打开此图标在其中用文本工具输入{FullTime} ( FullTime是系统变量，记录系统时间，格式为hh∶mm∶ss)，将该图标属性中Options中的Update Displayed Variables项选中。
3、 拖曳一个计算图标到流程线上，命名为设置参数。打开该图标在里面输入clockslice:=2*Pi/60 (设置时间片)radius:=(DisplayWidth@"表盘"/2)-10 (设置时钟半径，DisplayWidth@"表盘"取得的值是表盘图标的宽度)。
4、 拖曳一个决策判断图标到流程线上，命名为循环。在其属性框的Repeat框中选中Until True在其下的值框中输入0。
5、 拖曳一个群组图标到循环图标右边（如图2），打开群组图标在其中建立如图3所示的各图标。
在绘制时针计算图标中输入以下内容：
SetFrame(1,RGB(0,0,255))
increment:=Hour*clockslice*5
angle:=Pi/2-increment
Line(3,DisplayX@"表盘"-p*COS(angle),DisplayY@"表盘"+p*SIN(Pi/2+increment),(radius-sh-h)*COS(angle)
+DisplayX@"表盘",DisplayY@"表盘"-(radius-sh-h)*SIN(angle))
注：Hour是系统变量，用来记录当前时间前面的时位是多少小时。
将1秒等待图标属性中所有复选框全部不选中，将Time Limit后面的输入框中输入1秒。
在绘制分针计算图标中输入以下内容：
SetFrame(TRUE,RGB(0,255,200))
increment:=Minute*clockslice
angle:=Pi/2-increment
SetLine(0)
Line(3,DisplayX@"表盘"-p*COS(angle),DisplayY@"表盘"+p*SIN(angle),(radius-sh)*COS(angle)+
图2 程序流程图
DisplayX@"表盘",DisplayY@"表盘"-(radius-sh)*SIN(angle))
SetFill(TRUE,RGB(0,255,0))
Circle(2, DisplayX@"表盘"-2, DisplayY@"表盘"-2,DisplayX@"表盘"+2, DisplayY@"表盘"+2)
注：Minute是系统变量，用来记录当前时间中中间的分位是多少分。
在绘制秒针计算图标中输入以下内容：
SetFrame(1,RGB(255,0,0))
increment:=Sec*clockslice
angle:=Pi/2-increment
SetLine(2)
Line(1,DisplayX@"表盘"-p*COS(angle),DisplayY@"表盘"+p*SIN(angle), radius*COS(angle)+DisplayX@"表盘",
DisplayY@"表盘"-radius*SIN(angle))
SetFill(TRUE,RGB(0,255,0))
Circle(1, DisplayX@-2, DisplayY@"表盘"-2,DisplayX@"表盘"+2, DisplayY@"表盘"+2)
图3 在群体图标中建立的图标
注：Sec是系统变量，用来记录当前时间中后面的秒位是多少秒。
6、 将文件保存，运行试试看。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
