Android Question New AdMob Question

#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: AdMob Sample
#VersionCode: 1
#VersionName: 1.0
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

'Activity module

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 AdBox As AdView

End Sub

Sub Activity_Create(FirstTime As Boolean)

AdBox.Initialize2("Ad", "ca-app-pub-0231280482162759/5909518111", AdBox.SIZE_SMART_BANNER)

If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then

'phones
If 100%x > 100%y Then height = 32dip Else height = 50dip

Else

'tablets
If 100%x > 100%y Then height = 50dip Else height = 90dip

End If

Activity.AddView(AdBox, 0dip, 100%y - height, 100%x, height)

AdBox.LoadAd

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Click to expand...