当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB使用键盘谱曲 用到随机数和定时器

VB谱曲小程序,单击窗口上的数字按钮,即可听到演奏的音乐,初级音乐键盘,程序运行效果请参见下图:

 VB使用键盘谱曲

核心代码如下:

'声明API函数
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public v  '变量声明
Dim m As Long
Dim i As Integer
Private Sub Form_Load()
    Timer1.Enabled = False  '关闭计时器
    Timer1.Interval = 500
End Sub
Private Sub Label1_Click(Index As Integer)      '单击标签发出声音
    v = Int((7 * Rnd) + 1)   ' 生成 1 到 7 之间的随机数值。
    m = CLng(Val(Label1(v)) * 100)
   Beep m, 500  '发声
End Sub
Private Sub Timer1_Timer()
    Label1_Click (v) '事件过程的调用
    For i = 1 To Label1.UBound
        Label1(i).BorderStyle = 0 '标题的动态效果
    Next i
    Label1(v).BorderStyle = 1
    
End Sub
Private Sub Command1_Click()
    Timer1.Enabled = True '开启计时器
End Sub

完整代码请下载:VB6 制作简易谱曲键盘 键盘演奏音乐

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图