Sub Activity_Create(FirstTime As Boolean)
sf.Initialize
DateTime.DateFormat = "dd-MM-yyyy"
If File.ExternalWritable = False Then
Msgbox("Cannot write on storage card.", "****************")
Return
End If
DeviceScreenSize = Ceil(GetDeviceLayoutValues.ApproximateScreenSize)
If DeviceScreenSize <= 8 And DeviceScreenSize > 6 Then
Activity.LoadLayout("main.bal")
gTipoPantalla = False
Else If DeviceScreenSize > 9 Then
Activity.LoadLayout("10p.bal")
gTipoPantalla = True
Else
Activity.Finish
End If
clv4.Initialize(Me, "clv4")
ListPad.AddView (clv4.AsView, 0, 0, 100%x, 85%y)
'
'ADMOB
AdView1.Initialize("ad", "ca-app-pub-****************/$$$$$$$$$$")
AdView2.Initialize("ad2", "ca-app-pub-****************/$$$$$$$$$$")'
AdView3.Initialize("ad3", "ca-app-pub-****************/$$$$$$$$$$")
AdView4.Initialize("ad4", "ca-app-pub-****************/$$$$$$$$$$")
If gTipoPantalla = True Then
PnlPubli.AddView (AdView1,0dip,23dip,320dip,50dip)
PnlPubliAux.AddView (AdView2,0dip,4dip,320dip ,50dip)
PnlPubliConfig.AddView (AdView3,0dip,23dip,320dip,50dip)
PnlPubliStats.AddView (AdView4,0dip,23dip,320dip,50dip)
Else
PnlPubli.AddView (AdView1,0dip,0dip,PnlPubli.Width ,PnlPubli.Height)
PnlPubliAux.AddView (AdView2,0dip,4dip,320dip ,50dip)
End If
AdView1.LoadAd
AdView2.LoadAd
AdView3.LoadAd
AdView4.LoadAd
'ADMOB
CallSub("",USBCheck(False))