عوض کردن اکتیویتی به وسیله لمس ( چپ و راست)

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

سلام

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

یکی از دوستان درحواست همچین سورس کدی رو داده بود

این سورس کد چیه ؟

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

حدودا شبیه به گالری گوشی موقعی که توی آلبوم های تصویری میرید و یکی یکی عکسارو نگاه میکنید و جایی میرسه که آخرین عکسه و دیگه جلوتر نمیره و باید برگردین.

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

رمز فایل : basic4android.org

موفق باشید

Left And Right CHnage Activity_(www.Basic4Android.org).rar

[ali8008 26]

آقا مجید من برنامه رو هر چی تست کردم نتیجه نداد ، یعنی با کشیدن انگشت از چپ به راست و برعکس هیچ اتفاقی نمی افته مشکل از کجاست؟؟؟؟ *اشک کوچک*

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

شما پروژه بنده رو تست کردید نشد ؟ یا اینکه خودتون نوشتید عملی نمیشه ؟

[ali8008 26]

پروژه ی شما رو روی گوشیم تست کردم

[peymanparkour 10]

خسته نباشید

منم این پروژه رو تست کردم ولی عمل نمیکنه

[peymanparkour 10]

من الان به جای pnl از imageview استفاده کردم درست شد

[ali8008 26]

میشه لطف کنید کدهای تغییر کرده رو برامون بذارید؟؟ یا سورس رو؟؟*ناز2*

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

سلام

این پروژه بدون هیچ دقت لازمی نوشته شده.

الان بنده امتحاناتم شروع شده،انشاالله بعده امتحانات بک سورس کد کاملو بی نقص قرار داده میشه

[peymanparkour 10]

میشه لطف کنید کدهای تغییر کرده رو برامون بذارید؟؟ یا سورس رو؟؟*ناز2*

Sub Process_Globals



End Sub

[color=#008000]
Sub Globals
   Dim count As Int
   Dim Ges As Gestures
   [/color][color=#ee82ee]Private imageview1 As imageview[/color][color=#008000][/color]
End Sub


Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Main")
[color=#ee82ee]''اینجا عکس  رو با ایمج ویو فراخوانی کنید''[/color]
   Ges.SetOnTouchListener([color=#ee82ee]imageview1[/color],"[color=#b22222]img_Gesture[/color]")
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub
Sub [color=#ee82ee]img_Gesture[/color] (o As Object,PtrID As Int,Action As Int , X As Float , Y As Float) As Boolean
   Dim v As View
   Dim ix , iy , GetPoint As Int
   v = o
   Select Action
   Case Ges.ACTION_MOVE
       ix = X
       iy = Y
       count = Ges.GetPointerCount
           For i=0 To count -1 
               GetPoint = Ges.GetPointerID(i)
               ix = Ges.GetX(GetPoint)
               iy = Ges.GetY(GetPoint)
                   For j = ix To ix / 3
                       StartActivity(ac2)
                   Next
           Next
   End Select
       Return True
End Sub

تغییرها با رنگ صورتی هست

[muhammad_rad 2]

سلام ببخشید چطور میتونیم با لمس کردن به سمت چپ یا راست رویداد خاصی اتفاق بیوفتد مانند سمت راست I+1  سمت چپ I-1

[ارمین رمضانی دلیجانی 381]

در 7 ساعت قبل، muhammad_rad گفته است :

سلام ببخشید چطور میتونیم با لمس کردن به سمت چپ یا راست رویداد خاصی اتفاق بیوفتد مانند سمت راست I+1  سمت چپ I-1

سلام خوشگل پسر اینو ببین شاید حل شد

 

کیلیکککککک