H@mid.RS

سورس کد تبلیغات عدد در بیسیک فور اندروید basic4android

1 ارسال در این موضوع قرار دارد

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

از اونجایی که شاید بدوینید به ازای هر کلیکی که روی تبلیغ می شه مبلغی رو میاره رو اعتبارتون.

 

۱- عضویت در سایت عدد : خب قبل هرچیزی لارمه که توی سایت عدد عضو بشیم.

ورود به سایت عدد

۲- دریافت کتابخونه ی عدد :

http://basic4x.ir/files/file/7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-iradad/

۳- یادتون نره که باید رسانه یا برنامتونو توی عدد ثبت کنید :

قسمت نمایش دهندگان »   قسمت رسانه های من »  بر روی دکمه رسانه جدید کلیک کنید.

۴- پکیج برنامتونو می نویسید و ثبتش می کنید.

۵- شناسه رو دریافت می کنید.

حال وارد بیسیک۴آندروید شده و ادامه مراحل را دنبال می کنیم.

۶- کتابخونه ی adad و Reflection رو از لیست کتابخونه های بیسیک۴آندروید تیک می زنیم.

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

AddApplicationText(
    <Activity
            android:name="ir.adad.AdadActivity"
            android:theme="@android:style/Theme.Dialog">
    </Activity>
    <meta-data android:name="ir.adad.token" android:value="YOUR_TOKEN"></meta-data>
    <meta-data android:name="ir.adad.test_mode" android:value="true"></meta-data>
)

به جای مقدار YOUR_TOKEN شناسه ی برنامه خودتونو بزارید.

نکته : برای اینکه تبلیغات از حالت آزمایشی در بیاد قبل از کامپایل نهایی مقدار ir.adad.test_mode که به صورت پیش فرض True هست رو False کنین

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

AddPermission(android.permission.INTERNET)

در متد Creat این کد رو می نویسیم :

Sub Activity_Create(FirstTime As Boolean)    
    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
End Sub

نکته : سایر مقدارهای قرار گیری از لحاظ افقی و عمودی رو در کامنت نوشته ام.

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

Dim disabled As String = "true"
Dim args(1) As Object = Array As Object(disabled)
Dim types(1) As String = Array As String("java.lang.String")
r.RunStaticMethod("ir.adad.AdadB4APlugin", "setDisabled", args, types)

در نهایت موفق باشید

سوالی بود در خدمتم

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • مطالب مشابه

    • توسط koorosh
      من یه برنامه نوشتم که با دیزاین ساپورته و سه تا تب توش درست کردم ولی متاسفانه نمیشه اکتیویتی اد کرد توی تبها و فقط میشه لایوت اضافه کرد حالا از اساتید محترم در خواست دارم که اگه راهی هست کمکم کنن که خیلی گیر کردم ؟
       
      میخوام یه جوری اکتیویتی توی تب ها اد کنم
    • توسط H@mid.RS
      نسجه جدید بیسیک فور اندروید منتشر شد!
       
      روش نصب:
       
      فایل را از حالت فشرده خارج کنید محتویات داخل را با نسخه فدیمی که نصب کردید جایگزین کنید!
       
      امکانات جدید در نسخه ۶٫۵۰ بتا :
       

      ۱ مرتب کردن خودکار کدها با زدن دکمه alt + F
       

       

      امکان استفاده از فونت های آیکنی در دیزاینر
       

       

      منبع : کوئیک لرن