母亲节,献给天下所有的母亲!
vb吧
全部回复
仅看楼主
level 6
hehao_00 楼主
'母亲节的礼物----提前献给天下所有的母亲'粘贴代码到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
2007年05月12日 10点05分 1
level 2
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
2007年05月12日 11点05分 2
level 2
世上只有妈妈好!!
2007年05月12日 11点05分 3
level 6
顶!
2007年05月12日 11点05分 4
level 13
不错,有创意.
2007年05月12日 11点05分 5
level 2
1楼的音高有点错误,2楼修正了下,还稍改了谱,用的是我学的第一个电子琴单手曲谱。
2007年05月12日 11点05分 6
level 0
呵呵‘ 可以‘‘
2007年05月12日 11点05分 7
level 13
hahugo88 电子琴是我的最爱, 我疯狂的时侯, 3台落地式的 Yamaha Roland 与Casio 与 5个多功能音效与节拍的键盘, 够壮观吧.哈哈哈,littleczb 你重发吧.
2007年05月12日 11点05分 10
level 6
hehao_00 楼主
我音乐可不好,音不准可以谅解,哈哈.....hahugo88的频率我收藏啦,不要见怪...
2007年05月12日 12点05分 11
level 6
hehao_00 楼主
嘿嘿,我再发一个"再版"吧,效果可能好一些,不过要开音箱哦'引用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
2007年05月12日 12点05分 12
level 6
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
2007年05月12日 13点05分 13
吧务
level 7
我还是觉得音调不改的好,呵呵!
2007年05月12日 14点05分 14
level 5
12F的代码还得改进。。。不要每次都去下那个http://ring.caishow.com/ring/268016.mid运行一次就下一次。。首先应该要用DIR判断是否存在这个文件了如果不存在再下载。。
2007年05月13日 01点05分 15
level 6
hehao_00 楼主
并不是这样,我发现它可以自动判断.
2007年05月13日 01点05分 16
level 13
【CBM666 的游子吟(下雪)】 http://post.baidu.com/f?kz=200988190
2007年05月13日 06点05分 18
level 2
顶啊!
2007年05月25日 02点05分 19
level 1
弱弱地问一句,Case 17 Beep 415, l * 4 DoEvents 这是什么意思?
2007年09月13日 02点09分 20
level 1
好可爱得程序
2007年09月13日 12点09分 21
level 0
bu cuo
2007年11月18日 06点11分 22
1 2 尾页