在实际的工作中,许多的单位的电脑并不会配有音箱,就算有音箱,没事也不会打开。在这种情况下,
要想在有消息到来时进行提示,就必须得借助PC的喇叭了,以下就是PC喇叭发出的“生日歌”
Private
Declare
Function
Beep
Lib
"
kernel32.dll
"
(
ByVal
dwFreq
As
Int32,
ByVal
dwDuration
As
Int32)
As
Long
Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
Dim i() As Integer = { 392 , 392 , 440 , 392 , 523 , 494 , 392 , 392 , 440 , 392 , 587 , 523 , 392 , 392 , 784 , 659 , 523 , 494 , 440 , 698 , 698 , 659 , 523 , 587 , 523 }
Dim j() As Integer = { 375 , 125 , 500 , 500 , 500 , 1000 , 375 , 125 , 500 , 500 , 500 , 1000 , 375 , 125 , 500 , 500 , 500 , 500 , 1000 , 375 , 125 , 500 , 500 , 500 , 1000 }
Dim ak As Integer
For ak = 0 To i.Length - 1
Beep (i(ak), j(ak))
Next
End Sub
Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
Dim i() As Integer = { 392 , 392 , 440 , 392 , 523 , 494 , 392 , 392 , 440 , 392 , 587 , 523 , 392 , 392 , 784 , 659 , 523 , 494 , 440 , 698 , 698 , 659 , 523 , 587 , 523 }
Dim j() As Integer = { 375 , 125 , 500 , 500 , 500 , 1000 , 375 , 125 , 500 , 500 , 500 , 1000 , 375 , 125 , 500 , 500 , 500 , 500 , 1000 , 375 , 125 , 500 , 500 , 500 , 1000 }
Dim ak As Integer
For ak = 0 To i.Length - 1
Beep (i(ak), j(ak))
Next
End Sub