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

　　随着编程工具功能的日臻完善，集成开发环境(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() 三、实现定时关机和定时报警



159 　　一、如何显示时间

　　(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)
　　多丰富的资源，微软真是体贴。下面然我们来以一个实例看看怎样显示时间吧。