钟表刻度盘教程 written by hjg16

只看该作者 · 发表于 2007-8-2 13:03:31

1. 拉伸(跟没说一样)
2. 一样拉伸…..,进入草绘, 草绘图形如图

只看该作者 · 发表于 2007-8-2 13:05:33

3. if mod(sd1,30)==0  //利用求余函数,在每个时刻时递增  mod(integer,integer)
char=itos(sd50) //将递增后的数值转字符 itos(Integer)
sd35=2          //每个时刻刻度尺寸增大
else
char=" "       //其它时刻时的状态
sd35=1
endif
if  sd1/30 > 9  //时刻大于9时字宽变大以保证在中间(比较下下的做法,大家讨论下还有没更好的做法)
len=7
else
len=1
endif
sd28=len
4.

只看该作者 · 发表于 2007-8-2 13:14:52

最终效果图
和题目有点不同
旨在说明方法

[ 本帖最后由 hjg16 于 2007-8-2 17:28 编辑 ]

只看该作者 · 发表于 2007-8-2 15:11:47

我想问2001能做到吗?楼主上传个Part吧

只看该作者 · 发表于 2007-8-2 23:26:17

原帖由 sunwei.shen 于 2007-8-2 15:11 发表
我想问2001能做到吗?楼主上传个Part吧

不能,因2001不支持字符参数化,没法做数字阵列.

只看该作者 · 发表于 2007-8-3 23:04:27

用我的方法即使2001也可以

只看该作者 · 发表于 2007-8-4 14:53:29

TKS,漫漫消化

[原创] 钟表刻度盘教程 written by hjg16

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源