VB设计有语音报时和报警功能的闹钟

• Public Declare Function mciSendCommand Lib " winmm.dll " Alias " mciSendCommandA " ( ByVal wDeviceID As Long , ByVal uMessage As Long , ByVal dwParam1 As Long , ByVal dwParam2 As Any ) As Long
  
  Public Declare Function mciSendString Lib " winmm.dll " Alias " mciSendStringA " ( ByVal lpstrCommand As String , ByVal lpstrReturnString As String , ByVal uReturnLength As Long , ByVal hwndCallback As Long ) As Long
  
  　Dim dangqianshijian AS SYSTEMTIME
  
  　‘ = = = = = = = = = = = = = = = = = = = = = = = =
  　‘ 每秒钟触发一次此事件,从而获取当时的时间,并调用相应的函数,画出三个针的位置
  　‘ = = = = = = = = = = = = = = = = = = = = = = = =
  
  Private Sub Timer1 _ Timer ( )
  
  　Call GetLocalTime( dangqianshijian )
  　miao = dangqianshijain . wSecond
  　miao = 60 – miao
  　fen = dangqianshijian . wMinute
  　fen = 60 - fen
  　shi = dangqianshijian . wHour
  
  　If shi >= 12 Then ‘因为一天之内时针要走二十四个钟头,也就是要走两圈,所以将下午和晚上的时间减去十二,就可以确定时针准确的位置
  　　shi = shi - 12
  　End If
  
  　shi = 12 - shi
  　miao = xianshimiao ( maio )
  　fen = xianshifen ( fen )
  　shi = xianshishi ( shi )
  　If fen = 0 and miao = 0 then ‘如果分针和秒针都为零,这位整点,根据时针的数报时
  
  　　Select case shi
  　　　Case 0 ‘零点,0.wav报时零点
  　　　　MMControl1.FileName = App . Path & “ 0.wav ” ‘选择要打开的文件
  　　　　ErrorCode = mciSendString ( “ Open ” & App . Path & “ 0.wav ” & “ type WaveAudio alias wave ” , ReturnString , 256, 0 )
  
  　　　　‘打开所选择的文件
  
  　　　　ErrorCode = mciSendString ( “ Play wave ”, ReturnStr , 256 , 0 )
  
  　　　　‘播放所选择的文件
  
  　　　Case 1 ‘ 一点,1.wav报时一点,以下依次类推
  　　　　MMControl1.FileName = App . Path & “ 1.wav ” ‘选择要打开的文件
  　　　　ErrorCode = mciSendString (“Open” & App.Path & “0.wav” & “type WaveAudio alias wave ” , ReturnString , 256 , 0 )
  
  　　　　‘打开所选择的文件
  
  　　　　ErrorCode = mciSendString (“ Play wave” , ReturnStr , 256 , 0 )
  
• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB设计有语音报时和报警功能的闹钟 相关文章：
• ·Windows Vista系统常用补丁功能介绍
• ·将最广泛的网络安全功能整合在一个系统中
• ·Windows Vista SP1改进功能完全介绍
• ·Windows Vista SP1 RC新功能初体验
• ·QQ会员与众不同 37项独有特权功能一览
• ·微调Vista“用户帐户控制”功能
• ·Google Gmail新增加邮件彩色标签功能
• ·RealPlayer 11简体中文版功能速览
• ·网络营销网站功能设计的几点心得
• ·ASP.NET 2.0功能扩展:跨页提交
• VB设计有语音报时和报警功能的闹钟 相关软件
• ·公司企业网站管理系统模板功能强大版
• ·《失落的星球》全版本多功能修改器全集
• ·图解PHOTOSHOP CS2 新功能体验
• ·Win2000网络服务功能
• ·疯狂英语突破功能
• ·疯狂英语之突破功能电子书
• ·AutoCAD 2004 新功能与升级培训教程
• ·Photoshop v7.0 新增图修功能教学
• ·QQ显IP 显隐身超级版 2款不同功能最新QQ版本 友情下载
• ·功能强大的全方位电脑测试软件 rar 几乎囊括了电脑

上一篇:用ActiveMovie创建媒体文件浏览器

下一篇:用Visual Basic6类模块打造控件

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐