محدود کردن در کد والپیپر

[milad19 113]

باعرض سلام خدمت دوستان

ببخشید این سورس کدی که قرار میدم یک والپیپر هست که تصاویر رو نشون میده با این خاصیت که میشه تصاویر رو با دو باتون عقب و جلو برد فقط مشکل اینکه از مثبت بینهایت تا منفی بینهایت تصویر نشون میده یعنی اگه مثلا 5 تصویر داشته باشید بعد از اینکه تصویر 5 نمایش داده بعد با زدن دکمه ی بعدی مینویسه تصویر مثلا a5 که میشه همون تصویر 6 وجود نداره یا اگه در تصویر اول قبلی رو بزنید مینویسه تصویر a-1 وجود نداره لطفا برای رفع این مشکل راهنمایی بفرمایید.

Sub Globals
   Private Panel1 As Panel
   Private bb As Button
   Private br As Button
   Dim startx As Int
     Dim a As Bitmap
      Dim i As Int
     Dim list1 As List
   Private Button1 As Button
   Dim s As StudentLibrary
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If File.Exists(File.DirRootExternal ,"mem.txt") Then
           list1 = File.ReadList(File.DirRootExternal, "mem.txt")
           i=list1.Get(0)
                a.Initialize(File.DirAssets,"at"&i&".png")
                  Panel1.SetBackgroundImage(a)
      Else
      i = 0
      list1.Initialize
      list1.Add(i)
           File.WriteList(File.DirRootExternal, "mem.txt",list1)
       a.Initialize(File.DirAssets,"at"&i&".png")
         Panel1.SetBackgroundImage(a)
       End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
list1.Initialize
      list1.Add(i)
           File.WriteList(File.DirRootExternal, "mem.txt",list1)
End Sub

Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
   Select Action
       Case Activity.ACTION_DOWN
                 startx=X
     Case Activity.ACTION_up
           If X > startx +40 Then 'swipe Right
   i=i-1
      a.Initialize(File.DirAssets,"at"&i&".png")
      Panel1.SetBackgroundImage(a)
End If

           If X < startx -40 Then 'swipe Left

i = i+1
      a.Initialize(File.DirAssets,"at"&i&".png")
      Panel1.SetBackgroundImage(a)
End If
            a.Initialize(File.DirAssets,"at"&i&".png")
            Panel1.SetBackgroundImage(a)
     End Select
End Sub


Sub bb_Click
   i=i-1
      a.Initialize(File.DirAssets,"at"&i&".png")
      Panel1.SetBackgroundImage(a)
End Sub
Sub br_Click
i = i+1
      a.Initialize(File.DirAssets,"at"&i&".png")
      Panel1.SetBackgroundImage(a)
End Sub

[milad19 113]

سلامببخشید اما قسمت if x 2 then ارور میده وقتی هم عدد رو تغییر میدم عمل نمیکنه.

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

[right][color=#333333][font=Tahoma]if x =2 then[/font][/color][/right]

[milad19 113]

سلامممنون از دو دوستی که کمکم کردن ولی اگه اون کدی که خودم گذاشتم مشکل اعداد بینهایت حل بشه ممنون میشم.

[milad19 113]

دوستان لطفا کمک کنید من الآن دقیق 2 روزه گرفتار این مشکلم

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

لطفا نمونه سورس کدتون رو پیوست کنید

[milad19 113]

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

http://upnama.com/uploads/d2246e3ddc471.zip

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

http://answercenter.ir/thread851.html

http://answercenter.ir/thread292.html

[milad19 113]

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

چون من دسته ی "سورس کدها" رو امتحان کردم گزینه ی "تنظیمات فایل پیوست" رو میاره اما این دسته این گزینه رو نداره.

[Mohsen27 199]

سلام دوست عزیز منم این مشکلو داشتم فک کنم مشکلتون با این کد حل شه تو پنل تاچ بنویس

If i >23 Then

i=0

End If

موفق باشی

اگه کار کرد خبر بده

[milad19 113]

ممنون اما اتفاقی نمی افته

[Mohsen27 199]

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

<startx-40 theni="i+1If" i=""><startx-40 theni="i+1If" i=""><startx-40 theni="i+1If" i="">

Sub Panel1_Touch (Action As Int, X As Float, Y As Float)    
Select Action

Case Activity.ACTION_DOWN
startx=X
Case Activity.ACTION_UP
If X > startx+40 Then
i=i-1 
If i<0 Then
i=2 
End If
End If
If X <startx-40 then
i=i+1
If i >2 Then
i=0 
End If
End If
a.Initialize(File.DirAssets,"a"&i&".jpg")
Panel1.SetBackgroundImage(a)
End Select
End Sub

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

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

Sub Globals	
Dim startx As Int
Dim i As Int
Dim a As Bitmap
Private Panel1 As Panel
End Sub

</startx-40></startx-40></startx-40></startx-40>