谁能告诉我

[firstgun]

1、怎么样做一个从零计时的 计时器！在一表单中 ，我知道 怎么把系统的时间
设显示出来 。用time()函数。
但是 我想他从零开始 计时。我知道 有个reset属性。但是 我不知道 怎么写，
写在那个地方。
2。我想从一个form1中的text1输一个数，不经过数据库，怎么传递到form2的
text1中。在text2中 只是显示出来。我点form1上确定按钮的时后执行form2表单

[dfwxj]

1、用Ｔimer 控件
2、form2.text2.value=thisform.text1.value
do form form2

[dfwxj]

第2题应该是：

do form form2 with thisform.text1.value

在form2的init事件里写入：

para mvalue

thisform.text2.value=mvalue

[firstgun]

感谢楼上的大哥 你的方法 很好 ！第一个问题谁能告诉我啊
就是在 一个表单上做一个从零开始计时的计时器
当他等于 一个值后 就停止

[mgan]

用记时器 取time()函数
可以取 你设置的值啊 然后在加一个循环旧可以了

[firstgun]

怎么提示说找不到tt变量啊
可以告诉我是什么原因吗 楼上的大哥

[firstgun]

并且 ，text1中只有0

[dfwxj]

因为找不到变量tt,所以text1中只有0


在load里面定义一下：
publ tt
tt=0

或者为表单新建一个属性tt,在init中加入thisform.tt=0,将代码中的tt改为thisform.tt

[firstgun]

是啊 我知道啊！就是 不知道怎么写代码啊 日期型的。总是操作不好！方法 我已经知道了
timer控件中 有个reset属性是设置从零开始的
但是 我不知道 怎么写 能不能具体点啊。写那个地方。怎么写。感谢了！

[qufusongyu]

1、在timer控件中写代码即可.
2、用清风的。

[dfwxj]

Timer控件每隔interval的时间就执行一次timer事件
reset事件是将计时器清零重新计时
你设置一个变量，如：tt,记录时间，将interval设置为1000(即一秒钟间隔)，在timer事件中写入代码：tt=tt+1
设计一个启动按钮(command1)、一个停止按钮(command2)和一个复位按钮(command3)设计一个文本框(text1)用于显示时间

command1.click事件为：
thisform.timer1.reset
tt=0
thisform.text1.value=tt
thisform.command2.enabled=.t.
thisform.timer1.enabled=.t.

command2.click事件为：
thisform.timer1.enabled=.f.
thisform.command2.enabled=.f.

command3.click事件为：
thisform.timer1.enabled=.f.
thisform.timer1.reset
tt=0
thisform.text1.value=tt
thisform.command2.enabled=.f.

timer1.timer事件为：
tt=tt+1
thisform.text1.value=tt

如果要让时间以时分秒的方式显示只需进行简单的变换即可

thisform.text1.value=padl(allt(str(int(tt/3600))),2,'0')+':';
+padl(allt(str(int(tt/60))),2,'0')+':';
+padl(allt(str(mod(tt,60))),2,'0')

[firstgun]

谢谢 清风大哥 还有个小小的问题 此问已经解答
就是我从form1中传第参数到form2中。就是在form2的init中，代码如下：
para mvalue
thisform.text4.value=mvalue
thisform.text6.value=10
thisform.text5.value=0

我想 把thisform.text6.value=10中的10换成mvalue为什么不行啊
para mvalue
thisform.text4.value=mvalue
thisform.text6.value=mvalue
thisform.text5.value=0
其中thisform.text6.value是一个分钟的初始值 用10 的时候 他可以 从10逐渐变小到0
但是 换成mvalue后 出现操作数与操作符不匹配 知道怎么改吗 谢你了