文档章节

简单获取钢琴 88 个键的音高频率值

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 137
阅读 17
收藏 0

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  f: Double;
begin
  f := 440/2/2/2/2;
  for i := 0 to 87 do
  begin
    Memo1.Lines.Add(Format('%.3f', [f]));
    f := f * 1.0594630944;
  end;
end;

{*********
27.500
29.135
30.868
32.703
34.648
36.708
38.891
41.203
43.654
46.249
48.999
51.913
55.000
58.270
61.735
65.406
69.296
73.416
77.782
82.407
87.307
92.499
97.999
103.826
110.000
116.541
123.471
130.813
138.591
146.832
155.563
164.814
174.614
184.997
195.998
207.652
220.000
233.082
246.942
261.626
277.183
293.665
311.127
329.628
349.228
369.994
391.995
415.305
440.000
466.164
493.883
523.251
554.365
587.330
622.254
659.255
698.456
739.989
783.991
830.609
880.000
932.328
987.767
1046.502
1108.731
1174.659
1244.508
1318.510
1396.913
1479.978
1567.982
1661.219
1760.000
1864.655
1975.533
2093.005
2217.461
2349.318
2489.016
2637.020
2793.826
2959.955
3135.963
3322.438
3520.000
3729.310
3951.066
4186.009
**********}

本文转载自:http://www.cnblogs.com/del/archive/2011/06/14/2080670.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
钢琴的原理

过去的一周,我在厦门。 原来的打算,就是去海边放松一下。但是没有料到,这次旅行的一个重大收获,却是我想通了一个问题: ----为什么钢琴会发出声音? 1. 那天在鼓浪屿上面,太阳暴晒,我就...

阮一峰
2010/07/25
0
0
Microsoft Windows Logo(MSWLogo)的BEEP组合旋律

Microsoft Windows Logo(下文简称MSWLogo) 的发声依靠SOUND命令实现(类似于C语言里的beep函数),如果要实现拼接成一段旋律,有时还需要用到WAIT命令实现休止符的效果。 1、SOUND命令,播...

北风其凉
2016/07/10
44
0
任天堂LABO编程功能详解(输出模块篇·下)

导言 LABO是一种任天堂的Switch游戏机配套游戏,它是一种非常新奇的电子游戏形式,除了游戏软件之外,还附带了一大堆纸板,玩家要用这些纸板组装成钢琴、钓竿…甚至是机器人体感控制器(类似...

尚善谷
05/23
0
0
TensorFlow应用实战-6-AI作曲环境搭建

用TensorFlow开发会作曲的AI 背景和知识点介绍 人工智能的不断火热。 Google的Magenta(洋红色)项目 https://magenta.tensorflow.org/ Make Music and Art Using Machine Learning 项目的源代...

天涯明月笙
04/11
0
0
【H5 音乐播放实例】第五节 音轨制作

我就不瞎比比了,直接上代码吧: css: 效果: 总结思路 1.获取mbox的宽度,然后动态计算一共有多少条音轨。 2.用H5的音频解析器去解析当前音乐播放的各频率的音高 3.用这些音高去给每一条音轨...

剽悍一小兔
06/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

docker update:更新一个或多个容器的配置

更新容器的配置 docker update:更新一个或多个容器的配置。 具体内容请访问:https://docs.docker.com/engine/reference/commandline/update/#options 语法:docker update [OPTIONS] CONTA...

lwenhao
今天
1
0
unload事件

unload事件不触发的原因分析 1.代码位置不对,应该优先加载,不能放到回调函数中 2.浏览器不支持 3.最可能的原因,unload事件中触发的函数是一个异步执行的函数,浏览器是不允许在窗口关闭之后在...

狮子狗
今天
1
0
DbForge Schema Compare for MySQL入门教程:如何连接到数据库

【dbForge Schema Compare for MySQL下载】 要创建连接: 1. 在“Connection” 工具栏上单击“New Connection”按钮 。 2. 在“Host” 框中输入主机名。 3. 在“Port” 框中输入端口信息。默...

Miss_Hello_World
今天
2
0
spring中事务的应用

spring中事务管理的两种方式 编程式事务使用TransactionTemplate或者直接使用底层的PlatformTransactionManager。对于编程式事务管理,spring推荐使用TransactionTemplate。 声明式事务是建立...

狂奔的熊二
今天
0
0
公众号关联微信小程序

公众号关联小程序发送关联通知,对于推广小程序有着很大的帮助。所以问题来了,怎么做到在公众号关联小程序发送关联通知呢? 一:开发中遇到的问题 之前在开发过程中发现,公众号已经关联小程...

Code辉
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部