B4A Class arfRewardedAd - Reward Ads for AdMob2

Hello

I'd like to share a class that I made for Reward Ads that I use in my apps/games.
It's little bit different from what is found here: https://www.b4x.com/android/forum/t...2-google-mobile-ads-v20-0.129696/#post-815445

Before starts, another excellent option is found here: https://www.b4x.com/android/forum/t...b2-google-mobile-ads-v20-0.129696/post-828193

This class works both on B4XPages or non-B4XPages.

Depends on:

How it works:
Starter service:
B4X:
Sub Service_Start (StartingIntent As Intent)
 RewardAd.Initialize(Me, "RewardAd", False, "ca-app-pub-xxxxxxx/xxxxxx", True, True)
 Dim m As MobileAds
 Wait For (m.Initialize) MobileAds_Ready
 RewardAd.LoadAd
End Sub

Activity or class (b4xpages):
B4X:
Sub Activity_Resume (or B4XPage_Appear)
 Starter.RewardAd.Callback = Me
End Sub

RewardAd.Initialize(Callback As Object, EventName As String, Intersticial As Boolean, AdUnit As String, AutoLoad As Boolean, NonPersonalizedAds As Boolean)
Intersticial = True -> Rewarded Intersticial Ad -> https://developers.google.com/admob/android/rewarded-interstitial
Intersticial = False -> Rewarded Ad -> https://developers.google.com/admob/android/rewarded-fullscreen
AutoLoad -> load new ad every time
NonPersonalizedAds -> True (family program)

When you want to use:
B4X:
If Starter.RewardAd.Ready Then
Starter.RewardAd.Show
End If

Callbacks:
B4X:
Sub RewardAd_Rewarded (Item As Object)
    ...
End Sub

B4X:
Sub RewardAd_AdClosed
    'If you set AutoLoad true, you don't need load another ad here.
End Sub
 

Attachments

  • arfRewardedAd.bas
    6.7 KB · Views: 519

Ferdari

Active Member
Licensed User
Longtime User
Hi was having a bug with your code, it loads a the rewarded ads ok, the callbacks are fired(ReceiveAd,AdClosed,Rewarded), when rewarded and closed, on app resume it drop again Receive ad but via java code logs, (User earned reward, full screen content dismissed) and again Shows a second Ad.

It makes to double the Ad Requests on Admob but 50% impressions, certainly doing negative earnings.

In Resume, a Rewarded ad is loaded twice, showing one

Hablas español?
 
Top