|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 WAMP - PHP - MySQL
  Estación meteorológica Cosas de Windows Webs interesantes Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Translate:
Búsqueda en este sitio:


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

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)

__________________________________

 

- 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