B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

7.- Potencia fiscal.

- Bajar Potencia_fiscal.zip

- La potencia fiscal se calcula mediante la siguiente fórmula:

               (Fórmula I)

D es el diámetro del cilindro en centímetros.
R es el recorrido del cilindro en centímetros.
N es el número de cilindros (normalmente 4)

He puesto la coma como separador decimal, pero en los programas debemos poner el punto como separador decimal.

- Cálculo de la cilindrada de un motor en centímetros cuadrados.

¿Dónde puedo encontrar el Diámetro y el Recorrido de mi coche?

- Viene en la tarjeta del vehículo.

- Pero si no lo encuentras puedes calcular la Potencia Fiscal utilizando la cilindrada del motor y el número de cilindros (suelen ser 4) y esta fórmula:

            (Fórmula II)

cilindrada es la cilindrada del motor en centímetros cúbicos.
N es el número de cilindros (normalmente 4).

- Así que tenemos dos maneras de calcular la PF, la Fórmula I y la Fórmula II. En este ejemplo vamos a utilizar la Fórmula II, es decir, tenemos la cilindrada del motor y su número de cilindros.

Button1.Text = Calcula EditText1.Text = EditText2.Text = 4 Label1.Text = Cálculo de la potencia fiscal Label2.Text = Introduce la cilindrada del motor Label3.Text = Introduce el número de cilindros (Normalmente 4) Label4.Text = Potencia Fiscal = Label5.Text = - Label6.Text = Tarifa (2011) = Label7.Text = -

'Activity module
Sub Process_Globals
    ' Juan Antonio Villalpando
    ' juana1991@yahoo.com
End Sub

Sub Globals
Dim cilindrada, N, pf As Float ' Establecemos las variables
Dim tarifa As String
Dim EditText1, EditText2 As EditText ' Tenemos que declarar los EditText utilizados
Dim Label1, Label2, Label3, Label4, Label5, Label6, Label7 As Label ' Tenemos que declarar los Label utilizados

End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout") ' Cargamos el Designer
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    cilindrada = EditText1.Text
    N = EditText2.Text
    pf = 0.08 * Power((cilindrada / N),0.6) * N
    Label5.Text = pf
    If pf < 8 Then tarifa = "22,89 €"
    If pf >= 8 AND pf <= 11.99 Then tarifa = "61,81 €"
    If pf >= 12 AND pf <= 15.99 Then tarifa = "130,46 €"
    If pf >= 16 AND pf <= 19.99 Then tarifa = "170,25 €"
    If pf >= 20 Then tarifa = "224,00 €"
    Label7.Text = tarifa
End Sub

________________________________________________

Para obtener la tarifa que deberás de abonar según la PF, puedes escribir en un buscador:
"Ordenanza fiscal reguladora del impuesto sobre vehículos de tracción mecánica"

Te saldrán las tarifas de muchos Ayuntamientos, aquí he puesto el de uno de ellos...

Aquí he puesto un ejemplo de tarifas, cada Ayuntamiento fija una tarifa y se incrementan anualmente, los valores que se muestran son solo ejemplos.

Utilizando la tabla anterior como ejemplo, podríamos ampliar nuestro programa para que nos indicara cúanto debemos de abonar según la PF de nuestro vehículo.

Ten cuidado siempre que el separador decimal es el punto en las operaciones matemáticas, he puesto los valores de las tarifas con coma porque esos no son cálculos, son simplemente resultados textuales.

Con este programa puedes comprobar cúanto debes pagas de impuestos de circulación, a veces un coche pequeño con poca potencia pero con mucho cilindro debe pagar más que un coche grande con más potencia pero con menos cilindro. Cuidado con eso, sobre todo en la franja entre los 11,xx y 12,xx PF.
__________________________________

Pregunta: ¿Por qué unas veces se declaran los View y otras veces no?

Declaramos los View cuando se van a utilizar dentro de otra Sub rutina, es decir si tenemos un Button1, por ejemplo...

Sub Button1_Click
cilindrada = EditText1.Text
Label7.Text = tarifa
End Sub

No haría falta declarar el Button1, pero sí tendríamos que declarar EditText1 y Label1, ya que se encuentran dentro de una subrutina.

Dim EditText1 As EditText
Dim Label1 As Label

En cambio si además tenemos otro Button2 dentro de la Sub rutina del Button1, sí tendríamos que declarar el Button2

Sub Button1_Click
cilindrada = EditText1.Text
Label7.Text = tarifa
Button2.Enabled = True
End Sub

Tendríamos que declarar

Dim EditText1 As EditText
Dim Label1 As Label
Dim Button2 As Button

Sin embargo, no hay ningún problema si se declaran todos los View del programa.

Dim EditText1, EditText2, EditText3 As EditText
Dim Label1, Label2, Label3 As Label
Dim Button1, Button2, Button3 As Button

________________________________