درخواست سورس تاچ

[parham01 82]

سلام

یه سورس میخواستم

روی قسمت های مختلف lcd کلیک که میشه

x و y اون نقطه رو تو لیبل نمایش بده

ممنون

[bakhtiaran 84]

در 31 دقیقه قبل، parham01 گفته است :

سلام

یه سورس میخواستم

روی قسمت های مختلف lcd کلیک که میشه

x و y اون نقطه رو تو لیبل نمایش بده

ممنون

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

[parham01 82]

آره از خیلی چیزا میشه استفاده کردعرض کردم  که سورس میخوام

x =Label1.text 

Y=label2.text

همین

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

درود

این سمپل

مابقی با خودتون

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

 

موفق باشید

 

#Region Module Attributes
	#FullScreen: False
	#IncludeTitle: True
	#ApplicationLabel: حدس انگشت
	#VersionCode: 1
	#VersionName: 
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: True
#End Region

'Activity module
Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Dim g As Gestures
	Dim pnl As Panel
	Dim movecount As Int
	Dim img As ImageView
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
	pnl.Initialize("pnl")
	pnl.Tag = "pnl"
	pnl.Color = Colors.LightGray
	g.SetOnTouchListener(pnl, "pnl_gesture")
	Activity.AddView(pnl, 5dip, 50dip, 100%x, 100%y)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

' Connect to filtered LogCat to view the output of this demo

Sub pnl_gesture(o As Object, ptrID As Int, action As Int, x As Float, y As Float) As Boolean
	If action = g.ACTION_MOVE Then
		movecount = movecount + 1
		' noise on the touch screen electroincs can cause lots of apparent move events
		' this loop slows the rate down to one comfortable for LogCat
		' adjust the value for your device if necessary
		If movecount < 10 Then 
			Return ' need to return true otherwise we don't get any other events in the gesture
		End If
		movecount = 0
	End If
	Dim v As View
	v = o	
	a = action
	Select action
		Case g.ACTION_DOWN
			a = "Down "
			Log("Gesture started")
		Case g.ACTION_UP
			a = "Up "
		Case g.ACTION_POINTER_DOWN
			a = "PtrDown "
		Case g.ACTION_POINTER_UP
			a = "PtrUp "
		Case g.ACTION_MOVE
			a = "Move "
	End Select	
	Dim ix, iy, count As Int
	ix = x
	iy = y
	count = g.GetPointerCount
	msg = v.Tag & " id" & ptrID & " " & a & " x" & ix & " y" & iy & " cnt" & count' event parameters
	For i = 0 To count -1
		id = g.GetPointerID(i)
		ix = g.GetX(id)
		iy = g.GetY(id)
		If ix<(pnl.Width/2) Then 
		img.BringToFront
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		img.Left=ix
        img.Top=iy
		img.Bitmap=LoadBitmap(File.DirAssets,"1.PNG")
		ToastMessageShow("لطفا از سمت چپ به راست بکشید >>>>>>>>>>>>>",False)
	    ToastMessageShow("مختصات X :" & ix  & "    مختصات Y:" & y , False)
		Else
		img.BringToFront
		img.Left=ix
        img.Top=iy
		img.Bitmap=LoadBitmap(File.DirAssets,"2.PNG")
		ToastMessageShow("لطفا از سمت راست به چپ بکشید <<<<<<<<<<<<<<<<<<",False)
		ToastMessageShow("مختصات X :" & ix  & "    مختصات Y:" & y , False)
		
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		End If
	 	msg = msg & " : id" & id & " x" & ix & " y" & iy ' retrieved data
	Next
'	Log(msg)
	If action = g.ACTION_UP Then
'		Log("Gesture ended")
	End If
	Return True ' need to return true otherwise we don't get any other events in the gesture
End Sub