zoukankan      html  css  js  c++  java
  • 如何用 c++ 发出阴乐

    转载自 7h_ssw 侵删


    (Beep(A,B)),其中 A 代表音调,B 代表发声的长短((ms))

    (windows) 库中


    《恋爱循环》

    #include<bits/stdc++.h>
    #include <windows.h>
    
    //作者 ssw02 
    #define l1 262
    #define l2 294
    #define l3 330
    #define l4 349
    #define l5 392
    #define l6 440
    #define l7 493
    
    #define n1 532
    #define n2 588
    #define n3 660
    #define n4 698
    #define n5 784
    #define n6 880
    #define n7 988
    
    #define h1 1046
    #define h2 1175
    #define h3 1319
    #define h4 1397
    #define h5 1568
    #define h6 1760
    #define h7 1976
    
    #define A 1600*1.25 //四拍
    #define B 800*1.25  //两拍
    #define C 400*1.25  //一拍
    #define D 200*1.25	//半拍
    #define E 100*1.25	//1/4拍
    #define F 50*1.25	//1/8拍
    
    #define S(i) Sleep(i)
    #define wq( i , j ) Beep( i , j )
    
    int  main(){
    	wq(n3,D);wq(n4,D);wq(n3,D);wq(n4,D);wq(n5,C);wq(n3,D);wq(n4,D);
    
    	wq(n3,D);wq(n4,D);wq(n5,C);wq(n5,D);wq(n4,D);wq(n3,D);wq(n4,D);
    
    	wq(n3,E);wq(n1,D);wq(n1,D);wq(n1,E);wq(l6,D);
    	wq(n3,E);wq(n1,D);wq(n1,D);wq(n1,E);wq(l6,D);
    
    	wq(n1,E);wq(n1,D);wq(n1,D);wq(n1,E);wq(l6,D);wq(n3,C);S(C);
    	//-----------------------------------------作者 ssw02 -----
    	//----------C1----D0.5---------------------------------------2
    	wq(n3,D);wq(n4,D);wq(n3,D);wq(n4,D);wq(n5,C);wq(n3,D);wq(n4,D);
    
    	wq(n3,D);wq(n4,D);wq(n5,C);wq(n5,D);wq(n4,D);wq(n3,D);wq(n4,D);
    
    	wq(n3,E);wq(n1,D);wq(n1,D);wq(n1,E);wq(l6,D);
    	wq(n3,E);wq(n1,D);wq(n1,D);wq(n1,E);wq(n2,D);
    
    	wq(n1,E);wq(n1,D);wq(n1,D);wq(n1,E);wq(n3,D);wq(n3,C);S(C);
    	//-----------------------------------------作者 ssw02 -----
    	//----------C1----D0.5---------------------------------------3
    	wq(n5,C);wq(n3,C);wq(n2,C);wq(n3,D);wq(n3,D);
    
    	wq(n2,D);wq(n1,D);wq(n2,D);wq(n3,B);wq(n3,D);
    
    	wq(n6,C);wq(n3,C);wq(n2,C);wq(n1,D);wq(n1,D);
    
    	wq(n1,D);wq(n2,D);wq(n3,D);wq(n2,C);S(C);S(D);
    	//-----------------------------------------作者 ssw02 -----
    	//----------C1----D0.5---------------------------------------4
    	wq(n5,C);wq(n3,C);wq(n2,C);wq(n3,D);wq(n3,D);
    
    	wq(n2,D);wq(n1,D);wq(n2,D);wq(n3,B);wq(n3,D);
    
    	wq(n6,C);wq(n3,C);wq(n1,C);wq(n3,C);
    
    	wq(n1,C);S(C);S(C);S(D);wq(n1,E);wq(l5,E);
    	//----------------------------------------作者 ssw02 -----1
    	//----------C1----D0.5---------------------------------------4
    	wq(l6,375);wq(l6,375);wq(l5,D);wq(n1,375);wq(n1,E);S(D);wq(n1,E);wq(l5,E);
    
    	wq(l6,375);wq(l6,375);wq(l5,D);wq(n1,375);wq(n3,E);S(D);wq(n1,E);wq(l5,E);
    
    	wq(l6,375);wq(l6,D);wq(l6,E);wq(n5,D);wq(n1,375);wq(n1,D);wq(n1,E);wq(n2,D);
    
    	wq(n1,375);wq(n1,E);S(E);wq(n1,E);wq(l6,D);wq(n3,C);S(D);wq(n1,E);wq(l5,E);
    
    	wq(l6,375);wq(l6,375);wq(l5,D);wq(n1,375);wq(n1,E);S(D);wq(n1,E);wq(l5,E);
    
    	wq(l6,375);wq(l6,375);wq(l5,D);wq(n3,375);wq(n1,E);S(D);wq(n1,E);wq(l5,E);
    
    	wq(l6,375);wq(l6,D);wq(l6,E);wq(n5,D);wq(n1,375);wq(n1,D);wq(n1,E);wq(n2,D);
    
    	wq(n1,375);wq(n1,D);wq(n3,375);wq(n1,C);S(C);
    
    
    }
    
  • 相关阅读:
    一种新的语法研究方法论——构式语法(construction grammar)理论
    男士健身篇
    !!! TCP实现P2P通信、TCP穿越NAT的方法、TCP打洞
    新手怎样学习Flash及as脚本编程? [复制链接]
    UDP穿越NAT原理
    一周七天英语怎么说
    !! 使用正则表达式匹配嵌套Html标签
    优秀老板的特征李开复微博
    搜狐超越新浪给创业者的两个启示:不断+耐心布局
    成大事必备九种手段(没有手段,你永远吃不到成功的甜果)
  • 原文地址:https://www.cnblogs.com/-Iris-/p/15340234.html
Copyright © 2011-2022 走看看