رفتن به مطلب
بیسیک فور ایکس
H@mid.RS

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

Recommended Posts

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

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

 

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

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

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

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)

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

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

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


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

  • مطالب مشابه

    • توسط amir386
      سلام خدمت اساتید عزیز ! همونطور که میدونین مدتیه که تلگرام هیتلر شده و من بسیاری از برنامه هام شاید بیشتر از 15 تاش ارتباط مستثیم و غیر مستقیم با تلگرام و api هاش دارن ! که خیلی وقته از کار افتادن و کاربر حتما باید به قندشکن وصل باشه! اما سوال اصلی من اینه بهترین راه برای دور زدن هیتلر داخل برنامه چیه! چند نقری گفتن که به سرور وصل کنم و از اونجا بهتلگرام . ولی من میخوام مثل برنامه هایی مثل تلگرام طلایی و هاتگرام و... از تونل پراکسی داخل برنامه استفاده کنم ! کسی بلده و یا راهکاری واسم داره!؟ خیلی ممنون❤️
    • توسط batman1
      سلام خدمت تمامی دوستان.
      کسی تا به حال تونسته توی بیسیک فور اندروید،نرم افزار دوربین مخفی بسازه؟
      یعنی این که برنامه رو اجرا کنه، بعد برنامه خودش بسته شه و شروع به فیلم برداری با دوربین جلو کنه.
      با توجه به این که دوربین نیاز به یک پنل داره و توی سرویس هم نمیشه پنل رو به اون شکل تعریف کرد،تقریبا این کار نشدنیه.
      ممنون میشم راهنماییم کنید.
    • توسط batman1
      سلام به همه.
      دوستان،من با استفاده از کتابخانه SHCamera عکس گرفتم.
      منتها دوتا مشکل دارم
      یکی میخوام این عکسی که داخل پنل هست رو به داخل یه ایمیج ویو انتقال بدم
      یکی میخوام کاربر بتونه تصویری که دوربین داخل پنل مینداره رو زمانی که دوربین داره کار میکنه،بزرگ نمایی کنم.
      خیلی گشتم
      چیزی پیدا نکردم
      ممنون میشم راهنماییم کنید.
×