By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,061 Members | 1,523 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,061 IT Pros & Developers. It's quick & easy.

Need Help in my module.. of Delay Audiotary Feedback

P: 2
I'm developing the Delay Audiometry feedback.

My Step are... Recording -> Playing... these are on different events.
I've used the mcisendstring()for manipulation of audio & made the functions

For Recording I used
================================================== =====
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 = Now
================================================== ==========
& for playing
------------------------------------
Public Sub WavePlay()
Dim rtn As String
Dim i As Long
i = mciSendString("play capture from 0", rtn, Len(rtn), 0) ' for play at position
If i <> 0 Then MsgBox ("Start playing failed!")

================================================== ===========
Recording & Playing are working properly... but on different events.
My Problem is that.. Recording & Playing are not working on single event.

& also I want to create delay b/w REC & PLAY. for this I used Object.delay but I'm confuse for using this function.

Please tell me suggestions. thanks to all of you.
Apr 12 '07 #1
Share this Question
Share on Google+
2 Replies


P: 2
I'm developing the Delay Audiometry feedback.

My Step are... Recording -> Playing... these are on different events.
I've used the mcisendstring()for manipulation of audio & made the functions

For Recording I used
================================================== =====
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 = Now
================================================== ==========
& for playing
------------------------------------
Public Sub WavePlay()
Dim rtn As String
Dim i As Long
i = mciSendString("play capture from 0", rtn, Len(rtn), 0) ' for play at position
If i <> 0 Then MsgBox ("Start playing failed!")

================================================== ===========
Recording & Playing are working properly... but on different events.
My Problem is that.. Recording & Playing are not working on single event.

& also I want to create delay b/w REC & PLAY. for this I used Object.delay but I'm confuse for using this function.

Please tell me suggestions. thanks to all of you.

Can it possible that... two function on the single event....

I mean... recording() & Playing()...
Apr 12 '07 #2

100+
P: 149
Can it possible that... two function on the single event....

I mean... recording() & Playing()...
Why don't you call Recording() on the event and then from within Recording() call Playing() after a delay. Will that work.

ansuman sahu
Apr 12 '07 #3

Post your reply

Sign in to post your reply or Sign up for a free account.