Android Question make admob Native ads

arastoo

Active Member
Licensed User
Hello friends:)

I'm going to set AdMob Native ads in my app.
These ads must be displayed after each panel in the scroll but only at the end of the scroll is displayed:(

where is the problem ?

please guide me;)
Thank you

B4X:
#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
   
    Private ScrollView1 As ScrollView
    Dim top As Int = 3%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout_native_ad")
   
    ScrollView1.Color=Colors.Red
    ScrollView1.Panel.Color=Colors.DarkGray
    ScrollView1.Panel.Height=400%y
   
    Dim top As Int = 3%y
    For i=0 To 15
       

        If i=2 Or i=4 Or i=6 Or i=8  Then
                   
            LoadNativeAd(ScrollView1.Panel)
        Else
            Dim p As Panel
            p.Initialize("p")
'            p.Color=Colors.ARGB(255,Rnd(0,255),Rnd(0,255),Rnd(0,255))
            p.Color=Colors.ARGB(150,0,150,150)
            ScrollView1.Panel.AddView(p,3%x,top,ScrollView1.Width-6%x,20%y)
            top=top+20%y+3%y
        End If
       
    Next
   
   
   
   
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
       

Sub LoadNativeAd(pan As Panel)
   
    Dim AdUnitId As String = "ca-app-pub-3940256099942544/2247696110"
   
    Dim ctxt As JavaObject
    ctxt.InitializeContext
 
    Dim builder As JavaObject
    builder.InitializeNewInstance("com.google.android.gms.ads.AdLoader.Builder", Array(ctxt, AdUnitId))
 
    '*** Code changed
    Dim onAppInstallAdLoadedListener As Object = builder.CreateEventFromUI("com/google/android/gms/ads/formats/NativeAppInstallAd.OnAppInstallAdLoadedListener".Replace("/", "."), _
       "AppInstallAdLoaded", Null)
    builder.RunMethod("forAppInstallAd", Array(onAppInstallAdLoadedListener))
    '*** End Code changed
 
    Dim Listener As JavaObject
    Listener.InitializeNewInstance(Application.PackageName & ".nativeactivity$MyAdListener", Array("NativeAd"))  'change 'main' with the current activity module name
    builder.RunMethod("withAdListener", Array(Listener))
 
    Dim AdLoader As JavaObject = builder.RunMethod("build", Null)
    Dim AdRequestBuilder As JavaObject
    AdRequestBuilder.InitializeNewInstance("com/google/android/gms/ads/AdRequest.Builder".Replace("/", "."), Null)
    AdLoader.RunMethod("loadAd", Array(AdRequestBuilder.RunMethod("build", Null)))
 
    '*** Code changed
    Wait For AppInstallAdLoaded_Event (MethodName As String, Args() As Object)
    '*** End Code changed
 
    Log("ContentAdLoaded_Event")
    Dim NativeContentAd As JavaObject = Args(0)
    Log(NativeContentAd.RunMethod("getHeadline", Null))
 
    Dim NativeContentAdView As JavaObject
 
    '*** Code changed
    NativeContentAdView.InitializeNewInstance("com/google/android/gms/ads/formats/NativeAppInstallAdView".Replace("/", "."), _
       Array(ctxt))  
    '*** End Code changed
 
 
 
 
     
    Dim pNativeAdView As Panel = NativeContentAdView
    pNativeAdView.Color=Colors.Cyan
 
 
 
    Dim content As Panel
    content.Initialize("")
    pNativeAdView.AddView(content, 0, 0, 50%x, 300dip)
    content.Color=Colors.Gray
 
    Dim lbl As Label
    lbl.Initialize("")
    lbl.TextSize = 20
    lbl.TextColor = Colors.Black
    lbl.Color=Colors.Green
    lbl.Text = NativeContentAd.RunMethod("getHeadline", Null)
    content.AddView(lbl, 10dip, 10dip, 300dip, 50dip)
    NativeContentAdView.RunMethod("setHeadlineView", Array(lbl))
 
    Dim lbl2 As Label
    lbl2.Initialize("")
    lbl2.TextColor = Colors.Black
    lbl2.Color = Colors.Blue
   
    lbl2.Text = NativeContentAd.RunMethod("getBody", Null)
    content.AddView(lbl2, 10dip, 60dip, 300dip, 50dip)
    NativeContentAdView.RunMethod("setBodyView", Array(lbl2))
 
    '*** Code changed (disable) -> show error: java.lang.RuntimeException: Method: getLogo not found in: com.google.android.gms.internal.zzqh
    Dim logo As JavaObject = NativeContentAd.RunMethod("getIcon", Null)
    If logo.IsInitialized Then
        Dim logoView As Panel
        logoView.Initialize("")
        logoView.Background = logo.RunMethod("getDrawable", Null)
        content.AddView(logoView, 260dip, 100dip, 80dip, 80dip)
        NativeContentAdView.RunMethod("setIconView", Array(logoView))
    End If
    '*** End Code changed
 
    Dim images As List = NativeContentAd.RunMethod("getImages", Null)
    If images.IsInitialized And images.Size > 0 Then
        Log("adding image")
        Dim imgView As Panel
        imgView.Initialize("")
        Dim image As JavaObject = images.Get(0)
        imgView.Background = image.RunMethod("getDrawable", Null)
        content.AddView(imgView, 130dip, 100dip, 100dip, 100dip)
        NativeContentAdView.RunMethod("setImageView", Array(imgView))
    End If
 
    '*** Code changed: new button to action
    Dim btAction As Button
    btAction.Initialize("")
    Dim cd As ColorDrawable
    cd.Initialize(Colors.RGB(65,105,225),3dip)
    btAction.Background = cd
    btAction.Text = NativeContentAd.RunMethod("getCallToAction", Null)
    content.AddView(btAction, 10dip, 120dip, 100dip, 50dip)
    NativeContentAdView.RunMethod("setCallToActionView", Array(btAction))
 
    NativeContentAdView.RunMethod("setNativeAd", Array(NativeContentAd))
    pNativeAdView.Color=Colors.Yellow
   
   
    pan.AddView(pNativeAdView,3%x,top,ScrollView1.Width-6%x,30%y)
    top=top+30%y+3%y

End Sub


Sub NativeAd_FailedToReceiveAd (ErrorCode As String)
    Log("NativeAd_FailedToReceiveAd: " & ErrorCode)
End Sub

Sub NativeAd_AdOpened
    Log("NativeAd_AdOpened")
End Sub

Sub NativeAd_ReceiveAd
    Log("1111111111111-NativeAd_ReceiveAd")
End Sub

Sub UnifiedNativeAd_FailedToReceiveAd (ErrorCode As String)
    Log("UnifiedNativeAd_FailedToReceiveAd: " & ErrorCode)
End Sub

Sub UnifiedNativeAd_AdOpened
    Log("UnifiedNativeAd_AdOpened")
End Sub

Sub UnifiedNativeAd_ReceiveAd
    Log("UnifiedNativeAd_ReceiveAd")
End Sub
'

#if Java
public static class MyAdListener extends com.google.android.gms.ads.AdListener {
 
   String eventName;
   public MyAdListener(String s) {
       eventName = s.toLowerCase(BA.cul);
   }
   @Override
   public void onAdClosed() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_adclosed", false, null);
   }
   @Override
   public void onAdFailedToLoad(int arg0) {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_failedtoreceivead", false, new Object[] {String.valueOf(arg0)});
   }
   @Override
   public void onAdLeftApplication() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_adleftapplication", false, null);
   }
   @Override
   public void onAdOpened() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_adopened", false, null);
   }
   @Override
   public void onAdLoaded() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_receivead", false, null);
   }
}
#End If

Sub ScrollView1_ScrollChanged(Position As Int)
   
End Sub
 

Attachments

Last edited:

Erel

Administrator
Staff member
Licensed User
Please use regular fonts when posting questions.

It is a mistake not to use xCustomListView here. Use CLV and add the ads as items.
 

arastoo

Active Member
Licensed User
Please use regular fonts when posting questions.

It is a mistake not to use xCustomListView here. Use CLV and add the ads as items.
B4X:
#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
End Sub
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
   
   
    Private clv2 As CustomListView
    Private Label1 As B4XView
    Private CheckBox1 As B4XView
   
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout_native_ad")
    For i = 1 To 40
       
       
        If i=5 Or i=10 Or i=15 Or i=20 Or i=25 Then
'            clv2.AddTextItem("fffffffffffffff",i)
            LoadNativeAd
            Else
            clv2.Add(CreateListItem($"Item #${i}"$, clv2.AsView.Width, 60dip), $"Item #${i}"$)
        End If
       
       
    Next
   
   
   
   
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
       
Sub LoadNativeAd
   
    Dim AdUnitId As String = "ca-app-pub-3940256099942544/2247696110"
   
    Dim ctxt As JavaObject
    ctxt.InitializeContext
   
    Dim builder As JavaObject
    builder.InitializeNewInstance("com.google.android.gms.ads.AdLoader.Builder", Array(ctxt, AdUnitId))
   
    '*** Code changed
    Dim onAppInstallAdLoadedListener As Object = builder.CreateEventFromUI("com/google/android/gms/ads/formats/NativeAppInstallAd.OnAppInstallAdLoadedListener".Replace("/", "."), _
       "AppInstallAdLoaded", Null)
    builder.RunMethod("forAppInstallAd", Array(onAppInstallAdLoadedListener))
    '*** End Code changed
   
    Dim Listener As JavaObject
    Listener.InitializeNewInstance(Application.PackageName & ".nativeactivity$MyAdListener", Array("NativeAd"))  'change 'main' with the current activity module name
    builder.RunMethod("withAdListener", Array(Listener))
   
    Dim AdLoader As JavaObject = builder.RunMethod("build", Null)
    Dim AdRequestBuilder As JavaObject
    AdRequestBuilder.InitializeNewInstance("com/google/android/gms/ads/AdRequest.Builder".Replace("/", "."), Null)
    AdLoader.RunMethod("loadAd", Array(AdRequestBuilder.RunMethod("build", Null)))
   
    '*** Code changed
    Wait For AppInstallAdLoaded_Event (MethodName As String, Args() As Object)
    '*** End Code changed
   
    Log("ContentAdLoaded_Event")
    Dim NativeContentAd As JavaObject = Args(0)
    Log(NativeContentAd.RunMethod("getHeadline", Null))
 
    Dim NativeContentAdView As JavaObject
   
    '*** Code changed
    NativeContentAdView.InitializeNewInstance("com/google/android/gms/ads/formats/NativeAppInstallAdView".Replace("/", "."), _
       Array(ctxt))   
    '*** End Code changed
   
   
   
   
     
    Dim pNativeAdView As Panel = NativeContentAdView
    pNativeAdView.Color=Colors.Cyan
   
   
   
    Dim content As Panel
    content.Initialize("")
    pNativeAdView.AddView(content, 0, 0, 50%x, 300dip)
    content.Color=Colors.Gray
   
    Dim lbl As Label
    lbl.Initialize("")
    lbl.TextSize = 20
    lbl.TextColor = Colors.Black
    lbl.Color=Colors.Green
    lbl.Text = NativeContentAd.RunMethod("getHeadline", Null)
    content.AddView(lbl, 10dip, 10dip, 300dip, 50dip)
    NativeContentAdView.RunMethod("setHeadlineView", Array(lbl))
   
    Dim lbl2 As Label
    lbl2.Initialize("")
    lbl2.TextColor = Colors.Black
    lbl2.Color = Colors.Blue
   
    lbl2.Text = NativeContentAd.RunMethod("getBody", Null)
    content.AddView(lbl2, 10dip, 60dip, 300dip, 50dip)
    NativeContentAdView.RunMethod("setBodyView", Array(lbl2))
   
    '*** Code changed (disable) -> show error: java.lang.RuntimeException: Method: getLogo not found in: com.google.android.gms.internal.zzqh
    Dim logo As JavaObject = NativeContentAd.RunMethod("getIcon", Null)
    If logo.IsInitialized Then
        Dim logoView As Panel
        logoView.Initialize("")
        logoView.Background = logo.RunMethod("getDrawable", Null)
        content.AddView(logoView, 260dip, 100dip, 80dip, 80dip)
        NativeContentAdView.RunMethod("setIconView", Array(logoView))
    End If
    '*** End Code changed
   
    Dim images As List = NativeContentAd.RunMethod("getImages", Null)
    If images.IsInitialized And images.Size > 0 Then
        Log("adding image")
        Dim imgView As Panel
        imgView.Initialize("")
        Dim image As JavaObject = images.Get(0)
        imgView.Background = image.RunMethod("getDrawable", Null)
        content.AddView(imgView, 130dip, 100dip, 100dip, 100dip)
        NativeContentAdView.RunMethod("setImageView", Array(imgView))
    End If
   
    '*** Code changed: new button to action
    Dim btAction As Button
    btAction.Initialize("")
    Dim cd As ColorDrawable
    cd.Initialize(Colors.RGB(65,105,225),3dip)
    btAction.Background = cd
    btAction.Text = NativeContentAd.RunMethod("getCallToAction", Null)
    content.AddView(btAction, 10dip, 120dip, 100dip, 50dip)
    NativeContentAdView.RunMethod("setCallToActionView", Array(btAction))
   
    NativeContentAdView.RunMethod("setNativeAd", Array(NativeContentAd))
    pNativeAdView.Color=Colors.Yellow
   
   
   
    Dim p As Panel
    p.Initialize("")
    p.SetLayout(0, 0, 95%x, 30%y)
    p.AddView(pNativeAdView,3%x,1%y,95%x,30%y)
   
'    Dim xui As XUI
'    Dim ppp As B4XView =xui.CreatePanel("")
   
    clv2.Add(pNativeAdView,1)
End Sub
Sub NativeAd_FailedToReceiveAd (ErrorCode As String)
    Log("NativeAd_FailedToReceiveAd: " & ErrorCode)
End Sub
Sub NativeAd_AdOpened
    Log("NativeAd_AdOpened")
End Sub
Sub NativeAd_ReceiveAd
    Log("1111111111111-NativeAd_ReceiveAd")
End Sub
Sub UnifiedNativeAd_FailedToReceiveAd (ErrorCode As String)
    Log("UnifiedNativeAd_FailedToReceiveAd: " & ErrorCode)
End Sub
Sub UnifiedNativeAd_AdOpened
    Log("UnifiedNativeAd_AdOpened")
End Sub
Sub UnifiedNativeAd_ReceiveAd
    Log("UnifiedNativeAd_ReceiveAd")
End Sub
'
#if Java
public static class MyAdListener extends com.google.android.gms.ads.AdListener {
   
   String eventName;
   public MyAdListener(String s) {
       eventName = s.toLowerCase(BA.cul);
   }
   @Override
   public void onAdClosed() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_adclosed", false, null);
   }
   @Override
   public void onAdFailedToLoad(int arg0) {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_failedtoreceivead", false, new Object[] {String.valueOf(arg0)});
   }
   @Override
   public void onAdLeftApplication() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_adleftapplication", false, null);
   }
   @Override
   public void onAdOpened() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_adopened", false, null);
   }
   @Override
   public void onAdLoaded() {
       processBA.raiseEventFromDifferentThread(null, null, 0, eventName + "_receivead", false, null);
   }
}
#End If
Sub ScrollView1_ScrollChanged(Position As Int)
   
End Sub
Sub clv2_ItemClick(Index As Int, Value As Object)
    clv2.AsView.BringToFront
    Log(Index & " = " & Value)
   
End Sub
Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
    Dim p As Panel
    p.Initialize("")
    p.SetLayout(0, 0, Width, Height)
    p.LoadLayout("CellItem")
    Label1.Text = Text
    Return p
End Sub
Sub CheckBox1_CheckedChange(Checked As Boolean)
'    Dim index As Int = clv2.GetItemFromView(Sender)
'    Dim pnl As B4XView = clv2.GetPanel(index)
'    Dim chk As B4XView = pnl.GetView(2)
'    MsgboxAsync($"Item value: ${clv2.GetValue(index)}
    'Check value: ${chk.Checked}"$, "")
End Sub
Sub Button1_Click
'    Dim index As Int = clv2.GetItemFromView(Sender)
'    Dim pnl As B4XView = clv2.GetPanel(index)
'    Dim lbl As B4XView = pnl.GetView(0)
'    Dim chk As B4XView = pnl.GetView(2)
'    lbl.Text = "Clicked!"
'    'Msgbox("Item value: " & clv2.GetValue(index) & CRLF & "Check value: " & chk.Checked, "")
'    Dim checkedItems As List
'    checkedItems.Initialize
'    For i = 0 To clv2.GetSize - 1
'        Dim p As B4XView = clv2.GetPanel(i)
'        Dim chk As B4XView = p.GetView(2)
'        If chk.Checked Then
'            checkedItems.Add(clv2.GetValue(i))
'        End If
'    Next
'    Log("Checked items: " & checkedItems) 'ignore
End Sub
Hello
I made the necessary changes
But I did not get any results
Which part is the problem?
Thanks
 

Attachments

Computersmith64

Well-Known Member
Licensed User
HI Colin ( Computersmith64 )
I made the changes, but the ad is only shown at the end !!
I've never used a CustomListView so I don't know for sure however I'm guessing it's a timing issue & all the list items are getting loaded before your first ad. Try waiting for your LoadNativeAd sub to complete before continuing your loading loop.

- Colin.
 

Computersmith64

Well-Known Member
Licensed User
You could also try using .InsertAt for your ads instead of .Add. You could load all your list items first, then use .InsertAt to insert the ads where you want them.

- Colin.
 

arastoo

Active Member
Licensed User
Top