pb可以用来做钟表么？

[lihuihit]

C和vb都有钟表的例程。pb行么，说有历程，谢谢

[xuyi1979]

看PB的CODE EXAMPLE，有一个数字钟的例子

[lihuihit]

55
数字中不行的
要做钟表中
模仿真的机械表的运作

在我看过的PB书中,都是讲数据库编程的。很少有讲道绘图的。
我觉得应该是调用API函数，谁有类似的历程。
[e-mail]
谢谢

[lihuihit]

我不想临时改变开发工具

[cy_soft]

找控件呀

[kkbgp]

不好做，数据库是pb的强项

[wangxichen]

当然可以了
用PowerScript日期、时间函数——比如Hour（）、 now（）什么的
系统时间也可以改；闹钟、万年历等都可以做
建议在存储闹钟时间时不要使用数据库，
不然作出的东西会挺大——用文本输出不错
只是PB作钟表界面会闪烁（可能是Timer事件搞的鬼吧）

[wangxichen]

如果我对问题理解有误
还请众位高手不要见笑

[wu_07]

好像pb自带的例子中就有

[hovoy]

pb自带的例子中就有

[lihuihit]

PFC基础类中么？能不能说得清楚些？

[lihuihit]

那本书？

[kkbgp]

sysbase(中国)
http://www.sybase.com.cn/cn/content/developer/exp_kfzly_jqhz_ds09.htm

[xavier_lee]

扔在窗口里一个FLASH不久行了。

[jeff_107]

pb例程中有呀，我都用过！
powerbuilder examples--->user objects--->analog clock

[tchatcha]

我见过一个例子，用一个圆，几条线，用timer事件去控制线即可实现
可以找找这个例子

[lihuihit]

sybase网站上的那个东西做得不错
就是不能下在亚
对我没什么用
powerbuilder examples--->user objects--->analog clock
在那？
是书里，还是PB.EXE里面？我没有用过这个

[wangxichen]

在窗口中放一个Oval，三个Line
窗口open时间代码：
l_sec=second(Now())
l_Min=Minute(Now())
l_hour=hour(Now())
if l_hour > 12 then
l_hour = l_hour - 12
end if
ln_1.BeginY = ov_1.y + ov_1.height / 2
ln_1.BeginX = ov_1.x + ov_1.width / 2
ln_1.EndY = ln_1.BeginY + 280 * sin(Pi(l_sec + 45) / 30)
ln_1.EndX = ln_1.BeginX + 280 * cos(Pi(l_sec + 45) / 30)
ln_2.BeginX = ln_1.BeginX
ln_2.BeginY = ln_1.BeginY
ln_2.EndY = ln_2.BeginY + 250 * sin(Pi((l_Min + 45) / 30))
ln_2.EndX = ln_2.BeginX + 250 * cos(Pi((l_Min + 45) / 30))
ln_3.BeginX = ln_1.BeginX
ln_3.BeginY = ln_1.BeginY
ln_3.EndX = ln_3.BeginX + 220 * sin(Pi(((12 - l_hour) * 60 - l_Min - 360 ) / 360 ))
ln_3.EndY = ln_3.BeginY + 220 * cos(Pi(((12 - l_hour) * 60 - l_Min - 360 ) / 360 ))
timer(1)
timer事件代码：
time t_now
t_now = Now()
l_hour = hour(t_now)
l_min = Minute(t_now)
l_sec = Second(t_now)
if l_hour > 12 then
l_hour = l_hour - 12
end if
ln_1.EndY = ln_1.BeginY + 280 * sin(Pi((l_Sec + 45) / 30))
ln_1.EndX = ln_1.BeginX + 280 * cos(Pi((l_Sec + 45) / 30))
ln_2.EndY = ln_2.BeginY + 250 * sin(Pi((l_Min + 45) / 30))
ln_2.EndX = ln_2.BeginX + 250 * cos(Pi((l_Min + 45) / 30))
ln_3.EndX = ln_3.BeginX + 220 * sin(Pi(((12 - l_hour) * 60 - l_Min - 360 ) / 360 ))
ln_3.EndY = ln_3.BeginY + 220 * cos(Pi(((12 - l_hour) * 60 - l_Min - 360 ) / 360 ))