|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 Arduino
   Elastix - VoIP Cosas de Windows Webs interesantes  Telecomunicaciones

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

Nueva sección en esta web: Elastix - VoIP

¿Qué es esto?

- Monta un servidor telefónico en tu ordenador para poderte comunicar mediante tu móvil con otros móviles que estén en tu red Wifi. Parecido a Skipe o Whatsapp-teléfono, pero en este caso tú controlas al servidor.

- Si sabes abrir puertos del router, también puedes comunicarte con tu móvil de una red Wifi a teléfonos de otra red Wifi.

- También puedes comunicarte con teléfonos "normales", pero para eso necesitas un dispositivo que vale unos 60 €.

- Es muy recomendable aprender el funcionamiento de este servidor telefónico Asterisk-Elastix.

 Elastix - VoIP

 

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

-- Tutorial de B4A --

Volver al índice del tutorial                    Return to index tutorial

____________________________

Basic4Android.

7.- Potencia fiscal.
Bajar Potencia_fiscal.zip

Calcular la potencia fiscal de un vehículo y su cilindrada

- Aquí vamos a ver otra aplicación para aprender a introducir fórmulas, en este caso se me ha ocurrido calcular la Potencia Fiscal y la cilindrada de un vehículo (en España).

- Según la Potencia Fiscal, así debemos pagar los impuestos de circulacion en nuestro Ayuntamiento.

- Para conocer las tarifas de la potencia fiscal escribe esta frase en el buscador Google:
"Ordenanza fiscal reguladora del impuesto sobre vehículos de tracción mecánica"

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

potencia fiscal android app inventor android cálculo               (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.

cilindrada de un motro potencia fiscal recorido diámetro android

¿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:

potencia fiscal android app inventor cálculo             (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 = -

Código Potencia Fiscal
'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.

potencia fiscal android calcular

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

 

________________________________

Si quieres que este tutorial se mantenga y lo actualice con más programas, escríbeme un correo a Juan Antonio: juana1991@yahoo.com

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información