VBA

admin管理员组

文章数量:1794759

VBA

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long '响铃API函数声明Private Const K = 0 '空拍
Private Const C4 = 523
Private Const C_4 = 554
Private Const D4 = 588
Private Const D_4 = 623
Private Const E4 = 660
Private Const F4 = 700
Private Const F_4 = 742
Private Const G4 = 786
Private Const G_4 = 833
Private Const A4 = 884
Private Const A_4 = 936
Private Const B4 = 992Private Const C5 = 1046
Private Const C_5 = 1108
Private Const D5 = 1176
Private Const D_5 = 1246
Private Const E5 = 1320
Private Const F5 = 1400
Private Const F_5 = 1484
Private Const G5 = 1572
Private Const G_5 = 1666
Private Const A5 = 1768
Private Const A_5 = 1872
Private Const B5 = 1984Private Const C6 = 2092
Private Const C_6 = 2216
Private Const D6 = 2352
Private Const D_6 = 2492
Private Const E6 = 2640
Private Const F6 = 2800
Private Const F_6 = 2968
Private Const G6 = 3144
Private Const G_6 = 3332
Private Const A6 = 3536
Private Const A_6 = 3744
Private Const B6 = 3968
Private Const P = 125'Stave的格式：音名-时间,音名-时间
Sub PlayStave(Stave As String) '按照曲谱BEEPDim DIC As ObjectSet DIC = CreateObject("Scripting.Dictionary")DIC.Add "K", 0 '空拍DIC.Add "C4", 523DIC.Add "C_4", 554DIC.Add "D4", 588DIC.Add "D_4", 623DIC.Add "E4", 660DIC.Add "F4", 700DIC.Add "F_4", 742DIC.Add "G4", 786DIC.Add "G_4", 833DIC.Add "A4", 884DIC.Add "A_4", 936DIC.Add "B4", 992DIC.Add "C5", 1046DIC.Add "C_5", 1108DIC.Add "D5", 1176DIC.Add "D_5", 1246DIC.Add "E5", 1320DIC.Add "F5", 1400DIC.Add "F_5", 1484DIC.Add "G5", 1572DIC.Add "G_5", 1666DIC.Add "A5", 1768DIC.Add "A_5", 1872DIC.Add "B5", 1984DIC.Add "C6", 2092DIC.Add "C_6", 2216DIC.Add "D6", 2352DIC.Add "D_6", 2492DIC.Add "E6", 2640DIC.Add "F6", 2800DIC.Add "F_6", 2968DIC.Add "G6", 3144DIC.Add "G_6", 3332DIC.Add "A6", 3536DIC.Add "A_6", 3744DIC.Add "B6", 3968DIC.Add "P", 125Dim notes, arr As Variantnotes = Split(Stave, ",")For i = 0 To UBound(notes)s = Split(notes(i), "-")Beep DIC(s(0)), Int(s(1)) * 100Next
End Sub'Stave的格式：音名-时间,音名-时间
Sub play() '欢乐颂PlayStave "E5-4,E5-4,F5-4,G5-4" _& ",G5-4,F5-4,E5-4,D5-4" _& ",C5-4,C5-4,D5-4,E5-4" _& ",E5-4,D5-2,D5-10" _& ",E5-4,E5-4,F5-4,G5-4" _& ",G5-4,F5-4,E5-4,D5-4" _& ",C5-4,C5-4,D5-4,E5-4" _& ",D5-4,C5-2,C5-10"
End SubSub play2()Beep E5, 400Beep E5, 400Beep F5, 400Beep G5, 400Beep G5, 400Beep F5, 400Beep E5, 400Beep D5, 400
End Sub

本文标签： VBA