Android Question admob problem

boralogy

Member
Licensed User
I read forum content about admob , but my app crash after I compile it. Could you help?
I downloaded latest SDK for android and do all steps for google play services but still Dim AdView1 As AdView basic 4 android gives error for Adview.



B4X:
#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False

#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
    #AdditionalRes: C:\google\google_play_services\libproject\google-play-services_lib\res, com.google.android.gms
#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.
Dim p As PhoneIntents
Dim AdView1 As AdView

    Dim ensonhaber As Button
    Dim haber7 As Button
    Dim haberler As Button
    Dim haberturk As Button
    Dim hurriyet As Button
    Dim milliyet As Button
    Dim zaman As Button
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("main")
AdView1.Initialize("footer_banner", "<ca-app-pub-6837661402850267/5510137832>")
    Activity.AddView(AdView1, 0dip, 0dip, 320dip, 50dip)' AdView1.LoadAd 'loads an ad

   AdView1.LoadAd
End Sub

Sub Activity_Resume
AdView1.Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
AdView1.Pause
End Sub

Sub Ad_FailedToReceiveAd (ErrorCode As String)
    Log("failed: " & ErrorCode)
End Sub
Sub Ad_ReceiveAd
    Log("received")
End Sub
Sub Ad_AdScreenDismissed
   Log("screen dismissed")
End Sub


Sub zaman_Click
    StartActivity(p.OpenBrowser("http://www.zaman.com.tr"))
End Sub
Sub milliyet_Click
    StartActivity(p.OpenBrowser("http://www.milliyet.com.tr"))
End Sub
Sub hurriyet_Click
    StartActivity(p.OpenBrowser("http://www.hurriyet.com.tr"))
End Sub
Sub haberturk_Click
    StartActivity(p.OpenBrowser("http://www.haberturk.com/"))
End Sub
Sub haberler_Click
    StartActivity(p.OpenBrowser("http://www.haberler.com/"))
End Sub
Sub haber7_Click
    StartActivity(p.OpenBrowser("http://www.haber7.com/"))
End Sub
Sub ensonhaber_Click
    StartActivity(p.OpenBrowser("http://www.ensonhaber.com/"))
End Sub
 

Attachments

Last edited:
Top