VB编程实现校园铃声自动控制.doc

VB编程实现校园铃声自动控制 和升旗国歌、广播操、眼保健操的自动播放 校园里周而复始的升旗仪式国歌的播放，每天的铃声、广播操及眼保健操的播放。能否实现无人自动播放，回答是肯定的。把自己学校的作息时间表，用Access2000 （Access97也行）编写成一个数据库文件，以“时间表”为名存盘。用VB6.0编写一个程序，程序运行后，把“时间表”各字段的记录的值读入存于变量数组中，每隔一定时间获取一次系统时间，跟变量数组比较，相等时程序调用API函数自动播放铃声或者国歌或者广播操或者眼保健操等声音文件。从而实现自动控制。具体做法如下： 先用Access2000（也可用Aeccss97）新建一个数据库文件，各字段名分别为起床、早操、早读预备、早读上课、早读下课、第一节预备、第一节上课、第一节下课、第二节预备、第二节上课、第二节下课、课间操、第三节预备、第三节上课、第三节下课、眼保健操、第四节预备、第四节上课、第四节下课、中休、中休停止、第五节预备、第五节上课、第五节下课、第六节预备、第六节上课、第六节下课、第七节预备、第七节上课、第七节下课、停止活动、晚读预备、晚读上课、晚读下课、自修第一节预备、自修第一节上课、自修第一节下课、自修第二节预备、自修第二节上课、自修第二节下课、熄灯（以上各可根据实际情况设置），各字段格式均为日期/时间型，以“时间表”为名存盘。 用VB6.0新建一个工程，添加一个窗体。在窗体上添加一个timer控件，interval属性为500毫秒。添加四个label控件，label1,label2,label3,label4 各caption属性均为空。分别用于显示年月、日、和时间，一个picturebox 控件picture1其visible属性为false 。在picture1中添加label控件数组label5(n) ，n与“时间表”的字段数目相等，它们的caption属性分别为“时间表”各字段名。在picture中添加text控件数组text1(n) ， n 与“时间表”的字段数目相等 ，用显示“时间表”的各字段的记录值。在窗体上添加两个commandbutton控件command1和command2, caption属性分别为“确定”和“取消”。在窗体上添加一个Adodc控件Adodc1其conncetionstring属性为“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:时间表.mdb;Persist Security Info=False ”（“d:/”为“时间表”的存放路径），Adodc1的visible属性为false ,其RecordSource 属性为“时间表”。 用“菜单编辑器 ”编辑四个菜单项：“临时铃声”（用于临时手动打铃）、“关闭机器”、“修改时间”、“退出系统”。以上各种控件在窗体中的位置可根据自己的需要来确定。下面给出全代码： Option Explicit Private Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Declare Function ExitWindowsEx Lib user32 (ByVal uFlags As Long, ByVal dwReserved As Long) As Long ‘API函数声明 Dim i As Integer Dim n As String Dim tim(41) As String Dim button Dim str As String ‘定义变量 Private Sub Command2_Click() With Adodc1.Recordset .MoveNext .MoveFirst End With For i = 0 To 41 tim(i) = Text2(i).Text Next i Picture1.Visible = False 铃声控制.Width = 4335 铃声控制.Height = 5145 铃声控制.WindowState = 1 End Sub Private Sub Command3_Click() Picture1.Visible = False 铃声控制.Width = 4335 铃声控制.Height = 5145 铃声控制.WindowState = 1 End Sub Private Sub Form_Activate() For i = 0 To 4