رفتن به مطلب
  • 0

ساخت اسکرول


DexterFstone

سوال

سلام

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

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

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

Sub Camera_Touch (Action As Int, X As Float, Y As Float)
	If Action == 0 Then
		Dim x1 As Float = X
		LogColor(x1,Colors.Green)
		Dim y1 As Float = Y
		LogColor(y1,Colors.Green)
	Else If Action == 2 Then
		Dim x2 As Float = X
		LogColor(x2,Colors.Yellow)
		Dim y2 As Float = Y
		LogColor(y2,Colors.Yellow)
		Dim speed As Float = Sqrt(Power(x1-x2,2)+Power(y1-y2,2)) /100
		Dim xx As Int
		Dim yy As Int
		xx = x1-x2
		yy = x1-y2
		Log(xx & " " & yy)
		LogColor("________________",Colors.Gray)
	End If
End Sub

تا اینجا اومدم برای اینکه عدد بگیرم تا بفهمم عکس از چ جهتی بره ولی مشکل اینکه توی خط آخر xx و yy داره اشتباه محاسبه میشه و همیشه عدد بزرگ بم بر میگره راهنمایی کنید واقعا بد جور گیرم

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

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

ارسال‌های توصیه شده

در در ۱۴۰۰/۳/۱۵ در 00:34، msd313 گفته است :

اینو مطمئنی درست نوشتی؟


yy = x1-y2

بله درستش کردم ولی خب مشکل حل شد باید متغیر های x1 x2 y1 y2 را گلوبال تعریف میکردم

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

در ۱۳ ساعت قبل، DexterFstone گفته است :

سلام

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

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

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


Sub Camera_Touch (Action As Int, X As Float, Y As Float)
	If Action == 0 Then
		Dim x1 As Float = X
		LogColor(x1,Colors.Green)
		Dim y1 As Float = Y
		LogColor(y1,Colors.Green)
	Else If Action == 2 Then
		Dim x2 As Float = X
		LogColor(x2,Colors.Yellow)
		Dim y2 As Float = Y
		LogColor(y2,Colors.Yellow)
		Dim speed As Float = Sqrt(Power(x1-x2,2)+Power(y1-y2,2)) /100
		Dim xx As Int
		Dim yy As Int
		xx = x1-x2
		yy = x1-y2
		Log(xx & " " & yy)
		LogColor("________________",Colors.Gray)
	End If
End Sub

تا اینجا اومدم برای اینکه عدد بگیرم تا بفهمم عکس از چ جهتی بره ولی مشکل اینکه توی خط آخر xx و yy داره اشتباه محاسبه میشه و همیشه عدد بزرگ بم بر میگره راهنمایی کنید واقعا بد جور گیرم

اینو مطمئنی درست نوشتی؟

yy = x1-y2
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...