'ad is a global AdView variable
ad.Initialize("ad", "ca-app-pub-12675708333333/47443333", Page1, ad.SIZE_BANNER)
Page1.RootPanel.AddView(ad, 0, 0, 320dip, 50dip)
Sub Ad_AdScreenDismissed
End Sub
Sub Ad_FailedToReceiveAd (ErrorCode As String)
Log("Failed: " & ErrorCode)
End Sub
Sub Ad_PresentScreen
End Sub
Sub Ad_ReceiveAd
End SubSub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public ad As AdView
Public App As Application
Public NavControl As NavigationController
Dim csDatosUsuario As csDatosUsuarios
Dim res As B4XSerializator
Dim v_ruta As String=File.DirDocuments
Type Test(NumAciertosExamenTotal As Int, NumIntentosTotal As Int, NumDeVidas As Int, AvancePorcentage As Int)
Dim myType, myType2 As Test
End Sub
Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
csDatosUsuario.Initialize
' myType.Initialize
If File.Exists(v_ruta, "0x0x0x0x0x0x") = False Then
myType.Initialize
myType.NumAciertosExamenTotal=0
myType.NumIntentosTotal=0
myType.NumDeVidas=0
myType.AvancePorcentage=0
' Encriptar
Dim raf As RandomAccessFile
raf.Initialize2(v_ruta, "0x0x0x0x0x0x", False, False)
' raf.WriteB4XObject(myType, 0)
raf.WriteB4XObject(res.ConvertObjectToBytes(myType), 0)
Log("File Created")
raf.Close
End If
MainModule.show
ad.Initialize("ad", "ca-app-pub-12675708333333/47443333",MainModule.pg,ad.SIZE_BANNER)
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
Private Sub Application_Background
End Sub'Code module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public pg As Page
Private Label1 As Label
Private Label2 As Label
End Sub
Public Sub show
If pg.IsInitialized = False Then
pg.Initialize("pg")
pg.RootPanel.LoadLayout("MainLayout")
pg.Title=""
' Main.ad.Initialize("ad", "ca-app-pub-12675708333333/47443333",pg,Main.ad.SIZE_BANNER)
End If
Main.NavControl.NavigationBarVisible=False
Main.NavControl.ShowPage(pg)
pg.RootPanel.AddView(Main.ad, 0, 0, 320dip, 50dip)
Sleep(4000)
SimulacroModule.show
End Sub Dim raf As RandomAccessFile
raf.Initialize2(v_ruta, "0x0x0x0x0x0x", False, False)
' raf.WriteB4XObject(myType, 0)
raf.WriteB4XObject(, 0)File.WriteBytes(..., ..., res.ConvertObjectToBytes(myType))
