画板画十二时辰图

qq521089

1. 变量 中心点 为 整数型 = 取屏幕宽度()/2
   
2. '变量 角度 为 整数型 = (取秒(取现行时间())+2)*6-90
   
3. 变量 r 为 整数型 = 取屏幕宽度()/4
   
4. 
   
5. 事件 主窗口.创建完毕()
   
6.         置状态栏颜色(黑色)
   
7. 结束 事件
   
8. 
   
9. 事件 画板1.创建完毕()
   
10.         画板1.画笔颜色 = 黑色
    
11.     画板1.画圆(中心点,中心点,r+10)
    
12.         画板1.画笔颜色 = 白色
    
13.         画板1.画圆(中心点,中心点,r)
    
14.         画板1.画笔颜色 = 黑色
    
15.     画板1.画圆(中心点,中心点,r-r/3)
    
16.         画板1.画笔颜色 = 白色
    
17.         画板1.画圆(中心点,中心点,r-r/3-10)
    
18.         画板1.画笔颜色 = 黑色
    
19.         变量 计数 为 整数型
    
20.         变量循环首 计数 = 15 至 360 步进 30 '变量循环,变量"计数"从1递增到100,每次递增值为步进值1,步进值默认为1,这里就可以省略不写,步进值也可以为负数,表示递减
    
21.                 变量 外圈横坐标 为 整数型 = 横坐标(中心点,r,计数)
    
22.             变量 外圈纵坐标 为 整数型 = 纵坐标(中心点,r,计数)
    
23.             变量 内圈横坐标 为 整数型 = 横坐标(中心点,r-r/3,计数)
    
24.             变量 内圈纵坐标 为 整数型 = 纵坐标(中心点,r-r/3,计数)
    
25.             画板1.画直线(外圈横坐标,外圈纵坐标,内圈横坐标,内圈纵坐标)
    
26.         变量循环尾
    
27.     变量 字中心 为 整数型 = 画板1.取文字宽度("子")/2
    
28.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"午")
    
29.         画板1.旋转画布(中心点,中心点,30)
    
30.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"未")
    
31.         画板1.旋转画布(中心点,中心点,30)
    
32.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"申")
    
33.         画板1.旋转画布(中心点,中心点,30)       
    
34.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"酉")
    
35.         画板1.旋转画布(中心点,中心点,30)
    
36.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"戌")
    
37.         画板1.旋转画布(中心点,中心点,30)
    
38.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"亥")
    
39.     画板1.旋转画布(中心点,中心点,30)
    
40.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"子")
    
41.         画板1.旋转画布(中心点,中心点,30)
    
42.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"丑")
    
43.         画板1.旋转画布(中心点,中心点,30)
    
44.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"寅")
    
45.         画板1.旋转画布(中心点,中心点,30)
    
46.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"卯")
    
47.         画板1.旋转画布(中心点,中心点,30)
    
48.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"辰")
    
49.         画板1.旋转画布(中心点,中心点,30)
    
50.         画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"巳")
    
51. 结束 事件
    
52. 
    
53. 函数 横坐标(中心点 为 整数型,半径 为 整数型,角度 为 双精度小数型) 为 整数型
    
54.         横坐标 = 中心点+求余弦(角度转弧度(角度))*半径
    
55. 结束 函数
    
56. 
    
57. 函数 纵坐标(中心点 为 整数型,半径 为 整数型,角度 为 双精度小数型) 为 整数型
    
58.         纵坐标 = 中心点+求正弦(角度转弧度(角度))*半径
    
59. 结束 函数

复制代码

舍得

易如意中文编程学习交流论坛有你更精彩~

retn

中心点+求余弦(角度转弧度(角度))*半径

a1402110169

retn 发表于 2024-1-19 00:18
中心点+求余弦(角度转弧度(角度))*半径

易如意网络验证系统2.0发布了

马合

很好的学习例程

ddXqc99

您是算命先生吗