App inventor 2 en español
Cómo programar los teléfonos móviles con Android.
Curso de App inventor 2 en español - Juan Antonio Villalpando
-- Tutorial de iniciación de App Inventor 2 en español --
Volver al índice del tutorial
____________________________
85.- Fases de la luna.
p101_fases_luna.aia
- Se trata de obtener un dibujo de la fase de la luna según el día indicado. Se muestra un dibujo y además un enlace a un sitio web en donde hacen el cálculo con más precisión. Este código resultó ganador en uno de nuestros concursos.
_________________
- Diseño.
- Bajamos a nuestro ordenador y luego subimos a App inventor estos archivos:
fasesdelaluna.zip
- Situamos los componentes indicados.
- El Deslizador entre 0 y 28.
- Como fondo de pantalla he puesto la imagen: oie_transparent2.png
- Añadimos otra ventana, la llamamos moongiant
_________________
- Bloques.
___________________________
- Código.
$dia = Read($Input1)
$mes = Read($Input2)
$anno = Read($Input3)
$c = 0
$e = 0
$jd = 0
$b = 0
If ($mes < 3) Then
$anno = $anno - 1
$mes = $mes + 12
EndIf
$mes = $mes + 1
$c = 365.25 * $anno
$e = 30.6 * $mes
$jd = $c + $e + $dia - 694039.09 ; Este jd es el tiempo total transcurrido
$jd = $jd / 29.5305882 ; divide por el ciclo lunar
$b = Int ($jd)
$jd = $jd - $b ; Este $jd es la vida lunar.
$b = Round($jd * 8)
If ($b >= 8 ) Then $b = 0
Switch $b
Case 0
$fase = "Luna nueva"
Case 1
$fase = "Poco creciente"
Case 2
$fase = "Cuarto creciente"
Case 3
$fase = "Muy creciente"
Case 4
$fase = "Luna llena"
Case 5
$fase = "Poco menguante"
Case 6
$fase = "Cuarto menguante"
Case 7
$fase = "Muy menguante"
EndSwitch
GUICtrlSetData($Label5, $b & "-" & $fase)
__________________________________
|