VB 提示音编歌曲
作者:互联网
Private Sub Command1_Click() Call 小幸运 End End Sub Function 小幸运() Let turn = 54 Let A = 2000 Let B = 1000 Let c = 500 '一拍 四分音符 Let D = 250 '半拍 八分音符 Let E = 125 Let F = 63 Rem 低音 Let L1 = 262 Let L2 = 294 Let L3 = 330 Let L4 = 349 Let L5 = 392 Let L6 = 440 Let L7 = 493 Rem 半弦音 Let n1 = 532 Let n2 = 588 Let n3 = 660 Let n4 = 698 Let n5 = 784 Let n6 = 880 Let n7 = 988 Rem 高音 Let h1 = 1046 Let h2 = 1175 Let h3 = 1319 Let h4 = 1397 Let h5 = 1568 Let h6 = 1760 Let h7 = 1976 Rem 也许当时忙着微笑和哭泣 Rem APIBeep H3, D: APIBeep H2, E: APIBeep H1, E + D: APIBeep N7, D: APIBeep N6, D: APIBeep N6, D: APIBeep N6, D: APIBeep N6, D: APIBeep N6, D: APIBeep H3, D: APIBeep H2, D: APIBeep H2, D * 3: Rem 原来你是我最想留住的幸运,原来我们和爱情曾经靠得那么近 APIBeep n5, c: APIBeep h3, D: APIBeep h2, E: APIBeep h1, E: APIBeep 0, E: APIBeep h2, D: APIBeep h3, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D: APIBeep 0, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D: APIBeep 0, D: APIBeep h2, D: APIBeep h2, D: APIBeep h3, E: APIBeep h4, E: APIBeep 0, D: APIBeep h3, D: APIBeep h2, D: APIBeep n7, D: APIBeep h1, D: APIBeep n3, D: APIBeep n6, D: APIBeep h1, D: APIBeep 0, D: APIBeep n3, D: APIBeep n6, D: APIBeep n7, D: Rem 那为我对抗世界的决定,那陪我淋的雨,一幕幕都是你 一尘不染的真心 APIBeep 0, D: APIBeep n7, D: APIBeep n7, D: APIBeep h3, E: APIBeep h5, E: APIBeep 0, D: APIBeep h3, D: APIBeep h1, D: APIBeep n7, D: APIBeep n6, D: APIBeep h4, E: APIBeep h4, E: APIBeep 0, c: APIBeep 0, D: APIBeep h5, D: APIBeep h4, D: APIBeep h3, D: APIBeep n5, D: APIBeep h3, E: APIBeep h3, E: APIBeep 0, c: APIBeep 0, D: APIBeep h4, D: APIBeep h3, D: APIBeep h1, D: APIBeep n4, D: APIBeep h2, E: APIBeep h2, E: APIBeep 0, c: APIBeep 0, D: APIBeep h2, D: APIBeep h1, D: APIBeep h3, D: APIBeep 0, D: APIBeep h2, D: APIBeep h1, D: APIBeep h3, D: APIBeep 0, D: APIBeep h2, D: APIBeep h1, D: APIBeep h1, D: Rem 与你相遇 好幸运 APIBeep h3, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D: APIBeep 0, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D: Rem 可我已失去为你泪流满面的权利 APIBeep 0, D: APIBeep h2, D: APIBeep h2, D: APIBeep h3, E: APIBeep h4, E: APIBeep 0, D: APIBeep h3, D: APIBeep h2, D: APIBeep n7, D: APIBeep h1, D: APIBeep n3, D: APIBeep n6, D: APIBeep h1, D: APIBeep 0, D: APIBeep n3, D: APIBeep n6, D: APIBeep n7, D: Rem 但愿在我看不到的天际,你张开了双翼,遇见你 APIBeep 0, D: APIBeep n7, D: APIBeep n7, D: APIBeep h3, E: APIBeep h5, E: APIBeep 0, D: APIBeep h3, D: APIBeep h1, D: APIBeep n7, D: APIBeep n6, D: APIBeep h4, E: APIBeep h4, E: APIBeep 0, c: APIBeep 0, D: APIBeep h5, D: APIBeep h4, D: APIBeep h3, D: APIBeep n5, D: APIBeep h3, E: APIBeep h3, E: APIBeep 0, c: APIBeep 0, D: APIBeep h4, D: APIBeep h3, D: APIBeep h1, D: Rem 的注定 APIBeep n4, D: APIBeep h2, E: APIBeep h2, E: APIBeep 0, c: Rem 她会有多幸运 APIBeep 0, D: APIBeep h3, D: APIBeep h1, D: APIBeep h1, D: APIBeep h3, D + E: APIBeep h2, D + E: APIBeep h1, D + c End Function
小幸运简谱参考:https://www.zhaogepu.com/jianpu/378555.html
曲谱节拍简单教学视频:https://baijiahao.baidu.com/s?id=1607858953848120582&wfr=spider&for=pc
参考:https://blog.csdn.net/qq_34333801/article/details/80726911
标签:VB,APIBeep,h2,h3,h1,提示音,Let,Rem,歌曲 来源: https://www.cnblogs.com/humor-bin/p/15172255.html