vb钢琴演奏程序代码

​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弹奏钢琴简谱播放程序代码测试例题