qq521089 发表于 2024-1-18 10:34:09

画板画十二时辰图

变量 中心点 为 整数型 = 取屏幕宽度()/2
'变量 角度 为 整数型 = (取秒(取现行时间())+2)*6-90
变量 r 为 整数型 = 取屏幕宽度()/4

事件 主窗口.创建完毕()
        置状态栏颜色(黑色)
结束 事件

事件 画板1.创建完毕()
        画板1.画笔颜色 = 黑色
    画板1.画圆(中心点,中心点,r+10)
        画板1.画笔颜色 = 白色
        画板1.画圆(中心点,中心点,r)
        画板1.画笔颜色 = 黑色
    画板1.画圆(中心点,中心点,r-r/3)
        画板1.画笔颜色 = 白色
        画板1.画圆(中心点,中心点,r-r/3-10)
        画板1.画笔颜色 = 黑色
        变量 计数 为 整数型
        变量循环首 计数 = 15 至 360 步进 30 '变量循环,变量"计数"从1递增到100,每次递增值为步进值1,步进值默认为1,这里就可以省略不写,步进值也可以为负数,表示递减
                变量 外圈横坐标 为 整数型 = 横坐标(中心点,r,计数)
          变量 外圈纵坐标 为 整数型 = 纵坐标(中心点,r,计数)
          变量 内圈横坐标 为 整数型 = 横坐标(中心点,r-r/3,计数)
          变量 内圈纵坐标 为 整数型 = 纵坐标(中心点,r-r/3,计数)
          画板1.画直线(外圈横坐标,外圈纵坐标,内圈横坐标,内圈纵坐标)
        变量循环尾
    变量 字中心 为 整数型 = 画板1.取文字宽度("子")/2
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"午")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"未")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"申")
        画板1.旋转画布(中心点,中心点,30)       
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"酉")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"戌")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"亥")
    画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"子")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"丑")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"寅")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"卯")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"辰")
        画板1.旋转画布(中心点,中心点,30)
        画板1.画文字(横坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),纵坐标(中心点,r-(r-(r-r/3))/2-字中心,-99),"巳")
结束 事件

函数 横坐标(中心点 为 整数型,半径 为 整数型,角度 为 双精度小数型) 为 整数型
        横坐标 = 中心点+求余弦(角度转弧度(角度))*半径
结束 函数

函数 纵坐标(中心点 为 整数型,半径 为 整数型,角度 为 双精度小数型) 为 整数型
        纵坐标 = 中心点+求正弦(角度转弧度(角度))*半径
结束 函数

舍得 发表于 2024-1-18 17:09:14

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

retn 发表于 2024-1-19 00:18:08

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

a1402110169 发表于 2024-1-25 11:43:17

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

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

马合 发表于 2024-3-28 11:38:51

很好的学习例程

ddXqc99 发表于 2024-4-4 05:04:22

您是算命先生吗
页: [1]
查看完整版本: 画板画十二时辰图