میخاهیم کد برنامه ای بنویسیم که صدای کاربر را ضبط کند, صدایش رو پخش کند و برای یک ایمیل از پیش تایین شده ارسال کند (تا صدای ضبط نشده دو تا دکمه دیگه غیر فعال باشن و تا صدا پخش نشده دکمه اشتراک غیر فعال باشه )
اولین کاری که باید بکنیم اینکه سه تا دکمه به طرح مون اضافه کنیم و اون ها رو به اکتیویتی معرفی کنیم
سوال
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
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.