Código de Visual Basic para Aplicaciones - Sistema Solar en Excel

sin imagen de perfil
Val: 85
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Sistema Solar en Excelgráfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 2 de Septiembre del 2018 por David (9 códigos)
1.903 visualizaciones desde el 2 de Septiembre del 2018

Versión 1.0
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 2 de Septiembre del 2018gráfica de visualizaciones de la versión: Versión 1.0
1.904 visualizaciones desde el 2 de Septiembre del 2018
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Explicit
Private Salida As String
Private bo As String
Sub Inicia()
On Error Resume Next
Dim X, Y, X1, Y1, Radio, Ang  As Integer
Dim xtierra, ytierra, tx1, ty1 As Integer
Dim V As Integer
Salida = ""
Radio = ActiveSheet.Shapes("Sol").Width + 10
 
Range("A1").Select
 
ActiveSheet.Shapes("Sol").Left = 1750
 
 Do While Salida <> "SALIR"
 
    For Ang = 1 To 315
 
 
        X = ActiveSheet.Shapes("Sol").Left + ActiveSheet.Shapes("Sol").Height / 2
        Y = ActiveSheet.Shapes("Sol").Top + ActiveSheet.Shapes("Sol").Width / 2
 
        If Salida = "SALIR" Then Exit Do
 
       ActiveSheet.Shapes("Mercurio").Left = (((Radio - 250) * Sin((Ang / 25) * 4.999999999) + X) - ActiveSheet.Shapes("Mercurio").Height / 2)
       ActiveSheet.Shapes("Mercurio").Top = (((Radio - 250) * Cos((Ang / 25) * 4.999999999) - Y * -1) - ActiveSheet.Shapes("Mercurio").Width / 2)
 
 
       ActiveSheet.Shapes("Venus").Left = (((Radio - 200) * Sin((Ang / 25) * 3.999999999) + X) - ActiveSheet.Shapes("Venus").Height / 2)
       ActiveSheet.Shapes("Venus").Top = (((Radio - 200) * Cos((Ang / 25) * 3.999999999) - Y * -1) - ActiveSheet.Shapes("Venus").Width / 2)
 
       ActiveSheet.Shapes("Tierra").Left = (((Radio - 120) * Sin((Ang / 25) * 1.999999999) + X) - ActiveSheet.Shapes("Tierra").Height / 2)
       ActiveSheet.Shapes("Tierra").Top = (((Radio - 120) * Cos((Ang / 25) * 1.999999999) - Y * -1) - ActiveSheet.Shapes("Tierra").Width / 2)
 
       ActiveSheet.Shapes("Marte").Left = (((Radio - 30) * Sin((Ang / 50) * 2.99999999) + X) - ActiveSheet.Shapes("Marte").Height / 2)
       ActiveSheet.Shapes("Marte").Top = (((Radio - 30) * Cos((Ang / 50) * 2.99999999) - Y * -1) - ActiveSheet.Shapes("Marte").Width / 2)
 
       ActiveSheet.Shapes("Jupiter").Left = (((Radio + 100) * Sin((Ang / 25) / 0.999999999) + X) - ActiveSheet.Shapes("Jupiter").Height / 2)
       ActiveSheet.Shapes("Jupiter").Top = (((Radio + 100) * Cos((Ang / 25) / 0.999999999) - Y * -1) - ActiveSheet.Shapes("Jupiter").Width / 2)
 
       ActiveSheet.Shapes("Saturno").Left = (((Radio + 330) * Sin((Ang / 25) / 1.999999999) + X) - ActiveSheet.Shapes("Saturno").Height / 2)
       ActiveSheet.Shapes("Saturno").Top = (((Radio + 330) * Cos((Ang / 25) / 1.999999999) - Y * -1) - ActiveSheet.Shapes("Saturno").Width / 2)
 
       ActiveSheet.Shapes("Urano").Left = (((Radio + 480) * Sin((Ang - 80) / 50) + X) - ActiveSheet.Shapes("Urano").Height / 2)
       ActiveSheet.Shapes("Urano").Top = (((Radio + 480) * Cos((Ang - 80) / 50) - Y * -1) - ActiveSheet.Shapes("Urano").Width / 2)
 
       ActiveSheet.Shapes("Neptuno").Left = (((Radio + 550) * Sin((Ang - 180) / 50) + X) - ActiveSheet.Shapes("Neptuno").Height / 2)
       ActiveSheet.Shapes("Neptuno").Top = (((Radio + 550) * Cos((Ang - 180) / 50) - Y * -1) - ActiveSheet.Shapes("Neptuno").Width / 2)
 
       xtierra = ActiveSheet.Shapes("tierra").Left + ActiveSheet.Shapes("tierra").Height / 2
       ytierra = ActiveSheet.Shapes("tierra").Top + ActiveSheet.Shapes("tierra").Width / 2
 
       tx1 = 50 * Cos(Ang / 3) + xtierra
       ty1 = 50 * Sin(Ang / 3) - ytierra * -1
 
       ActiveSheet.Shapes("luna").Left = (tx1 - ActiveSheet.Shapes("luna").Height / 2)
       ActiveSheet.Shapes("luna").Top = (ty1 - ActiveSheet.Shapes("luna").Width / 2)
 
       ActiveSheet.Shapes("Halley").Left = ((Radio + 850) * Cos((Ang - 850) / 50) + X - ActiveSheet.Shapes("Halley").Height / 2) * 2
       ActiveSheet.Shapes("Halley").Top = ((Radio + 250) * Sin((Ang - 1800) / 50) - Y * -1 - ActiveSheet.Shapes("Halley").Width / 2) / 2
 
 
       DoEvents
 
    Next Ang
 
Loop
End Sub
Sub Fin()
    Salida = "SALIR"
End Sub



Comentarios sobre la versión: Versión 1.0 (1)

5 de Septiembre del 2018
estrellaestrellaestrellaestrellaestrella
Saludos cordiales donde pongo el codigo y como hago funcionar.
Responder

Comentar la versión: Versión 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4790