'母亲节的礼物----提前献给天下所有的母亲'粘贴代码到Form里,什么也不要做,编译...Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Load()runsoundEnd SubSub runsound()sd 6, 150: sd 5, 50: sd 3, 100: sd 5, 100: sd 8, 100: sd 6, 50: sd 5, 50: sd 6, 200Sleep 50sd 3, 100: sd 5, 50: sd 6, 50: sd 5, 100: sd 3, 100: sd 1, 50: sd 16, 50: sd 5, 50: sd 3, 50: sd 2, 200Sleep 50sd 2, 150: sd 3, 50: sd 5, 100: sd 5, 50: sd 6, 50: sd 3, 100: sd 2, 100: sd 1, 200Sleep 50sd 5, 150: sd 3, 50: sd 2, 50: sd 1, 50: sd 16, 50: sd 1, 50: sd 15, 200Sleep 50End SubFunction playsnd(ByVal x As Long, y As Long)Beep x, y * 3DoEventsEnd FunctionFunction sd(n&, l&)Select Case nCase 1playsnd 440, lCase 2playsnd 494, lCase 3playsnd 554, lCase 4playsnd 622, lCase 5playsnd 698, lCase 6playsnd 784, lCase 7playsnd 880, lCase 8playsnd 988, lCase 17playsnd 392, lCase 16playsnd 349, lCase 15playsnd 311, lEnd SelectEnd Function

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Form_Load()runsoundEnd SubSub runsound()sd 6, 150: sd 5, 50: sd 3, 100: sd 5, 100: sd 8, 100: sd 6, 50: sd 5, 50: sd 6, 200sd 3, 100: sd 5, 50: sd 6, 50: sd 5, 100: sd 3, 50: sd 2, 50: sd 1, 50: sd 5, 50: sd 3, 50: sd 2, 200sd 2, 100: sd 2, 50: sd 3, 50: sd 5, 100: sd 5, 50: sd 6, 50: sd 3, 150: sd 2, 50: sd 1, 50: sd 16, 150sd 5, 150: sd 3, 50: sd 2, 50: sd 1, 50: sd 16, 50: sd 1, 50: sd 15, 200End SubFunction playsnd(ByVal x As Long, y As Long)Beep x, y * 4DoEventsEnd FunctionFunction sd(n&, l&)Select Case nCase 1playsnd 440, lCase 2playsnd 494, lCase 3playsnd 554, lCase 4playsnd 587, lCase 5playsnd 659, lCase 6playsnd 739, lCase 7playsnd 830, lCase 8playsnd 880, lCase 17playsnd 415, lCase 16playsnd 369, lCase 15playsnd 329, lEnd SelectEnd Function

世上只有妈妈好！！

顶！

不错,有创意.

1楼的音高有点错误，2楼修正了下，还稍改了谱，用的是我学的第一个电子琴单手曲谱。

呵呵‘　可以‘‘

hahugo88 电子琴是我的最爱, 我疯狂的时侯, 3台落地式的 Yamaha Roland 与Casio 与 5个多功能音效与节拍的键盘, 够壮观吧.哈哈哈,littleczb 你重发吧.

我音乐可不好,音不准可以谅解,哈哈.....hahugo88的频率我收藏啦,不要见怪...

嘿嘿,我再发一个"再版"吧,效果可能好一些,不过要开音箱哦'引用cbm的下载文件Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPrivate Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Form_Activate() DownloadFile "http://ring.caishow.com/ring/268016.mid ", "C:\mother.mid" ShellExecute 0&, vbNullString, "C:\mother.mid", vbNullString, vbNullString, 0End SubPublic Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = TrueEnd Function

Option ExplicitPrivate Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub SingS(ByVal S As String)Dim i As IntegerFor i = 1 To Len(S) sd Mid(S, i, 1)Next iEnd SubPrivate Sub sd(ByVal n As Integer, Optional ByVal l As Integer = 125)Select Case nCase 0Sleep l * 4DoEventsCase 1Beep 440, l * 4DoEventsCase 2Beep 494, l * 4DoEventsCase 3Beep 554, l * 4DoEventsCase 4Beep 587, l * 4DoEventsCase 5Beep 659, l * 4DoEventsCase 6Beep 739, l * 4DoEventsCase 7Beep 830, l * 4DoEventsCase 8Beep 880, l * 4DoEventsCase 17Beep 415, l * 4DoEventsCase 16Beep 369, l * 4DoEventsCase 15Beep 329, l * 4DoEventsEnd SelectEnd Sub

我还是觉得音调不改的好，呵呵！

12F的代码还得改进。。。不要每次都去下那个http://ring.caishow.com/ring/268016.mid运行一次就下一次。。首先应该要用DIR判断是否存在这个文件了如果不存在再下载。。

并不是这样,我发现它可以自动判断.

【CBM666 的游子吟(下雪)】 http://post.baidu.com/f?kz=200988190

顶啊！

弱弱地问一句，Case 17 Beep 415, l * 4 DoEvents 这是什么意思？

好可爱得程序

bu cuo