راهنمایی برای سورس مفید Audio/Vide Recorder

[bahadorks 13]

سلام دوستان

من یک سورس خیلی خوب و کاربردی پیدا کردم اما چنتا مشکل دارم باهاش:

تو این کد یک تراک میشه ضبط کرد.یا فقط یک ویدیو میشه گرفت

چیکار کنم که بشه هرچی که کاربر ضبط میکنه رو تو یک لیست داشته باشه؟

و بشه مثل یک پلی لیست تو نرم افزارم بهش دسترسی داشته باشه؟

میخوام تو برنامم صدای کاربر رو ضبط کنم و تراک ضبط شده کاربر جز بقیه آهنگهایی که تو برنامه

براش قرار دادم بیاد و امکان پاک کردن هم داشته باشه.

اینم از سورس که میدونم مفیده واسه بقیه:

[font=Helvetica Neue]Sub Process_Globals
   Dim audioRecorder As AudioRecordApp
   Dim videoRecorder As VideoRecordApp
End Sub

Sub Globals
   Dim vv As VideoView
End Sub

Sub Activity_Create(FirstTime As Boolean)
  If FirstTime Then
          audioRecorder.Initialize("audioRecorder")
       videoRecorder.Initialize("videoRecorder")
   End If
   vv.Initialize("vv")
   Activity.AddView(vv, 0, 0, 100%x, 100%y)
   Activity.AddMenuItem("Record Video", "RecordVideo")
   Activity.AddMenuItem("Record Audio", "RecordAudio")
   ToastMessageShow("Press on Menu button...", True)
End Sub

Sub RecordVideo_Click
   videoRecorder.Record(File.DirRootExternal, "1.mp4")
End Sub
Sub RecordAudio_Click
   audioRecorder.Record(File.DirRootExternal, "1.3gpp")
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
   Log(Success)
   If Success Then
       vv.LoadVideo(File.DirRootExternal, "1.mp4")
       vv.Play
   End If
End Sub
Sub audioRecorder_RecordComplete (Success As Boolean)
   Log(Success)
   If Success Then
       vv.LoadVideo(File.DirRootExternal, "1.3gpp")
       vv.Play
   End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub 

[/font]

[مجید آرتا 5,874]

یک متغیر عمومی از نوع Int تعریف کن.

بیا این کد رو تست کن ببین جواب می گیری

Sub Process_Globals
   Dim audioRecorder As AudioRecordApp
   Dim videoRecorder As VideoRecordApp
End Sub


Sub Globals
   Dim vv As VideoView
   Dim i As Int
   Dim j As Int
End Sub


Sub Activity_Create(FirstTime As Boolean)
  If FirstTime Then
          audioRecorder.Initialize("audioRecorder")
       videoRecorder.Initialize("videoRecorder")
   End If
   vv.Initialize("vv")
   Activity.AddView(vv, 0, 0, 100%x, 100%y)
   Activity.AddMenuItem("Record Video", "RecordVideo")
   Activity.AddMenuItem("Record Audio", "RecordAudio")
   ToastMessageShow("Press on Menu button...", True)
End Sub


Sub RecordVideo_Click
   videoRecorder.Record(File.DirRootExternal, j&".mp4")
End Sub
Sub RecordAudio_Click
   audioRecorder.Record(File.DirRootExternal, i&".3gpp")
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
   Log(Success)
   If Success Then
      MsgBox("Record Ended","")
j = j + 1
   End If
End Sub
Sub audioRecorder_RecordComplete (Success As Boolean)
   Log(Success)
   If Success Then
      MsgBox("Record Ended","")
      i = i + 1
   End If
End Sub

[bahadorks 13]

خیلی ممنون از راهنماییت

اما چطور توی یک پلی لیست ضبط شده ها رو لود کنم؟

[مجید آرتا 5,874]

Sub Process_Globals    Dim audioRecorder As AudioRecordApp
   Dim videoRecorder As VideoRecordApp
End Sub




Sub Globals
   Dim vv As VideoView
   Dim i As Int
   Dim VList As List
   Dim AList As List
   Dim j As Int
End Sub




Sub Activity_Create(FirstTime As Boolean)
  If FirstTime Then
          audioRecorder.Initialize("audioRecorder")
       videoRecorder.Initialize("videoRecorder")
   End If
   VList.Initialize
   AList.Initialize
   vv.Initialize("vv")
   Activity.AddView(vv, 0, 0, 100%x, 100%y)
   Activity.AddMenuItem("Record Video", "RecordVideo")
   Activity.AddMenuItem("Record Audio", "RecordAudio")
   ToastMessageShow("Press on Menu button...", True)
End Sub




Sub RecordVideo_Click
   videoRecorder.Record(File.DirRootExternal, j&".mp4")
End Sub
Sub RecordAudio_Click
   audioRecorder.Record(File.DirRootExternal, i&".3gpp")
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
   Log(Success)
   If Success Then
      MsgBox("Record Ended","")
      VList.Add(j&".MP4")
j = j + 1
   End If
End Sub
Sub audioRecorder_RecordComplete (Success As Boolean)
   Log(Success)
   If Success Then
      MsgBox("Record Ended","")
      AList.Add(i&".MP3")
      i = i + 1
   End If
End Sub

ببین اینجا میاد اسامی صداهای ضبط شده رو توی لیست میریزه و تو باید واسه پلی لیست این اسامی رو یجا لود کنی و بعد با شرط گذاری میتونی تک تک صداهارو پلی کنی.