首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[原创]用BEEP做的《送别》
发表于: 2009-4-14 23:04 23676

[原创]用BEEP做的《送别》

玩命 活跃值
31
2009-4-14 23:04
23676

看到有网上的朋友发的一篇帖子说是以前病毒用BEEP做歌。。。
我找个谱子 问了问朋友怎么看简谱。发一个《送别》 我很喜欢的一首歌...  前面有一点有点不像 不知道哪里发音有点错误。。。


[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

收藏
免费 ・7
支持
分享
最新回复 (80)
achillis
雪    币： 7651
活跃值： (523)
能力值： ( LV9，RANK：610 )
在线值：
发帖
回帖
粉丝
私信
2 楼
顶！希望再来个直接IO的版本~
2009-4-14 23:29
0
aosemp
雪    币： 242
活跃值： (16)
能力值： ( LV3，RANK：30 )
在线值：
发帖
回帖
粉丝
私信
3 楼
听了一遍，有些谱不对。我对照简谱改了一下。

// BeepMusic.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include "windows.h"

#define ONE_BEEP    600
#define HALF_BEEP    300

#define NOTE_1      440
#define NOTE_2      495
#define NOTE_3      550
#define NOTE_4      587
#define NOTE_5      660
#define NOTE_6      733
#define NOTE_7      825
#define NOTE_NONE    Sleep(ONE_BEEP);

int main(int argc, char* argv[])
{
  Beep(NOTE_5, ONE_BEEP);
  Beep(NOTE_3, HALF_BEEP);
  Beep(NOTE_5, HALF_BEEP);
  Beep(NOTE_1*2, ONE_BEEP*2);

  Beep(NOTE_6, ONE_BEEP);
  Beep(NOTE_1*2, ONE_BEEP);
  Beep(NOTE_5, ONE_BEEP*2);

  Beep(NOTE_5, ONE_BEEP);
  Beep(NOTE_1, HALF_BEEP);
  Beep(NOTE_2, HALF_BEEP);
  Beep(NOTE_3, ONE_BEEP);
  Beep(NOTE_2, HALF_BEEP);
  Beep(NOTE_1, HALF_BEEP);
  Beep(NOTE_2, ONE_BEEP*4);

  Beep(NOTE_5, ONE_BEEP);
  Beep(NOTE_3, HALF_BEEP);
  Beep(NOTE_5, HALF_BEEP);
  Beep(NOTE_1*2, HALF_BEEP*3);
  Beep(NOTE_7, HALF_BEEP);
  Beep(NOTE_6, ONE_BEEP);
  Beep(NOTE_1*2, ONE_BEEP);
  Beep(NOTE_5, ONE_BEEP*2);

  Beep(NOTE_5, ONE_BEEP);
  Beep(NOTE_2, HALF_BEEP);
  Beep(NOTE_3, HALF_BEEP);
  Beep(NOTE_4, HALF_BEEP*3);
  Beep(NOTE_7/2, HALF_BEEP);
  Beep(NOTE_1, ONE_BEEP*4);

  Beep(NOTE_6, ONE_BEEP);
  Beep(NOTE_1*2, ONE_BEEP);
  Beep(NOTE_1*2, ONE_BEEP*2);

  Beep(NOTE_7, ONE_BEEP);
  Beep(NOTE_6, HALF_BEEP);
  Beep(NOTE_7, HALF_BEEP);
  Beep(NOTE_1*2, ONE_BEEP*2);

  Beep(NOTE_6, HALF_BEEP);
  Beep(NOTE_7, HALF_BEEP);
  Beep(NOTE_1*2, HALF_BEEP);
  Beep(NOTE_6, HALF_BEEP);
  Beep(NOTE_6, HALF_BEEP);
  Beep(NOTE_5, HALF_BEEP);
  Beep(NOTE_3, HALF_BEEP);
  Beep(NOTE_1, HALF_BEEP);
  Beep(NOTE_2, ONE_BEEP*4);

  Beep(NOTE_5, ONE_BEEP);
  Beep(NOTE_3, HALF_BEEP);
  Beep(NOTE_5, HALF_BEEP);
  Beep(NOTE_1*2, HALF_BEEP*3);
  Beep(NOTE_7, HALF_BEEP);
  Beep(NOTE_6, ONE_BEEP);
  Beep(NOTE_1*2, ONE_BEEP);
  Beep(NOTE_5, ONE_BEEP*2);

  Beep(NOTE_5, ONE_BEEP);
  Beep(NOTE_2, HALF_BEEP);
  Beep(NOTE_3, HALF_BEEP);
  Beep(NOTE_4, HALF_BEEP*3);
  Beep(NOTE_7/2, HALF_BEEP);
  Beep(NOTE_1, ONE_BEEP*3);
  return 0;
}
2009-4-14 23:35
0
略输文采
雪    币： 102
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
有雅性- -|||
2009-4-14 23:39
0
玩命
雪    币： 7115
活跃值： (639)
能力值： (RANK：1290 )
在线值：
发帖
回帖
粉丝
私信
5 楼
谢谢更正，果真好听多了。。。
2009-4-15 01:00
0
busy
雪    币： 39
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
6 楼
我喜欢这类帖子 代码已经收藏
2009-4-15 10:06
0
heimei
雪    币： 82
活跃值： (531)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
7 楼
太神奇了~~~
2009-4-15 10:08
0
combojiang
雪    币： 321
活跃值： (271)
能力值： ( LV13，RANK：1050 )
在线值：
发帖
回帖
粉丝
私信
8 楼
听起来蛮不错的，我在公司一放这个曲子，把很多同事吓了一跳，以为谁的机器出故障了。都东张西望的。
2009-4-15 10:43
0
stalker
雪    币： 399
活跃值： (38)
能力值： (RANK：350 )
在线值：
发帖
回帖
粉丝
私信
9 楼
不错啊，上小学的时候老师教过这首歌
2009-4-15 11:06
0
异袭狂封
雪    币： 239
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
10 楼
偶喜欢,可以拿来当警报
2009-4-15 14:24
0
bswdylwsw
雪    币： 116
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
11 楼
不错,,,很有意思
2009-4-15 14:32
0
somuch
雪    币： 282
活跃值： (31)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
12 楼
太强大了
~~
2009-4-15 15:24
0
popeylj
雪    币： 360
活跃值： (77)
能力值： ( LV9，RANK：250 )
在线值：
发帖
回帖
粉丝
私信
13 楼
实验了一下，结果发现没有小喇叭
2009-4-15 16:36
0
ljlLionel
雪    币： 203
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
14 楼
不錯，聽了一遍，強
2009-4-15 16:51
0
hyp
雪    币： 371
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
hyp
15 楼
循环播放 嘿嘿
2009-4-15 17:22
0
swzices
雪    币： 270
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
16 楼
太神奇了·
     CODE 收藏 ~
2009-4-15 20:20
0
dnybz
雪    币： 66
活跃值： (960)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
17 楼
太酷了。
2009-4-15 21:12
0
不问年少
雪    币： 1074
活跃值： (160)
能力值： ( LV13，RANK：760 )
在线值：
发帖
回帖
粉丝
私信
18 楼
呵呵，以前的时候做过类似的，蛮有意思！
2009-4-15 21:37
0
himcrack
雪    币： 264
活跃值： (11)
能力值： ( LV9，RANK：250 )
在线值：
发帖
回帖
粉丝
私信
19 楼
看雪遇知音 帮我谱首 双截棍..
2009-4-15 21:52
0
moonife
雪    币： 370
活跃值： (52)
能力值： ( LV13，RANK：350 )
在线值：
发帖
回帖
粉丝
私信
20 楼
我的怎么不响啊，怎么回事啊看来在笔记本上不行啊，没有小喇叭啊
2009-4-15 22:05
0
zapline
雪    币： 2362
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
21 楼
我的本能放啊
2009-4-15 22:22
0
六月
雪    币： 129
活跃值： (31)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
22 楼
太响了,声音好大啊,吓死了!!!!挺好玩的!!!!
2009-4-15 22:24
0
李美欣
雪    币： 102
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
23 楼
我将它翻译成PASCAL，在DELPHI 7中成功编译。

var ONE_BEEP, HALF_BEEP, NOTE_1, NOTE_2 , NOTE_3, NOTE_4,  NOTE_5,  NOTE_6,  NOTE_7 ,Note_7_half:Cardinal;

begin
ONE_BEEP:=600;
HALF_BEEP:=300;

NOTE_1:=440;
NOTE_2:=495;
NOTE_3:=550;
NOTE_4:=587;
NOTE_5:=660;
NOTE_6:=733;
NOTE_7:=825;

Note_7_half:=412;

  Windows.Beep(NOTE_5, ONE_BEEP);
  Windows.Beep(NOTE_3, HALF_BEEP);
  Windows.Beep(NOTE_5, HALF_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP*2);

  Windows.Beep(NOTE_6, ONE_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP);
  Windows.Beep(NOTE_5, ONE_BEEP*2);

  Windows.Beep(NOTE_5, ONE_BEEP);
  Windows.Beep(NOTE_1, HALF_BEEP);
  Windows.Beep(NOTE_2, HALF_BEEP);
  Windows.Beep(NOTE_3, ONE_BEEP);
  Windows.Beep(NOTE_2, HALF_BEEP);
  Windows.Beep(NOTE_1, HALF_BEEP);
  Windows.Beep(NOTE_2, ONE_BEEP*4);

  Windows.Beep(NOTE_5, ONE_BEEP);
  Windows.Beep(NOTE_3, HALF_BEEP);
  Windows.Beep(NOTE_5, HALF_BEEP);
  Windows.Beep(NOTE_1*2, HALF_BEEP*3);
  Windows.Beep(NOTE_7, HALF_BEEP);
  Windows.Beep(NOTE_6, ONE_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP);
  Windows.Beep(NOTE_5, ONE_BEEP*2);

  Windows.Beep(NOTE_5, ONE_BEEP);
  Windows.Beep(NOTE_2, HALF_BEEP);
  Windows.Beep(NOTE_3, HALF_BEEP);
  Windows.Beep(NOTE_4, HALF_BEEP*3);
// Windows.Beep(NOTE_7/2, HALF_BEEP);
  Windows.Beep(Note_7_half, HALF_BEEP);
  Windows.Beep(NOTE_1, ONE_BEEP*4);

  Windows.Beep(NOTE_6, ONE_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP*2);

  Windows.Beep(NOTE_7, ONE_BEEP);
  Windows.Beep(NOTE_6, HALF_BEEP);
  Windows.Beep(NOTE_7, HALF_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP*2);

  Windows.Beep(NOTE_6, HALF_BEEP);
  Windows.Beep(NOTE_7, HALF_BEEP);
  Windows.Beep(NOTE_1*2, HALF_BEEP);
  Windows.Beep(NOTE_6, HALF_BEEP);
  Windows.Beep(NOTE_6, HALF_BEEP);
  Windows.Beep(NOTE_5, HALF_BEEP);
  Windows.Beep(NOTE_3, HALF_BEEP);
  Windows.Beep(NOTE_1, HALF_BEEP);
  Windows.Beep(NOTE_2, ONE_BEEP*4);

  Windows.Beep(NOTE_5, ONE_BEEP);
  Windows.Beep(NOTE_3, HALF_BEEP);
  Windows.Beep(NOTE_5, HALF_BEEP);
  Windows.Beep(NOTE_1*2, HALF_BEEP*3);
  Windows.Beep(NOTE_7, HALF_BEEP);
  Windows.Beep(NOTE_6, ONE_BEEP);
  Windows.Beep(NOTE_1*2, ONE_BEEP);
  Windows.Beep(NOTE_5, ONE_BEEP*2);

  Windows.Beep(NOTE_5, ONE_BEEP);
  Windows.Beep(NOTE_2, HALF_BEEP);
  Windows.Beep(NOTE_3, HALF_BEEP);
  Windows.Beep(NOTE_4, HALF_BEEP*3);
  Windows.Beep(Note_7_half, HALF_BEEP);  //  Windows.Beep(Cardinal(NOTE_7/2), HALF_BEEP);
  Windows.Beep(NOTE_1, ONE_BEEP*3);

end.
2009-4-16 02:43
0
kingcom
雪    币： 193
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
24 楼
可以把谱单独拿出来放一块，程序搞通用点，改起来也简单
2009-4-16 02:57
0
lyws
雪    币： 216
活跃值： (16)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
25 楼
太酷了，收藏
2009-4-16 06:39
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//