12-11-2013، 12:47 AM
سلام بعد از play هم از stop استفاده کردم ولی متاسفانه دیگه چون فایل من 4 ثانیه هست و وقتی که من stop رو میزارم دیگه هیچ چیزی پخش نمیکنه
من یه رکورد با میکروفن هم دارم که ازم ارور میگیره توی برنامه ارور جاوا میگیره تو نوشتنش و کدهاش هیچ ایرادی نیست
کدشم اینه:
if firsttime then
ar.initialize()n
end if
sub bt1_click
If AR.isRecording=True Then
ToastMessageShow("شما در حال ضبط هستید لطفا برای ضبط جدید ابتدا توقف را بزنید",False)
Else
For i=1 To 1000
m="piano"&i&".wav"
If File.Exists(File.DirDefaultExternal,m) Then
Else
AR.AudioSource = AR.AS_DEFAULT
AR.OutputFormat = AR.OF_THREE_GPP
AR.AudioEncoder = AR.AE_AMR_NB
AR.setOutputFile(File.DirDefaultExternal,m)
AR.prepare
AR.start
ToastMessageShow("ضبط آغاز گردید ...",False)
StartActivity("create")
End If
Next
End If
من یه رکورد با میکروفن هم دارم که ازم ارور میگیره توی برنامه ارور جاوا میگیره تو نوشتنش و کدهاش هیچ ایرادی نیست
کدشم اینه:
if firsttime then
ar.initialize()n
end if
sub bt1_click
If AR.isRecording=True Then
ToastMessageShow("شما در حال ضبط هستید لطفا برای ضبط جدید ابتدا توقف را بزنید",False)
Else
For i=1 To 1000
m="piano"&i&".wav"
If File.Exists(File.DirDefaultExternal,m) Then
Else
AR.AudioSource = AR.AS_DEFAULT
AR.OutputFormat = AR.OF_THREE_GPP
AR.AudioEncoder = AR.AE_AMR_NB
AR.setOutputFile(File.DirDefaultExternal,m)
AR.prepare
AR.start
ToastMessageShow("ضبط آغاز گردید ...",False)
StartActivity("create")
End If
Next
End If