چرخش یک عکس

[dostmobile 329]

سلام عزیزان

تو برنامم یه عکس دارم که میخوام مثل پلیر که cd در حال چرخشه عکس هم بچرخه

[مجید آرتا 5,875]

از عکس حرکتی هم میتونی استفاده کنی

و آموزشش هم توی بخش سورس کدها موجوده

[dostmobile 329]

باتون چرخشی میخوام*wall*

[dostmobile 329]

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

خیلی میچرخونه

[مجید آرتا 5,875]

سلام

یک کار دیگه میتونی انجام بدی.

اینکه چندتا عکس مثله عکس پایین پیدا کنی و با تایمر عکسو عوض کنی که میشه یک لودینگ خوشگل درست کنی.

ولی باید عکسا مثل هم و هرکدوم مقدار پیشرفتش از قبلی بیشار باشه.(یعنی عکس 1 که لود شد عکس 2 باید مقدار پیشرفتش بیشتر باشه به همین ترتیب تا یک دور کامل واسه لودینگ بزنه)

[مهدی ایزدی 9,203]

سلام

یک کار دیگه میتونی انجام بدی.

اینکه چندتا عکس مثله عکس پایین پیدا کنی و با تایمر عکسو عوض کنی که میشه یک لودینگ خوشگل درست کنی.

ولی باید عکسا مثل هم و هرکدوم مقدار پیشرفتش از قبلی بیشار باشه.(یعنی عکس 1 که لود شد عکس 2 باید مقدار پیشرفتش بیشتر باشه به همین ترتیب تا یک دور کامل واسه لودینگ بزنه)

خودProgressBar توی B4A دو مدل شکل داره . یکیش همینه که مجید گذاشته(توی انجمن آموزشش هست).

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

[مهدی ایزدی 9,203]

سلام عزیزان

تو برنامم یه عکس دارم که میخوام مثل پلیر که cd در حال چرخشه عکس هم بچرخه

اگه میشه نمونه عکسی رو که میگی که جوری بهمون نشون بده(توی بخش گرافیک) که برات یه کاریش کنیم *خوشمزه*

[Farzad Musavi 576]

چرا همون عکسو به صورت gif نمیذاری؟

[dostmobile 329]

عکس متحرک که بلدم بزارم

کلا بحث چرخیدن رو میخوام

آخه عکس نمونه بود

[Farzad Musavi 576]

از انیمیشن باید استفاده کنی فک کنم هس آموزشش

از عکس حرکتی هم میتونی استفاده کنی

[مجید آرتا 5,875]

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

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

Sub Globals    
Dim a1 As Animation
   Private Button1 As Button
End Sub

و کد رو ما توی رویداد کلیک دکمه می نویسیم( این فقط مثاله)

Sub Button1_Click   
a1.InitializeRotateCenter("",0,360,Button1)
   a1.Duration = 500
   a1.RepeatCount = 1
   a1.RepeatMode = a1.REPEAT_RESTART
   a1.Start(Button1)
End Sub

[dostmobile 329]

این خودش دو سه دور میچرخونه

میخوام بزارم تو تایمر و بصورت ریز و آروم بچرخه

یعنی مثل ثانیه شمار ساعت عقربه ای

بازم ممنون

[مجید آرتا 5,875]

خب Duration واسه همینه دیگه.

Duration رو که بیشتر کنی خیلی آروم میچرخه.و تعداد تکرار هم داره میتونی مشخص کنی و دلخواهی هستش.

بدون تایمر هم میتونی این کارو به صورت بی نهایت انجام بدی.یکم روش کار کن جواب میگیری قطعا

[erfannew 49]

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

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

 

Sub Globals    
Dim a1 As Animation
    Private Button1 As Button
End Sub

و کد رو ما توی رویداد کلیک دکمه می نویسیم( این فقط مثاله)

Sub Button1_Click   
 a1.InitializeRotateCenter("",0,360,Button1)
    a1.Duration = 500
    a1.RepeatCount = 1
    a1.RepeatMode = a1.REPEAT_RESTART
    a1.Start(Button1)
End Sub

سلام اقا مجید

 

میشه کاری کرد که هر وقت روی باتون کلیک شد به صورت داعمی بچرخه و اگر دوباره کلیک شد متوقف بشه؟؟؟؟

 

 

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

[alirezn 68]

سلام اقا مجید

 

میشه کاری کرد که هر وقت روی باتون کلیک شد به صورت داعمی بچرخه و اگر دوباره کلیک شد متوقف بشه؟؟؟؟

 

 

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

دوست عزیز کاری نداره

 

باید با استفاده از if و else شرط بزاری که اگه یه بار کلیک شد بچرخه و اگه دوبار کلیک شد متوقف بشه

 

این فیلمو ببین کمکت میکنه

http://s6.picofile.com/file/8217375284/%D8%AF%D8%B3%D8%AA%D9%88%D8%B1_%D8%B4%D8%B1%D8%B7%DB%8C_if.zip.html

[dostmobile 329]

هرکاری کردم نشد

تو تایمر گزاشتم و اون قسمت چرخش رو نوشتم تو لیبل و بهش اضاف کردم

تا ی دقیقه مث استارت ماشین میمونه و بعد دو دقیقه میچرخه و تند