#Region Project Attributes
#ApplicationLabel: My Family
#VersionCode: 1
#VersionName: 1.0.1
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
'These variables can be accessed from all modules.
Private xui As XUI
Dim Timer As Timer 'variabile timer
Dim accesso As Int
End Sub
Sub Globals
'definizioni variabili
Private logoImage As ImageView
'definizione variabili per banner google
Private BannerAd As AdView
Private IAd As InterstitialAd
End Sub
Sub Activity_Create(FirstTime As Boolean)
CaricaBanner
Activity.LoadLayout("main")
Activity.Title = ("Main")
'DeleteFileUtente
'DeleteFileSpesa
accesso = 0 ' insostazione variabile di accesso a zero l'utente non puo entrare
Timer.Initialize("timer", 3000) 'inizializzata timer ogni 4 secondi
Timer.Enabled = True
logoImage.Bitmap = LoadBitmap(File.DirAssets, "logo-myfamily.gif") 'carico logo per main versioneLabel.Text = "Versione 1.0.0" 'versione app
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub timer_Tick
Timer.Enabled = False
StartActivity("login")
End Sub
Sub CaricaBanner
BannerAd.Initialize2("BannerAd", "ca-app-pub-3940256099942544/6300978111", BannerAd.SIZE_SMART_BANNER)
Dim height As Int
If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
'phones
If 100%x > 100%y Then height = 32dip Else height = 50dip
Else
'tablets
height = 90dip
End If
Activity.AddView(BannerAd, 0dip, 100%y - height, 100%x, height)
BannerAd.LoadAd
IAd.Initialize("iad", "ca-app-pub-3940256099942544/1033173712")
IAd.LoadAd
End Sub
'Sub DeleteFileUtente
' File.Delete (File.DirInternal, "family/utente.txt")
'End Sub
'Sub DeleteFileSpesa
' File.Delete (File.DirInternal, "family/spesa.txt")
'End Sub
Sub Activity_Click
If IAd.Ready Then IAd.Show
End Sub
Sub IAD_AdClosed
IAd.LoadAd 'prepare a new ad
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: https://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.LightTheme)
'End of default text.
CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)
CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)
CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)
CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)
CreateResourceFromFile(Macro, FirebaseAdMob.FirebaseAds)
CreateResourceFromFile(Macro, FirebaseAuth.FirebaseAuth)
'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: https://www.b4x.com/forum/showthread.php?p=78136
'##############################################################
AddManifestText(
<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="29"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
CreateResourceFromFile(Macro, Themes.LightTheme)
'End of default text.
'###################################################################
CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)
CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)
CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)
'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)
'CreateResourceFromFile(Macro, FirebaseAdMob.FirebaseAds)
'CreateResourceFromFile(Macro, FirebaseAuth.FirebaseAuth)
#Region Project Attributes
#ApplicationLabel: My Family
#VersionCode: 1
#VersionName: 1.0.1
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
'These variables can be accessed from all modules.
Private xui As XUI
Dim Timer As Timer 'variabile timer
Dim accesso As Int
End Sub
Sub Globals
'definizioni variabili
Private logoImage As ImageView
' Private versioneLabel As Label
' Private creatoreLabel As Label
'definizione variabili per banner google
Private BannerAd As AdView
Private IAd As InterstitialAd
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Activity.Title = ("Main")
'DeleteFileUtente
'DeleteFileSpesa
CaricaBanner
accesso = 0 ' insostazione variabile di accesso a zero l'utente non puo entrare
Timer.Initialize("timer", 7000) 'inizializzata timer ogni 4 secondi
Timer.Enabled = True
logoImage.Bitmap = LoadBitmap(File.DirAssets, "logo-myfamily.gif") 'carico logo per main versioneLabel.Text = "Versione 1.0.0" 'versione app
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub timer_Tick
CaricaInterstitial
Timer.Enabled = False
StartActivity("login")
End Sub
Sub CaricaBanner
' 'Log("Carica Banner")
'BannerAd.Initialize2("BannerAd", "ca-app-pub-3940256099942544/6300978111", BannerAd.SIZE_SMART_BANNER) 'test
'BannerAd.Initialize2("BannerAd", "ca-app-pub-1492922173088894/1567692377", BannerAd.SIZE_SMART_BANNER) 'vera
Dim height As Int
If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
'phones
If 100%x > 100%y Then height = 32dip Else height = 50dip
Else
'tablets
height = 90dip
End If
'Activity.AddView(BannerAd, 0dip, 100%y - height, 100%x, height)
'Activity.AddView(BannerAd, 0dip, 100%y - 90dip, 100%x, 90dip)
' BannerAd.LoadAd
'IAd.Initialize("iad", "ca-app-pub-3940256099942544/1033173712") 'test
IAd.Initialize("iad", "ca-app-pub-1492922173088894/3506432330") 'vera
IAd.LoadAd
End Sub
Sub CaricaInterstitial
If IAd.Ready Then IAd.Show
End Sub
Sub IAD_AdClosed
IAd.LoadAd 'prepare a new ad
End Sub
'Sub DeleteFileUtente
' File.Delete (File.DirInternal, "family/utente.txt")
'End Sub
'Sub DeleteFileSpesa
' File.Delete (File.DirInternal, "family/spesa.txt")
'End Sub
Sub Activity_Resume
Timer.Enabled = True
End Sub
Ciao. Domada? Ma la tua app con gli annunci funziona? Perché la mia dopo una piccolissima modifica si installa ma da errore. Ho letto che da un po' che si deve dare il consenso per ricevere la pubblicità, cosa che tra l'altro non trovo in nessuna altra app che uso con la pubblicità. Forse mi sfugge qualcosa?Servirebbe a me una guida...
Il consenso non serve. Ho pubblica una nuova app senza consenso e funziona perfettamente.Il consenso lo devo dare io da qualche parte o è l'utente dell'app che lo deve dare?
AddReplacement($ADMOB_APP_ID$,il tuo id sviluppatore adsense)
Sub Globals
Dim MobileAds As MobileAds
End sub
Sub Activity_Create(FirstTime As Boolean)
MobileAds.Initialize
End sub
Hai già seguito il Tutorial di Erel?Ciao. Domada? Ma la tua app con gli annunci funziona? Perché la mia dopo una piccolissima modifica si installa ma da errore. Ho letto che da un po' che si deve dare il consenso per ricevere la pubblicità, cosa che tra l'altro non trovo in nessuna altra app che uso con la pubblicità. Forse mi sfugge qualcosa?
Senza consenso rischi che Google ti blocca la App.Il consenso non serve. Ho pubblica una nuova app senza consenso e funziona perfettamente.
se usi questo non ci sono pericoli:Finchè sono 1 o 2 volte non corri nessun pericolo.
L'ho visto ma ho provato a non inserire niente di quel codice a parte quelle tre linee che ho scritto prima altrimenti non mi andava. Adesso aspetto che goggle me la pubblichi o mi dica che non va bene. Al max provvederò alla modifica completa.Hai già seguito il Tutorial di Erel?
Bello questo!!consent.AddTestDevice("ildevicenumerodeltuocellulare")
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?