VB录音机转化为AU3(已解决）

nbmpe · 发表于 2010-10-29 20:31:04

本帖最后由 nbmpe 于 2010-11-12 18:45 编辑

录机单源码，用的是WINMM。DLL
前辈们帮转为AU3。最好加上中文注释（咱英文不怎么好，用翻译意思老变。）

nbmpe · 发表于 2010-10-31 11:44:07

自己顶起来！

破帽遮颜 · 发表于 2010-11-1 03:37:05

动手写了一个，在空间

http://user.qzone.qq.com/780095/blog/1288553943

kingfirekkk · 发表于 2010-11-1 08:30:12

好像和WINDOWS的录音机有些差距，不过仍然顶一下，我也有写过一个，不过功能比楼上的这个更简单。。。

xyyie · 发表于 2010-11-1 13:25:38

我也顶一下。你们都很强。

G，man。 · 发表于 2010-11-1 14:12:37

支持，很强，谢谢了。

nbmpe · 发表于 2010-11-2 19:26:35

不错，还有简波显示！

Opt('GUIOnEventMode', 1)
Global $point = 0
$Form1 = GUICreate('录音机 - winmm.dll', 281, 160, -1, -1)
GUISetOnEvent(-3, 'SpecialEvents')
$box = GUICtrlCreateGraphic(0, 8, 281, 107)
GUICtrlSetBkColor($box, 0x222222)
GUICtrlSetColor(-1, 0)
GUICtrlSetGraphic(-1, 6, 0, 107 / 2)
GUICtrlSetGraphic(-1, 2, 281, 107 / 2)
$marker = GUICtrlCreateGraphic(0, 8, 1, 107)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Start = GUICtrlCreateButton('Start', 0, 120, 89, 33, 0)
GUICtrlSetOnEvent(-1, 'SpecialEvents')
$Stop = GUICtrlCreateButton('Stop', 96, 120, 89, 33, 0)
GUICtrlSetOnEvent(-1, 'SpecialEvents')
$Save = GUICtrlCreateButton('Save', 192, 120, 89, 33, 0)
GUICtrlSetOnEvent(-1, 'SpecialEvents')
GUISetState(@SW_SHOW)
While 1
 Sleep(1000)
WEnd
Func SpecialEvents()
Switch @GUI_CtrlId
Case -3
Exit
Case $Start
__SoundMciSendString('Open New type WaveAudio alias recorder')
__SoundMciSendString('Open New type WaveAudio alias recorderTemp')
__SoundMciSendString('set recorder bitspersample 8');使用8位
__SoundMciSendString('set recorder samplespersec 11025');11025Hz
__SoundMciSendString('set recorder channels 2');立体声(双声道)
__SoundMciSendString('record recorder');开始录音
AdlibRegister('recorder', 10)
Case $Stop
AdlibUnRegister('recorder')
__SoundMciSendString('stop recorder')
Case $Save
AdlibUnRegister('recorder')
__SoundMciSendString('stop recorder')
$Save = FileSaveDialog('', @DesktopDir, '录音文件 (*.wav)', 18, 'test.wav', $Form1)
If Not @error Then __SoundMciSendString('save recorder "' & $Save & '"')
__SoundMciSendString('close recorderTemp')
__SoundMciSendString('close recorder')
EndSwitch
EndFunc   ;==>SpecialEvents
Func recorder()
$level = __SoundMciSendString('status recorderTemp level')
ToolTip($level, 0, 0)
GUICtrlSetGraphic($box, 6, $point, 107 / 2)
GUICtrlSetGraphic($box, 8, 0xFFFFFF)
GUICtrlSetGraphic($box, 2, $point, (107 / 2) + $level / 2)
GUICtrlSetGraphic($box, 2, $point, (107 / 2) - $level / 2)
$point = $point + 1
If $point > 280 Then
GUICtrlDelete($box)
GUICtrlDelete($marker)
$box = GUICtrlCreateGraphic(0, 8, 281, 107)
GUICtrlSetBkColor($box, 0x222222)
GUICtrlSetGraphic(-1, 6, 0, 107 / 2)
GUICtrlSetGraphic(-1, 8, 0xFFFFFF)
GUICtrlSetGraphic(-1, 2, 281, 107 / 2)
GUICtrlSetColor(-1, 0)
GUICtrlSetGraphic(-1, 6, 0, 107 / 2)
GUICtrlSetGraphic(-1, 8, 0xFFFFFF)
GUICtrlSetGraphic(-1, 2, 281, 107 / 2)
$marker = GUICtrlCreateGraphic(0, 8, 3, 107)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$point = 0
EndIf
GUICtrlSetPos($marker, $point, 8)
EndFunc   ;==>recorder
Func __SoundMciSendString($string, $iLen = 65534)
Local $iRet = DllCall('winmm.dll', 'int', 'mciSendString', 'str', $string, 'str', '', 'int', $iLen, 'hwnd', 0)
Return $iRet[2]
EndFunc   ;==>__SoundMciSendString

republican · 发表于 2010-11-3 08:30:19

2k3 表示无法录制。

雪栀 · 发表于 2011-5-1 13:34:25

请问，如果要内录呢？

hkc5599 · 发表于 2011-5-23 13:13:50

cool example.thanks~~~~~

autt · 发表于 2011-9-29 21:04:14

请问，如果要内录呢？
雪栀发表于 2011-5-1 13:34

我也同问,想知道

		自动登录	找回密码
密码			加入

[系统综合] VB录音机转化为AU3(已解决）

本帖子中包含更多资源

相关帖子