نحوه ارتقا نسخه دمو به فول

[Cna 5]

سلام دوستان 

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

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

ممنون میشم راهنمایی کنید...  

[m007moh 181]

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

 

و بیاید یه شرط بذارید که اگر این فایل وجود داشت دکمه ارتقا نشون داده بشه اگر وجود نداشت نشان داده نشه

Dim bt As Button
If File.Exists(File.DirInternal,"file")=True Then
	bt.Visible=True
Else
	bt.Visible=false
End If 

[امین شاهدی 5,773]

به کجا هدایت شه دقیقا ؟ به صفحه خرید برای ارتقا ؟ به صفحه برنامه توی بازار ؟ به کجا دقیقا ؟ 

[Cna 5]

به کجا هدایت شه دقیقا ؟ به صفحه خرید برای ارتقا ؟ به صفحه برنامه توی بازار ؟ به کجا دقیقا ؟ 

به صفحه برنامه داخل بازار

[m007moh 181]

به صفحه برنامه داخل بازار

 

توی رویداد دکمت این کد رو بدار

Sub bt_click
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW,"ADRES KAMEL BARNAME DAR CAFEBAZAR")
StartActivity(intent1)
End Sub

[Cna 5]

 

توی رویداد دکمت این کد رو بدار

Sub bt_click
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW,"ADRES KAMEL BARNAME DAR CAFEBAZAR")
StartActivity(intent1)
خیلی خیلی ممنون

     

[Cna 5]

خب داخل اکتیویتی intent چی باید باشه؟؟

[m007moh 181]

خب داخل اکتیویتی intent چی باید باشه؟؟

 

intent  خودش به صورت اتوماتیک اجرا میشه و نرم افزاری که آدرسش را دادی رو تو کافه بازار برات باز میکنه

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