برنامه ساده ضبط پخش و اشتراک گذاری صدا

[sadegh460 17]

ضبط , پخش , به اشتراک گذاری(ایمیل.بلوتوث)

میخاهیم کد برنامه ای بنویسیم که صدای کاربر را ضبط کند, صدایش رو پخش کند و برای یک ایمیل از پیش تایین شده ارسال کند (تا صدای ضبط نشده دو تا دکمه دیگه غیر فعال باشن و تا صدا پخش نشده دکمه اشتراک غیر فعال باشه )

اولین کاری که باید بکنیم اینکه سه تا دکمه به طرح مون اضافه کنیم و اون ها رو به اکتیویتی معرفی کنیم

بعد از کتابخانه های audio و phone رو فعال کنید

Sub Process_Globals

Dim audiorecord As AudioRecordApp

Dim message As Email

End Sub

Sub Globals

Dim Button1 As Button

Dim mediaplayer1 As MediaPlayer

Private Button1 As Button

Dim Button2 As Button

Dim Button3 As Button

End Sub

(Sub Activity_Create(FirstTime As Boolean

("Activity.LoadLayout("1

("audiorecord.Initialize("audiorecorder

()mediaplayer1.Initialize

Button2.Enabled=False

Button3.Enabled=False

End Sub

Sub Button1_Click

("audiorecord.Record(File.DirRootExternal,"mys.3gpp

Button2.Enabled=True

End Sub

Sub Button2_Click

("mediaplayer1.Load(File.DirRootExternal,"mys.3gpp

mediaplayer1.Play

Button3.Enabled=True

End Sub

Sub Button3_Click

("ادرس ایمیل مورد نظر")message.To.add

(("message.attachments.add(File.Combine(File.DirRootExternal,"mys.3gpp

(StartActivity(message.GetIntent

End Sub