none
Solar system simulation

    General discussion

  • This program, developed by my 12 years old son, Adrian, provides a planet movement simulation, with an acurate rotation period simulation.

    '----------------------- Mensaje de Presentación '-----------------------
    TextWindow.Title ="Planetario de Adrián Garrido Sáez 1ºA ESO - Colegio Miramadrid"
    TextWindow.BackgroundColor="Blue"
    TextWindow.ForegroundColor="Yellow"
    TextWindow.Clear()
    TextWindow.Top=(Desktop.Height-400)/2
    TextWindow.Left=(Desktop.Width-700)/2
    TextWindow.WriteLine("")
    TextWindow.WriteLine("")
    TextWindow.WriteLine("###############################################################################")
    TextWindow.WriteLine("#                                                                             #")
    TextWindow.WriteLine("#                                  ///\\___                                   #")
    TextWindow.WriteLine("#                                  (@ @)                                      #")
    TextWindow.WriteLine("#                       +----oOO----(_)-----------+                           #")
    TextWindow.WriteLine("#                       (                         )                           #")
    TextWindow.WriteLine("#                       (       PLANETARIO        )                           #")
    TextWindow.WriteLine("#                       (  ADRIAN GARRIDO SAEZ    )                           #")
    TextWindow.WriteLine("#                       (       1ºA ESO           )                           #")
    TextWindow.WriteLine("#                       (   COLEGIO MIRAMADRID    )                           #")
    TextWindow.WriteLine("#                       (                         )                           #")
    TextWindow.WriteLine("#                       +-----------------oOO-----+                           #")
    TextWindow.WriteLine("#                                ³__³__³                                      #")
    TextWindow.WriteLine("#                                 ³³ ³³                                       #")
    TextWindow.WriteLine("#                                ooO Ooo                                      #")
    TextWindow.WriteLine("#                                                                             #")
    TextWindow.WriteLine("###############################################################################")
    TextWindow.WriteLine("")
    TextWindow.WriteLine("                              Pulsa <Intro>")
    Resp =TextWindow.Read()
    '----------------------- Ajustamos la ventana para que ocupe toda la pantalla '-----------------------
    GraphicsWindow.Width = Desktop.Width-14
    GraphicsWindow.Height = Desktop.Height-55
    GraphicsWindow.Top = 0
    GraphicsWindow.Left = 0
    'título y fondo
    GraphicsWindow.Title="Planetario de Adrián Garrido Sáez 1ºA ESO - Colegio Miramadrid"
    GraphicsWindow.BackgroundColor="Black"
    GraphicsWindow.MouseDown =MD 'asignar manejador evento
    'fijamos el orijen en el centro de la pantalla
    OriX=GraphicsWindow.Width /2
    OriY=GraphicsWindow.Height /2 -10
    RelAsp=GraphicsWindow.Width /GraphicsWindow.Height
    ' ----------- Datos del Sol -----------
    DiamPlaneta[0]=OriY /3.5   'Diámetro Planeta
    OrbPlaneta[0]= 0            'Radio Órbita
    ColorPlaneta[0]="Yellow"    'Color
    PeriodoPlaneta[0]= 0       'Periodo Cósmico
    NombrePlaneta[0]="El Sol"     'Nombre planeta
    'Información planeta
    InfoPlaneta[0]="Nuestro sol es una estrella del tipo espectral G2V, denominada también enana amarilla A causa de su proximidad a la Tierra y como es una estrella típica, el Sol es un recurso extraordinario para el estudio de los fenómenos estelares. No se ha estudiado ninguna otra estrella con tanto detalle. a energía solar se crea en el interior del Sol denominado NUCLEO. Es aquí donde la temperatura (15.000.000° C) y la presión (340 mil veces la presión del aire en la Tierra al nivel del mar) son tan intensas que se llevan a cabo las reacciones nucleares. Éstas reacciones causan que cuatro átomos de hidrógeno se fusionen y formen una partícula alfa o núcleo de helio. La partícula alfa tiene cerca de 0.7 % menos masa que los cuatro protones. La diferencia en la masa es expulsada como energía y es llevada a la superficie del Sol, a través de un proceso conocido como convección, donde se liberan luz y calor. La energía generada en el centro del Sol tarda un millón de años para alcanzar la superficie solar. Cada segundo se convierten 700 millones de toneladas de hidrógeno en cenizas de helio, el núcleo solar esta compuesto de hidrógeno y helio en cantidades iguales y un 2% de otros elementos. En el proceso se liberan 5 millones de toneladas de energía pura; por lo cual, el Sol cada vez se vuelve más ligero."
    ' ----------- Datos de Mercurio -----------
    DiamPlaneta[1]=OriY /60      'Diámetro Planeta
    OrbPlaneta[1]=OriY / 5.4      'Radio Órbita
    ColorPlaneta[1]="MediumOrchid" 'Color
    PeriodoPlaneta[1]= 88       'Periodo Cósmico
    NombrePlaneta[1]="Mercurio"     'Nombre planeta
    'Información planeta
    InfoPlaneta[1]="Mercurio recibió este nombre de los romanos por el mensajero de pies alados de los dioses ya que parecía moverse más rápido que ningún otro planeta. Es el planeta más cercano al Sol, y el segundo más pequeño del Sistema Solar. Su diámetro es un 40% más pequeño que la Tierra y un 40% más grande que la Luna. Es incluso más pequeño que la luna de Júpiter, Ganimedes o la luna de Saturno, Titán. Se encuentra a una distancia aproximada del Sol de 58 millones de km, tiene un diámetro de 4.875 km, su volumen y su masa son semejantes a los de la Tierra y su densidad media es aproximadamente igual a la de la Tierra. Mercurio órbita alrededor del Sol cada 88 días (año del planeta). Los estudios de radar del planeta muestran que gira sobre su eje una vez cada 58,7 días o cada dos terceras partes de su periodo orbital; por tanto, gira una vez y media sobre su eje durante cada periodo orbital. Dado que su superficie es abrupta, porosa y de roca oscura." 
    ' ----------- Datos de Venus -----------
    DiamPlaneta[2]=OriY /44      'Diámetro Planeta
    OrbPlaneta[2]=OriY / 4.4      'Radio Órbita
    ColorPlaneta[2]="Orange"      'Color
    PeriodoPlaneta[2]= 225       'Periodo Cósmico
    NombrePlaneta[2]="Venus"     'Nombre planeta
     'Información planeta
    InfoPlaneta[2]="Venus,que recibe el nombre de la diosa romana del amor y la belleza, es el segundo planeta desde el Sol. Es el objeto más brillante del cielo, después del Sol y la Luna. A este planeta se le llama el lucero del alba cuando aparece por el Este al amanecer y el lucero de la tarde cuando está situado al Oeste al atardecer. En la antigüedad, al lucero de la tarde se le llamaba Hesperus y al lucero del alba Phosphorus o Lucifer. Debido a las distancias de las órbitas de Venus y la Tierra desde el Sol, Venus no es visible nunca más de tres horas antes del amanecer o tres horas después del ocaso. Los primeros astrónomos pensaron que Venus podría ser en realidad dos cuerpos separados. Observado a través de un telescopio, el planeta muestra fases como la Luna."      
    ' ----------- Datos de Tierra -----------
    DiamPlaneta[3]=OriY /42      'Diámetro Planeta
    OrbPlaneta[3]=OriY / 3.5      'Radio Órbita
    ColorPlaneta[3]="MediumSlateBlue" 'Color
    PeriodoPlaneta[3]= 365       'Periodo Cósmico
    NombrePlaneta[3]="Tierra"     'Nombre planeta
     'Información planeta
    InfoPlaneta[3]="La Tierra es el tercer planeta más cercano al Sol, a una distancia de alrededor de 150 millones de kilómetros y el quinto en cuanto a tamaño de los nueve planetas principales. Tiene un diámetro de 12.756 kilómetros, solamente unos cuantos kilómetros más grande que el diámetro de Venus. Nuestra atmósfera está compuesta de un 78 por ciento de nitrógeno, 21 por ciento de oxígeno y 1 por ciento de otros constituyentes. Es el único planeta conocido que tiene vida, aunque algunos de los otros planetas tienen atmósferas y contienen agua. La Tierra no es una esfera perfecta, sino que tiene forma de pera. Cálculos basados en las perturbaciones de las órbitas de los satélites artificiales revelan que la Tierra es una esfera imperfecta porque el ecuador se engrosa 21 km; el polo norte está dilatado 10 m y el polo sur está hundido unos 31 metros."      
    ' ----------- Datos de Marte -----------
    DiamPlaneta[4]=OriY /50      'Diámetro Planeta
    OrbPlaneta[4]=OriY / 2.92      'Radio Órbita
    ColorPlaneta[4]="OrangeRed"   'Color
    PeriodoPlaneta[4]= 687       'Periodo Cósmico
    NombrePlaneta[4]="Marte"     'Nombre planeta
    'Información planeta
    InfoPlaneta[4]="Marte es el cuarto planeta desde el Sol y el séptimo en cuanto a masa. Suele recibir el nombre de Planeta Rojo. Las rocas, suelo y cielo tienen una tonalidad rojiza o rosacea ya que contiene altas cantidades de óxido de hierro, conocido también como Hematita. Este característico color rojo fue observado por los astrónomos a lo largo de la historia. Los romanos le dieron nombre en honor de su dios de la guerra. Otras civilizaciones tienen nombres similares. Los antiguos Egipcios lo llamaron Her Descher que significa el rojo. Marte tiene dos pequeños satélites con cráteres, Fobos y Deimos, que algunos astrónomos consideran que son asteroides capturados por el planeta muy al comienzo de su historia. Fobos mide unos 21 kms de diámetro y Deimos, sólo unos 12 kilómetros. Antes de la exploración espacial, Marte era considerado como el mejor candidato para albergar vida extraterrestre. Los astrónomos creyeron ver líneas rectas que atravesaban su superficie. Esto condujo a la creencia popular de que algún tipo de inteligencia había construido canales de irrigación"       
    ' ----------- Datos de Júpiter -----------
    DiamPlaneta[5]=OriY /8.75      'Diámetro Planeta
    OrbPlaneta[5]=OriY / 2.19      'Radio Órbita
    ColorPlaneta[5]="Olive"       'Color
    PeriodoPlaneta[5]= 4307       'Periodo Cósmico
    NombrePlaneta[5]="Júpiter"     'Nombre planeta
    'Información planeta
    InfoPlaneta[5]="Júpiter es el quinto planeta desde el Sol, y el mayor del sistema solar. Recibió el nombre del rey de los dioses de la mitología romana. Júpiter es 1.400 veces más voluminoso que la Tierra (si estuviera vacío cabrían en su interior más de mil Tierras), pero su masa es sólo 318 veces la de nuestro planeta, esto se debe que es un plantea prácticamente gaseoso. La densidad media de Júpiter es como una cuarta parte de la densidad de la Tierra, lo que indica que este planeta gigante debe estar compuesto de gases más que de metales y rocas como la Tierra y otros planetas. Planeta Júpiter Da una vuelta alrededor del Sol cada 11,9 años terrestres a una distancia orbital media de 778 millones de kilómetros. El Planeta Tierra y Júpiter tienen períodos en los cuales se acercan y se alejan uno de otro ya que sus órbitas no son todos los años iguales. Este ciclo se produce cada 47 años. La distancia mínima entre ambos planetas es de 590 millones de kilómetros, la cual ocurre al momento de escribir estas líneas en julio de 2013, la distancia máxima entre ambos planetas cuando están en oposición es de 676 millones de kilómetros. Júpiter tiene un diámetro ecuatorial de 142.800 kilómetros y tarda 9,9 horas en dar una vuelta alrededor de su eje . Esta rápida rotación sumado a que se compone casi por completo de hidrógeno y helio produce un engrosamiento ecuatorial que se aprecia cuando se mira el planeta a través de un telescopio. La rotación no es uniforme y el mismo efecto se nota en el sol."       
    ' ----------- Datos de Saturno -----------
    DiamPlaneta[6]=OriY /10      'Diámetro Planeta
    OrbPlaneta[6]=OriY / 1.52      'Radio Órbita
    ColorPlaneta[6]="Khaki"       'Color
    PeriodoPlaneta[6]= 10731       'Periodo Cósmico
    NombrePlaneta[6]="Saturno"     'Nombre planeta
    'Información planeta
    InfoPlaneta[6]="Saturno es el sexto planeta desde el Sol y el segundo más grande del sistema solar con un diámetro ecuatorial de 119.300 kilómetros. Está claramente achatado en los polos, como resultado de la rápida rotación del planeta alrededor de su eje. Su día dura 10 horas, 39 minutos y tarda 29,5 años terrestres en completar su órbita alrededor del Sol. La peculiaridad más conocida de Saturno es la de estar rodeado de un sistema de anillos, descubierto en 1610 por Galileo utilizando uno de los primeros telescopios. Galileo no comprendió que los anillos estuvieran separados del cuerpo central del planeta, así que los describió como asas. Fue el astrónomo holandés Christiaan Huygens el primero en describirlos correctamente. En 1655, para no perder su derecho de prioridad mientras verificaba sus propuestas, Huygens escribió un anagrama que, cuando se ordenaba, formaba una sentencia latina cuya traducción dice así: Está circundado por un delgado anillo achatado, inclinado hacia la eclíptica y sin tocar en ningún punto al planeta. Los anillos, que se nombraron por el orden en que se descubrieron, se conocen como los anillos D, C, B, A, F, G y E. Hoy se sabe que contienen más de 100.000 pequeños anillos, todos ellos girando en torno al planeta. El viento sopla a grandes velocidades en Saturno. Cerca del ecuador, alcanza velocidades de 500 metros por segundo. El viento sopla principalmente hacia el este. Los vientos más fuertes se encuentran cerca del ecuador y su velocidad disminuye uniformemente a medida que nos alejamos de él. A latitudes por encima de los 35 grados, los vientos alternan su dirección de este a oeste según aumenta la latitud."
    ' ----------- Datos de Urano -----------
    DiamPlaneta[7]=OriY /17.5      'Diámetro Planeta
    OrbPlaneta[7]=OriY / 1.25      'Radio Órbita
    ColorPlaneta[7]="SlateBlue"       'Color
    PeriodoPlaneta[7]= 30660       'Periodo Cósmico
    NombrePlaneta[7]="Urano"     'Nombre planeta
    'Información planeta
    InfoPlaneta[7]="Urano es el séptimo planeta desde el Sol y es el tercero más grande del Sistema Solar. En comparación con la Tierra, Urano tiene una masa 14,5 veces mayor, un volumen 67 veces mayor y una gravedad 1,17 veces mayor. No obstante, el campo magnético de Urano sólo es una décima parte más fuerte que el de la Tierra. La densidad de Urano es aproximadamente 1,2 veces la del agua. Fue descubierto accidentalmente en 1781 por el astrónomo británico William Herschel y originariamente se le llamó Georgium Sidus (Estrella de Jorge) en honor a su mecenas real, Jorge III. Más tarde, durante un tiempo se le llamó Herschel en honor a su descubridor. El nombre Urano, que propuso por vez primera el astrónomo alemán Johann Elert Bode, se comenzó a utilizar a finales del siglo XIX. Tiene un diámetro ecuatorial de 51.800 kilómetros y su distancia media al Sol es de 2.870 millones de kilómetros. Completa su órbita alrededor del Sol cada 84,01 años terrestres, pero gira fuera de la órbita de Saturno y dentro de la órbita de Neptuno. La distancia mínima al sol (perihelio) es de 2.750 millones de kilómetros y la distancia máxima al sol es de 3.005 millones de kilómetros (Afelio). El día de Urano dura 17 horas y 14 minutos. El año de Urano (una vuelta completa al sol) tarda 84 años de La Tierra. Urano tiene 27 lunas. Las dos más grandes, Titania y Oberón, fueron descubiertas por William Herschel en 1787." 
    ' ----------- Datos de Neptuno -----------
    DiamPlaneta[8]=OriY /23      'Diámetro Planeta
    OrbPlaneta[8]=OriY / 1.04      'Radio Órbita
    ColorPlaneta[8]="DarkSlateBlue"       'Color
    PeriodoPlaneta[8]= 60115       'Periodo Cósmico
    NombrePlaneta[8]="Neptuno"     'Nombre planeta
    'Información planeta
    InfoPlaneta[8]="Neptuno es el cuarto planeta en cuanto a tamaño y el octavo en cuanto a distancia al Sol. Siendo actualmente el último planeta del sistema solar ya que plutón fue degradado a la categoría de 'Planeta Enano'. Ggracias a la nueva categoría de plutón Neptuno ha adquirido gran importancia, ya que, todo cuerpo celeste mas allá de la órbita de este planeta se llama objeto transneptuniano o cuerpo celeste transneptuniano. La distancia media de Neptuno al Sol es de 4.500 millones de kilómetros. Cuando está cerca del sol se encuentra a unas 29 Unidades Astronómicas (Perihelio) y Cuando se aleja del sol se encuentra a 30.4 UA. Su diámetro ecuatorial es de aproximadamente 49.400 kilómetros, o sea, cerca de 3,8 veces el de la Tierra. Su volumen es aproximadamente 72 veces y su masa 17 veces la de la Tierra o 1,7 veces la del agua. Neptuno completa su órbita alrededor del Sol cada 165 años. Un día de Neptuno tiene 16 horas y 6,7 minutos."
    '=============== Dibujar órbita planetas ===============
    For i=8 to 1 step -1
      GraphicsWindow.PenColor =ColorPlaneta[i] 'color
      GraphicsWindow.PenWidth =1
      GraphicsWindow.BrushColor="Black"
      OPlan[I] = Shapes.AddEllipse (OrbPlaneta[i] * RelAsp*2 ,  OrbPlaneta[i] *2)
      Shapes.Move (OPlan[i],OriX - OrbPlaneta[i] * RelAsp ,oriy - OrbPlaneta[i])
    endfor
    '=============== Estrellas colocadas aleatoriamente ===============
    For i=1 to 100
      GraphicsWindow.PenColor="White"
      GraphicsWindow.BrushColor="White"
      StarX[i]= Math.GetRandomNumber(GraphicsWindow.Width)
      StarY[i]= Math.GetRandomNumber(GraphicsWindow.Height)
      Star[i]= Shapes.AddEllipse (Math.GetRandomNumber(3),Math.GetRandomNumber(3))
      Shapes.Move(Star[i],StarX[i],StarY[i])
    endfor
    '=============== Crear Planetas '===============
    For i=8 To 0 Step -1
      AnguloPlaneta[i]= 270
      GraphicsWindow.PenColor =ColorPlaneta[i] 'color
      'posición planeta
      PlanetaX[i]= OriX - DiamPlaneta[i] / 2
      PlanetaY[i]= OriY - DiamPlaneta[i] / 2 -OrbPlaneta[i]
      If I=6 Then 'Anillo de saturno
        GraphicsWindow.PenWidth=DiamPlaneta[6] /6
        GraphicsWindow.BrushColor="Black"
        Anillo= Shapes.AddEllipse(DiamPlaneta[6] * 2,DiamPlaneta[6] * 0.5) 'crear el círculo del planeta
        Shapes.Move(Anillo,PlanetaX[6]-DiamPlaneta[6]*0.5, PlanetaY[6]+DiamPlaneta[6]*0.25) 'colocarlo
        AnilloL= Shapes.AddEllipse(DiamPlaneta[6] * 2,DiamPlaneta[6] * 0.5) 'crear el círculo del planeta
        Shapes.Move(AnilloL,40-DiamPlaneta[6], 50*i + 25-DiamPlaneta[6] *0.25) 'colocarlo
      EndIf
      GraphicsWindow.BrushColor=ColorPlaneta[i]
      Planeta[i]= Shapes.AddEllipse(DiamPlaneta[i],DiamPlaneta[i]) 'crear el círculo del planeta
      Shapes.Move(Planeta[i],PlanetaX[i], PlanetaY[i]) 'colocarlo en la posición inicial
      
     '----------- poner la leyenda de los planetas
     LPlaneta[i]= Shapes.AddEllipse(DiamPlaneta[i],DiamPlaneta[i]) 'crear el círculo del planeta para la leyenda
     TPlaneta[i]= Shapes.AddText(Nombreplaneta[I]) 'crear el nombre del planeta para la leyenda
     If i>0 then   'planetas
       Shapes.Move(LPlaneta[i],40-DiamPlaneta[i]/2, 50*i + 25-DiamPlaneta[i] /2) 'colocarlo 
       Shapes.Move(TPlaneta[i],90, 50*i+ 17) 'colocarlo
     Else  'el sol, para que se vea sólo un cuarto
        Shapes.Move(LPlaneta[i],40-DiamPlaneta[i], 50*i-DiamPlaneta[i] /2 ) 'colocarlo 
        Shapes.Move(TPlaneta[i],90, 50*i+DiamPlaneta[i]/4-8) 'colocarlo
      EndIf
      
    EndFor
    '=============== Elementos euxiliares '===============
    GraphicsWindow.BrushColor="White"
    TIns= Shapes.AddText("Pulsa sobre el nombre de un planeta para ver información del mismo, o sobre la velocidad de animación para cambiarla") 'texto informativo
    Shapes.Move(Tins,20, GraphicsWindow.Height-30) 'colocarlo
    GraphicsWindow.BrushColor ="LightBlue"
    TVel=Shapes.AddText("Velocidad = 1")   'Texto velocidad simulación
    Shapes.Move (Tvel,GraphicsWindow.Width-100,20)
    GradToRad= Math.Pi *2 /360  'constante de paso de grados a radianes
    VelSim =1  'paso de simulación en º por cada paso para la tierra
    Días=0
    GraphicsWindow.PenColor ="White"
    GraphicsWindow.BrushColor ="White"
    TDías=Shapes.AddText("0 Días")
    Shapes.Move (TDías,GraphicsWindow.Width-100,5)
    Timer.Interval=100
    Timer.Resume()
    Timer.Tick=Anima

    '############# Manejadores de eventos #############
    Sub MD ' anejador del evento que se produce al hacer click
      X= GraphicsWindow.MouseX
      Y= GraphicsWindow.MouseY
      ' ----------------- se ha pulsado sobre la leyenda de algún Planeta -----------------
      IPlan= Math.Floor(Y/50) 'índice planeta si han pulsado sobre alguno
      If (X>=10) and (X<=150) And (Iplan>=0) and (Iplan <=8) then
        GraphicsWindow.ShowMessage (InfoPlaneta[Iplan],NombrePlaneta[Iplan])
      EndIf
       ' ----------------- se ha pulsado sobre la Velocidad -----------------
       If (X>=GraphicsWindow.Width-100) And (Y>=20) and (Y <=35) then
         VelSim=VelSim+1
         If VelSim>10 then
           VelSim =1
         EndIf
        Shapes.SetText(TVel,"Velocidad = " + VelSim)
      EndIf
    EndSub
    '================= Subrutina Animación, Maneja Evento Temporizado =================
    Sub Anima
      LCount =LCount +1
      If Math.Remainder (Lcount,5)=0 then  'un bucle Desktop cada 5
        'Mover una estrella aleatoria 
        i= Math.GetRandomNumber(100)
        StarX[i]= Math.GetRandomNumber(GraphicsWindow.Width)
        StarY[i]= Math.GetRandomNumber(GraphicsWindow.Height)
        Shapes.Move(Star[i],StarX[i],StarY[i])
     EndIf 
      '-------------- BUCLE PLANETAS
      For i=1 To 8  
        paso= VelSim *  365.0 /PeriodoPlaneta[i]  'paso en º para cada planeta dependiendo de su periodo cósmico (año)
        If i=3 then  'actualizar texto años terrestres
          Días= Días + paso /360 *365
          Shapes.SetText (TDías, math.Floor (Días) + " Días")
        EndIf
        AnguloPlaneta[i]= AnguloPlaneta[i] - paso 'nueva posición del planeta en º
        if AnguloPlaneta[i] >360 Then 'paso por 360
          AnguloPlaneta[i]= AnguloPlaneta[i] -360
        EndIf
        if AnguloPlaneta[i] <0 Then 'paso por 0
          AnguloPlaneta[i]= 360 +AnguloPlaneta[i] 
        EndIf
        'cálculo de la posición X multiplicada por la relacción de aspecto de la pantalla  para órbita elíptica
        PlanetaX[i]= Math.Cos(GradToRad * AnguloPlaneta[i]) * OrbPlaneta[i] * RelAsp  +OriX - DiamPlaneta[i] / 2 
        PlanetaY[i]= Math.Sin(GradToRad * AnguloPlaneta[i]) * OrbPlaneta[i] +OriY - DiamPlaneta[i] / 2 'cálculo de la posición Y
        If i=6 Then
          Shapes.Animate(Anillo,PlanetaX[6]-DiamPlaneta[6]*0.5, PlanetaY[6]+DiamPlaneta[6]*0.25,100) ' Anillo de saturno
        EndIf
        Shapes.Animate (Planeta[i],PlanetaX[i], PlanetaY[i],100) 'Mover Planeta
      EndFor
    EndSub


    Tuesday, November 25, 2014 3:02 PM

All replies

  • Nice program and nice graphics !!!
    Congratulations !!!

    In Spanish:
    ---------------

    bonito programa y graficos !!!

    Enhorabuena !!

    NOTA:

    Genial . Si haces esto con 12 años ni me imagino lo que seras capaz de hacer con mas edad.

    ¿Te han ayudado en la formulación de los cálculos orbitales ? ...... En cualquier caso has logrado un gran programa muy por encima de lo que se espera de un muchacho de tu edad .

    Espero ver en este foro mas trabajos tuyos.

    Este programa tuyo es una prueba rotunda del éxito y de las posibilidades de Small Basic en la formación sobre lenguajes de programación en jóvenes de poca edad. También por supuesto de tu capacidad personal .

    Yo también, después de muchos años sin programar, he vuelto a divertirme con Small Basic . 

    Repito mis felicitaciones y las extiendo al diseñador y a los que dan apoyo a Small Basic.



    jalpc



    • Edited by jalpc Tuesday, November 25, 2014 3:54 PM
    Tuesday, November 25, 2014 3:49 PM
  • Wow!  Fantastic program!  Thank you very much for sharing this program, JCGarrido.

    Screen shot of a program Planetario

    P.S. I changed this thread from Question to General Discussion.


    Nonki Takahashi

    Tuesday, November 25, 2014 3:54 PM
    Moderator
  • Thanks JcGarrido

    Really a very good program made by your son, we should appreciate idea as well as a lot of efforts taken for completing the program in a very presentable and logical way. I have downloaded the program and will show to others for inspiring them to learn programming.

    It shows that for good programming your imagination is the limit.

    Hope English version of the program shall be available. and pl share program code too via import

    Wednesday, November 26, 2014 7:18 PM
  • La trigonometría básica (y errónea, ya que, en la simulación , los planetas se mueven con velocidad angular constante, a despecho de las leyes de Kepler) es mía, si bien yo había planeado hacer órbitas circulares y el las convirtió en elípticas simplemente multiplicando la dimensión horizontal por la relación de aspecto de la pantalla. En fin, que las mejores ideas son de él y yo me limité en postular las fórmulas del seno y coseno, que no aprenderá en el colegio hasta dentro de un par de años.

    Muchas gracias por tus palabras.

    Thursday, November 27, 2014 2:03 PM
  • Thanks a lot for your words.
    Thursday, November 27, 2014 2:03 PM
  • Thanks a lot for your words.

    I think that smallbasic is a fantastic enviroment for starting learning programming.

    Thursday, November 27, 2014 2:05 PM
  • Saturday, November 29, 2014 8:33 AM
    Moderator
  • It's a very big honour.

    Thanks a lot.

    Tuesday, December 02, 2014 3:55 PM
  • wow!
    Saturday, December 13, 2014 8:28 AM
  • This Aplication for calc Solar Energy?

    I Need Calc Solcistic.

    You aplication is good!!

    Energia Solar


    é sempre bom aprender um pouco mais. - www.tanabiblia.com.br

    Saturday, February 27, 2016 8:30 AM