majerajoo 161 ارسال شده در 17 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 17 فروردین، ۱۳۹۶ سلام دوستان فرض کنید من 5 تا ایمیج ویو دارم میخوام به صورت رندوم مثلا هر 5 ثانیه پس زمینه یه ایمیج ویو عکس دار بشه و قبلی پس زمینه اش حذف بشه عکسی هم که میگم یه عکس بیشتر نیست و هر 5 ثانیه میخوام اون یه عکس به صورت تصادفی پس زمینه یه ایمیج ویو بشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
fito 45 ارسال شده در 17 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 17 فروردین، ۱۳۹۶ سلام شما یه عدد تعریف میکنید dim ran as int توی ساب تایمر هم که تیک خورد ran = Rnd(1,4) If ran = 1 Then i.Bitmap = LoadBitmap(File.DirAssets,"im.png") i2.Bitmap = Null i3.Bitmap = Null Else If ran = 2 Then i.Bitmap = Null i2.Bitmap = LoadBitmap(File.DirAssets,"im.png") i3.Bitmap = Null Else If ran = 3 Then i.Bitmap = Null i2.Bitmap = Null i3.Bitmap = LoadBitmap(File.DirAssets,"im.png") End If شما که مخواین عدد یک تا 5 بدین به این شکل میدین ran = Rnd(1,6) اینجا یه عکس فقط از 1 تا 5 انتخاب میشه و 6 انتخاب نمیشه توی رندوم به این شکله در مورد تایمر هم که کاری نداره دیگه، تایمر رو تعریف می کنید و 5 ثانیه تیک که خورد دوباره توی سابش همون ایونت تایمر رو اینیشیالایز و فعال می کنید ... لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
majerajoo 161 ارسال شده در 17 فروردین، ۱۳۹۶ سازنده اشتراک گذاری ارسال شده در 17 فروردین، ۱۳۹۶ در 50 دقیقه قبل، fito گفته است : سلام شما یه عدد تعریف میکنید dim ran as int توی ساب تایمر هم که تیک خورد ran = Rnd(1,4) If ran = 1 Then i.Bitmap = LoadBitmap(File.DirAssets,"im.png") i2.Bitmap = Null i3.Bitmap = Null Else If ran = 2 Then i.Bitmap = Null i2.Bitmap = LoadBitmap(File.DirAssets,"im.png") i3.Bitmap = Null Else If ran = 3 Then i.Bitmap = Null i2.Bitmap = Null i3.Bitmap = LoadBitmap(File.DirAssets,"im.png") End If شما که مخواین عدد یک تا 5 بدین به این شکل میدین ran = Rnd(1,6) اینجا یه عکس فقط از 1 تا 5 انتخاب میشه و 6 انتخاب نمیشه توی رندوم به این شکله در مورد تایمر هم که کاری نداره دیگه، تایمر رو تعریف می کنید و 5 ثانیه تیک که خورد دوباره توی سابش همون ایونت تایمر رو اینیشیالایز و فعال می کنید ... ببخشید کد زیر درست نیست؟ چون یک بار یکی رو عکسدار میکنه دیگه تایمر فعال نمیشه واسه بعدی Sub t_Tick If ran = 1 Then ImageView1.Bitmap = LoadBitmap(File.DirAssets,"im.png") ImageView2.Bitmap = Null ImageView2.Bitmap = Null Else If ran = 2 Then ImageView1.Bitmap = Null ImageView2.Bitmap = LoadBitmap(File.DirAssets,"im.png") ImageView3.Bitmap = Null Else If ran = 3 Then ImageView1.Bitmap = Null ImageView2.Bitmap = Null ImageView3.Bitmap = LoadBitmap(File.DirAssets,"im.png") End If t.Initialize("t",2000) t.Enabled = True End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
fito 45 ارسال شده در 17 فروردین، ۱۳۹۶ اشتراک گذاری ارسال شده در 17 فروردین، ۱۳۹۶ در ۱ ساعت قبل، majerajoo گفته است : ببخشید کد زیر درست نیست؟ چون یک بار یکی رو عکسدار میکنه دیگه تایمر فعال نمیشه واسه بعدی وقتی شما تعریف می کنید t1.Initialize("t",1000) t1.Enabled = True توی ساب هم دوبار همینو ایونتو t اینیشیالایز می کنید و حتما فعال میشه دیگه. sub t_tick t1.Initialize("t",1000) end sub در ضمن من فقط کدهای اصلی رو دادم و هر دفعه که تیک میخوره تایمر عکسی رندوم انتخاب میشه که ممکنه یکی پشته سر هم چند بار انتخاب بشه! که دیگه اونم با دستورات دیگر حل میشه... البته اگه بخواین هر دفعه فقط یکی انتخاب بشه. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
majerajoo 161
سلام دوستان
فرض کنید من 5 تا ایمیج ویو دارم میخوام به صورت رندوم مثلا هر 5 ثانیه پس زمینه یه ایمیج ویو عکس دار بشه و قبلی پس زمینه اش حذف بشه عکسی هم که میگم یه عکس بیشتر نیست و هر 5 ثانیه میخوام اون یه عکس به صورت تصادفی پس زمینه یه ایمیج ویو بشه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.