首页
社区
课程
招聘
[原创]用BEEP做的《送别》
发表于: 2009-4-14 23:04 23678

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

2009-4-14 23:04
23678
收藏
免费 7
支持
分享
最新回复 (80)
雪    币: 203
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
51
非常有雅兴,收藏
2009-4-21 11:07
0
雪    币: 201
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
52
你们太有才了~~~~
2009-4-22 08:49
0
雪    币: 1080
活跃值: (1283)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
53
不错! 找到感觉了!
2009-4-24 14:47
0
雪    币: 200
活跃值: (21)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
54
想起了当年CCED的“卡拉OK”功能
2009-4-24 15:21
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
55
太牛了吧!
2009-4-27 21:12
0
雪    币: 92
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
56
楼主你太有才啦,收藏了
2009-9-16 21:14
0
雪    币: 92
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
57
支持下……
2009-9-16 21:20
0
雪    币: 97
活跃值: (30)
能力值: ( LV2,RANK:140 )
在线值:
发帖
回帖
粉丝
58
好帖,收藏之
2009-9-17 18:12
0
雪    币: 5
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
59
不错啊,很强大
2009-11-18 13:34
0
雪    币: 225
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
60
两只老虎更简单!
2009-11-18 16:07
0
雪    币: 112
活跃值: (48)
能力值: ( LV9,RANK:320 )
在线值:
发帖
回帖
粉丝
61
玩命大哥啊,,你这个有点啰嗦了,,,,看看我这个。。。这样的东西大学的课程设计都搞这个,一点意思没有

data segment
     assume ds:data
FREQ dw 0,4552,4029,3617,3415
     dw 3042,2710,2415,2279;定义各频率对应的N值
NOTE db 3,2,1,2,3,3,3,2,2,2
     db 3,5,5,3,2,1,2,3,3,3
     db 3,2,2,3,2,1,-1;定义乐谱,-1表示结束
DL_TIME db 4,4,4,4,4,4,8,4,4,8
        db 4,4,8,4,4,4,4,4,4,4
        db 4,4,4,4,4,8;定义节拍
data ends

code segment
     assume cs:code
main proc far
     mov ax,data
     mov ds,ax
     
     mov al,10110110B
     out 43h,al;初始化TIMER2
     mov bx,0;初始化音符数组下标,也就是起始值
play:
     mov al,NOTE[bx]  ;取第一个音符
     mov ah,DL_TIME[bx]
     inc bx
     push bx
     push ax
     cbw
     shl ax,1
     mov bx,ax
     mov ax,FREQ[bx] ;取出频率
     
     out 42h,al  ;输出频率值  ,输出倒42端口
     mov al,ah
     out 42h,al
     
     in al,61h    ;开启定时器
     or al,3
     out 61h,al
     
     mov ah,0
     int 1ah
     pop ax
     mov al,ah
     cbw
     add ax,dx
     mov bx,ax
;延时子程序
deplay:
     mov ah,0
     int 1ah
     cmp bx,dx
     jnz deplay
     
     in al,61h
     and al,0fch
     out 61h,al
     
     pop bx
     cmp NOTE[bx],-1  ;是不是道儿结尾
     
     jnz play
     mov ah,4ch
     int 21h
main endp
code ends
     end main
2009-11-18 16:59
0
雪    币: 166
活跃值: (84)
能力值: ( LV3,RANK:25 )
在线值:
发帖
回帖
粉丝
62
好玩,很有雅兴呢。
2009-11-18 17:11
0
雪    币: 116
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
63
音乐天才.
2009-11-19 17:44
0
雪    币: 7
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
64
真好,还有米有别的曲子呀
2009-12-15 09:30
0
雪    币: 52
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
65
城里的月光,把梦照亮,请温暖她身旁。
看多了人间聚散,能不能多点幸福片断。

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

#define ONE_BEEP    600
#define HALF_BEEP    300

#define Quarter_BEEP   150

#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_6, ONE_BEEP);
        Beep(NOTE_5, 2*ONE_BEEP);
  
        Beep(NOTE_1, ONE_BEEP);
        Beep(NOTE_2, HALF_BEEP);
        Beep(NOTE_3, ONE_BEEP);
        Beep(NOTE_1, 2*ONE_BEEP);
NOTE_NONE   
        Beep(NOTE_1*2, ONE_BEEP);
        Beep(NOTE_2*2, HALF_BEEP);
        Beep(NOTE_1*2, HALF_BEEP);
        Beep(NOTE_6, ONE_BEEP);
        Beep(NOTE_3, 2*HALF_BEEP);

        Beep(NOTE_5, 2*ONE_BEEP);
         

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

        Beep(NOTE_3, HALF_BEEP);
        Beep(NOTE_2, HALF_BEEP);
        Beep(NOTE_3, HALF_BEEP);

        Beep(NOTE_5, HALF_BEEP);
        Beep(NOTE_3, HALF_BEEP);

        Beep(NOTE_2, HALF_BEEP);
        Beep(NOTE_1, HALF_BEEP);
        Beep(NOTE_3, Quarter_BEEP);
        Beep(NOTE_2, ONE_BEEP);

        return 0;
}
2009-12-15 14:32
0
雪    币: 411
活跃值: (16)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
66
有意思~收藏了。
2009-12-15 15:09
0
雪    币: 442
活跃值: (107)
能力值: ( LV9,RANK:350 )
在线值:
发帖
回帖
粉丝
67
再配上C写的图像吧,整成一个flash形式的东东
2009-12-16 10:37
0
雪    币: 157
活跃值: (10)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
68
来个字幕版的。
#include "windows.h"
#include "stdio.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[])
{
        printf ("长") ;
        Beep(NOTE_5, ONE_BEEP);
        printf ("亭") ;
        Beep(NOTE_3, HALF_BEEP);
        Beep(NOTE_5, HALF_BEEP);
        printf ("外\t") ;
        Beep(NOTE_1*2, ONE_BEEP*2);
       
        printf ("古") ;
        Beep(NOTE_6, ONE_BEEP);
        printf ("道") ;
        Beep(NOTE_1*2, ONE_BEEP);
        printf ("边\n") ;
        Beep(NOTE_5, ONE_BEEP*2);
       
        printf ("芳") ;
        Beep(NOTE_5, ONE_BEEP);
        printf ("草") ;
        Beep(NOTE_1, HALF_BEEP);
        Beep(NOTE_2, HALF_BEEP);
        printf ("碧") ;
        Beep(NOTE_3, ONE_BEEP);
        printf ("连") ;
        Beep(NOTE_2, HALF_BEEP);
        Beep(NOTE_1, HALF_BEEP);
        printf ("天\n") ;
        Beep(NOTE_2, ONE_BEEP*4);
       
        printf ("晚") ;
        Beep(NOTE_5, ONE_BEEP);
        printf ("风") ;
        Beep(NOTE_3, HALF_BEEP);
        Beep(NOTE_5, HALF_BEEP);
        printf ("拂") ;
        Beep(NOTE_1*2, HALF_BEEP*3);
        printf ("柳") ;
        Beep(NOTE_7, HALF_BEEP);
        printf ("笛") ;
        Beep(NOTE_6, ONE_BEEP);
        printf ("声") ;
        Beep(NOTE_1*2, ONE_BEEP);
        printf ("残\n") ;
        Beep(NOTE_5, ONE_BEEP*2);
       

        printf ("夕") ;
        Beep(NOTE_5, ONE_BEEP);
        printf ("阳") ;
        Beep(NOTE_2, HALF_BEEP);
        Beep(NOTE_3, HALF_BEEP);
        printf ("山") ;
        Beep(NOTE_4, HALF_BEEP*3);
        printf ("外") ;
        Beep(NOTE_7/2, HALF_BEEP);
        printf ("山\n") ;
        Beep(NOTE_1, ONE_BEEP*4);
       
        printf ("天") ;
        Beep(NOTE_6, ONE_BEEP);
        printf ("之") ;
        Beep(NOTE_1*2, ONE_BEEP);
        printf ("涯\t") ;
        Beep(NOTE_1*2, ONE_BEEP*2);
       
        printf ("地") ;
        Beep(NOTE_7, ONE_BEEP);
        printf ("之") ;
        Beep(NOTE_6, HALF_BEEP);
        Beep(NOTE_7, HALF_BEEP);
        printf ("角\n") ;
        Beep(NOTE_1*2, ONE_BEEP*2);
       
        printf ("知") ;
        Beep(NOTE_6, HALF_BEEP);
        Beep(NOTE_7, HALF_BEEP);
        printf ("交") ;
        Beep(NOTE_1*2, HALF_BEEP);
        Beep(NOTE_6, HALF_BEEP);
        printf ("半") ;
        Beep(NOTE_6, HALF_BEEP);
        Beep(NOTE_5, HALF_BEEP);
        printf ("零") ;
        Beep(NOTE_3, HALF_BEEP);
        Beep(NOTE_1, HALF_BEEP);
        printf ("落\n") ;
        Beep(NOTE_2, ONE_BEEP*4);
       
        printf ("人") ;
        Beep(NOTE_5, ONE_BEEP);
        printf ("生") ;
        Beep(NOTE_3, HALF_BEEP);
        Beep(NOTE_5, HALF_BEEP);
        printf ("难") ;
        Beep(NOTE_1*2, HALF_BEEP*3);
        printf ("得") ;
        Beep(NOTE_7, HALF_BEEP);
        printf ("是") ;
        Beep(NOTE_6, ONE_BEEP);
        printf ("欢") ;
        Beep(NOTE_1*2, ONE_BEEP);
        printf ("聚\n") ;
        Beep(NOTE_5, ONE_BEEP*2);
       
        printf ("唯") ;
        Beep(NOTE_5, ONE_BEEP);
        printf ("有") ;
        Beep(NOTE_2, HALF_BEEP);
        Beep(NOTE_3, HALF_BEEP);
        printf ("别") ;
        Beep(NOTE_4, HALF_BEEP*3);
        printf ("离") ;
        Beep(NOTE_7/2, HALF_BEEP);
        printf ("多\n") ;
        Beep(NOTE_1, ONE_BEEP*3);

        return 0;
}
2009-12-16 21:09
0
雪    币: 150
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
69
嘿楼上 能够实时字幕版~~~~~
2009-12-17 01:03
0
雪    币: 70
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
70
都太有才了。
2009-12-17 10:41
0
雪    币: 88
活跃值: (25)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
71
修改一下,做一个电子钢琴
2009-12-21 17:08
0
雪    币: 254
活跃值: (10)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
72
呵呵,不错呀
建议用这个出一张专辑。
2009-12-21 21:53
0
雪    币: 254
活跃值: (10)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
73
2007 至今第一贴。。处女贴呀。
2009-12-21 22:21
0
雪    币: 135
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
74
复合型人才啊。。。。
2009-12-22 11:11
0
雪    币: 1312
活跃值: (5164)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
75
收藏了!!!!!!!!!
2009-12-23 17:46
0
游客
登录 | 注册 方可回帖
返回
//