Spanish [SOLUCIONADO] Tamaño del Banner Publicitario

Sub Globals
    Dim AdView1 As AdView
    Dim AD_SIZE As Object
    Dim adWidth As Int
    Dim adHeight As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'inicializar el adview
    AdBarInit
End Sub

Sub AdBarInit
    'Pulgadas del dispositivo
    Dim ApproximateScreenSize As Double = GetDeviceLayoutValues.ApproximateScreenSize
   
    'Independientemente de si es Portrait o landscape
    Dim Ancho As Int
    If Activity.width < Activity.height Then Ancho = Activity.width Else Ancho = Activity.height
   
    'compruebo si es tablet o teléfono
    If ApproximateScreenSize > 6 Then
        'tablet 7 y 10
        If Ancho < 728 Then
            AD_SIZE = AdView1.SIZE_IAB_BANNER
            adWidth = 468dip
            adHeight = 60dip
        Else
            AD_SIZE = AdView1.SIZE_IAB_LEADERBOARD
            adWidth = 728dip
            adHeight = 90dip
        End If
    Else
        ' telèfono
        AD_SIZE = AdView1.SIZE_BANNER
        adWidth = 320dip
        adHeight = 50dip
    End If

    AdView1.Initialize2("Ad", "ca-app-pub-xxxxxxxxxxxxxxxx/xxxxxxxxxx", AD_SIZE) 
    Activity.AddView(AdView1, 50%x-(adWidth/2), 0, adWidth, adHeight)
    AdView1.LoadAd
End Sub

Sub Globals
    Dim Publicidad as Adview
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activar_Publicidad
End Sub

Sub Activar_Publicidad
        Dim TamanoOcupaPublicidad As Int
        If GetDeviceLayoutValues.ApproximateScreenSize > 6 AND GetDeviceLayoutValues.ApproximateScreenSize < 9 AND Activity.Width > Activity.Height Then 'Es una tablet de 7 pulgadas girada. Smart_banner pone el ancho en 90dip, con esto lo pongo en 60dip
            Publicidad.Initialize2("Ad", "ca-app-pub-xxxxxxxxxxxxxxxxxxxxx", Publicidad.SIZE_IAB_BANNER)
            TamanoOcupaPublicidad = 60dip
        Else 'Moviles y tablets excepto tablet de 7'' girada.
            Publicidad.Initialize2("Ad", "ca-app-pub-xxxxxxxxxxxxxxxxxxxx", Publicidad.SIZE_SMART_BANNER)
            If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
              If 100%x > 100%y Then TamanoOcupaPublicidad = 32dip Else TamanoOcupaPublicidad = 50dip 'Teléfonos
            Else
               TamanoOcupaPublicidad = 90dip 'Tablets
            End If
        End If
        Activity.AddView(Publicidad, 0dip, 100%y -  TamanoOcupaPublicidad, 100%x,  TamanoOcupaPublicidad)
        Publicidad.LoadAd
End Sub

Sub Activar_Publicidad
        Dim TamanoOcupaPublicidad As Int
        If GetDeviceLayoutValues.ApproximateScreenSize > 6 AND GetDeviceLayoutValues.ApproximateScreenSize < 9 AND Activity.Width > Activity.Height Then 'Es una tablet de 7 pulgadas girada. Smart_banner pone el ancho en 90dip, con esto lo pongo en 60dip
            Publicidad.Initialize2("Ad", "ca-app-pub-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", Publicidad.SIZE_IAB_BANNER)
            TamanoOcupaPublicidad = 60dip
        Else 'Moviles y tablets excepto tablet de 7'' girada.
            Publicidad.Initialize2("Ad", "ca-app-pub-xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", Publicidad.SIZE_SMART_BANNER)
            If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
                If 100%x > 100%y Then
                    If 100%y < 720 Then
                          TamanoOcupaPublicidad = 32dip 'Teléfonos horizontal
                    Else
                        TamanoOcupaPublicidad = 50dip 'Teléfonos horizontal
                    End If
                Else
                    TamanoOcupaPublicidad = 50dip 'Teléfonos vertical
                End If
            Else
               TamanoOcupaPublicidad = 90dip 'Tablets
            End If
        End If
        Activity.AddView(Publicidad, 0dip, 100%y -  TamanoOcupaPublicidad, 100%x,  TamanoOcupaPublicidad)
        Publicidad.LoadAd
End Sub