ساخت اسکرول

[DexterFstone 396]

سلام

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

ی پنل دارن و یک عکس ک پرنت هم دیگه نیستن پطوری از رویداد 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 داره اشتباه محاسبه میشه و همیشه عدد بزرگ بم بر میگره راهنمایی کنید واقعا بد جور گیرم

[DexterFstone 396]

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

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

yy = x1-y2

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

[msd313 62]

در ۱۳ ساعت قبل، 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