vb中語音報時代碼

Dim vhour As Integer, vminute As Integer, vsecond As Integer

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

vhour = Hour(Time)

vminute = Minute(Time)

vsecond = Second(Time)

If vminute = 0 And vsecond = 0 Then

WindowsMediaPlayer1.URL = App.Path & "/現在時刻.mp3"

WindowsMediaPlayer1.Controls.play

WindowsMediaPlayer1.URL = App.Path & "/" & vhour & ".mp3"

WindowsMediaPlayer1.Controls.play

End If

End Sub

沒用過mic控件，用WindowsMediaPlayer控件代替了，人人電腦裏都有（XP系統，部件拉到底）

窗體放壹個WindowsMediaPlayer1，壹個timer1

其中兩段聲音需要妳自己準備的，妳應該看得懂代碼吧，準備好<現在時刻>的聲音和0點到晚上11點的聲音，app.path只想的是程序自身文件夾下，妳保存下工程，再把音樂放到文件夾下就好了

我這裏是用小時代替了音樂的名字 所以0點的音樂名應該是“0.mp3” 1點是“1.mp3”。。。晚上11點是“23.mp3” 以此類推，還不明白加我QQ，程序沒測試過。。。沒耐心等。。。

上一篇:海爾全自動洗衣機使用方法

下一篇:西安愛創機器人科技有限責任公司怎麽樣？