Android Question UNEXPECTED TOP-LEVEL EXCEPTION:

Discussion in 'Android Questions' started by joaomoraes83, Jul 19, 2019.

  1. joaomoraes83

    joaomoraes83 Member Licensed User

    When compiling I get the following error. What could be happening?
    Code:
    B4A Versão: 9.01.2
    Java Versão: 
    8
    Analisando o código.    (
    0.04s)
    Building folders structure.    (
    0.23s)
    Compilando o código    (
    0.15s)
    Compilando código dos layouts.    (
    0.05s)
    Organizando bibliotecas    (
    0.00s)
    Gerando o arquivo R.    (
    2.08s)
    Compilando o código Java.    (
    4.94s)
    Convertendo Byte Code - DEX otimizado.    Error
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/app/INotificationSideChannel;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/app/INotificationSideChannel$Stub;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/app/INotificationSideChannel$Stub$Proxy;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/os/IResultReceiver;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/os/IResultReceiver$Stub;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/os/IResultReceiver$Stub$Proxy;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/os/ResultReceiver;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/os/ResultReceiver$
    1;
    Uncaught translation error: java.lang.IllegalArgumentException: already added: Landroid/support/v4/os/ResultReceiver$MyResultReceiver;
    UNEXPECTED TOP-LEVEL 
    EXCEPTION:
    java.lang.RuntimeException: Translation has been interrupted
        at com.android.dx.command.dexer.Main.processAllFiles(Main.java:
    696)
        at com.android.dx.command.dexer.Main.runMonoDex(Main.java:
    315)
        at com.android.dx.command.dexer.Main.runDx(Main.java:
    293)
        at com.android.dx.command.dexer.Main.main(Main.java:
    249)
        at com.android.dx.command.Main.main(Main.java:
    94)
    Caused by: java.lang.InterruptedException: Too many errors
        at com.android.dx.command.dexer.Main.processAllFiles(Main.java:
    688)
        ... 
    4 more
     
  2. DonManfred

    DonManfred Expert Licensed User

    Where is the project upload which shows the issue?

    Based on the error you are adding references multiple times.
     
  3. joaomoraes83

    joaomoraes83 Member Licensed User

    Where can I review these references?
     
  4. joaomoraes83

    joaomoraes83 Member Licensed User

    I updated the java plus the problem persists. The error occurs when I debug after including the following lines in the manifest: CreateResourceFromFile (Macro, FirebaseAnalytics.GooglePlayBase) CreateResourceFromFile (Macro, FirebaseAnalytics.Firebase) CreateResourceFromFile (Macro, FirebaseAnalytics.FirebaseAnalytics) CreateResourceFromFile (Macro, FirebaseAdMob.FirebaseAds) How to solve?
     
  5. Erel

    Erel Administrator Staff Member Licensed User

    Which libraries are referenced?
     
  6. joaomoraes83

    joaomoraes83 Member Licensed User

    I noticed that the situation began to occur after referencing the FirebaseAdMob library.[ upload_2019-7-21_12-56-17.png
     
  7. Erel

    Erel Administrator Staff Member Licensed User

    Do you get this error when you create a new project and select these 4 libraries?

    Can you upload the project?
     
  8. joaomoraes83

    joaomoraes83 Member Licensed User

    Yes Erel, even in a new project I get the same error, I realize that the error only occurs when I include the FirebaseAdMob library. I stress that I installed the B4A on a new computer with Windows 10, in the previous one, Windows 7, it works normally. I have already unplugged and installed again and the error remains. I really do not know what it's all about ...
    Follow the project.
    Code:
    #Region  Project Attributes
        
    #ApplicationLabel: Bolsa Família 2019
        
    #VersionCode: 4
        
    #VersionName: V1.1
        
    'SupportedOrientations possible values: unspecified, landscape or portrait.
        #SupportedOrientations: unspecified
        
    #CanInstallToExternalStorage: False
    #End Region

    #Region  Activity Attributes
        
    #FullScreen: False
        
    #IncludeTitle: false
    #End Region
    #BridgeLogger: true

    Sub Process_Globals

    End Sub

    Sub Globals

        
    Dim Cont=2 As Int
        
    Private sp1 As Spinner
        
    Private sp2 As Spinner
        
    Dim result As String
        
    Dim result1 As String
        
    Dim btnconsultar As Button
        
    Dim P As String
        
    Dim R As String
        
    Private lblresult As Label
        
    Private sm As SlidingMenu
        
    Private BannerAd As AdView
        
    Private IAd As InterstitialAd
        
    Private Panel1 As Panel
    End Sub

        
    'ID do aplicativo: ca-app-pub-9911966482560411~1283528793
        
            
    'banner
        'ca-app-pub-9911966482560411~1283528793
        'ca-app-pub-9911966482560411/8367811895
        
            
    'interticial
        'ca-app-pub-9911966482560411~1283528793
        'ca-app-pub-9911966482560411/6152712099
        
    Sub Activity_Create(FirstTime As Boolean)
        
    'Do not forget to load the layout file created with the visual designer. For example:
        
        
    'início prop
        BannerAd.Initialize2("BannerAd""ca-app-pub-9911966482560411/8367811895", BannerAd.SIZE_SMART_BANNER)        'Banner
        Dim height As Int
        
    If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
            
    'phones
            If 100%x > 100%y Then height = 32dip Else height = 70dip
        
    Else
            
    'tablets
            height = 90dip
        
    End If
        
    Activity.AddView(BannerAd, 0dip100%y - height, 100%x, height)
        BannerAd.LoadAd
        IAd.Initialize(
    "iad""ca-app-pub-9911966482560411/1585164129"' declara pra quando ir pra activity principal ele puxar o anuncio    'Intersticial
        IAd.LoadAd
        
    'If IAd.Ready Then IAd.Show
        'fim prop
        
        
        
    Activity.LoadLayout("bf")
        btnconsultar.Visible=
    False
        Sleep(
    7000)
        
    If IAd.Ready Then IAd.Show
        Sleep(
    0)
        Panel1.Visible=
    False
        btnconsultar.Visible=
    True
        
        
    'CARREGA MENU LATERAL E O LAYOUT DELE
        sm.Initialize("sm")
        
    Dim offset As Int = 20%x
        sm.BehindOffset = offset
        sm.Mode = sm.LEFT
        sm.Menu.LoadLayout(
    "menu")
        
        
    'FACILITA O MOVIMENTO PARA ABRIR O MENU ARRASTANDO NA TELA INVEZ DE APERTAR O BOTÃO MENU
        Dim jo As JavaObject = sm
        jo.RunMethod(
    "setTouchmodeMarginThreshold"Array(50%x))
        
        
        
        
    'PEGAMOS O EVENTO DE ABRIR (SABER QUANDO O MENU ESTIVER ABERTO)
        Dim jo2 As JavaObject = sm
        
    Dim event As Object = jo2.CreateEventFromUI("com.jeremyfeinstein.slidingmenu.lib.SlidingMenu$OnOpenListener""Open"Null)
        jo2.RunMethod(
    "setOnOpenListener"Array(event))


        
    'PEGAMOS O EVENTO DE FECHAR (SABER QUANDO O MENU ESTIVER ABERTO)
        Dim jo3 As JavaObject = sm
        
    Dim event As Object = jo3.CreateEventFromUI("com.jeremyfeinstein.slidingmenu.lib.SlidingMenu$OnCloseListener""Close"Null)
        jo3.RunMethod(
    "setOnCloseListener"Array(event))
        
        
        
    'TRATAMENTO SPINNER
        sp1.AddAll(Array As String("Selecione","0","1","2","3","4","5","6","7","8","9"))
        
        
    Dim cdH As ColorDrawable
        cdH.Initialize(
    Colors.White , 10)
        sp1.Width=
    290dip
        sp1.Background=cdH
        sp1.TextSize=
    16
        sp1.TextColor=
    Colors.black
        sp1.DropdownBackgroundColor=
    Colors.White
        sp1.SelectedIndex=sp1.IndexOf(
    "Selecione")
        
    'FIM TRATAMENTO SPINNER
        
        sp2.AddAll(
    Array As String("Selecione","JANEIRO 2019","FEVEREIRO 2019","MARÇO 2019","ABRIL 2019","MAIO 2019","JUNHO 2019","JULHO 2019","AGOSTO 2019","SETEMBRO 2019","OUTUBRO 2019","NOVEMBRO 2019","DEZEMBRO 2019"))
        
        
    Dim cdH As ColorDrawable
        cdH.Initialize(
    Colors.White , 10)
        sp2.Width=
    290dip
        sp2.Background=cdH
        sp2.TextSize=
    16
        sp2.TextColor=
    Colors.black
        sp2.DropdownBackgroundColor=
    Colors.White
        sp2.SelectedIndex=sp1.IndexOf(
    "Selecione")
        
    End Sub

    Sub Activity_Resume

    End Sub

    Sub Activity_Pause (UserClosed As Boolean)

    End Sub


    Sub sp1_ItemClick (Position As Int, Value As Object)
        result=Value
        
        
    Select result
            
    Case ("Selecione")
            
    Case ("0")
            
    Case ("1")
            
    Case ("2")
            
    Case ("3")
            
    Case ("4")
            
    Case ("5")
            
    Case ("6")
            
    Case ("7")
            
    Case ("8")
            
    Case ("9")
        
    End Select
        
    End Sub

    Sub sp2_ItemClick (Position As Int, Value As Object)
        result1=Value
        
        
    Select result1
            
    Case ("Selecione")
            
    Case ("JANEIRO 2019")
            
    Case ("FEVEREIRO 2019")
            
    Case ("MARÇO 2019")
            
    Case ("ABRIL 2019")
            
    Case ("MAIO 2019")
            
    Case ("JUNHO 2019")
            
    Case ("JULHO 2019")
            
    Case ("AGOSTO 2019")
            
    Case ("SETEMBRO 2019")
            
    Case ("OUTUBRO 2019")
            
    Case ("NOVEMBRO 2019")
            
    Case ("DEZEMBRO 2019")
        
    End Select
    End Sub

    Sub btnconsultar_Click
        
    If Cont=2 Then
            
    If IAd.Ready Then IAd.Show
            Sleep(
    0)
            Cont=
    0
        
    Else
            Cont=Cont+
    1
        
    End If
        
        
    If result="" Or result1="" Then
            lblresult.Text= 
    "Por Favor, selecione Número de Benefício e Mês de Pagamento."
        
    Else
            P=result&result1
            
    If P= "1JANEIRO 2019" Then R="sexta-feira, 18 de janeiro de 2019"
            
    If P= "2JANEIRO 2019" Then R="segunda-feira, 21 de janeiro de 2019"
            
    If P= "3JANEIRO 2019" Then R="terça-feira, 22 de janeiro de 2019"
            
    If P= "4JANEIRO 2019" Then R="quarta-feira, 23 de janeiro de 2019"
            
    If P= "5JANEIRO 2019" Then R="quinta-feira, 24 de janeiro de 2019"
            
    If P= "6JANEIRO 2019" Then R="sexta-feira, 25 de janeiro de 2019"
            
    If P= "7JANEIRO 2019" Then R="segunda-feira, 28 de janeiro de 2019"
            
    If P= "8JANEIRO 2019" Then R="terça-feira, 29 de janeiro de 2019"
            
    If P= "9JANEIRO 2019" Then R="quarta-feira, 30 de janeiro de 2019"
            
    If P= "0JANEIRO 2019" Then R="quinta-feira, 31 de janeiro de 2019"
            
    If P= "1FEVEREIRO 2019" Then R="sexta-feira, 15 de fevereiro de 2019"
            
    If P= "2FEVEREIRO 2019" Then R="segunda-feira, 18 de fevereiro de 2019"
            
    If P= "3FEVEREIRO 2019" Then R="terça-feira, 19 de fevereiro de 2019"
            
    If P= "4FEVEREIRO 2019" Then R="quarta-feira, 20 de fevereiro de 2019"
            
    If P= "5FEVEREIRO 2019" Then R="quinta-feira, 21 de fevereiro de 2019"
            
    If P= "6FEVEREIRO 2019" Then R="sexta-feira, 22 de fevereiro de 2019"
            
    If P= "7FEVEREIRO 2019" Then R="segunda-feira, 25 de fevereiro de 2019"
            
    If P= "8FEVEREIRO 2019" Then R="terça-feira, 26 de fevereiro de 2019"
            
    If P= "9FEVEREIRO 2019" Then R="quarta-feira, 27 de fevereiro de 2019"
            
    If P= "0FEVEREIRO 2019" Then R="quinta-feira, 28 de fevereiro de 2019"
            
    If P= "1MARÇO 2019" Then R="segunda-feira, 18 de março de 2019"
            
    If P= "2MARÇO 2019" Then R="terça-feira, 19 de março de 2019"
            
    If P= "3MARÇO 2019" Then R="quarta-feira, 20 de março de 2019"
            
    If P= "4MARÇO 2019" Then R="quinta-feira, 21 de março de 2019"
            
    If P= "5MARÇO 2019" Then R="sexta-feira, 22 de março de 2019"
            
    If P= "6MARÇO 2019" Then R="segunda-feira, 25 de março de 2019"
            
    If P= "7MARÇO 2019" Then R="terça-feira, 26 de março de 2019"
            
    If P= "8MARÇO 2019" Then R="quarta-feira, 27 de março de 2019"
            
    If P= "9MARÇO 2019" Then R="quinta-feira, 28 de março de 2019"
            
    If P= "0MARÇO 2019" Then R="sexta-feira, 29 de março de 2019"
            
    If P= "1ABRIL 2019" Then R="terça-feira, 16 de abril de 2019"
            
    If P= "2ABRIL 2019" Then R="quarta-feira, 17 de abril de 2019"
            
    If P= "3ABRIL 2019" Then R="quinta-feira, 18 de abril de 2019"
            
    If P= "4ABRIL 2019" Then R="segunda-feira, 22 de abril de 2019"
            
    If P= "5ABRIL 2019" Then R="terça-feira, 23 de abril de 2019"
            
    If P= "6ABRIL 2019" Then R="quarta-feira, 24 de abril de 2019"
            
    If P= "7ABRIL 2019" Then R="quinta-feira, 25 de abril de 2019"
            
    If P= "8ABRIL 2019" Then R="sexta-feira, 26 de abril de 2019"
            
    If P= "9ABRIL 2019" Then R="segunda-feira, 29 de abril de 2019"
            
    If P= "0ABRIL 2019" Then R="terça-feira, 30 de abril de 2019"
            
    If P= "1MAIO 2019" Then R="segunda-feira, 20 de maio de 2019"
            
    If P= "2MAIO 2019" Then R="terça-feira, 21 de maio de 2019"
            
    If P= "3MAIO 2019" Then R="quarta-feira, 22 de maio de 2019"
            
    If P= "4MAIO 2019" Then R="quinta-feira, 23 de maio de 2019"
            
    If P= "5MAIO 2019" Then R="sexta-feira, 24 de maio de 2019"
            
    If P= "6MAIO 2019" Then R="segunda-feira, 27 de maio de 2019"
            
    If P= "7MAIO 2019" Then R="terça-feira, 28 de maio de 2019"
            
    If P= "8MAIO 2019" Then R="quarta-feira, 29 de maio de 2019"
            
    If P= "9MAIO 2019" Then R="quinta-feira, 30 de maio de 2019"
            
    If P= "0MAIO 2019" Then R="sexta-feira, 31 de maio de 2019"
            
    If P= "1JUNHO 2019" Then R="sexta-feira, 14 de junho de 2019"
            
    If P= "2JUNHO 2019" Then R="segunda-feira, 17 de junho de 2019"
            
    If P= "3JUNHO 2019" Then R="terça-feira, 18 de junho de 2019"
            
    If P= "4JUNHO 2019" Then R="quarta-feira, 19 de junho de 2019"
            
    If P= "5JUNHO 2019" Then R="quinta-feira, 20 de junho de 2019"
            
    If P= "6JUNHO 2019" Then R="segunda-feira, 24 de junho de 2019"
            
    If P= "7JUNHO 2019" Then R="terça-feira, 25 de junho de 2019"
            
    If P= "8JUNHO 2019" Then R="quarta-feira, 26 de junho de 2019"
            
    If P= "9JUNHO 2019" Then R="quinta-feira, 27 de junho de 2019"
            
    If P= "0JUNHO 2019" Then R="sexta-feira, 28 de junho de 2019"
            
    If P= "1JULHO 2019" Then R="quinta-feira, 18 de julho de 2019"
            
    If P= "2JULHO 2019" Then R="sexta-feira, 19 de julho de 2019"
            
    If P= "3JULHO 2019" Then R="segunda-feira, 22 de julho de 2019"
            
    If P= "4JULHO 2019" Then R="terça-feira, 23 de julho de 2019"
            
    If P= "5JULHO 2019" Then R="quarta-feira, 24 de julho de 2019"
            
    If P= "6JULHO 2019" Then R="quinta-feira, 25 de julho de 2019"
            
    If P= "7JULHO 2019" Then R="sexta-feira, 26 de julho de 2019"
            
    If P= "8JULHO 2019" Then R="segunda-feira, 29 de julho de 2019"
            
    If P= "9JULHO 2019" Then R="terça-feira, 30 de julho de 2019"
            
    If P= "0JULHO 2019" Then R="quarta-feira, 31 de julho de 2019"
            
    If P= "1AGOSTO 2019" Then R="segunda-feira, 19 de agosto de 2019"
            
    If P= "2AGOSTO 2019" Then R="terça-feira, 20 de agosto de 2019"
            
    If P= "3AGOSTO 2019" Then R="quarta-feira, 21 de agosto de 2019"
            
    If P= "4AGOSTO 2019" Then R="quinta-feira, 22 de agosto de 2019"
            
    If P= "5AGOSTO 2019" Then R="sexta-feira, 23 de agosto de 2019"
            
    If P= "6AGOSTO 2019" Then R="segunda-feira, 26 de agosto de 2019"
            
    If P= "7AGOSTO 2019" Then R="terça-feira, 27 de agosto de 2019"
            
    If P= "8AGOSTO 2019" Then R="quarta-feira, 28 de agosto de 2019"
            
    If P= "9AGOSTO 2019" Then R="quinta-feira, 29 de agosto de 2019"
            
    If P= "0AGOSTO 2019" Then R="sexta-feira, 30 de agosto de 2019"
            
    If P= "1SETEMBRO 2019" Then R="terça-feira, 17 de setembro de 2019"
            
    If P= "2SETEMBRO 2019" Then R="quarta-feira, 18 de setembro de 2019"
            
    If P= "3SETEMBRO 2019" Then R="quinta-feira, 19 de setembro de 2019"
            
    If P= "4SETEMBRO 2019" Then R="sexta-feira, 20 de setembro de 2019"
            
    If P= "5SETEMBRO 2019" Then R="segunda-feira, 23 de setembro de 2019"
            
    If P= "6SETEMBRO 2019" Then R="terça-feira, 24 de setembro de 2019"
            
    If P= "7SETEMBRO 2019" Then R="quarta-feira, 25 de setembro de 2019"
            
    If P= "8SETEMBRO 2019" Then R="quinta-feira, 26 de setembro de 2019"
            
    If P= "9SETEMBRO 2019" Then R="sexta-feira, 27 de setembro de 2019"
            
    If P= "0SETEMBRO 2019" Then R="segunda-feira, 30 de setembro de 2019"
            
    If P= "1OUTUBRO 2019" Then R="sexta-feira, 18 de outubro de 2019"
            
    If P= "2OUTUBRO 2019" Then R="segunda-feira, 21 de outubro de 2019"
            
    If P= "3OUTUBRO 2019" Then R="terça-feira, 22 de outubro de 2019"
            
    If P= "4OUTUBRO 2019" Then R="quarta-feira, 23 de outubro de 2019"
            
    If P= "5OUTUBRO 2019" Then R="quinta-feira, 24 de outubro de 2019"
            
    If P= "6OUTUBRO 2019" Then R="sexta-feira, 25 de outubro de 2019"
            
    If P= "7OUTUBRO 2019" Then R="segunda-feira, 28 de outubro de 2019"
            
    If P= "8OUTUBRO 2019" Then R="terça-feira, 29 de outubro de 2019"
            
    If P= "9OUTUBRO 2019" Then R="quarta-feira, 30 de outubro de 2019"
            
    If P= "0OUTUBRO 2019" Then R="quinta-feira, 31 de outubro de 2019"
            
    If P= "1NOVEMBRO 2019" Then R="segunda-feira, 18 de novembro de 2019"
            
    If P= "2NOVEMBRO 2019" Then R="terça-feira, 19 de novembro de 2019"
            
    If P= "3NOVEMBRO 2019" Then R="quarta-feira, 20 de novembro de 2019"
            
    If P= "4NOVEMBRO 2019" Then R="quinta-feira, 21 de novembro de 2019"
            
    If P= "5NOVEMBRO 2019" Then R="sexta-feira, 22 de novembro de 2019"
            
    If P= "6NOVEMBRO 2019" Then R="segunda-feira, 25 de novembro de 2019"
            
    If P= "7NOVEMBRO 2019" Then R="terça-feira, 26 de novembro de 2019"
            
    If P= "8NOVEMBRO 2019" Then R="quarta-feira, 27 de novembro de 2019"
            
    If P= "9NOVEMBRO 2019" Then R="quinta-feira, 28 de novembro de 2019"
            
    If P= "0NOVEMBRO 2019" Then R="sexta-feira, 29 de novembro de 2019"
            
    If P= "1DEZEMBRO 2019" Then R="terça-feira, 10 de dezembro de 2019"
            
    If P= "2DEZEMBRO 2019" Then R="quarta-feira, 11 de dezembro de 2019"
            
    If P= "3DEZEMBRO 2019" Then R="quinta-feira, 12 de dezembro de 2019"
            
    If P= "4DEZEMBRO 2019" Then R="sexta-feira, 13 de dezembro de 2019"
            
    If P= "5DEZEMBRO 2019" Then R="segunda-feira, 16 de dezembro de 2019"
            
    If P= "6DEZEMBRO 2019" Then R="terça-feira, 17 de dezembro de 2019"
            
    If P= "7DEZEMBRO 2019" Then R="quarta-feira, 18 de dezembro de 2019"
            
    If P= "8DEZEMBRO 2019" Then R="quinta-feira, 19 de dezembro de 2019"
            
    If P= "9DEZEMBRO 2019" Then R="sexta-feira, 20 de dezembro de 2019"
            
    If P= "0DEZEMBRO 2019" Then R="segunda-feira, 23 de dezembro de 2019"
            
            lblresult.Text=
    "Seu benefício será creditado na "&R
        
    End If
    End Sub


    Sub lblmenu_Click
        sm.showmenu
    End Sub

    Sub lblsair1_Click
        
    Activity.Finish
    End Sub

    Sub lblsair_Click
        
    Activity.Finish
    End Sub

    Sub lblapp_Click
        
    Private i As Intent
        i.Initialize(i.ACTION_VIEW, 
    "http://play.google.com/store/apps/dev?id=8634986142733594563")
        
    StartActivity(i)
    End Sub

    Sub lblapp1_Click
        
    Private i As Intent
        i.Initialize(i.ACTION_VIEW, 
    "http://play.google.com/store/apps/dev?id=8634986142733594563")
        
    StartActivity(i)
    End Sub

    Sub lblaval1_Click
        
    Private i As Intent
        i.Initialize(i.ACTION_VIEW, 
    "https://play.google.com/store/apps/details?id=com.bf20191")
        
    StartActivity(i)
    End Sub

    Sub lblaval_Click
        
    Private i As Intent
        i.Initialize(i.ACTION_VIEW, 
    "https://play.google.com/store/apps/details?id=com.bf20191")
        
    StartActivity(i)
    End Sub

    Sub lblcomp_Click
        
    'BOTÃO COMPARTILHAR
        Dim i As Intent
        i.Initialize(i.ACTION_SEND, 
    "")
        i.SetType(
    "text/plain")
        i.PutExtra(
    "android.intent.extra.TEXT""https://play.google.com/store/apps/details?id=com.com.bf20191")
        i.PutExtra(
    "android.intent.extra.SUBJECT""This is the subject")
        
    StartActivity(i)
        
    If IAd.Ready Then IAd.Show
    End Sub

    Sub lblcomp1_Click
        
    'BOTÃO COMPARTILHAR
        Dim i As Intent
        i.Initialize(i.ACTION_SEND, 
    "")
        i.SetType(
    "text/plain")
        i.PutExtra(
    "android.intent.extra.TEXT""https://play.google.com/store/apps/details?id=com.com.bf20191")
        i.PutExtra(
    "android.intent.extra.SUBJECT""This is the subject")
        
    StartActivity(i)
        
    If IAd.Ready Then IAd.Show
    End Sub




    'INTERSTICIAL
    Sub iad_AdClosed 'ESSE EVENTO DETECTA SE O ANUNCIO FOI FECHADO, INTERSTICIAL
        If IAd.IsInitialized Then IAd.LoadAd 'SE FOI FECHADO JÁ MANDA RECARREGAR OUTRO, PRA MOSTRAR DEPOIS
        'SE SPLASH TIVER VISIVEL AQUI MANDA FECHAR
        'IF painelSplash.visible then painelSplash.visible = false
    End Sub

    Sub iad_ReceiveAd
    End Sub

    Sub iad_FailedToReceiveAd (ErrorCode As String)
        Recarrega_Intersticial
        
    Log(ErrorCode)
    End Sub

    Sub iad_adopened
    End Sub

    Sub iad_PresentScreen
    End Sub

    Sub Recarrega_Intersticial
        Sleep(
    2000)
        
    If Not(IsPaused(Me)) And IAd.IsInitialized Then IAd.LoadAd
    End Sub





    'BANNER
    Sub BannerAd_ReceiveAd
    End Sub

    Sub BannerAd_FailedToReceiveAd (ErrorCode As String)
        Recarrega_Banner
        
    Log(ErrorCode)
    End Sub

    Sub BannerAd_PresentScreen
    End Sub

    Sub BannerAd_AdScreenDismissed
        Recarrega_Banner 
    'USUÁRIO FECHOU NO X DO BANNER
    End Sub

    Sub Recarrega_Banner
        Sleep(
    2000)
        
    If Not(IsPaused(Me)) And BannerAd.IsInitialized Then BannerAd.LoadAd
    End Sub
    upload_2019-7-22_8-6-33.png
    upload_2019-7-22_8-7-38.png upload_2019-7-22_8-6-33.png upload_2019-7-22_8-7-38.png upload_2019-7-22_8-6-33.png
     
  9. DonManfred

    DonManfred Expert Licensed User

    Where is the project upload as requested by @Erel ???

    Why you did not configure a path for your additional libs?
    Where are they saved?
     
  10. joaomoraes83

    joaomoraes83 Member Licensed User

    Attached Files:

  11. DonManfred

    DonManfred Expert Licensed User

    Use FILE -> Export as ZIP! Your upload is missing layout files, missing starter service
    the google-services.json is also missing
     
    joaomoraes83 likes this.
  12. Erel

    Erel Administrator Staff Member Licensed User

    joaomoraes83 likes this.
  13. joaomoraes83

    joaomoraes83 Member Licensed User

    friends, grateful for the attention:
    - when uploading the project in .zip gives error due to the file size (900kb), but I note that with any project the error shown.
    - I did what Erel mentioned, installed the recommended items, but situation persists ...
     
  14. Erel

    Erel Administrator Staff Member Licensed User

    What is the installed version of firebase-core?

    Create a new project and check FirebaseAdMob. Are you able to compile it?
     
    joaomoraes83 likes this.
  15. joaomoraes83

    joaomoraes83 Member Licensed User

    Thank you Erel! Just reference the firebaseadmob library that does not compile.
    Follow version of firebase-core
    upload_2019-7-23_8-16-14.png
     
  16. Erel

    Erel Administrator Staff Member Licensed User

    You are still using the new AndroidX sdk. It will only work with B4A v9.3+. You need to download the old "ready to run" SDK.
     
    joaomoraes83 likes this.
  17. joaomoraes83

    joaomoraes83 Member Licensed User

    thanks @Erel, Should I download the old "ready to run" SDK and not install the recommended items in sdk maneger?
     
  18. joaomoraes83

    joaomoraes83 Member Licensed User

    friends, thank you so much! It worked. I was installing the recommended items in sdk manager, but it is not necessary.
    Sorted out!
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice