Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 0
360momax

تایمر و عکس

سوال

Untitled.png

 

 

اگه سورس داره بگید تا دانلود کنم

 

اکه خودتون بلید بازم یگید

 

اگه کتاب خونه هم داره بگید دانلود کنم

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

13 پاسخ به این سوال تا کنون داده شده است

  • 0

دوست عزیز با سپاس

 

این سری پستتون رو نمیبندم که دوستان کمکتون کنند ولی از سری بد برا درخواست هاتون میدونید باید چیکار کنید چون قبلا پست هاتون سر همین جریان بسته شده.

 

با سپاس 

نمی تونم داخل در خواست ها چیزی بگزارم میگه باید عضو ویژه باشید و 45 تا مطلب

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

درود با کتابخانه اریا لیست ویومیتونی این کارو انجام بدی

سورسش رو می خوام

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

درود شما باید کتابخانه و سورس رو خریداری کنید

 

سورسش رو می خوام

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

کار مشکلی نیس داداش از کد زیر استفاده کنی میشه

فقط قبلش عکسات رو به اسم های 0,1,2,3,..... دخیره کن


Sub Globals
	
Dim i As Int=0
	Dim time As Timer
	Dim image As ImageView	
End Sub

Sub Activity_Create(FirstTime As Boolean)
image.Initialize("image")
	Activity.AddView(image,0,0,100%x,100%x)
	time.Initialize("time",5000)
	time.Enabled=True
	

End Sub


Sub time_Tick
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".png"))
End Sub

این کد میاد هر 5 ثانیه یه عکس رو نشون میده و وقتی رسید به آخر اولی رو نشون میده ترتیب نشون دادن ابنجوریه 0,1,2,3,4,0,1,2,3,4,0,1,2,3,4,..........

پسند شده توسط salmana

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

کار مشکلی نیس داداش از کد زیر استفاده کنی میشه

فقط قبلش عکسات رو به اسم های 0,1,2,3,..... دخیره کن

Sub Globals
	Dim i As Int=0
	Dim time As Timer
	Dim image As ImageView	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	time.Initialize("time",5000)
	time.Enabled
End Sub

Sub time_Tick
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".jpg"))
End Sub

این کد میاد هر 5 ثانیه یه عکس رو نشون میده و وقتی رسید به آخر اولی رو نشون میده ترتیب نشون دادن ابنجوریه 0,1,2,3,4,0,1,2,3,4,0,1,2,3,4,..........

لطفا آیتم کلیک به صورت جداگانه هر عکس رو هم بزارید ممنون

پسند شده توسط 360momax

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

لطفا آیتم کلیک به صورت جداگانه هر عکس رو هم بزارید ممنون

 

همین کدی که تو رویداد کلیک هست رو تو دکمه بدارید

Sub Globals
	
Dim i As Int=0
	Dim time As Timer
	Dim image As ImageView
	Dim btn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
image.Initialize("image")
	Activity.AddView(image,0,0,100%x,100%x)
	
	btn.Initialize("btn")
	Activity.AddView(btn,50%x,110%x,20%x,10%x)
End Sub

Sub btn_Click
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".png"))
End Sub

این کد هربار که دکمه رو بزنید عکس رو چرخشی عوض میکنه

پسند شده توسط 360momax و salmana

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

من مبتدی هستم اگر میشه کدش رو برام  بزارید ممنون

داداش کداش رو تو پست 9 که گذاشتم

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

داداش کداش رو تو پست 9 که گذاشتم

 

 

 

 

برادر ممنون منظورم اینکه 5 تا عکس داره با تایمر عوض میشه مثلا رو عکس 1 زدیم یه رویدادی انجام بشه رو 2 زدیم یه توستی نمایش بده و الا آخر ممنون

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

برادر ممنون منظورم اینکه 5 تا عکس داره با تایمر عوض میشه مثلا رو عکس 1 زدیم یه رویدادی انجام بشه رو 2 زدیم یه توستی نمایش بده و الا آخر ممنون

Dim i As Int=0
	Dim time As Timer
	Dim image As ImageView
	Dim btn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	image.Initialize("image")
	Activity.AddView(image,0,0,100%x,100%x)
	
	btn.Initialize("btn")
	Activity.AddView(btn,50%x,110%x,20%x,10%x)
	
	
	time.Initialize("time",5000)
	time.Enabled=True
	

End Sub


Sub time_Tick
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".png"))
End Sub

Sub btn_Click
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".png"))
End Sub

Sub image_Click
Log(i Mod 5)
	If i Mod 5=0 Then
	ToastMessageShow("ax shomare 1",False)
	Else If i Mod 5=1 Then
	ToastMessageShow("ax shomare 2",False)
	Else If i Mod 5=2 Then
	ToastMessageShow("ax shomare 3",False)
	Else If i Mod 5=3 Then
	ToastMessageShow("ax shomare 4",False)
	Else If i Mod 5=4 Then
	ToastMessageShow("ax shomare 5",False)
	End If
End Sub
پسند شده توسط p30coder

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0
Dim i As Int=0
	Dim time As Timer
	Dim image As ImageView
	Dim btn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	image.Initialize("image")
	Activity.AddView(image,0,0,100%x,100%x)
	
	btn.Initialize("btn")
	Activity.AddView(btn,50%x,110%x,20%x,10%x)
	
	
	time.Initialize("time",5000)
	time.Enabled=True
	

End Sub


Sub time_Tick
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".png"))
End Sub

Sub btn_Click
	i=i+1
	image.SetBackgroundImage(LoadBitmap(File.DirAssets,(i Mod 5)&".png"))
End Sub

Sub image_Click
Log(i Mod 5)
	If i Mod 5=0 Then
	ToastMessageShow("ax shomare 1",False)
	Else If i Mod 5=1 Then
	ToastMessageShow("ax shomare 2",False)
	Else If i Mod 5=2 Then
	ToastMessageShow("ax shomare 3",False)
	Else If i Mod 5=3 Then
	ToastMessageShow("ax shomare 4",False)
	Else If i Mod 5=4 Then
	ToastMessageShow("ax shomare 5",False)
	End If
End Sub

استاد یه سوال 5 تا عکس تموم میشه برناه ارور میده چطوری این کار رو مکرر کنیم یعنی 1 تا 5 رو نشون داد دوباره بیاد سر 1  ممنون

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

h

 

استاد یه سوال 5 تا عکس تموم میشه برناه ارور میده چطوری این کار رو مکرر کنیم یعنی 1 تا 5 رو نشون داد دوباره بیاد سر 1  ممنون

اینی که من فرستادم درسته  

شما از خطات عکس بگیر ببینم

ولی احتمال میدم تعداد عکسات کمه دقیقا باید اسماشون 

0,1,2,3,4 باشه

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری

  • مطالب مشابه

    • توسط batman1
      سلام.
      من یه سرویسی راه اندازی کردم،حالا وقتی اجراش میکنم و بریک پوینت میزنم،میبینم که اصلا قسمت اصلیه کد داخل سرویس،اجرا نمیشه!!
      تصویر رو ببینید:

      بعد از این که سرویس کریت رو چک میکنه،میاد سرویس استارت رو هم چک میکنه و دیگه سراغ ساب آخر نمیره!!
      به نظرتون مشکل از کجاست؟
    • توسط batman1
      سلام به همه.
      من یه برنامه نویشتم که وای فای های روشن رو پیدا میکنه و داخل یک لیست ویو نشون میده.
      حالا من میخوام با انتخاب هرکدوم از وای فای ها،اگه باز بودن،به اون وای فای متصل بشه.
      چه جوری آیتم های لیست ویو رو انتخاب کنم؟
      چون ممکنه بعضی موقع ها 10تا آیتم گیر بیاره و بعضی موقع ها 5 تا.
      چه جوری انتخاب کنم؟
    • توسط batman1
      سلام به همه.
      برنامه ای دارم که درش از سرویس ها استفاده کردم.
      عملکرد برنامه،مثل نرم افزارهای هشدار دهنده میمونه.(آلارم)
      منتها من یه اسپینر دارم که آهنگ های هشدار،داخل اونه.
      من چه جوری باید اون اسپینر رو توی سرویس تعریف کنم؟خطا میده.
      ممنون.