مشکل در بالا پایین بردن پنل

[hosseinji 17]

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

Panel2.Top= Panel2.Top -3

اون سه وقتی چهار میزنم پنل میره پایین و بالا نمیاد اصن اینم کد

Sub Button1_Down
t1.Enabled=True
End Sub


Sub Button1_Up
t1.Enabled=True
t2.Enabled=False
	Panel2.Top=Panel1.top
End Sub


Sub t1_tick
Panel2.Top= Panel2.Top +4
If Panel2.Top=Panel1.Top+Panel1.Height Then 
t2.Enabled=True
t1.Enabled=False
End If
End Sub

											
Sub t2_tick
Panel2.Top= Panel2.Top -4
If Panel2.top=Panel1.top Then 
t1.Enabled=False
t2.Enabled=True
end if
End Sub

[حاج حسین 2,098]

ممنون حالا به جواب مورد نظر رسیدید 

یکی از پست ها ی که جوابتون توش بود رو به عنوان بهترین پاسخ انتخاب کنید 

من کل کدهارو همین جا کپی میکنم شاید بعدا اون نمونه سورس پاک بشه 

کل کدها 

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	Private Panel1 As Panel
	Dim a1 As Animation
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("L1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Panel1_Click
	a1.InitializeTranslate("a1",0,0,0,300) 'برای منتقل کردن به جای مورد نظر
	a1.Duration=1000  'زمان انمیشین
	a1.RepeatCount=1	' تکرار که باعث میشه هر کاری که کرد دوباره انجام بده
	a1.RepeatMode=a1.REPEAT_REVERSE ' حرکتو برگردون
	a1.Start(Panel1) 	' انمیشنو استارت کن
	
	
End Sub
Sub a1_AnimationEnd
	Msgbox("salam","پایان انمیشن")
End Sub

[hosseinji 17]

همون سورس استاد بیات استفاده کن دیگه چرا کار خودتو سخت میکنی 

اگر نمونه سورسو نگاه کنی اصلا از تایمر استفاده نکرده 

به نظرم مشکلتون همینه 

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

حرف شما متین اما اون سورس رو باید هی کلیک کنی تا چپ و راست بشه یا بالا و پایین در ضمن بازم میره پایین و باید خودتون بالا بیاریدش اما تو سورسی ک من گزاشتم ی بار کلیک میکنی و خودش میره وقتی به انتهای صفحه رسید برمیگرده بالا و دستورو اجرا میکنه اما وقتی سرعت رو 4 میزنم میره پایین وبالا نمیاد ممنون میشم کمک کنید

[حاج حسین 2,098]

خب شما بیا تو سورس من 

به اون باتنی که پنلو میاره پایین مقدار dp رو بیشتر کن  و در ضمن پنل یهو بره پایین صفحه با زدن باتن ریست دوباره میاد بالا

اصلا تایمر لازم نیست 

من یکم گیج شدم شما کلا هدفت از بالا پایین بردن پنل  چیه ؟؟!! 

[hosseinji 17]

دادا ی سواله دیگه میخام پنل متحرک بر حسب درصد صفحه بره پایین یا بالا ن بر حسب dip چیکار کنم؟؟

[Elyas Erfani 3,582]

دادا ی سواله دیگه میخام پنل متحرک بر حسب درصد صفحه بره پایین یا بالا ن بر حسب dip چیکار کنم؟؟

سلام

 

خوب بیاید بسته ب نیازتون مختصات رو با x و y بیان کنید

 

 

مثلا

a1.InitializeTranslate("a1",10%x,30%y,0,30%y)

[hosseinji 17]

خب شما بیا تو سورس من 

به اون باتنی که پنلو میاره پایین مقدار dp رو بیشتر کن  و در ضمن پنل یهو بره پایین صفحه با زدن باتن ریست دوباره میاد بالا

اصلا تایمر لازم نیست 

من یکم گیج شدم شما کلا هدفت از بالا پایین بردن پنل  چیه ؟؟!! 

خب من نمیخام ک بزنه دوباره ریست بشه من میخام تو ی ثانیه ی معینی خودش بره پایین و بیاد بالا مثله اسکنر(ممنون میشم یا خودتون کد رو تصحیح کنید یا ی کد بنویسید)

[حاج حسین 2,098]

آهان 

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

اموزش تصویرش انمیشن هستش 

برو نگاه متوجه شدی که هیچ اگر نه تا آخر شب یه سورس دم دستی برات مینویسم

[hosseinji 17]

آهان 

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

اموزش تصویرش انمیشن هستش 

برو نگاه متوجه شدی که هیچ اگر نه تا آخر شب یه سورس دم دستی برات مینویسم

دمت گرم دادا ممنون میشم وقتی نوشتی کد رو بگی هر خط چ کاری انجام میده 

ممنون داداش یدونه ای

[حاج حسین 2,098]

بفرمایید اینم نمونه سورس 

یه پنله که وقتی کلیک میکنی میره پایین و دوباره میاد بالا سرجاش البته بصورت نرم 

[hosseinji 17]

بفرمایید اینم نمونه سورس 

یه پنله که وقتی کلیک میکنی میره پایین و دوباره میاد بالا سرجاش البته بصورت نرم 

دمت گرم داداش خیلی کاربردی و کم خط بود حالا چ کدی بنویسم که بعد از اینکه رفت پایین و اومد به بالای صفحه ی دستوری انجام بده؟؟

[حاج حسین 2,098]

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

Sub a1_AnimationEnd
	Msgbox("salam","پایان انمیشن")
End Sub

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

چون این ساب میگه که وقتی انمیشن تموم شد چه کارکنه  (این برای راهمنایی بود)

اون a1 در واقع اوین نیم شماس مال a1 بودش 

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

[hosseinji 17]

نوکرتم

دمت گرم

یدونه ای  

[حاج حسین 2,098]

حرکت دادن اشیا(تمام ویوها) با 4باتن و درگ کردن

[hosseinji 17]

داداش ممنون اما بگو مشکل این کجاس؟؟ برنامه نیمه نصفس

[علی علایی 161]

داداش ممنون اما بگو مشکل این کجاس؟؟ برنامه نیمه نصفس

همون سورس استاد بیات استفاده کن دیگه چرا کار خودتو سخت میکنی 

اگر نمونه سورسو نگاه کنی اصلا از تایمر استفاده نکرده 

به نظرم مشکلتون همینه 

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