imperialeast-优快云博客

原创终于完成了一个从网上来的一张图，变成了专属wav的播放器

现在网络上那些播放器的图形越来越少，所以就随便找了一张模糊的图形，写了一个播放器，没有使用media控件，直接上图感受一下。遗憾的是没有实现均衡器，不过还可以了，没有使用meida控件，一款专业的wav播放器。有兴趣的可以联系我（imperialeast@126.com）索要核心代码。实现功能：1，频谱显示（乐器型，乐谱型）

2025-01-08 12:04:20 138

原创 vb6较完好的快速傅里叶变换，实现频谱的关键

'InData(J) = InData(I) '此处源代码处理不当应该舍去。Loop '检测次高位是否为0。If K > J Then Exit Do '判断高位是否为1。K = K / 2 '次高位的权运算。J = J + K '次高位不是0。J = J - K '高位为0。，当然数值不易太大，单次取样1024，或者2048个数据都没有问题。

2025-01-07 08:41:24 376

原创 vb也可以实现频谱的效果

vb可以实现的频谱效果的播放器原理及核心代码

2025-01-04 16:57:23 431

'目前这个只是针对不规则的数据注释进行枚举,否则按照标准这些文件信息是无法正确读取的。' MsgBox "傻,又想冒充我!", vbInformation, " 真多!SapleRate As Long '采样频率。BitsPerSaple As Integer '采样位数。BlockAlign As Integer '采样字节。NumChannels As Integer '声道。上面提到的函数和申明都在这里啦，希望可以帮到大家。

2024-12-17 17:55:47 737

原创 vb6实现wav电平的代码（续）

(100 + tRMS.L_AverRMS) 左声道电平音值。‘ (100 + tRMS.R_AverRMS) 右声道电平音值。‘GetMusicPosition 获取音乐播放的位置 GetByteRate 1秒过去多少字节的数据。Case 1 '单声道。Case 2 '立体声。

2024-11-16 10:37:28 525 1

原创 vb6 实现wav音乐电平的核心代码

'单声道右声道和左声值一样。'单声道右声道和左声值一样。BitsPerSaple As Integer '采样位数 ===FMT END ==='单声道右声道和左声值一样。'单声道右声道和左声值一样。'备注：作者：夏煜（安徽肥西县江夏村，住址：五里村）电话：1396508*764 QQ：499932452。'// 单声道 16 bit。'// 立体声 8bit。'立体声16 bit。L_AverRMS As Single 'RMS 均衡值。

2024-11-16 10:29:29 856

原创 vb也可以实现播放音乐实现电平功能

vb 实现wav波形和电平功能

2024-09-26 22:33:58 183 1

原创让 windows media player 轻松播放ape flac

这样你的WindowsMediaPlayer就可以播放ape flac等无损文件了。请将这三个文件放在 C:\Windows\System32 里面。请将这三个文件放在 C:\Windows\SysWOW64 里面。我的资源里可以免费下载。

2023-05-25 10:33:40 1589 2

原创 vb6也能简单合并同码率同采样的wav合并

SubChunk2.Size 如果SubChunk2ID="data",那么它就是数据的大小。如果SubChunk2ID="LIST",那么它指的是List的注释信息.例如INFO。SubChunk1.size=标示有没有注释,如果是16则没有,如果>16则表示有注释。了解Riff结构,大家就明白了,其实实现wav简单合并,需要简单的一些条件。我写了一个关于vb6实现wav多文件合并的小程序,其实简单。在此后面的data才是数据的开始,那么大家明白了,例如:声道,码率,采样频率,采样位数等等.

2023-05-16 01:02:56 116 1