VB做电子报时钟(13)

模拟电子钟 带语音报时功能

MMControl1.FileName = App . Path & “ 3.wav ” mond = “ Open ” mond = “ Play ”

Case 4

MMControl1.FileName = App . Path & “ 4.wav ” mond = “ Open ” mond = “ Play ”

Case 5

MMControl1.FileName = App . Path & “ 5.wav ” mond = “ Open ” mond = “ Play ”

Case 6

MMControl1.FileName = App . Path & “ 6.wav ” mond = “ Open ” mond = “ Play ”

Case 7

MMControl1.FileName = App . Path & “ 7.wav ” mond = “ Open ” mond = “ Play ”

Case 8

MMControl1.FileName = App . Path & “ 8.wav ” mond = “ Open ” mond = “ Play ”

Case 9

MMControl1.FileName = App . Path & “ 9.wav ” mond = “ Open ” mond = “ Play ”

Case 10

MMControl1.FileName = App . Path & “ 10.wav ” mond = “ Open ” mond = “ Play ”

Case 11

MMControl1.FileName = App . Path & “ 11.wav ” mond = “ Open ” mond = “ Play ” End Select

mond = “ Close ”

End Sub

不知道你的机子是否还能运行良好.毕竟再短短的一秒钟内,我们让计算机做的事情太多了.为了提高效率,我们可以考虑使用API函数.

我们先来看一下所要用到的相关知识.