|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
VB设计有语音报时和报警功能的闹钟
|
日期：2007年7月21日 作者： 查看:[大字体
中字体 小字体]
|
随着编程工具功能的日臻完善，集成开发环境(IDE)和相关API函数提供的功能越来越强大，极大地简化了开发的难度，降低了编程的门楣，因此如果只是玩玩编程的话，则不需要掌握太多的专业知识，单是各IDE中提供的控件、方法和API函数， 就足以让你编写出一个感到自豪的软件了；也许你会担心对于比较复杂的问题，IDE提供的东西将不能满足需要，其实完全不用这样，只需要你动动脑筋耍点小聪明将复杂的问题分解成简单的问题，灵活应用IDE提供的工具就可以达到目的，其实编程也需要点小聪明。
在本文中我们就以一个很小的闹钟设计程序来看一看Visual Basic6.0提供的图形函数和方法在编程中的应用。
先来看一看，我们想要实现的功能吧。作为一个有实在意义的时钟，除了显示时间，还要具有能够定时、报时的功能。所以我们在这个例子中，就要实现以下几种功能：
1、 显示时间 2、语音报时 3、定时报警 4、定时关机
同时我还将在文章中穿插介绍VB提供的绘图方法以及一些实用技巧，下面我们就开始吧。
阅读导航 一、如何显示时间 (1) VB时间日期函数介绍 (2) 建立实例 (3) VB绘图方法介绍 1、Line方法 2、Circle方法 3、Pset方法 4、三角函数 二、实现语音报时 (1) 使用MCI控件 (2) 相关API函数介绍 (1) GetLocalTime() (2) SYSTEMTIME结构 (3) mciExecute() (4) mciSendString() 三、实现定时关机和定时报警
一、如何显示时间
(1) Visual Basic时间日期函数介绍
让我们先来看看怎样实现显示时间吧。在windows中给我们提供了一系列通用控件，而且各种编程工具又在这个基础上，给我们提供了更多的选择。不同的控件，有不同的作用，但就显示信息来说，主要有textbox，Lable等控件。在这里我们选择Lable控件来显示时间。
那么怎样获取时间呢？vb中给我们提供了以下函数：
函数名函数功能语法结构 Date 函数返回包含系统日期的Variant(Date) 。 Date DateAdd函数返回包含一个日期的Variant(Date) ，这个日期还加上了一段时间间隔。 DateAdd(interval,number,date) DateDiff函数返回Variant(Long)的值，表示两个指定日期间的时间间隔数目。 DateDiff (interval,date1,date2,firstdayofweek [，firstweekofyear]) DatePart函数返回一个包含已知日期的指定时间部分的Variant(Integer) DatePart(interval,date[，firstdayofweek][，firstweekofyear ] ) DateSerial函数返回包含指定的年月日的Variant(Date) DateSerial( year ，month ，day ) DateValue函数返回一个Variant(Date) DateValue(Date) Day函数返回一个Variant(Integer) ，其值为1到31之间的整数，表示一个月中的某一日 Day(Date) Hour函数返回一个Variant(Integer) ，其值为0到23之间的整数，表示一天之中的某一个钟点 Hour(time) Minute函数返回一个Variant(Integer) ，其值为0到59之间的整数，表示一个小时中的某一分钟 Minute(time) Now函数返回一个Variant(Date) ，根据计算机系统设置的日期和时间来指定日期和时间 Now Second函数返回一个Variant(Integer) ，其值为0到59之间的整数，表示一分钟之内的某一秒钟 Second(time) Time函数返回一个指明当前系统时间的Variant(Date) Time Time语句设置系统时间 Time = time Timer函数返回一个Single，代表从午夜开始到现在所经过的秒数 Timer TimeSerial函数返回一个Variant(Date) ，包含具有现在时、分、秒的时间。 TimeSerial(hour，minute，second) TimeValue函数返回一个包含时间的Variant(Date) TimeValue(time) Weekday函数返回一个Variant(Integer) ，包含一个整数，代表某个日期是星期几 Weekday(date[，firstdayofweek]) Year函数返回一个Variant(Integer) ，包含表示年份的整数 Year(Date)
多丰富的资源，微软真是体贴。下面然我们来以一个实例看看怎样显示时间吧。
进入讨论组讨论。 (2) 建立实例
程序中所用到的控件的作用和相关属性设置如下表：
控件属性值作用 Form1 Caption 时钟显示窗体 Label1 Caption 空显示时间 Label2 Caption 空显示分钟 Label3 Caption 空显示秒钟 Label4 Caption 空显示年份 Label5 Caption 空显示月份 Label6 Caption 空显示日期 Label7 Caption 空显示星期几 Timer1 Interval 1000 每秒钟触发一次事件
下面是代码：
Private Sub Timer1 _ Timer( )
hou = Hour (time)
上一篇:VB编程实现Windows XP风格的界面
下一篇:如何映射 / 中断网络磁盘
|
| VB设计有语音报时和报警功能的闹钟 相关文章： |
|
|
|
| VB设计有语音报时和报警功能的闹钟 相关软件： |
|
|
|
|
