Nahrßnφ CD stopy
Public Sub RecordWave(TrackNum
As Integer, Filename As String)
'Tracknum: stop k
nahrßnφ
'Filename: soubor pro ulo₧enφ wavu
On Local Error Resume Next
Dim i As Long, RS As String, cb As Long, t#
RS = Space$(128)
i =
mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)
Kill filename
RS = Space$(128)
i = mciSendString("status cdaudio position track
" & TrackNum, RS, 128, cb)
i = mciSendString("open cdaudio", RS, 128, cb)
i = mciSendString("set cdaudio time format
milliseconds", RS, 128, cb)
i = mciSendString("play cdaudio", RS, 128, cb)
i = mciSendString("open new type waveaudio alias
capture", RS, 128, cb)
i = mciSendString("record capture", RS, 128, cb)
t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop
i =
mciSendString("save capture " & filename, RS, 128, cb)
i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)
End Sub
Funkce pracuje nßsledovn∞:
Nejprve zastavφ veÜkerou Φinnost CD. Pak zaΦne p°ehrßvat
stopu a vytvo°φ nov² wav soubor. Je t°eba si uv∞domit, ₧e tato funkce
nahrßvß veÜker² v²stup, tudφ₧ i mikrofon nebo midi. Po nahrßnφ ulo₧φ
wav soubor a op∞t ukonΦφ Φinnost CD.