主题：QB程序如何实时显示时间? 如何获取写保护(软/硬盘)信息? 不盛感激!!!
CLEZhang
[专家分：0] 发布于 2005-01-29 11:53:00
[em10][em10][em10][color=0000FF][/color]
回复列表 （共8个回复）
沙发
大大大 [专家分：0] 发布于 2005-01-29 19:35:00
print time$
板凳
飞鸟12 [专家分：2830] 发布于 2005-01-30 13:48:00
DO
LOCATE 10, 20: PRINT TIME$
LOOP UNTIL INKEY$ <> ""
3 楼
GrapeOT [专家分：120] 发布于 2005-01-30 21:38:00
时间可以用time$或者timer。
写保护可以用on error结合写入文件判断。
4 楼
CLEZhang [专家分：0] 发布于 2005-01-31 16:25:00
2楼的,我还能在显示时间的同时干点儿别的吗?
5 楼
飞鸟12 [专家分：2830] 发布于 2005-01-31 19:25:00
当然可以只要保证至少在一秒内显示一次时间
6 楼
fandy [专家分：0] 发布于 2006-10-29 10:44:00
怎么样才能实现至少在一秒内显示一次时间呢？
7 楼
mickeyice [专家分：200] 发布于 2006-10-29 14:47:00
１秒显示一次
on timer(1) gosub printtime
(如果时间=1秒那么转移到printtime 子程序)
timer on
(打开时间事件)
printtime: ︳
? time$ ︳→printtime子程序
return ︳
在printtime子程序里面你可以做不少事情～～～或者也可以添加语句在timer on 前面
8 楼
野生大白菜 [专家分：120] 发布于 2006-10-29 21:52:00
我也来发个简单点的:
10 t$=inkey$:locate 10,10:print time$:if t$="" then 10
if t$=chr$(27) then end
xxxxxxxxxxxxxxxxxx(你要另外的东西 机器运行时间保证不超过1秒的) goto 10
我来回复
您所在位置：