变量 圆心横 为 整数型

         变量 圆心纵 为 整数型

         变量 半径 为 整数型

事件 画板1.创建完毕()

         变量 计数 为 整数型

         变量 点一横 为 双精度小数型

         变量 点一纵 为 双精度小数型

         变量 点二横 为 双精度小数型

         变量 点二纵 为 双精度小数型

         变量 字横 为 双精度小数型

         变量 字纵 为 双精度小数型

         变量 标示 为 文本型

         变量 屏幕宽度 为 整数型

         屏幕宽度=取屏幕宽度()

         圆心横=屏幕宽度/2

         圆心纵=屏幕宽度/2

         半径=4*屏幕宽度/9

         画板1.画笔粗细=5

         画板1.画笔类型=2

         画板1.画圆(圆心横,圆心纵,半径)

         画板1.画笔粗细=10

         画板1.画圆(圆心横,圆心纵,半径+20)

         时钟1.时钟周期=100

         变量循环首 计数=0 至 60

                   点二横=圆心横-(半径-10)*求余弦(计数*3.14159/30)

                   点二纵=圆心纵-(半径-10)*求正弦(计数*3.14159/30)

                   画板1.画笔类型=1

                   画板1.画圆(点二横,点二纵,5)

         变量循环尾

         变量循环首 计数=0 至 12

                   判断 计数

                            分支 0

                                     标示=""

                            分支 1 至 3

                                     标示=整数到文本(计数+9)

                            分支 4 至 12

                                     标示=整数到文本(计数-3)

                   结束 判断

                   点一横=圆心横- (半径-60)*求余弦(计数*3.14159/6)

                   点二横=圆心横-(半径-20)*求余弦(计数*3.14159/6)

                   点一纵=圆心纵-(半径-60)*求正弦(计数*3.14159/6)

                   点二纵=圆心纵-(半径-20)*求正弦(计数*3.14159/6)

                   画板1.画笔类型=1

                   画板1.画圆(点二横,点二纵,5)

                   画板1.字体大小=14

                   画板1.画文字(点一横-10,点一纵+10,标示)

         变量循环尾    

结束 事件

事件 时钟1.周期事件()

         变量 时 为 整数型

         变量 分 为 整数型

         变量 秒 为 整数型

         变量 表针角度 为 双精度小数型

         时=取小时(取现行时间())

         分=取分钟(取现行时间())

         秒=取秒(取现行时间())

 

         画板1.画笔颜色=画板1.背景颜色      

         画板1.画圆(圆心横,圆心纵,半径*5/7+1)

         画板1.画笔颜色=黑色

         '画时针

         如果 时>12 则 时=时-12

         表针角度=(时+3)*0.523598+分*0.0087266

         画表针(表针角度,1)

         '画分针

         表针角度=(分+15)*0.1047+秒*0.0017453

         画表针(表针角度,2)

         '画秒针

         表针角度=(秒+15)*0.1047

         画表针(表针角度,3)

结束 事件

过程 画表针(角度 为 双精度小数型,指针类型 为 整数型)

         变量 点一横 为 双精度小数型

         变量 点一纵 为 双精度小数型

         变量 点二横 为 双精度小数型

         变量 点二纵 为 双精度小数型

         画板1.画笔颜色=黑色

         '指针类型1为时针,2为分针,3为秒针

         判断 指针类型

                   分支 1

                            画板1.画笔粗细=15

                            点一横=圆心横-半径 *求余弦(角度)/2

                            点一纵=圆心纵-半径*求正弦(角度)/2

                            画板1.画直线(圆心横,圆心纵,点一横,点一纵)

                   分支 2

                            画板1.画笔粗细=10

                            点一横=圆心横-半径*2*求余弦(角度)/3

                            点一纵=圆心纵-半径*2*求正弦(角度)/3

                            画板1.画直线(圆心横,圆心纵,点一横,点一纵)

                   分支 3

                            画板1.画笔粗细=5

                            点一横=圆心横-半径*5 *求余弦(角度)/7

                            点一纵=圆心纵-半径*5*求正弦(角度)/7

                            点二横=圆心横-半径*求余弦(角度+3.14159)/5

                            点二纵=圆心纵-半径*求正弦(角度+3.14159)/5

                            画板1.画直线(点二横,点二纵,点一横,点一纵)

         结束 判断

         画板1.画圆(圆心横,圆心纵,半径/15)

         画板1.画笔颜色=画板1.背景颜色

         画板1.画圆(圆心横,圆心纵,半径/20)

结束 过程