时钟制作实例.docVIP

PAGE  PAGE 5 第十一讲 时钟制作实例 教学目标: 屏幕元素位置的几何关系 使用时间系统变量 图形函数Line、SetFrame和SetLine的使用 交互图标的条件响应类型的使用 1 程序功能 用时针、分针和秒针显示系统时间，并在整点报时。 2 指针位置的几何关系 ?? X= CX + L * SIN(angle)?? Y= CY + L * COS(angle)?? 弧度= Pi * 角度 / 180 秒针转动一圈共跳动60次，因此每跳动一下的角度为6度，秒针当前的弧度值为:? Angle = (pi * 6 / 180) * Sec = pi * Sec / 30 分针当前的弧度值为： Angle = pi * Minute / 30 时针转动一圈共12格，因此每一整点的角度是30度，当前整点指针的角度为： 30 * Hour 将分针的转动位置折合到时针的角度中，可得到时针角度为： 30 * Hour + Minute / 2?Angle ==pi * (30 * Hour + Minute / 2) / 180 3 主要操作步骤 拖入显示图标，绘制出时钟画面输入变量{FullTime}、{FullDate}和{DayName} 拖入计算图标，名为“初始化”，输入以下内容： cx:=305cy:=178——cx、cy为表盘中心点坐标ls:=65——秒针长度lm:=60——分针长度lh:=60——时针长度SetLine(1)——设置直线起始端有箭头sx:=0sy:=0——sx、sy是秒针端点坐标mx:=0my:=0——mx、my是分针端点坐标hx:=0hy:=0——hx、hy是时针端点坐标mflag:=0——用于进入绘制初始分针hflag:=0——用于进入绘制初始时针angle:=0——角度t:=0——判断是否整点bell:=0——整点响钟次数拖入交互图标，再拖入群组图标到交互图标右侧，选择Conditional响应类型双击响应类型符号，设置Condition为TRUE，Automatic为When True 打开群组图标，在二级流程线上拖入计算图标，名为“计算秒针位置”，输入：angle:=Pi*Sec/30sx:=cx+ls*SIN(angle)sy:=cy-ls*COS(angle)Line(1,sx,sy,cx,cy)????????????????? ——画直线，起点为(sx,sy)，终点为 (cx,cy)，宽度为1 拖入群组图标到交互图标最右侧，打开响应属性窗口，设置Condition为sec=0|mflag=0，Erase为On Exit 打开群组图标，在二级流程线上拖入计算图标，名为“新分针位置”，输入：angle:=Pi*Minute/30mx:=cx+lm*SIN(angle)my:=cy-lm*COS(angle)SetFrame(1,RGB(0,0,255))???? ——设置线框色为蓝色Line(2,mx,my,cx,cy)SetFrame(1,0)??????????????? ——设置线框色为黑色 在二级流程线上拖入计算图标，输入：mflag:=1 拖入群组图标到交互图标最右侧，打开响应属性窗口，设置Condition为sec=0|hflag=0，Erase为On Exit 打开群组图标，在二级流程线上拖入计算图标，名为“新时针位置”，输入：angle:=Pi*(30*Hour+Minute/2)/180hx:=cx+lh*SIN(angle)hy:=cy-lh*COS(angle)SetFrame(1,RGB(255,0,0))???????? ——设置线框色为红色Line(3,hx,hy,cx,cy)SetFrame(1,0) 10.在二级流程线上拖入计算图标，输入：hflag:=1if (Minute=0 Sec=0) then t:=1?? ——整点报时 11.拖入群组图标到交互图标最右侧，打开响应属性窗口，设置Condition为t=1 12.在二级流程线上拖入计算图标，输入：if Hour12 then?? bell:=Hour-12else?? bell:=Hourend if 13.在二级流程线上拖入决策图标，再拖入声音图标到决策图标右侧双击决策图标，设置Repeat为Fixed Number of Times，在下面的框中输入bell 14.在二级流程线上拖入计算图标，输入：t