• 0
360momax

تایمر و عکس

سوال

Untitled.png

 

 

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

 

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

 

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

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


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

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

  • 0

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

 

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

 

با سپاس 

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

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


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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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

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

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

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


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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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
      با سلام.
      دوستان،من داخل برنامم که پوشه دارم که میخوام محتویات این پوشه رو به سرور ایکس ارسال کنم.
      من این دوستورات رو برای ارسال استفاده میکنم:
      sub sendfile Dim http As HttpJob http.Initialize("job",Me) http.PostFile("http://آدرس سرور",File.DirInternal,"پوشه ای که میخوام محتویاتش فرستاده بشه") End Sub Sub JobDone (Job As HttpJob) If Job.Success=True Then ToastMessageShow("با موفقیت ارسال شد",False) Else ToastMessageShow("ارسال نشد !",True) End If End Sub حالا من مشکلم اینجاست که،همین که آدرس سرور رو بدم کافیه و یا اینکه چیز دیگه ای باید بهش اضافه کنم؟
      دوم اینکه چه جوری بهش بشناسونم که محتوای فلان پوشه رو بفرست؟
      ممنون میشم راهنماییم کنید.
    • توسط batman1
      سلام به همه.
      دوستان،من دنبال کتابخونه ایم که بتونه اطلاعات همه سخت افزارهای گوشی رو بده.
      از کتابخونه phone استفاده کردم،اما خیلی کامل نیست.
      ممنون میشم راهنماییم کنید.
    • توسط batman1
      سلام به تمامی دوستان.
      من نرم افزاری ساختم که حجمش خیلی بالاست.
      آیا میشه با ترفندی حجم اون رو پایین آورد و حجم اصلیش،زمانی که نصب میشه،خودشو نشون بده؟!
      مثلا قبل از نصب،10مگه و بعد از نصب بشه 30 مگ.
      ممنون