说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

计算从开机到现在用了多少秒-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
计算从开机到现在用了多少秒-VB资料

下面的程序与标准的Timer控件相比,有两个同的地方:

1。该程序计算的起点是系统启动的时间,而不是从午夜开始算起。如果你想从午夜开始算起,用(Now-Int(Now))*86400这条语句就行了。

2。精度更高,标准Timer控件的Tick频率为1KHz,而该程序为1.4MHz

下面是程序的源代码:

Option Explicit

Private Declare Function osQueryPerformanceCounter Lib "Kernel32" Alias "QueryPerformanceCounter" _ (lpPerformanceCount As Currency) As Long

Private Declare Function osQueryPerformanceFrequency Lib "Kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As Currency) As Long

Public Function Timer() As Single

Dim freq As Currency, count As Currency

osQueryPerformanceFrequency freq

osQueryPerformanceCounter count

Timer = count / freq

End Function

需要说明的一点是,如果你查阅API手册,你会发现API并不能识别Currency数据类型。在API手册中,osQueryPerformanceFrequencey要求的参数是一个Large_Integer的数据结构,该数据结构由两个Long类型的数据组成。Currency实际上也是按同样的方法来储存的。只不过在计算时被除以10000。因此你也可以写成:, (freq/10000) / (count/10000) = freq/count。关于上面的两个API函数,osQueryPerformanceFrequecy表示一秒内,计时器Tick了多少次;osQueryPerformanceCounter表示从开机到现在,计时器一共Tick了多少次。二者相除,就是从开机到现在过去了多少秒钟。
定制Speedbar-Delphi资料 动态产生构件并相应事件-Delphi资料 对Borland可视部件的一处改进-Delphi资料 控件使用技巧-Delphi资料 改变VCL的行为--一个使用可视化元件的实例-Delphi资料 具有不同字体的列表框-Delphi资料 快速大量地更改控件内容-Delphi资料 快速动态创建MenuItem-Delphi资料 利用Delphi 5中调用Excel 97 利用Delphi的Tbitmap控件抓取屏幕图象 利用delphi美化你的菜单 面向组件的系统开发方法-Delphi资料 强大的树型编程控件TeeTree1.01-Delphi资料 确定MEMO控件中的当前行和列-Delphi资料 让字体左、右对齐-Delphi资料 如何给TListBox加上水平的滚动条?-Delphi资料 如何快速选择一个组件的父亲-Delphi资料 如何用Delphi编写自己的可视化控件 如何用VB创建控件-Delphi资料 生成程序组和项-Delphi资料 实现超级链接-Delphi资料 实战Delphi数据网格色彩特效 使dbgrid的某几笔资料变色-Delphi资料 树形图(Treeview)的使用概述-Delphi资料 透明FORM-Delphi资料 为列表框添光彩-Delphi资料 限制FORM的大小-Delphi资料 用Delphi开发分隔线组件 用Delphi设计拨动、跳线开关组件 用Delphi 设 计 拨 动、 跳 线 开 关 组 件 用Delphi实现JPEG格式图像的显示 about Release?? 在非控制台中,怎么取得运行者给的参数。 高难问题:Delphi 程序如何向CBuilder编写的DLL传递窗体指针,在DLL中如何用 关于实现头像跳动的问题!!!???? 请问我们平时用的电话机,传输的是数据信号还是模拟信号? outlook express有毒? 哪位大下指点一下:html 带参数访问 servlet 小小调查,向有识之士请教~~~ 谢谢~~~~ 有没有一种线程安全的方法来取得一张表的元组个数? listview排序的,过来看看。。 有一获国家专利的中文输入法软件急于开发 帮忙解释一下implementation什么意思,有什么作用. A Question about ActiveForm and TabStop. 用于从INI文件中读字串的函数是什么?请示高手! 清問:Datareport實現不了的功能如何實現?清大蝦指教,謝謝! 检测下拉列表中批配项,有则选中 为什么DBGRID显示一片空白,记录应该取到了。代码如下: 谁有免费出国代理,急用。如果能有,马上给分 关于学习.net与j2ee的抉择问题,欢迎各位大侠热烈讨论!!! 求PHP代码,功能是:判断字符是否全部为汉字? 又是MSFlexgrid的问题!!!请大家帮忙~! ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 高中长期提问用户,标准状况下32G某气体的分子数目与22co2的分子数目相同,则气体的摩尔质量 钢的密度是多少?怎么计算他的重量?直径40mm,L200,密度是不是0.787是不是这样计算:2*2(半径)*3.14(π)*20(长)*0.787(密度)/1000(倍),或错在哪里?我既然把这个计算方法忘记了 为什么浮力等于排出水的重力RT 现有32g某气体,该气体分子由三个原子构成,它的摩尔质量为64g/moL.若阿伏加德罗常数NA≈6.02x10的23次方moL的-1次方表示,则该气体的物理的量为 moL 标准状况下,气体的摩尔体积一定是22.4L/mol吗答案不是这个选项,能帮我举出一个反例吗 漂浮的物体受到的浮力是不是等于排出水的重力、这个好像是阿基米德原理、但是阿基米德原理只能用于悬浮啊. Q235B、Q345B钢板的最新价格是多少? 在标准状况下1mol任何气体所占的体积都约是22.4L 还是22.4L/mol? 这两个单位的区别? 为什么物体静止在水时,浮力等于重力 标准状况下,5.6L某气体的质量为11g,其摩尔质量是_____ 任何气体在标准状况下气体摩尔体积都为22.4L/mol吗 判断物体沉浮的条件字母表达 要全= 标准状况下,8.5g某气体占有体积为5.6L,则此气体摩尔质量和相对分子质量是多少? 只有在标准状况下,气体的摩尔体积才是22.4L·mol-1 为什么错了 冰水混合物在零度会怎么样? 在标准状况吓,5.6L某气体的质量为10克.则该气体的摩尔质量为?给我说说, 一块长方体钢板长2米宽1.5米它的重量是51.48吨已知每立方米钢材中7.8吨这块钢板厚多少米 如果往热橙汁,加冰块使它处于冰水混合物状态,此时橙汁是零度吗?为什么 低合金高强度结构钢钢板 460C 10*2000*8000是什么意思主要是10*2000*8000 一块长方体钢板,长22米、宽1.5米,它的重量是54.18吨,已知每立方米钢材重7.8吨,这块钢板厚多少米 根据阿佛加德罗定律,下列说法正确的是 a同温同压下两种气体的体积之比等于摩尔质量之比b同温同压下两种气体的物质的量之比等于密度之比 c同温同压下两种气体的摩尔质量之比等于密度 低合金高强度结构钢的牌号主要有 哪三个部分组成 长22米,宽1.5米得一块长方形钢板,它的重量是51.48吨,已知每立方米钢重7.8吨,求这块钢铁厚多少米 依照阿伏加德罗定律,下列叙述正确的是 ( ) A.同温同压下两种气体的体积之比等于摩尔质量之比   B.同温 请问低合金高强度结构钢Q345能与碳素结构钢Q235焊接吗?焊接以后会漏水, 一块长方体钢板,长3米,宽2米,它的重量是4.68吨,已知每立方米钢材重7.8吨,这根钢板后多少分米? 根据阿伏加德罗定律,下列叙述中正确的是(双选) A.同温同压下两种气体的体积之比等于摩尔质量之比 B.根据阿伏加德罗定律,下列叙述中正确的是(双选)A.同温同压下两种气体的体 为什么说“无论外界气温如何,冰水混合物的温度始终是0℃”?请不要复制哦,给我很详细明了的答案好吗~外界气温升高冰水混合物不吸热吗?外界气温降低冰水混合物为什么不会结冰呢?谢谢 一块长方体钢板,长1.8米,宽1.5米,厚0.02米.如果每立方米钢重7.8千克,这款钢板重 有关浮沉的一道物理题在一个水槽里装入适量的水,把一个连接著管子的小胶瓶(瓶内只有空气)放入水中..胶瓶悬浮...若向瓶内呼气,则胶瓶上浮还是下沉..那吸气呢?并说明理由 在标准状况下 ,体积为8.96L的CO和CO2的混和气体共14.4g,混合气体中碳原子的个数是 NA+的摩尔质量为23g/MOL这句话对吗? 同温同压下,两种气体摩尔质量之比等于?--------我在线等 已知有4.4g二氧化碳,有—— 个摩尔原子 有——个碳原子 45号钢的密度是多少?应该跟A3及其他钢材都不一样的吧 把一块0℃冰放入0℃的水中和把它放水0℃的盐水中现象相同吗?为什么? 14.4g的co与co2的混合气体在标状下体积为8.96L,为什么平均摩尔质量为36g/mol,怎么算得 下列现象不可能发生的是:A水的沸点低于或高于100摄氏度B-10摄氏度的冰块放在0摄氏度的水中,冰块会融化C物体吸热,温度保持不变D用敞口的锅烧水,当水沸腾后用猛火继续加热,水温不变 把零度的冰放入零度的水中和把它放入零度的盐水中现象相同吗?为什么? 16Mn可以用什么材料替代 lbmol/cuft是密度单位,怎么换算成kg/m³呢 把一块冰放在273K的水中,另一块放在273K的盐水中,各有什么现象? 16Mn材质,以下几种符号分别代表什么意思? 冬天浇筑混凝土后温度达到0度以下,上冻了对混凝土有什么影响会出现什么状况? 物体沉浮与密度的关系?过了当天就没分了. 为什么在标准状况下,1摩尔的任何气体的体积相同 224毫升某气体在标准状况下的质量为0.32克,该气体的摩尔质量约为 求高中化学各种物质的沉浮(密度)情况例如:四氯化碳比水重,所有的烃比水轻请系统的讲讲,之间的联系,最好分无机有机让我彻底分辨各种物质的沉浮情况 1摩尔气体的体积为22.4L时、该气体一定处于标准状况吗?要有几句的理由 5克某金属混合物与500毫升,1摩尔/升的盐酸反应,收集到的气体在标准状况下的体积为2.8升,那么这一种金属混合物可能是( )A.铁和锌 B.镁和铝 C.铁、锌和钙 D.镁、铁和锌 物体的沉浮和物体的密度和液体的密度大小有没有关系拜托各位了 3Q我想知道物体的沉浮和物体的密度和液体的密度大小有没有关系.理论上的我懂、但是想知道为什么 顺便提一个题、两个 同温同压下相同体积的某气体与H2的质量之比为22,则该气体的摩尔质量为 冬天在室外晾衣服好吗? 用盐水选种密度1.1*10的3次方,现配500ml盐水,质量0.6kg,问符合要求?如不符合加盐还是水,加多少? 0.04mol某气体在标准状况下的质量为1.28g则该气体的摩尔质量为 A 64g B 32g C 64g/mol D 32g/mol 在同温同压的情况下,知道CO2,H2,CO三种气体的混合气体的摩尔质量为28,怎么求三种气体的体积比 有一种气体的质量是14.2克,体积是4.48升,该气体的摩尔质量是? 已知1.505×10²³个A分子的质量为8g,则A的摩尔质量是?A.8g B.32g C.32g/mol D.64g/mol -10摄氏度的冰块放在0摄氏度的水中,冰块会融化吗?-10摄氏度的冰块放在0摄氏度的水中,冰块会融?下列操作不会使汽水中已经溶解的二氧化碳逃逸出来的是 A.打开汽水瓶盖 B.搅拌汽水 C.加热汽 448ML某气体在标准状况下的质量为1.28克,求气体的摩尔质量是32还是64
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn