oobird

¥ý­n¸Ñ¨Mªº¬OEXCEL¦p¦ó¯à±oª¾§A¿é¤J¿ù»~¡H
¦p¥´¤@½g¤å³¹¡A¥´¿ù¦r®ÉµoÁn´£¿ô¡H

oobird

http://www.funp.net/955169
­ì©«ªº³sµ²¡Ghttp://qa.pcuser.com.tw/modules/ ... =41630&forum=24

oobird

¤èªk¤Ó¦h¤F¡A²³æ¼g´X­Ó±`¥Îªº¡G

1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
   
2. Private Const Mic = "C:\Windows\Media\tada.wav"
   
3. Sub op()
   
4. mciExecute ("play " & Mic)
   
5. End Sub
   
6. 
   
7. Sub yy()
   
8. cmd = "sndrec32 /play /close ""C:\Windows\Media\tada.wav"""
   
9. Shell cmd, 6
   
10. End Sub
    
11. Sub xx()
    
12. Beep
    
13. Application.Wait (Now + TimeValue("0:00:1"))
    
14. Beep
    
15. End Sub
    
16. Sub ww()
    
17. Set oSa = CreateObject("SAPI.SpVoice")
    
18.         oSa.Speak "misinput"
    
19. End Sub

½Æ»s¥N½X

oobird

¦^´_ 12# oobird

¬ðµM·Q¨ì¡ABEEPÁÙ¥i¥H½s¦±

1. Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
   
2. 
   
3. Sub yy()
   
4. f = Array(100, 523, 587, 659, 698, 784, 879, 987, 1030)
   
5. d = Array(5, 3, 3, 0, 4, 2, 2, 0, 1, 2, 3, 4, 5, 5, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 3, 0, 2, 2, 2, 2, 2, 3, 4, 0, 3, 3, 3, 3, 3, 4, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 1)
   
6. For i = 0 To UBound(d)
   
7. Beep f(d(i)), 500
   
8. Next
   
9. End Sub

½Æ»s¥N½X