درخواست محدود سازی ایتم کلیک

[bahman 165]

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

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

و ایتم کلیک لیست ویو من اینه

Sub ListView1_ItemClick (Position As Int, Value As Object)
   If Position = 0 Then
   StartActivity("s1")
   End If

   If Position = 1 Then
   StartActivity("s2")
       If Position = 2 Then
   End If

   StartActivity("s3")
   End If

End Sub

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

و اگر وجود داشت همشو نشون بده

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

چرا مثل دیوونه ها اینقدر IF بازیش کردی؟؟؟ *che?*

Select Case استفاده کن

واسه کاری که میخوای انجام بدی هم یه دونه IF و Else بزار *che?*

[bahman 165]

بلد بودم ک دیونه بازی در نمیاوردم خخخخخخ

پروژه تموم شده 30 تا ایف توشه خخخخ

اونی ک گفتینو بلد نیستم

اخه هر ایف یه اکتیویتی هست

حالا میشه محدود کنم؟

[bahman 165]

خب میشه اون کدمو تو select case و با سوالی ک خواستم اکی کنین ؟

ممنونتون میشم گیر کردم اساسی خخخخخخخخ

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

تست نکردم هااا. خودت تست کن :

Sub ListView1_ItemClick (Position As Int, Value As Object)
   If File.Exists(File.DirInternal,"upgrade.txt") = False Then
       Select Position
       Case 0
       StartActivity("s1")

       Case 1
       StartActivity("s2")
       End Select
   Else
       Select Position
       Case 0
       StartActivity("s1")

       Case 1
       StartActivity("s2")

       Case 2
       StartActivity("s3")

       Case 3
       StartActivity("s4")

       Case 4
       StartActivity("s5")

       Case 5
       StartActivity("s6")
       End Select
   End If
End Sub

[bahman 165]

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

چون الان کلیک خالی میخوره معلوم نیست

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

من اصلا متوجه منظورت دارم نمیشم

یک بار کامل و واضح بگو میخوای چیکار کنی تا هم من بتونم جواب کامل رو به شما بدم و هم خودتون جواب کامل رو بگیرید

و وقت هیچ کدوم الکی گرفته نشه !

[bahman 165]

اون s1 s2 s3 و ...

هستن خب؟

اونا هرکدوم 1 اکتیویتی رو شامل میشن

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

میخوام تو این رویداد ک برای مثال 30 تا اکتیویتی رو شامل میشه (همون s1 s2 , ...)

بیاد چک کنه فایل مربوط ب پرداخت موفقم که اسمش upgrade هست

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

و اگر اون فایل بود همش بشه روش کلیک کرد

[bahman 165]

ممنون استاد ایزدی فکر کنم حل شد

Sub ListView1_ItemClick (Position As Int, Value As Object)
       If (Position>2) AND File.Exists(File.DirInternal,"upgrade") = False Then
   Msgbox("در نسخه رایگان فقط 3 مورد اول فعال است","توجه")
       Select Position
       Case 0
       StartActivity("s1")

       Case 1
       StartActivity("s2")
       End Select
   Else
       Select Position
       Case 0
       StartActivity("s1")

       Case 1
       StartActivity("s2")

       Case 2
       StartActivity("s3")

       Case 3
       StartActivity("s4")

       Case 4
       StartActivity("s5")

       Case 5
       StartActivity("s6")
       End Select
   End If
End Sub

فکر کنم این مورد محدودش کنه

 If (Position>2) AND File.Exists(File.DirInternal,"upgrade") = False Then
   Msgbox("در نسخه رایگان فقط 3 مورد اول فعال است","توجه")

شما بدون پیام محدود کردی اون پیامم میده

البته ب صحت کد خودم شک دارم اساتیدم نظرشونو بگن

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

تا حدی درست رفتید ولی ناقصه

این رو تست کن خودمم تست کردم جواب میگیرید 100% :

Sub ListView1_ItemClick (Position As Int, Value As Object)
       If (Position>1) AND File.Exists(File.DirInternal,"upgrade") = False Then
              Msgbox("در نسخه رایگان فقط 2 مورد اول فعال است","توجه")

       Else If (Position<2) AND File.Exists(File.DirInternal,"upgrade") = False Then
           Select Position
           Case 0
           StartActivity("s1")
           Case 1
           StartActivity("s2")
           End Select
       Else If File.Exists(File.DirInternal,"upgrade") = True Then
           Select Position
           Case 0
            StartActivity("s1")
           Case 1
           StartActivity("s2")
           Case 2
           StartActivity("s3")
           Case 3
           StartActivity("s4")
           Case 4
           StartActivity("s5")
           Case 5
           StartActivity("s6")
           End Select
          End If
End Sub

یه چیز دیگه !!! چه خبره 30 تا Activity ؟

میتونید کارتون رو با 1 دونه Layout حل کنید کلا :-d خودتون رو قوی تر کنید. تمرین و آزمون خطا داشته باشید برای قوی تر کردن خودتون.

کسی با سوال کردن تنها قوی نمیشه ، تا زمانی که کنارش تلاش و آزمون و خطا نباشه به نظر من نمیتونه آدم موفقی باشه *fekr*

موفق باشی