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

计算从开机到现在用了多少秒-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了多少次。二者相除,就是从开机到现在过去了多少秒钟。
利用VB使ACCESS数据库在网络使用中保持同步 返回 连接Data到多个表单-VB资料 列出 SQL Server 数据库中所有的存储过程-VB资料 列出MDB档当中所有table的名称-VB资料 您想知道有谁正在使用您的 Access 文件吗?(多人环境中)-VB资料 主题:浅谈Excel 的VB编程 巧用VB6的DataGrid实现通用电子表格 VB取得正确的 RecordCount 值 主題:如何动态新增、移除 ODBC DSN? -VB资料 VB如何将表中的数据导出到电子表格中 VB如何将文本文件转换为ACCESS数据库 VB如何將 Excel 的文件导入 Access文件? VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 锁住数据库中的表 -VB资料 谈谈VB的数据库编程方式 为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法 为什么安装后的数据库应用总是路径不对或找不到? 返回 -VB资料 无论如何,就是只能输入数字-VB资料 VB用 DAO 或 ADO 正确访问 Access 2000 VB用CELL组件显示Access数据库的图片对象 超难度sql 语句 一个很菜的问题。 grub 不认ntfs?(在线等答,可行的话我给50分) 金童玉女的追求与堕落 请问如何让网格自动调整宽度? 放分之一(一个小小的题目,谁第一个写出来就得分) 装了XP后,如何找回Linux? 急需源代码…… 谁在??? 帮帮我啦。。~~~~~~~~~~ 急急急!! 请问MSDN里面所说的Video Capture函数和视频采集卡厂商所提供的SDK有什么不同了?在线等候。。 怎样使网页(IE)上选择的文字能够拖动到BCB程序中?(400分赐教,决不食言) 调查:你是共享软件作者吗........ 急需帮忙!!! 编程,怎能支持少数名组语言 到底在linux那里是用什么命令解压zip文档的?各位高手告诉我!! 已计算的子表单 DBGrid怎样实现0值不显示? 8月25日 0:23 论坛在线名单(462人)!好多人呀!不知道有在公司加班的吗? 在pb中 除了odbc和专有数据库连接 还有其他方式的连接方式吗 调查:你是共享软件作者吗........ 为什么总是提醒我“服务器繁忙,请稍候再试。”CSDN在搞什么鬼?今天遇到好多次了!:( 工作区中的一个简单的问题 picture控件是不是没有双击消息? msdn示例程序,你们是否都看得懂呢? 你用了Delphi7吗,感觉如何? 同学十一结婚,想做个flash之类的东东作礼物,哪位能指导一下,时间不多啦,帮帮忙 SCO UNIX认证好考吗?特别指UnixWare 7的系统管理员。知道情况的跟俺讲讲。 兼职做一个库存进销软件,大概能得多少钱 同学十一结婚,想做个flash之类的东东作礼物,哪位能指导一下,时间不多啦,帮帮忙 怎样刷新页面的某一部分,而不是全部刷新? 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 个人编写软件,需要用到版本控制吗? 关于资源文件中的对话框。 APACHE出错 我的问题可能会让大家反感!!(在线等待) 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 如何接收 用 CreateObject 函数创建对象的事件 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 编程的困惑 BCB_FANS(四大名捕之追杀令) 请进!送分! 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 国家四级与中程,孰难!! 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 调查:什么时候想准备结婚?(单超的也可发表意见) 这里有贵州考高程的人吗? 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 寻软件高手!现有一IP地址和网页、搜索栏关键词拦截程序需要编写,付酬!!! 没声问题 请问在SQL2000中使用中文字段名对性能影响有多大? 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 塑料袋可以承受最大温度 氧气瓶能异地充装吗?怎么才能实现异地充装 给大家出个智力题家里人看天气预报.都看哪个地方?儿子在哪里上大学,妈妈准看那个地方下不下雨.经商与此同理,自己的钱投向哪,投资人的关注点就投向哪里.安全就走向哪里.中国既然与世 寻找耐高温透明塑料袋1、包装透明塑胶产品出口国外,海运时间30天左右,集装箱内温度可能达到75℃,所以要求塑料袋在80℃时稳定、不分解.2、内装产品属于医疗器械配件,要求无尘无菌,且表 氧气瓶在什么样的条件下禁止充装? 谁能给我出几个智力题? 多高的温度才会使到塑料袋溶化,在炎热的天气把塑料袋放在烈日暴晒的路面放得久了会溶化吗. 氧气瓶在充装之前都有进行哪些检查? 分别用氢气和金属作还原剂冶炼金属,下列对所得金属的纯度的说法正确的是A.用氢气冶炼的金属程度高B.用金属冶炼的金属程度高C.二者相同D.无法比较 int(*ptr)[10]; 完全不理解, 那一刻,我迈上了新台阶是作文,不少于600字 吉祥的吉+力气的力是什么字````吉祥的吉+力气的力是什么字 要是知道这个字顺便把意思也发给我谢谢! 1%氢氧化钠能不能用于制药设备的清洗? 作文:那一刻,我迈上了新台阶 吉和力组成一个字读什么 这个语句不明白,尤其是那个Ts=SUM(SUMIF(INDIRECT("'"&ROW(INDIRECT("1:"&Ts))&"'!B:B"),B5,INDIRECT("'"&ROW(INDIRECT("1:"&Ts))&"'!E:E"))) 那一刻,我迈上了新台阶的作文 吉字旁边一个力字 组合是什么字?吉 字旁边 有个 力 组合在一起是什么字怎么在电脑上打出这个字,五笔怎么打?智能ABC怎么打?要有根据 饭堂用的大型抽油烟机清洗原料?用氢氧化钠可以吗可以的话.怎样配制使用.效果如何 麦芽糖水解之后的产物是什么?急 氢氧化钠溶液能洗涤油烟机上的油污逅吗? 烧碱可以清洗金属吗 关于麦芽糖和蔗糖水解产物的下列叙述正确的是?A一个蔗糖分子水解后生成二个果糖分子B一个蔗糖分子水解后生成一个果糖分子和一个葡萄糖分子C一个麦芽糖分子水解后生成二个果糖分子D (x^2-7x+12)(x^2+x-6)>0 每个梯形的面积等于平行四边形面积的( ).括号里怎么填 英语翻译我要遵从上帝颁发世人认可的法律”“我要坚守住这个立场” 氮气与氢气反应,还原剂是什么? 求简爱2011电影版中一句经典英文对白一定要2011新版电影中的这一段对你来说我算什么呢?一部没有感情的机器?你以为我穷,不好看,就 没有感情吗……?我也会的,如果上帝赋予我财富和美貌,我 英语翻译in whose eyes whatever is unusual is wrong; whose ears detect in each protest against bigotry -that parent of crime-an insult to piety ,that regent of God on earth. 1.7X=0.6(X+6),请问X是多少?我记错题了。1.3X=1(X+6),==================这个题是四年级女儿的题,我现在弄糊糊了,全班平均成绩91.9分,女生平均成绩93.2分,男生平均成绩90.9分。男生比女生多6人。 这个到底是什么啊? 在当当网购买的乐扣水瓶是正版的吗? 氢气和氧化铜反应,氢气作还原剂 还是氧化剂 “简爱在三月”这句话用英文怎么说? 英语翻译这个集装箱地板上的污渍是老油污,清洗不掉的,所以不能算污箱.(老油污这个意会一下,是车队告知的我也不知道怎么表达) 氧化铜和氢气反应的现象、还原剂、氧化剂是什么 你知道?每次都这样啊,虽然我们俩认识的时间不长,我也说不好,他有的时候会莫明的生气,而且我都不知道,可能是因为我说的话吧,但是我这就是这样的人啊,而且有的时候他竟然会说什么媳妇 乐扣保温水壶质量好吗 一块木,从水里浮上水面,在未露出水面之前受到的浮力不变,这是因为( ). 160,72,135 三个数的最小公倍数200,264,275 的最小公倍数请写下详细的过程,谢谢 乐扣乐扣运动水壶HPP708到底耐温多少度?合格证上说瓶体是pc(聚碳酸酯)耐温-30——140度 但7号不耐高温7号指瓶底小三角内的符号 这和你说的不一样 鸭子是靠浮力,还是水的表面张力浮在水面上? 制取二氧化碳和氧气的发生装置和收集装置各有什么不同 工业氧气瓶出气压力怎么调 根据F浮=P水gV排算出的物体浸在液体中的浮力大于物体露出水面一部分时的浮力,为什么,哪儿理解错了但当物体有一部分露在水面时的浮力要大于浸在液体时的浮力,这不矛盾吗,有谁能详 气体发生装置和气体收集装置是什么,分别什么用途,区别是什么有好多种装置能讲一讲是怎样运作的吗 帮忙找出《简爱》原文的句子(英文的)1.她所不能感到的怒火在我心里燃烧着,大滴的热泪一直不断地在洗着我的脸颊,看着她那逆来顺受的样子,叫我心痛得无法忍受.2.可是对于明亮的眼睛, 给大家出个智力题啊,呵呵.小明和小红去买雪糕,小明差1元,小红差一分.两个人啊把钱加起来还是不够.那这块雪糕多少钱呢? 下列物质除哪项外,完全水解后的产物都相同A.肝糖元B.淀粉C.乳糖D.麦芽糖 选哪个?为啥?下列物质除哪项外,完全水解后的产物都相同A.肝糖元B.淀粉C.乳糖D.麦芽糖选哪个?为啥? 口字里面有一个力念什么字 测定食品中蔗糖为什么要进行水解?如何进行? 英语翻译广告代谢论文等等勿扰,本人自己英语专业,会写论文,只是怕自己翻译题目的与正式论文格式要求等等不太契合,才在线求助有才之士帮忙核对矫正,如有心人能给想到本论文题目的翻 口力是什么字 面试时遇到一个智力题?在面试时,面试官根本就没看我的简历,很直接的出了一道题?1=52=153=2254=3255=?这个题好象是考思维能力的,请各位大虾研究一下这个5=什么?为什么?到时我想了好久没想起 普通的塑料袋是什么材质的.可以耐多少度高温 碳酸钙为什么随温度升高溶解度降低 蔗糖水解动力学中为什么要严格控制温度? 关于初3化学的收集气体的装置用向上或向下排空气法不是针对双孔胶塞的长进短出或短近长出而言的 前者是用玻璃盖 而后者是用双孔胶塞 我说的对吗 请说明理由急 在线等 NaOH能否洗掉烃类油污 出几道智力题
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘