发布时间 : 星期五 文章vfp下例题汇总更新完毕开始阅读acff0def19e8b8f67c1cb97b
Vfp下例题汇总
THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. COMMAND3的CLICK事件 THISFORM.TIMER1.ENABLED=.F. THISFORM.TEXT1.VALUE=24 THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F.
34． 篮球比赛记时器表单，记时精度1秒
要求：设计一个篮球比赛计时器表单，记时精度1秒：1)编辑状态如图1；2)初始运行时“开始”按钮(COMMAND1)可用,“暂停”按钮(COMMAND2)不可用；初始运行状态如图2;3)单击“开始”按钮后开始记时；“开始”按钮不可用,“暂停”按钮可用,如图3所示；4)单击“暂停”按钮时停止记时，“开始”按钮可用,“暂停”按钮不可用,如图4所示；5)使用公用属性变量记录时间。
图1 设计界面 图2 初始运行界面
图3-运行效果图 图4-运行效果图
属性设置 属性窗口设置： 事件 FORM1 的INIT事件 FORM1_CAPTION=篮球赛计时表 COMMAND1_CAPTION=开始 COMMAND2_CAPTION=暂停 代码 THISFORM.TEXT1.VALUE=?00:00? THISFORM.TIMER1.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. THISFORM.TIMER1.INTERVAL=1000 PUBLIC A,B STORE 0 TO A,B A=A+1 IF A=60 第 33 页 共 77 页
TIMER1的TIMER事件 Vfp下例题汇总
A=0 B=B+1 ENDIF AA=IIF(A<10,?0?+STR(A,1),STR(A,2)) BB= IIF(B<10,?0?+STR(B,1),STR(B,2)) THISFORM.TEXT1.VALUE= BB+?:?+AA COMMAND1的CLICK事件 COMMAND2的CLICK事件 THISFORM.TIMER1.ENABLED=.T. THISFORM.COMMAND1.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. THISFORM.TIMER1.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. 35． 运动会100米径赛记时器表单，记时精度0.01秒
要求：设计一个运动会100米径赛记时器表单，记时精度0.01秒：编辑状态如图1；初始运行状态如图2； 单击“开始”按钮(COMMAND1)后，开始记时,如图3所示； 单击“停止”按钮(COMMAND2)时，停止记时，如图4所示； 单击“复位”按钮(COMMAND3)时，恢复到初始状态，如图2所示；使用公用属性变量记录时间。
图1 设计界面 图2 初始运行界面
图3-运行效果图 图4-运行效果图
属性设置 属性窗口设置： FORM1_CAPTION=百分之一秒记时器 COMMAND1_CAPTION=开始 COMMAND2_CAPTION=停止 COMMAND3_CAPTION=复位 代码 THISFORM.TEXT1.VALUE=?00:00? THISFORM.TIMER1.ENABLED=.F. THISFORM.TIMER1.INTERVAL=10 THISFORM.COMMAND2.ENABLED=.F. 第 34 页 共 77 页
事件 FORM1 的INIT事件 Vfp下例题汇总
PUBLIC A,B STORE 0 TO A,B TIMER1的TIMER事件 A=A+1 IF A=100 A=0 B=B+1 ENDIF AA=IIF(A<10,?0?+STR(A,1),STR(A,2)) BB= IIF(B<10,?0?+STR(B,1),STR(B,2)) THISFORM.TEXT1.VALUE=BB+?:?+AA THISFORM.TIMER1.ENABLED=.T. THISFORM.COMMAND1.ENABLED=.F. THISFORM.COMMAND2.ENABLED=.T. THISFORM.TIMER1.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. THISFORM.TEXT1.VALUE=?00:00? THISFORM.TIMER1.ENABLED=.F. THISFORM.COMMAND1.ENABLED=.T. THISFORM.COMMAND2.ENABLED=.F. STORE 0 TO A,B COMMAND1的CLICK事件 COMMAND2的CLICK事件 COMMAND3的CLICK事件 36． 设计一个记时器表单，记时精度1秒： 要求：（1）表单初始显示状态为全零“00：00：00”， (2)按“计数”按钮，将自动以秒为单位从零开始计数(设：时的计数属性名为S，分的计数属性名为F，秒的计数属性名为M。)并在表单上动态显示。按“停止”按钮将显示最后一刻的计数时间。
图1 设计界面 图2 初始运行界面
第 35 页 共 77 页
Vfp下例题汇总
图3 运行界面 图4 运行界面
属性窗口设置 属性窗口设置： 新建属性 事件 FORM1 的INIT事件 FORM1_CAPTION=计数器 COMMAND1_CAPTION=计数 COMMAND2_CAPTION=停止 TEXT1_READONLY=.T. 表单->新建属性 S,F,M 代码 THISFORM.TIMER1.ENABLED=.F. THISFORM.TIMER1.INTERVAL=1000 STORE 0 TO THISFORM.S,THISFORM.F,THISFORM.M THISFORM.TEXT1.VALUE=\THISFORM.TIMER1.ENABLED=.F. THISFORM.M=THISFORM.M+1 &&计时器秒数(M)累加 IF THISFORM.M=60 &&秒数累加到60 THISFORM.F=THISFORM.F+1 &&计时器分数(F)累加 THISFORM.M=0 &&秒数属性M归0 IF THISFORM.F=60 &&分数累加到60 THISFORM.S=THISFORM.S+1 &&计时器时数(S)累加 THISFORM.F=0 &&分数属性归0 ENDIF ENDIF SS=IIF(THISFORM.S<10,\ &&将时数S转换为字符 FF=IIF(THISFORM.F<10,\ &&将分数F转换为字符 MM=IIF(THISFORM.M<10,\ &&将秒数M转换为字符 THISFORM.TEXT1.VALUE=SS+\ &&将当前计时结果显示在文本框中 THISFORM.REFRESH THISFORM.TIMER1.ENABLED=.T. TIMER1的TIMER事件 COMMAND1的CLICK事第 36 页 共 77 页