پیاده سازی تبلیغات موبایلی در B4A (بیسک فور اندروید)

نوشته شده توسط شروین قریب

بیسیک فور اندروید یا به اصطلاح B4A ، در واقع یک نرم افزار برنامه نویسی اندروید می باشد.

بیسیک فور اندروید از زبان اصلی پلتفرم اندروید که جاوا است ، پشتیبانی اصلی ارائه نمی دهد. زبان برنامه نویسی بیسیک فور اندروید شبیه به زبان ویژوال دات نت (VB.Net) است. این برنامه یک مفسر و ترجمه گر است ، بدین شکل که کدهای شما را به صورت جاوا و سپس با استفاده از API اندروید (SDK) تبدیل به فایل apk خواهد کرد.

روش پیاده‌سازی تبلیغات موبایلی با این نرم افزار به شرح زیر است.


در نظر داشته باشید تمام محتویات فایل زیر را در آدرس عنوان شده قرار دهید. (اجباری)

این فایل را دانلود کنید

YOUR_B4A_INSTALL_LOCATION\Anywhere Software\Basic4android\Libraries

در b4a ide از قسمت libraries manager کتابخانه anetwork-b4a را به برنامه خود اضافه کنید.

موارد زیر را به manifest فایل پروژه خود اضافه کنید:
AddPermission(android.permission.INTERNET)
AddPermission(android.permission.ACCESS_NETWORK_STATE)
AddPermission(android.permission.ACCESS_WIFI_STATE)
AddApplicationText(
<service
android:name="com.exshinigami.yajm.AsyncWorkerService"
android:exported="false" />
<receiver
android:name="com.exshinigami.yajm.BootHandler"
android:enabled="true" >
<intent-filter>
<action android:name="android.intent.action.BOOT_COMPLETED" />
</intent-filter>
</receiver>
<activity
android:name="com.anetwork.android.sdk.advertising.view.webbrowser.AnetworkWebBrowserActivity"
android:configChanges="keyboardHidden|orientation|screenSize"
android:theme="@android:style/Theme.Holo.NoActionBar" />
<activity android:name="com.anetwork.android.sdk.advertising.view.activity.AnetworkInterstitialActivity"
android:configChanges="keyboardHidden|orientation|screenSize"
android:theme="@style/Theme.Light.AnetworkActivity"
/>
)

در قسمت Globals یک instance از AnetworkB4aPlugin ایجاد کنید:
Sub Globals
Private anetworkobj As AnetworkB4aPlugin
End Sub

در قسمت  Activity_create با استفاده از instance ساخته شده کتابخانه anetwork را به شکل زیر  راه اندازی اولیه کنید.

مقدار appToken را می توانید از تظیمات اپلیکیشن خود در پنل پلتفرم anetwork بدست آورید.

Sub Activity_Create(FirstTime As Boolean)
Dim appToken As String = "YOUR APP TOKEN GOES HERE"
anetworkobj.initializeAnetworkAdvertising(appToken, "anetworkevent")
End Sub

پیاده سازی تبلیغ بنری:

در Activity_create با استفاده از instance ساخته شده از AnetworkB4aPlugin یک تبلیغ بنری بسازید و موقعیت قرار گرفتن آن را تعیین کنید:
Sub Activity_Create(FirstTime As Boolean)
Dim appToken As String = "YOUR APP TOKEN GOES HERE"
Dim verticalPosition As String = "bottom"
Dim horizontalPosition As String = "center"
anetworkobj.initializeAnetworkAdvertising(appToken, "anetworkevent")
anetworkobj.addBannerAdToActivity(verticalPosition, horizontalPosition)
End Sub

مقدار verticalPosition می‌تواند top یا bottom باشد.
مقدار horizontalPosition می‌تواند righ، left یا center باشد.

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

Sub anetworkevent_anetworkbanneradload(id As Int)
Log("banner ad load event with id -> " & id)
End Sub

وقتی که تبلیغ نمایش داده می شود فراخوانی می شود.
Sub anetworkevent_anetworkbanneradshow(id As Int)
Log("banner ad show event with id -> " & id)
End Sub

وقتی که تبلیغ دچار خطا می شود  فراخوانی می شود.
Sub anetworkevent_anetworkbanneraderror(id As Int, errorCode As Int, errorMessage As String)
'Log("banner ad error event with id -> " & errorMessage)
End Sub

وقتی که تبلیغ مخفی می شود فراخوانی می شود.

Sub anetworkevent_anetworkbanneradhide(id As Int)
Log("banner ad hide event with id -> " & id)
End Sub

وقتی که تبلیغ کلیک می شود فراخوانی می شود.
Sub anetworkevent_anetworkbanneradclick(id As Int)
Log("banner ad click event with id -> " & id)
End Sub

پیاده سازی تبلیغ تمام صفحه

در Activity_create با استفاده از instance ساخته شده از AnetworkB4aPlugin یک تبلیغ بنری تمام صفحه بسازید:
Sub Activity_Create(FirstTime As Boolean)
Dim appToken As String = "YOUR APP TOKEN GOES HERE"
anetworkobj.initializeAnetworkAdvertising(appToken, "anetworkevent")
anetworkobj.createFullscreenBannerAd()
If anetworkobj.isFullscreenBannerReady() Then
anetworkobj.showFullscreenBannerAd()
End If
End Sub

توابع کنترلی تبلیغ تمام صفحه
isFullscreenBannerReady()
isFullscreenBannerVisible()
showFullscreenBannerAd()

برای دریافت رخ دادها مربوط به تبلیغ بنری تمام صفحه از توابع زیر استفاده کنید:
وقتی که تبلیغ آماده نمایش است  فراخوانی می شود.
Sub anetworkevent_anetworkfullscreenadload
Log("full screen ad load event")
End Sub

وقتی که تبلیغ نمایش داده می شود فراخوانی می شود.
Sub anetworkevent_anetworkfullscreenadshow
Log("full screen ad show event")
End Sub

وقتی که تبلیغ دچار خطا می شود فراخوانی می شود.

Sub anetworkevent_anetworkfullscreenaderror(errorCode As Int, errorMessage As String)
Log("full screen ad error event -> " & errorMessage)
End Sub

وقتی که تبلیغ تخریب می شود فراخوانی می شود.
Sub anetworkevent_anetworkfullscreenaddestroy
Log("full screen ad destroy event")
End Sub

وقتی که تبلیغ کلیک می شود فراخوانی می شود.
Sub anetworkevent_anetworkfullscreenadclick
Log("full screen ad click event")
End Sub

وقتی که تبلیغ در صفحه مورد نظر close می شود فراخوانی می شود.
Sub anetworkevent_anetworkfullscreenadclose
Log("full screen ad close event")
End Sub

پیاده سازی تبلیغ ویدیویی

در Activity_create با استفاده از instance ساخته شده از AnetworkB4aPlugin یک تبلیغ ویدیویی بسازید:
Sub Activity_Create(FirstTime As Boolean)
Dim appToken As String = "YOUR APP TOKEN GOES HERE"
anetworkobj.initializeAnetworkAdvertising(appToken, "anetworkevent")
anetworkobj.createVideoAd()
If anetworkobj.isVideoAdReady() Then
anetworkobj.showVideoAd()
End If
End Sub

توابع کنترلی تبلیغ ویدیویی
isVideoAdReady()
isVideoVisible()
showVideoAd()

برای دریافت رخ دادها مربوط به تبلیغ بنری تمام صفحه از توابع زیر استفاده کنید:
وقتی که تبلیغ آماده نمایش است فراخوانی می شود.
Sub anetworkevent_anetworkvideoadload
Log("video ad load event")
End Sub

وقتی که تبلیغ نمایش داده می شود فراخوانی می شود.
Sub anetworkevent_anetworkvideoadshow
Log("video ad show event")
End Sub

وقتی که تبلیغ دچار خطا می شود فراخوانی می شود.
Sub anetworkevent_anetworkvideoaderror(errorCode As Int, errorMessage As String)
Log("video ad error event -> " & errorMessage)
End Sub

وقتی که تبلیغ destroy می شود فراخوانی می شود.
Sub anetworkevent_anetworkvideoaddestroy
Log("video ad destroy event")
End Sub

وقتی که تبلیغ کلیک می شود فراخوانی می شود.
Sub anetworkevent_anetworkvideoadclick
Log("video ad click event")
End Sub

وقتی که تبلیغ در صفحه مورد نظر close می شود فراخوانی می شود.
Sub anetworkevent_anetworkvideoadclose
Log("video ad close event")
End Sub

وقتی که تبلیغ کامل دیده می شود فراخوانی می شود.
Sub anetworkevent_anetworkvideoadcomplete
Log("video ad complete event")
End Sub

برای دریافت و مشاهده نمونه اپلیکیشن می‌توانید به گیت هاب ای‌نتورک مراجعه کنید.

جهت مشاهده سوالات متداول مرتبط با SDK ای‌نتورک کلیک کنید

  • آیا این نوشته مشکل شما را حل کرد؟
  • بله   خیر

جواب سوالاتون رو پیدا نکردین؟

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

ارسال تیکت