Категория
Информатика
Тип
лабораторная работа
Страницы
17 стр.
Дата
16.04.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
107179.zip — 91.9 kb
  • audio-recorder-on-visual-basic_107179_1.rtf — 1879.71 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
5.7  из 10
Оценок
151
Оцените работу
Хорошо  или  Плохо


Текст работы

Без интервала;
;
AUTOMATIC SYSTEM XTreme Diapsalmata
25
AUTOMATIC SYSTEM
AUDIO RECORDER ON VISUAL BASIC
Dushanbe, 2009
Main Interface
Source Code
Option Explicit
'Copyright : E .
de Vries
'e-mail : [email protected]
'This code can be used as freeware
t AppName = " AudioRecorder"
Private Sub cmdSave_Click ( )
Dim sName As String
If WaveMidiFileName = "" Then
sName = " Radio_from_ "
& CStr ( WaveRecordingStartTime ) & "
_to_ " & CStr ( WaveRecordingStopTime )
sName = Replace ( sName, ": ", " - " )
sName = Replace ( sName, " ", " _ " )
sName = Replace ( sName, " / ", " - " )
Else
sName = WaveMidiFileName
sName = Replace ( sName, " MID ", " wav " )
End If
CommonDialog1 . FileName = sName
CommonDialog1 . CancelError = True
On Error GoTo ErrHandler1
CommonDialog1 . Filter =
" WAV file ( *. wav* )
|* . wav "
CommonDialog1 . Flags = &H2 Or &H400
CommonDialog1 . ShowSave
sName = CommonDialog1 . FileName
WaveSaveAs ( sName )
Exit Sub
ErrHandler1 :
End Sub
Private Sub cmdRecord_Click ( )
Dim settings As String
Dim Alignment As Integer
Alignment = Channels * Resolution / 8
settings = " set capture alignment
" & CStr ( Alignment ) & "
bitspersample " & CStr ( Resolution ) &
" samplespersec " & CStr
( Rate )
& " channels "
& CStr ( Channels ) & "
bytespersec " & CStr ( Alignment * Rate )
WaveReset
WaveSet
WaveRecord
WaveRecordingStartTime



Ваше мнение



CAPTCHA