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