Buon giorno a tutti...tranne me
Come sempre, i problemi mi perseguitano e il non capire mi abbaglia la mente
Messo in disparte l'errore del salto livello (mi fa male la testa solo a pensarci
), ho deciso di iplementare queste AdMob Interstitial (altra cefalea).
Dovendole caricare solo quando finisce il livello e si clicca per continuare, ho pensato, visto che non ne volevano sapere di funzionare, di creare un modello paro paro all'esempio e, tramite un timer, cliccare il bottone di viusualizzazione.
Il problema che sorge è che....
non entra all'interno di nessuna IF.
La
#AdditionalRes: xxxx si trova logicamente nella MAIN, mentre tutto il resto in quest'altro modulo.
Ripeto, il codice del nuovo modulo, è lo stesso fuzionante provato (senza logicamente l'
#AdditionalRes
Perché diamine non carica nulla?
Ecco il codice del nuovo modulo (Ho lasciato il button apposta, per renderlo il più simile possibile al funzionante):
Se tolgo il Timer, esce dalla sub e mnon va da nessun'altra parte, lasciando la scritta del tentato caricamento.
Così, invece, entra del Button:Click, ma non entra da nessuna parte (non carica e non fa vedere).
#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
I valori che risputano fuori sono:
mwAdInterstitial.Status =
1
mwAdInterstitial.Status_AdReadyToShow =
2
mwAdInterstitial.Status_Dismissed =
5
