آموزش Basic4Android بانک کد

اینتنت های مایکت

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

برای شروع ابتدا کتابخانه BasicMarkets را دانلود نموده و به پروژه مورد نظرتان اضافه کنید :

دانلود آخرین نسخه کتابخانه

 امتیاز به برنامه :

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

Dim m As Myket
StartActivity(m.RateApp("ir.basic.app"))

در کد بالا به جای “ir.basic.app” نام پکیج برنامه خود را وارد کنید …

 مشاهده صفحه برنامه :

با استفاده از کد زیر میتوانید صفحه یک برنامه را در مایکت نمایش دهید :

Dim m As Myket
StartActivity(m.AppPage("ir.basic.app"))

در کد بالا به جای “ir.basic.app” نام پکیج برنامه موردنظرتان را وارد کنید …

 دانلود برنامه :

با استفاده از کد زیر , صفحه یک برنامه نمایش داده میشود و دانلود آن به صورت اتوماتیک آغاز میشود :

Dim m As Myket
StartActivity(m.DownloadApp("ir.basic.app"))

مشاهده فیلم برنامه :

با استفاده از کد زیر , ویدیو یک برنامه در مایکت نمایش داده میشود . البته نسخه مایکت نصب شده بر روی گوشی مربوطه باید ۵٫۱ به بالا باشد و برنامه مورد نظر دارای ویدیو باشد تا این کد به خوبی عمل کند :

Dim m As Myket
StartActivity(m.ShowVideo("ir.basic.app"))

در کد بالا نیز به جای “ir.basic.app” نام پکیج برنامه موردنظرتان را وارد کنید !

 رفع اشکال :

در صورتی که مایکت بر روی گوشی مربوطه نصب نشده باشد , برنامه ارور میدهد و این کدها به درستی کار نمیکنند . بهتر است کد مربوطه را در Try و Catch قرار دهید تا در صورت ارور , برنامه بسته نشود و فقط یک پیغام نمایش داده شود :

Try
 ' کد اینتنت
Catch
 ToastMessageShow("مایکت نصب نیست ...",False)
End Try

امیدواریم که این آموزش هم مورد استفاده شما عزیزان قرار گرفته باشد و با معرفی این وبسایت به دوستان خود از ما حمایت کنید …

مطلب پیشنهادی :   تغییر تم محیط بیسیک4اندروید

موفق باشید !

 

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

درباره نویسنده

حامد باقری

4 نظر

  • میشه راهنمایی کنید چجوری باید این کد

    Try
    ‘ کد اینتنت
    Catch
    ToastMessageShow(“مایکت نصب نیست …”,False)
    End Try

    رو تو برنامه قرار بدم که زمانی برنامه ی مایکت نصب نیست این اخطار بیاد بالا

    • سلام . برای این کار باید کد های مربوط به اینتنت را بین Try و Catch قرار بدین . مثلا برای امتیاز به برنامه :

      Try
      Dim m As Myket
      StartActivity(m.RateApp("ir.basic.app"))
      Catch
      ToastMessageShow("مایکت نصب نیست ...",False)
      End Try

  • سلام . خسته نباشید

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

نظر بدهید