Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command3_Click()
Dim s As String
Dim i, k As Integer
k = Text2.Text
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, 2)
Case "a0"
Call note_on(0, 0 + Sta, sudu)
Sleep k
Call note_off(0, 0 + Sta)
Case "a1"
Call note_on(0, 1 + Sta, sudu)
Sleep k
Call note_off(0, 1 + Sta)
Case "a2"
Call note_on(0, 2 + Sta, sudu)
Sleep k
Call note_off(0, 2 + Sta)
Case "a3"
Call note_on(0, 3 + Sta, sudu)
Sleep k
Call note_off(0, 3 + Sta)
Case "a4"
Call note_on(0, 4 + Sta, sudu)
Sleep k
Call note_off(0, 4 + Sta)
Case "a5"
Call note_on(0, 5 + Sta, sudu)
Sleep k
Call note_off(0, 5 + Sta)
Case "a6"
Call note_on(0, 6 + Sta, sudu)
Sleep k
Call note_off(0, 6 + Sta)
Case "a7"
Call note_on(0, 7 + Sta, sudu)
Sleep k
Call note_off(0, 7 + Sta)
Case "b1"
Call note_on(0, 8 + Sta, sudu)
Sleep k
Call note_off(0, 8 + Sta)
Case "b2"
Call note_on(0, 9 + Sta, sudu)
Sleep k
Call note_off(0, 9 + Sta)
Case "b3"
Call note_on(0, 10 + Sta, sudu)
Sleep k
Call note_off(0, 10 + Sta)
Case "b4"
Call note_on(0, 11 + Sta, sudu)
Sleep k
Call note_off(0, 11 + Sta)
Case "b5"
Call note_on(0, 12 + Sta, sudu)
Sleep k
Call note_off(0, 12 + Sta)
Case "b6"
Call note_on(0, 13 + Sta, sudu)
Sleep k
Call note_off(0, 13 + Sta)
Case "b7"
Call note_on(0, 14 + Sta, sudu)
Sleep k
Call note_off(0, 14 + Sta)
Case "c1"
Call note_on(0, 15 + Sta, sudu)
Sleep k
Call note_off(0, 15 + Sta)
Case "c2"
Call note_on(0, 16 + Sta, sudu)
Sleep k
Call note_off(0, 16 + Sta)
Case "c3"
Call note_on(0, 17 + Sta, sudu)
Sleep k
Call note_off(0, 17 + Sta)
Case "c4"
Call note_on(0, 18 + Sta, sudu)
Sleep k
Call note_off(0, 18 + Sta)
Case "c5"
Call note_on(0, 19 + Sta, sudu)
Sleep k
Call note_off(0, 19 + Sta)
Case "c6"
Call note_on(0, 20 + Sta, sudu)
Sleep k
Call note_off(0, 20 + Sta)
Case "c7"
Call note_on(0, 21 + Sta, sudu)
Sleep k
Call note_off(0, 21 + Sta)
Case "d1"
Call note_on(0, 22 + Sta, sudu)
Sleep k
Call note_off(0, 22 + Sta)
Case "d2"
Call note_on(0, 23 + Sta, sudu)
Sleep k
Call note_off(0, 23 + Sta)
Case "d3"
Call note_on(0, 24 + Sta, sudu)
Sleep k
Call note_off(0, 24 + Sta)
Case "d4"
Call note_on(0, 25 + Sta, sudu)
Sleep k
Call note_off(0, 25 + Sta)
Case "d5"
Call note_on(0, 26 + Sta, sudu)
Sleep k
Call note_off(0, 26 + Sta)
Case "d6"
Call note_on(0, 27 + Sta, sudu)
Sleep k
Call note_off(0, 27 + Sta)
Case "d7"
Call note_on(0, 28 + Sta, sudu)
Sleep k
Call note_off(0, 28 + Sta)
Case "e1"
Call note_on(0, 29 + Sta, sudu)
Sleep k
Call note_off(0, 29 + Sta)
Case "e2"
Call note_on(0, 30 + Sta, sudu)
Sleep k
Call note_off(0, 30 + Sta)
Case "e3"
Call note_on(0, 31 + Sta, sudu)
Sleep k
Call note_off(0, 31 + Sta)
Case "e4"
Call note_on(0, 32 + Sta, sudu)
Sleep k
Call note_off(0, 32 + Sta)
Case "e5"
Call note_on(0, 33 + Sta, sudu)
Sleep k
Call note_off(0, 33 + Sta)
Case "e6"
Call note_on(0, 34 + Sta, sudu)
Sleep k
Call note_off(0, 34 + Sta)
Case "e7"
Call note_on(0, 35 + Sta, sudu)
Sleep k
Call note_off(0, 35 + Sta)
Case "f1"
Call note_on(0, 36 + Sta, sudu)
Sleep k
Call note_off(0, 36 + Sta)
Case "f2"
Call note_on(0, 37 + Sta, sudu)
Sleep k
Call note_off(0, 37 + Sta)
Case "f3"
Call note_on(0, 38 + Sta, sudu)
Sleep k
Call note_off(0, 38 + Sta)
Case "f4"
Call note_on(0, 39 + Sta, sudu)
Sleep k
Call note_off(0, 39 + Sta)
Case "f5"
Call note_on(0, 40 + Sta, sudu)
Sleep k
Call note_off(0, 40 + Sta)
Case "f6"
Call note_on(0, 41 + Sta, sudu)
Sleep k
Call note_off(0, 41 + Sta)
Case "f7"
Call note_on(0, 42 + Sta, sudu)
Sleep k
Call note_off(0, 42 + Sta)
Case "g1"
Call note_on(0, 43 + Sta, sudu)
Sleep k
Call note_off(0, 43 + Sta)
Case "g2"
Call note_on(0, 44 + Sta, sudu)
Sleep k
Call note_off(0, 44 + Sta)
Case "g3"
Call note_on(0, 45 + Sta, sudu)
Sleep k
Call note_off(0, 45 + Sta)
Case "g4"
Call note_on(0, 46 + Sta, sudu)
Sleep k
Call note_off(0, 46 + Sta)
Case "g5"
Call note_on(0, 47 + Sta, sudu)
Sleep k
Call note_off(0, 47 + Sta)
Case "g6"
Call note_on(0, 48 + Sta, sudu)
Sleep k
Call note_off(0, 48 + Sta)
Case "g7"
Call note_on(0, 49 + Sta, sudu)
Sleep k
Call note_off(0, 49 + Sta)
Case "h1"
Call note_on(0, 50 + Sta, sudu)
Sleep k
Call note_off(0, 50 + Sta)
Case "h2"
Call note_on(0, 51 + Sta, sudu)
Sleep k
Call note_off(0, 51 + Sta)
Case "h3"
Call note_on(0, 52 + Sta, sudu)
Sleep k
Call note_off(0, 52 + Sta)
Case "h4"
Call note_on(0, 53 + Sta, sudu)
Sleep k
Call note_off(0, 53 + Sta)
Case "h5"
Call note_on(0, 54 + Sta, sudu)
Sleep k
Call note_off(0, 54 + Sta)
Case "h6"
Call note_on(0, 55 + Sta, sudu)
Sleep k
Call note_off(0, 55 + Sta)
Case "h7"
Call note_on(0, 56 + Sta, sudu)
Sleep k
Call note_off(0, 56 + Sta)
Case "i1"
Call note_on(0, 57 + Sta, sudu)
Sleep k
Call note_off(0, 57 + Sta)
Case "i2"
Call note_on(0, 58 + Sta, sudu)
Sleep k
Call note_off(0, 58 + Sta)
Case "i3"
Call note_on(0, 59 + Sta, sudu)
Sleep k
Call note_off(0, 59 + Sta)
Case "i4"
Call note_on(0, 60 + Sta, sudu)
Sleep k
Call note_off(0, 60 + Sta)
Case "i5"
Call note_on(0, 61 + Sta, sudu)
Sleep k
Call note_off(0, 61 + Sta)
Case "i6"
Call note_on(0, 62 + Sta, sudu)
Sleep k
Call note_off(0, 62 + Sta)
Case "i7"
Call note_on(0, 63 + Sta, sudu)
Sleep k
Call note_off(0, 63 + Sta)
Case "j1"
Call note_on(0, 64 + Sta, sudu)
Sleep k
Call note_off(0, 64 + Sta)
Case "--"
Call note_off(0, 64 + Sta)
Sleep k
Call note_off(0, 64 + Sta)
End Select
Next
End Sub
vb弹奏钢琴简谱播放程序代码测试例题
联系客服