1-چیکار کنیم اگه بخویام وقتی اهنگی که گذاشتیم بعد از قطع شدن دوباره پخش تا زمانی که ازش خارج شیم
2-یه انیمیشن اومدم بسازم با تایمر نمیدونم چرا صفحه سیاهه در حالی که اهنگ پخش میشه
Sub Process_Globals
Dim timer3 As Timer
Dim timer4 As Timer
Dim timer5 As Timer
End Sub
Sub Globals
Private imageview1 As ImageView
Private imageview2 As ImageView
Private imageview3 As ImageView
Dim mediaplayer1 As MediaPlayer
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("police")
imageview1.Visible=True
imageview2.Visible=False
imageview3.Visible=False
timer3.Initialize("timer3",1000)
timer3.Enabled = True
mediaplayer1.Initialize()
mediaplayer1.Play
mediaplayer1.Load(File.DirAssets,"alarm.mp3")
End Sub
Sub Activity_Resume
mediaplayer1.Play
End Sub
Sub Activity_Pause (UserClosed As Boolean)
mediaplayer1.stop
End Sub
Sub timer3_tick
imageview1.Visible=True
imageview2.Visible=False
imageview3.Visible=False
timer4.Initialize("timer4",2000)
timer4.Enabled = True
End Sub
Sub timer4_tick
imageview1.Visible=False
imageview2.Visible=True
imageview3.Visible=False
timer5.Initialize("timer5",2000)
timer5.Enabled = True
End Sub
Sub timer5_tick
imageview1.Visible=False
imageview2.Visible=False
imageview3.Visible=True
timer4.Enabled=False
timer3.Initialize("timer3",2000)
timer3.Enabled = True
End Sub
سوال
reza644 435
سلام خواهشمندم اگه میدونید مشکل منو حل کنید
1-چیکار کنیم اگه بخویام وقتی اهنگی که گذاشتیم بعد از قطع شدن دوباره پخش تا زمانی که ازش خارج شیم
2-یه انیمیشن اومدم بسازم با تایمر نمیدونم چرا صفحه سیاهه در حالی که اهنگ پخش میشه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
10 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.