momax360 15 ارسال شده در 25 آذر، ۱۳۹۵ اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ سلام من لودینگ دارم و می خوام پس از ده ثانیه بره اکتیویتی بعدی چند تا تایمر امتحان کردم جواب نداد http://s8.picofile.c...84/ggg.zip.html لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Mr Mansour 325 ارسال شده در 25 آذر، ۱۳۹۵ اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ بفرمایید Sub Globals Private rl1 As RotateLoading Dim Timer1 as Timer End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") rl1.CircleWidth = 7 rl1.ShadowColor = Colors.White rl1.CircleColor = Colors.Red rl1.ShadowPosition = 5 rl1.FadeInTime = 5000 rl1.FadeOutTime = 1000 rl1.start Timer1.Initialize("t",2500) Timer1.Enabled = True End Sub Sub t_Tick Timer1.Enabled = false StartActivity("Name Activity") Activity.Finish End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
reza sabouri 444 ارسال شده در 25 آذر، ۱۳۹۵ اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ درود ، استاد اگه یکمی سرچ کنید ، حتما مطالب مفید تری پیدا میکنید . Sub globals Dim timer1 as timer End sub Activity_create (first time as boolean) Activity.loadlayout("layout1) Timer1.intialize("t1",5000) End sub حالا بعد از لودینگت بیا و فعالش کن Timer1.enabled=true اینم از تیک خوردنش و بعد به کدوم اکتیویتی بره. Sub t1_tick Startactivity("name") End sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
momax360 15 ارسال شده در 25 آذر، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ در 27 دقیقه قبل، 2roshke گفته است : درود ، استاد اگه یکمی سرچ کنید ، حتما مطالب مفید تری پیدا میکنید . Sub globals Dim timer1 as timer End sub Activity_create (first time as boolean) Activity.loadlayout("layout1) Timer1.intialize("t1",5000) End sub حالا بعد از لودینگت بیا و فعالش کن Timer1.enabled=true اینم از تیک خوردنش و بعد به کدوم اکتیویتی بره. Sub t1_tick Startactivity("name") End sub خطا میده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
reza sabouri 444 ارسال شده در 25 آذر، ۱۳۹۵ اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ در 22 دقیقه قبل، momax360 گفته است : خطا میده فک کنم باید بزنی dim timer1 as timer نه time لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
momax360 15 ارسال شده در 25 آذر، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ در 21 دقیقه قبل، 2roshke گفته است : فک کنم باید بزنی dim timer1 as timer نه time بازم اخطار میده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
reza sabouri 444 ارسال شده در 25 آذر، ۱۳۹۵ اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ یک اسکرین لطف میکنین از خطا ؟ خطای قبلی اگه دقت کنید به time گفته بود که باید تایمرش میکردین ، من خودمم از این روش استفاده میکنم و هیچ خطایی نمیده. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mostafa.kasiri 115 ارسال شده در 25 آذر، ۱۳۹۵ اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ سلام کتابخونتون اشتباه است با کتابخانه timer باشه و این هم کد Sub Process_Globals Dim TIMER1 As Timer End Sub Sub Globals End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("L2") TIMER1.Initialize("Timer1",2000) TIMER1.Enabled=True End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub timer1_Tick TIMER1.Enabled=False StartActivity(site) Activity.Finish End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
momax360 15 ارسال شده در 25 آذر، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 25 آذر، ۱۳۹۵ در 3 ساعت قبل، Mr Mansour گفته است : بفرمایید Sub Globals Private rl1 As RotateLoading Dim Timer1 as Timer End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") rl1.CircleWidth = 7 rl1.ShadowColor = Colors.White rl1.CircleColor = Colors.Red rl1.ShadowPosition = 5 rl1.FadeInTime = 5000 rl1.FadeOutTime = 1000 rl1.start Timer1.Initialize("t",2500) Timer1.Enabled = True End Sub Sub t_Tick Timer1.Enabled = false StartActivity("Name Activity") Activity.Finish End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub ممنون درست شد لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
momax360 15
سلام
من لودینگ دارم و می خوام پس از ده ثانیه بره اکتیویتی بعدی
چند تا تایمر امتحان کردم جواب نداد
http://s8.picofile.c...84/ggg.zip.html
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.