VB2010 視窗程式設計: (進階練習) 小蜜蜂

VB2010 視窗程式設計 進階練習

•按一 按鍵 播放

Console.Beep(262, 500)

•#define Do  262

•#define Re   294

•#define Mi   330

•#define Fa   349

•#define So   392

•#define La   440

•#define SI  494

•頻率

•tow[]={S,M,M,F,R,R,D,R,M,F,S,S,S,S,M,M,F,R,R,D,M,S,S,D};

•拍子長度

•int code beat[ ]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};

•                    1 : 500