Trabajos en Microsoft Visual Basic 6.0

Bueno... Quería compartir con ustedes unos trabajos que hice con amigos... No serán buenos( pueden mejorarlos), jaja pero los comparto con ustedes... Si alguien tiene el Visual claro...
Estos trabajos me los hicieron hacer para la escuela, hay de todo tipo.
Aca les dejo la explicación del Drag&Drop : ( Los Rem, son comentarios y va diciendo lo que sucedeo lo que es)

-Conceptos Básicos de Drag

Rem este Procedimiento se activa cuando movemos un objeto con el Mouse sobre el Formulario
Rem Se arrastra y suelta algún objeto cuya propiedad DragMode esta en 1
Rem Source es cualquier objeto que pueda ser arrastrado en este caso sobre el formulario, por ejemplo Source en este caso remplaza al Label1, Label2, etc
Rem X e Y representan la coordenada Horizontal y Vertical actual del puntero del Mouse
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Rem move ubica horizontalmente y verticalmente a un objeto
Rem es equivalente a utilizar el Left y luego el Top
Source.Move X, Y
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Label1.BackColor = vbRed
Label1.DragMode = 1
Label2.Caption = ""
Label2.BackColor = vbBlue
Label2.DragMode = 1
End Sub



Un objeto (Image1) aparece en cualquier lugar al azar de un formulario maximizado, lo desplazamos hasta otro sitio cualquiera, y al soltar el botón izquierdo del Mouse, sale un mensaje que dice Volver al lugar de origen y al aceptar, el objeto arrastrado inmediatamente retorna a su posición original.

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Move X, Y
MsgBox "Volver al lugar de origen"
Image1.Move Label1.Left, Label1.Top
End Sub

Private Sub Form_Load()
Label1.Visible = False
Image1.DragMode = 1
Form1.WindowState = 2
End Sub

Private Sub Form_Resize()
Randomize
Image1.Move (Form1.Width - Image1.Width) * Rnd, (Form1.Height - Image1.Height) * Rnd
Rem utilizo Label1 como un objeto auxiliar para poder almacenar (recorder) en este caso la
Rem posicion que tenia la Imagen antes de ser movida
Label1.Left = Image1.Left
Label1.Top = Image1.Top
End Sub


-------------------------------------------------------------------------------

Trabajos

Les voy dejando el nombre que tienen y despues los objetos que se necesitan para que funcione y por último lo más importante: Los códigos .

Buscaminas con ceros

Un buscaminas como el juego de INICIO, pero con ceros...
Objetos requeridos:

- Label1 ( 23 matrices), es decir, 22 labels1 más, ya que el cero se cuenta como uno. Esto lo pueden hacer así : Copian el Label1, control + c , y luego ponen control + v , les aparecerá un cartel que dice algo asi como si desean crear una Matriz de controles, ponen aceptar, y pegan los labels restantes.

- Label2 ( UNO SOLO )

- Dos imágenes( Una con cara buena, y otra con mala, esto es para que cuando salga un " 0 " se ponga la cara mala, y luego apretandola se reinicia el juego con una buena). La cara mala debe ser la Image1 ( es decir la primer Image) , y la cara buena debe ser la Image2 ( es decir, la segunda Image).

Código :

Private Sub Form_Load()
Form1.WindowState = 2
Form1.Caption = "Evitando los ceros"
For i = 0 To 23
Label1(i).BackColor = vbWhite

Label1(i).Caption = ""
Label1(i).BorderStyle = 1
Label1(i).Appearance = 0
Label1(i).Font = "arial"
Label1(i).FontSize = 50
Label1(i).Alignment = 2
Label1(i).ForeColor = RGB( 0 , 186, 100)
Next i
Label2.Caption = 0
Label2.BorderStyle = 1
Label2.Appearance = 0
Label2.Font = "arial"
Label2.FontSize = 50
Label2.Alignment = 2
Image2.Visible = True
Image1.Visible = False
End Sub

Private Sub Form_Resize()
Image2.Left = Form1.Width / 2 - Image2.Width / 2
Image2.Top = Label1( 0 ).Top
Image1.Left = Form1.Width / 2 - Image2.Width / 2
Image1.Top = Label1( 0 ).Top
Label2.Width = Form1.Width / 10
Label2.Height = Form1.Height / 10
Label2.Top = 0
Label2.Left = 0

For i = 0 To 23
Label1(i).Width = Form1.Width / 10
Label1(i).Height = Form1.Height / 10
Next i
Label1( 0 ).Top = Form1.Height / 6 - Label1( 0 ).Height / 6
Label1( 0 ).Left = Form1.Width / 3 - Label1( 0 ).Width / 3
For i = 1 To 3
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1( 0 ).Top
Next i
Label1(4).Top = Label1( 0 ).Top + Label1(4).Height
Label1(4).Left = Label1( 0 ).Left
For i = 5 To 7
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1(4).Top
Next i
Label1(8).Top = Label1(4).Top + Label1(8).Height
Label1(8).Left = Label1(4).Left
For i = 9 To 11
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1(8).Top
Next i
Label1(12).Top = Label1(8).Top + Label1(12).Height
Label1(12).Left = Label1(8).Left
For i = 13 To 15
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1(12).Top
Next i
Label1(16).Top = Label1(12).Top + Label1(16).Height
Label1(16).Left = Label1(12).Left
For i = 17 To 19
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1(16).Top
Next i
Label1(20).Top = Label1(16).Top + Label1(20).Height
Label1(20).Left = Label1(16).Left
For i = 21 To 23
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Label1(i).Top = Label1(20).Top
Next i
End Sub

Private Sub Image1_Click()
Form_Load
End Sub

Private Sub Image2_Click()
Form_Load
End Sub

Private Sub Label1_Click(Index As Integer)
Randomize
For i = 0 To 23
Label1(Index).Caption = Int(9 * Rnd)
Next i
Label2.Caption = Val(Label2.Caption) + Val(Label1(Index))
If Label1(Index).Caption = 0 Then
For i = 0 To 23
Label1(i).Caption = Int(9 * Rnd)
Next i
Image2.Visible = False
Image1.Visible = True
End If
End Sub


------------------------------------------------------------------------------------------------------------------------------------------------------------

Trabajo de Nave y Misíl con Choque

Un trabajo original, JEJEJEJE de Naves ( en este trabajo se cumple algo muy importante la función de choques... entre objetos ) ( CON LAS FLECHITAS SE MUEVE, Y DISPARA CON SPACE)

Objetos Requeridos:

- Image1 ( Es la imagen de una nave, queda mejor una de fondo negro, pero funciona con cualquier imagen igual).

- Image2 ( UN MISÍL, que será el que impacte con la Image2 ( la nave).

- 5 timers, es decir : Timer1 , Timer2 , Timer3 , Timer4 , Timer5 .

Código :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyRight Then
Image2.Left = Image2.Left + 100
End If
If KeyCode = vbKeyLeft Then
Image2.Left = Image2.Left - 100
End If
If KeyCode = vbKeySpace Then
Timer3.Enabled = True
End If

End Sub

Private Sub Form_Load()

Timer1.Enabled = True
Timer1.Interval = 30
Timer2.Enabled = False
Timer2.Interval = 30
Timer3.Enabled = False
Timer3.Interval = 10
Form1.BackColor = vbBlack
Form1.KeyPreview = True
Form1.WindowState = 2
Timer4.Enabled = True
Timer4.Interval = 30
Timer5.Enabled = False
Timer5.Interval = 30


End Sub





Private Sub Form_Resize()
Image2.Top = Form1.Height / 1 - Image2.Height / 1
Image2.Left = Form1.Width / 2 - Image2.Width / 2

End Sub

Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 120
If Image1.Left >= Form1.Width - Image1.Width Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Image1.Left = Image1.Left - 135
If Image1.Left <= 0 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
Image2.Top = Image2.Top - 135
If Image2.Top <= 0 Then
Timer3.Enabled = False
Form_Resize
MsgBox "¡Le erraste a la nave!"
Timer3.Enabled = False
End If
If Image2.Left >= Image1.Left And Image2.Left <= Image1.Left + Image1.Width - Image2.Width And Image2.Top >= Image1.Top And Image2.Top <= Image1.Height + Image1.Top - Image2.Height Then
MsgBox "¡La Nave ha sido destruida!"
Timer3.Enabled = False
End If
If Image2.Left >= Image1.Left And Image2.Left <= Image1.Left + Image1.Width - Image2.Width And Image2.Top >= Image1.Top And Image2.Top <= Image1.Height + Image1.Top - Image2.Height Then
Image2.Top = Form1.Height / 1 - Image2.Height / 1
Image2.Left = Form1.Width / 2 - Image2.Width / 2
End If
End Sub
Private Sub Timer4_Timer()
Image2.Left = Image2.Left + 75
If Image2.Left >= Form1.Width - Image2.Width Then
Timer4.Enabled = False
Timer5.Enabled = True
End If
End Sub

Private Sub Timer5_Timer()
Image2.Left = Image2.Left - 75
If Image2.Left <= 0 Then
Timer5.Enabled = False
Timer4.Enabled = True
End If
End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------------------

Trabajo Didáctico(Geografía)

Aquí el mejor trabajo que hice... Y el más pesado, el que tiene más cosas, pero la verdad que vale mucho la pena.

Objetos Requeridos :

-Label1 ( Crear Matriz, copiar Label1 y hacer 120 labels1 ).

-Label2( uno solo está bien).

-Label3 ( Otra matriz pero esta vez crear solo 11 labels3, y ahora les digo que nombre le deben poner).

Va a haber un Label3 que va a quedar con ese (Nombre) , pero luego a otro Label3 que seguramente aparecera algo como así Label3( 0 o 1, o 2 ) el numero que sea, le ponen subss. Hago una lista mejor.
En la barra de propiedades un espacio se llamará o dirá ( Nombre ) : lo cambiarán por el que les diga.

A un Label3 lo dejan como está, es decir con el nombre de Label3
A otro le ponen subss en la barra de Propiedades ( Nombre).
A otro le ponen polar en la barra de Propiedades ( Nombre).
A otro le ponen frioocea en la barra de Propiedades ( Nombre).
A otro le ponen tempconti en la barra de Propiedades ( Nombre).
A otro le ponen continental en la barra de Propiedades ( Nombre).
A otro le ponen tempocea en la barra de Propiedades ( Nombre).
A otro le ponen temptransi en la barra de Propiedades ( Nombre).
A otro le ponen altura en la barra de Propiedades ( Nombre).
A otro le ponen subcs en la barra de Propiedades ( Nombre).
A otro le ponen desertico en la barra de Propiedades ( Nombre).

ESTOS SON LOS CLIMAS .

- Command1 ( esto es un objeto de comando )

- Timer1 y Timer2 ( Dos timers esta bien)

- Image1 ( La imagen de los climas de América del Norte en un mapa) Lo pueden copiar desde acá así tienen el que más va :
Copian esa Imágen, y en el Visual apretan en Image, y la imagen que copiaron la pegan en el espacio de la Image1.
Esa imagen en Propiedades le ponen Stretch True( quiere decir que se adapte cuando la moves de su tamaño)


Código :


Private Sub Form_Load()
Form1.Caption = " Climas de America del Norte"
Form1.WindowState = 2
For i = 0 To 120
Label1(i).Visible = True
Label1(i).Caption = ""
Label1(i).BorderStyle = 0
Label1(i).BackStyle = 0
Next i
Label3.Visible = False
Label3.ForeColor = vbRed
Label3.BackColor = vbBlack
Label3.BorderStyle = 1
Label3.FontSize = 32
Label3.Font = "arial"
Label3.Caption = "Pasá el mouse por las distintas partes de América del norte para enterarte de su clima y sus caracteristicas, muchas gracias."
Label2.Visible = False
Rem label 2 especifica en que label esta parado el mouse
Label2.ForeColor = vbRed
Label2.FontSize = 24
Rem polar es el label que representa el frio polar
polar.Visible = False
polar.ForeColor = vbWhite
polar.BackColor = RGB(120, 20, 150)
polar.BorderStyle = 1
polar.FontSize = 15
polar.Font = "arial"
polar.Caption = "El clima polar está caracterizado por tener casi permanentemente temperaturas por debajo de 0 ºC; y las precipitaciones son muy escasas. La humedad relativa en el aire es muy baja y el viento suele ser bastante intenso, lo que hace aún más hostiles las condiciones de vida en este clima.Las precipitaciones son escasas, inferiores a 250-300 mm al año, debido a la presencia permanente de anticiclones, y caen habitualmente en forma de nieve.Las aguas solo se encuentran en estado líquido en las zonas donde la temperatura sube de 0 ºC."
Rem continental es el label que representa el frio continental
continental.Visible = False
continental.BackColor = RGB( 0 , 110, 255)
continental.BorderStyle = 1
continental.FontSize = 15
continental.ForeColor = vbWhite
continental.Font = "arial"
continental.Caption = "Clima continental es conocido así al clima riguroso en donde las diferencias de temperaturas entre invierno y verano son enormes, así mismo con el día y la noche, los veranos son calientes y los inviernos muy fríos, siempre hay heladas en invierno (por alcanzar temperaturas bajo 0°C) y por lo general lluvias escasas, estas características se producen por localizarse en el interior de los continentes o por regiones aisladas por cadenas montañas que impide la influencia marítima."
Rem altura es el label que representa el frio de altura
altura.Visible = False
altura.BackColor = RGB(100, 210, 255)
altura.BorderStyle = 1
altura.FontSize = 13
altura.ForeColor = RGB( 0 , 0 , 100)
altura.Font = "arial"
altura.Caption = "El clima de montaña es más frío y húmedo que el del llano, puesto que la temperatura desciende a un ritmo aproximado de 5º cada 1 km de altitud y las lluvias van aumentado con la altura.Las montañas Rocosas reciben una cantidad moderada de precipitaciones en forma de lluvia, sobre todo durante los meses de invierno. Las praderas cubren los niveles inferiores y dan paso a grandes bosques de coníferas. Por encima de la zona arbolada se extienden pastizales y arbustos aislados. Las cimas de los picos tienen escasa vegetación y algunos están cubiertos de nieve y hielo durante todo el año."
Rem subss es el label que representa el clima de subtropical sin estacion seca
subss.Visible = False
subss.BackColor = RGB(170, 0 , 0 )
subss.BorderStyle = 1
subss.FontSize = 15
subss.ForeColor = vbWhite
subss.Font = "arial"
subss.Caption = "El clima subtropical sin estacion seca presenta lluvias abundantes y temperaturas del estilo del clima mediterráneo típico. Las precipitaciones oscilan entre los 500 y 1.200mm, siendo uno de sus principales aportes la denominada precipitación horizontal, dada por el mar de nubes o brumas, que son frecuentes en verano. La elevada humedad relativa es otra de las características, casi siempre superior al 70%. Las temperaturas no suelen bajar de los 12 °C en invierno ni superar los 30 °C en época estival. La vegetación más representativa y potencial de esta zona es el bosque húmedo o la laurisilva."
Rem frioocea representa el frio oceanico
frioocea.Visible = False
frioocea.BorderStyle = 1
frioocea.FontSize = 15
frioocea.ForeColor = vbWhite
frioocea.BackColor = RGB( 0 , 0 , 130)
frioocea.Font = "arial"
frioocea.Caption = "La temperatura de la estación más fría varia entre 0 y 5 grados y de la estación menos fría entre 8 y 10 grados.La humedad está dada por los vientos provenientes del anticiclón del Pacífico que descargan su humedad en el relieve.Las precipitaciones son abundantes, oscilan entre 1500 y 1800 milímetros anuales."

Rem tempocea representa el templado oceanico
tempocea.Visible = False
tempocea.BorderStyle = 1
tempocea.FontSize = 17
tempocea.ForeColor = RGB( 0 , 100, 0 )
tempocea.BackColor = RGB(190, 255, 150)
tempocea.Font = "arial"
tempocea.Caption = "Los Climas templados oceanicos se situan entre las latitudes de 45º y 55º. Están normalmente, al lado de los climas mediterráneos.Estos climas son dominantes a lo largo del año. Los veranos son frescos y nublados. Los inviernos son suaves, al contrario de otros climas , a una latitud semejante."
Rem subcs representa el clima subtropical con estacion seca
subcs.Visible = False
subcs.BorderStyle = 1
subcs.ForeColor = vbWhite
subcs.FontSize = 17
subcs.BackColor = vbRed
subcs.Caption = "Este clima se da entre los 25º y los 35º de latitud.En realidad no es otra cosa que una extensión hacia el norte del clima tropical seco, pero la precipitación es mayor y la amplitud térmica anual también. Está dominado por las masas de aire tropical continental, pero en las épocas en las que la posición relativa del sol es más baja pueden llegar masas de aire polar continental o marítimo."
subcs.Font = "arial"
Rem desertico representa el clima desertico
desertico.Visible = False
desertico.BorderStyle = 1
desertico.ForeColor = RGB(200, 100, 50)
desertico.FontSize = 14
desertico.BackColor = RGB(250, 200, 50)
desertico.Font = "arial"
desertico.Caption = "Clima desertico o arido.La temperatura media anual supera los 18ºC, y las temperaturas diarias presentan fuertes oscilaciones entre el día y la noche (20ºC o más).Las precipitaciones son muy escasas e irregulares, debido a la influencia permanente de anticiclones tropicales. En los bordes semiáridos del desierto, hay entre 750 y 150 mm anuales, y los meses áridos son más de siete.La vegetación del clima désertico es escasa, baja y dispersa. Deja extensas superficies sin cubrir, que están ocupadas por arena, piedras o rocas."
Rem tempconti representa el templado continental
tempconti.Visible = False
tempconti.BorderStyle = 1
tempconti.ForeColor = RGB( 0 , 100, 0 )
tempconti.FontSize = 16
tempconti.Font = "arial"
tempconti.BackColor = RGB(170, 255, 0 )
tempconti.Caption = "Este clima es propio de las regiones del interior de los continentes en latitudes superiores a 45º. Se caracteriza por una relativa escasez de lluvias, sobre todo en el inverno, debido a la distancia que las separa de las áreas de influencia marítima, y por una notable amplitud térmica estacional, con las temperaturas de verano bastante altas que contrastan fuertemente con los inviernos, muy frios. La temperatura media anual es inferior a 10 ºC."
Rem temptransi represant el templado de transicion
temptransi.Visible = False
temptransi.BorderStyle = 1
temptransi.ForeColor = vbWhite
temptransi.FontSize = 17
temptransi.BackColor = RGB( 0 , 100, 0 )
temptransi.Font = "arial"
temptransi.Caption = "Temperatura media anual 16ºC, en invierno, 9ºC y en verano, 22ºC. Las precipitaciones son cercanas a 700 mm., con veranos más lluviosos que los inviernos. Se ubican en zonas ubicadas entre las zonas oceánicas y continentales."
Timer1.Enabled = False
Timer1.Interval = 12000
Timer2.Enabled = False
Timer2.Interval = 6000
Rem instrucciones es el cartel de ayuda
instrucciones.Caption = "¡AYUDA!"
instrucciones.Appearance = 0
instrucciones.Font = "arial"
instrucciones.FontSize = 50

End Sub
Private Sub Form_Resize()
Rem ubico el label3( cartel de ayuda ) en el centro de la pantalla y le doy su tamaño
Label3.Height = Form1.Height / 2
Label3.Width = Form1.Width / 2
Label3.Top = Form1.Height / 2 - Label3.Height / 2
Label3.Left = Form1.Width / 2 - Label3.Width / 2
Rem ubico todos los labels y especifico su tamaño
polar.Width = Form1.Width / 4
polar.Height = Form1.Height / 1.7
polar.Top = Form1.Height / 1.8 - polar.Height / 2
polar.Left = 0
continental.Width = Form1.Width / 4
continental.Height = Form1.Height / 1.8
continental.Top = Form1.Height / 1. 6 - polar.Height / 2
continental.Left = 0
altura.Width = Form1.Width / 4
altura.Height = Form1.Height / 1.8
altura.Top = Form1.Height / 1. 6 - polar.Height / 2
altura.Left = 0
subcs.Width = Form1.Width / 4
subcs.Height = Form1.Height / 1. 6
subcs.Top = Form1.Height / 1.7 - polar.Height / 2
subcs.Left = 0
frioocea.Width = Form1.Width / 4
frioocea.Height = Form1.Height / 1.8
frioocea.Top = Form1.Height / 1.4 - polar.Height / 2
frioocea.Left = 0
subss.Width = Form1.Width / 4
subss.Height = Form1.Height / 1. 6
subss.Top = Form1.Height / 1.9 - polar.Height / 2
subss.Left = 0
temptransi.Width = Form1.Width / 4
temptransi.Height = Form1.Height / 1.8
temptransi.Top = Form1.Height / 1.4 - polar.Height / 2
temptransi.Left = 0
tempocea.Width = Form1.Width / 4
tempocea.Height = Form1.Height / 1.8
tempocea.Top = Form1.Height / 1.5 - polar.Height / 2
tempocea.Left = 0
tempconti.Width = Form1.Width / 4
tempconti.Height = Form1.Height / 1.8
tempconti.Top = Form1.Height / 1. 6 - polar.Height / 2
tempconti.Left = 0
desertico.Width = Form1.Width / 4
desertico.Height = Form1.Height / 1.7
desertico.Top = Form1.Height / 1.8 - polar.Height / 2
desertico.Left = 0
instrucciones.Left = 0
instrucciones.Top = Form1.Height / 1.16
Rem la matriz formada por 121 labels ayuda a formar zonas para indicar los climas
Image1.Top = 0
Image1.Left = 0
Image1.Width = Form1.Width
Image1.Height = Form1.Height
For i = 0 To 120
Label1(i).Width = Form1.Width / 11
Label1(i).Height = (Form1.Height / 11) * 0 .95
Next i
h = 0
For j = 0 To 110 Step 11
Label1(j).Left = 0
Label1(j).Top = Label1( 0 ).Height * h
For i = j + 1 To j + 10
Label1(i).Top = Label1(i - 1).Top
Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
Next i
h = h + 1
Next j
For i = 0 To 120
Label1(i).Visible = True
Next i
End Sub
Private Sub instrucciones_Click()
Label3.Visible = True
Timer2.Enabled = True
End Sub
Private Sub Label1_Mousemove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Rem establesco las zonas de cada clima
Label2.Caption = Index
If Label2.Caption >= 25 And Label2.Caption <= 32 Then
polar.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 2 And Label2.Caption <= 10 Then
polar.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 13 And Label2.Caption <= 21 Then
polar.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 37 And Label2.Caption <= 43 Then
polar.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 50 And Label2.Caption <= 52 Then
polar.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 22 And Label2.Caption <= 24 Then
continental.Visible = True
Timer1.Enabled = True
polar.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 36 Then
continental.Visible = True
Timer1.Enabled = True
polar.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 61 And Label2.Caption <= 63 Then
continental.Visible = True
Timer1.Enabled = True
polar.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 53 And Label2.Caption <= 54 Then
continental.Visible = True
Timer1.Enabled = True
polar.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 49 Then
continental.Visible = True
Timer1.Enabled = True
polar.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 22 Then
frioocea.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
polar.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 33 And Label2.Caption <= 35 Then
frioocea.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
polar.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 44 And Label2.Caption <= 47 Then
frioocea.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
polar.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 68 And Label2.Caption <= 69 Then
subcs.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
polar.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 79 And Label2.Caption <= 80 Then
subcs.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
polar.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 57 And Label2.Caption <= 58 Then
tempocea.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
polar.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 59 And Label2.Caption <= 60 Then
altura.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
polar.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 70 And Label2.Caption <= 71 Then
altura.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
polar.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 81 And Label2.Caption <= 82 Then
altura.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
polar.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 48 Then
altura.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
polar.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 84 Then
tempconti.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
polar.Visible = False
End If
If Label2.Caption >= 72 And Label2.Caption <= 73 Then
tempconti.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
polar.Visible = False
End If
If Label2.Caption = 103 And 83 Then
desertico.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
polar.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 91 And Label2.Caption <= 93 Then
desertico.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
polar.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 74 And Label2.Caption <= 75 Then
temptransi.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
polar.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 64 Then
desertico.Visible = True
Timer1.Enabled = True
continental.Visible = False
subss.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
polar.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 94 And Label2.Caption <= 96 Then
subss.Visible = True
Timer1.Enabled = True
continental.Visible = False
polar.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 104 And Label2.Caption <= 105 Then
subss.Visible = True
Timer1.Enabled = True
continental.Visible = False
polar.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption >= 115 And Label2.Caption <= 118 Then
subss.Visible = True
Timer1.Enabled = True
continental.Visible = False
polar.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
If Label2.Caption = 85 Then
subss.Visible = True
Timer1.Enabled = True
continental.Visible = False
polar.Visible = False
subcs.Visible = False
altura.Visible = False
frioocea.Visible = False
temptransi.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
End If
End Sub
Private Sub Timer1_Timer()
Rem el timer hace que a los diez segundos cualquier label que esta visible se haga invisible.
polar.Visible = False
continental.Visible = False
altura.Visible = False
subss.Visible = False
subcs.Visible = False
frioocea.Visible = False
tempocea.Visible = False
desertico.Visible = False
tempconti.Visible = False
temptransi.Visible = False
End Sub

Private Sub Timer2_Timer()
Label3.Visible = False
End Sub




Espero que les haya servido algun código por lo menos, y perdon primero que todo por como lo hice y presente no tengo experiencia ni nada! Jaja, y si lo expliqué mal perdonen, siempre está la primera vez, Saludos, cualquier pregunta estoy disponible!!!