登录
首页 » VB源码 » VB6 制作简易谱曲键盘 键盘演奏音乐

VB6 制作简易谱曲键盘 键盘演奏音乐

于 2022-08-04 发布 文件大小:5.91 kB
0 133
下载积分: 2 下载次数: 1

代码说明:

VB6 制作简易谱曲键盘,用键盘演奏音乐,可发出7个基本音符声音,生成 1 到 7 之间的随机数值,每个键值代表一个音符,如窗体所示,每个数字就代表一个声音,这期间要用到定时器。   在如图所示的运行效果中,单击数字后,单击演奏,可听到演奏效果。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB 记录鼠标行为,判断左键右键
    VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下:   If GetAsyncKeyState(VK_LBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标左键 "   ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标右键 "   End If
    2022-02-28 11:29:47下载
    积分:1
  • VB6.0 屏幕滚动字幕(文字滚动)
    VB6 屏幕滚动字幕,这个文字滚动区域被控制在屏幕的右下角,由右向左开始滚动,中间的高度可以调节,通过调节Me.Top = Screen.Height - Me.Height - 800参数,来改变文字滚动区域距离屏幕顶部的距离,文字滚动的实现是基于计时器和循环来实现,下面的代码可为你提供本效果的实现思路:   Label1.Caption = "这里定义需要滚动的文字内容: 用VB制作的文字滚动效果!"   Me.Left = Screen.Width   Me.Top = Screen.Height - Me.Height - 800   BeginPath Me.hWnd   SetBkMode Me.hWnd, TRANSPARENT   EndPath Me.hWnd   rgn = PathToRegion(Me.hWnd)   SetWindowRgn Me.hWnd, rgn, True   Timer1.Interval = 200   Timer1.Enabled = True   End Sub   Private Sub Timer1_Timer()    Me.Left = Me.Left - 100    If Me.Left < Label1.Width * (-1) Then    Timer1.Enabled = False    Me.Left = Screen.Width    Timer1.Enabled = True    End If   End Sub
    2022-05-21 14:58:30下载
    积分:1
  • VB NET SQLSERVER 酒店客房管理系统
    VB NET SQLSERVER 酒店管理系统,功能模块:基础设置、业务管理、预定管理、入住管理、收钱退房、信息查询、客房管理、预定信息查询、入住信息查询、入住客史查询等,只是一个基础级的酒店客户管理程序,测试前请把Database下的数据库附加,修改数据库连接字符串,然后运行Debug中的exe程序。
    2023-04-22 15:20:03下载
    积分:1
  • vb 拉霸游戏
    vb 拉霸游戏,这个游戏我没玩过,玩上去像是抽奖的游戏,有个杠杆可以搬动,搬动后左边的数字滚轮会不停的变化,右边可以设置难度等级,同时这个游戏的窗口也是很特别的,采用不规划的椭圆形,在设计创建不规则的VB窗口时,本源码中的窗口编写技巧也是可以用上的,本游戏是由国外源码改写,在VB6.0环境下可直接编译运行。
    2022-04-29 19:05:48下载
    积分:1
  • 一个演示VB API高速搜索文件的程序
    一个演示VB高速搜索文件程序,基于API来实现,用于快速查找文件,类似的例子在前几年的书籍实例中,有很多,这一个也是从VB的书中整理出来的,代码中有丰富的注释,主要是分享给VB新手参考学习的。
    2022-10-25 13:25:04下载
    积分:1
  • VB6 给窗体添加滚动条
    VB6 给窗体添加滚动条,调整水平滚动条的一些属性。当窗体的大小发生变化时发生,垂直滚动条与窗体相对位置不变,滚动条的大小随着窗体大小的改变而改变,命令按钮作水平滚动条与垂直滚动条交接处的填充。   因代码注释较多,详细代码情况请您下载本源码包,自行解压查看。
    2023-02-22 07:50:04下载
    积分:1
  • VB 6.0 将数组中的数据利用图表分析
    VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:   Private Sub Form_Load()   Dim i   i = Array(1, 2, 3, 4, 5, 6, 7)   Dim j   For j = 0 To UBound(i)    With MSChart1    .RowCount = UBound(i) + 1    .Row = j + 1    .ColumnCount = 1    .Data = i(j)    .RowLabel = i(j)    End With   Next j   End Sub
    2022-01-25 18:47:19下载
    积分:1
  • vb6.0 字节数组和字符串的相互转换
    vb6.0 编程实现字节数组和字符串的相互转换,演示如何进行字节数组和字符串的相互转换.
    2023-03-14 07:50:04下载
    积分:1
  • vb.net 故意引发错误演示全局异常捕获处理
    本程序主要是演示vb.net全局错误异常消息的捕获处理,程序运行后故意引发错误,并弹出消息处理框,类似于在VB.NET调试器中显示的错误消息,指出错误原因、错误位置和具体代码,方便程序员对错误及时纠正处理,程序运行效果如图所示。
    2022-09-01 05:15:03下载
    积分:1
  • VB.NET自制的看图工具软件
    VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
    2022-12-25 17:15:03下载
    积分:1
  • 696518资源总数
  • 105578会员总数
  • 20今日下载