Italian La prossima settimana, VACANZE... ma per ora vado avanti

#Region  Project Attributes
   #FullScreen: true
   #IncludeTitle: false
#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 mwAdInterstitial As mwAdmobInterstitial
   Dim Button1 As Button
   Dim Label2 As Label
   Private Panel1 As Panel
   Dim timerpause As Timer
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("AdMob")
   Panel1.Height=100%y
   Panel1.Width=100%x
   Label2.Width=100%x
     mwAdInterstitial.Initialize("mwadi","ca-app-pub-IdFunzionante")

   mwAdInterstitial.LoadAd
   Label2.Text="Sto tendando di caricare la pubblicità....attendere prego."

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
timerpause.Initialize("timerpause",1000)
timerpause.Enabled=True
End Sub

Sub mwadi_AdClosed

   Label2.Text="Ad dismissed by user."
   Button1.Text="Load Ad"
   'you can call LoadAd again here to queue the next ad
   Main.PubSee=True
   Activity.finish
End Sub

Sub mwadi_AdOpened
   Log("ad opened")
End Sub

Sub mwadi_AdLoaded
   Log("ad loaded")
   Button1.Text="Show Ad"
   Button1_Click
End Sub

Sub mwadi_AdFailedToLoad (ErrorMessage As String)
   Label2.Text="Caricamento fallito. Errore: " & ErrorMessage & CRLF & "Per poter giocare, è richiesta la visione della pubblicità."
   Log("failed to load ad: " & ErrorMessage)
End Sub

Sub Button1_Click
   If mwAdInterstitial.Status=mwAdInterstitial.Status_AdReadyToShow Then mwAdInterstitial.Show
   If mwAdInterstitial.Status=mwAdInterstitial.Status_Dismissed Then
     Label2.Text="Sto tendando di caricare la pubblicità....attendere prego."
     mwAdInterstitial.LoadAd
   End If
End Sub

Sub timerpause_tick
Button1_Click
End Sub

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="16"/>

android:installLocation="preferExternal"

<uses-permission android:name="android.permission.INTERNET"/>
    <uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
    <uses-permission android:name="android.permission.ACCESS_WIFI_STATE"/>
   '<uses-permission android:name="android.permission.READ_PHONE_STATE"/>
  
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)

SetApplicationAttribute(android:largeHeap,"true")
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")

'End of default text.
'admob interstitial

AddApplicationText(
<meta-data android:name="com.google.android.gms.version"
  android:value = "@integer/google_play_services_version"/>
<activity android:name="com.google.ads.AdActivity"
          android:configChanges="keyboard|keyboardHidden|orientation|screenLayout|uiMode|screenSize|smallestScreenSize"/>
                )