Mis Vacaciones

El mejor momento:
Viajar en avión a Ushuaia.
El peor momento:
Caída en la nieve.
Lo más divertido:
Jugar en la nieve con mis hermanos.
Lo más aburrido:
No salir con amigos la segunda semana.
Lo que no hice nunca antes:
Snowboard.
Lo que siempre hago:
Ir al cine.

Vacaciones de invierno

La primera semana de vacaciones me fui a Ushuaia en avión.



Salí el sábado 21 y regresé el domingo 29.


Fui al Cerro Castor donde tomé clases de snowboard.






Los últimos 2 días realizé algunas excursiones:


- Visita guiada a la cárcel.





- Lago escondido.





- Catamarán por el Canal de Beagle.




- Tren del fin del mundo.




Fui con mi Flia. y con otras 3 familias más.


Cuando regresé fui al cine.


Fui a ver Harry Potter y la Orden del Fenix con Magalí Gutesman, y a ver Los Simpsons - La película con mi abuela y mis hermanos.



También me encontré con mi abuela, mis tíos y mis primos, un día que fuimos a almorzar.

Ese día leí un libro llamado "Los vecinos mueren en las novelas" que lo tenía que leer para ort, para lengua.

Avance - (Por Sol y Gasti)

Hasta el día de hoy ya programamos los botones Offon y Catvtv, Canalmas, Canalmenos, junto con Auxcanal, Nrocanal y Enter, según si el Nro marcado es mayor o menor a 13.
El bloqueo o desbloqueo de todos los botones, según si se prende o se apaga (Offon).

Apunte - (Por Sol y Gasti)

Sub Offon_Click

If Onoff.Backcolor = VbRed Then
Onoff.Backcolor = VbBlack
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False

Else
Onoff.Backcolor = VbRed
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True

End If

End Sub


Sub Canalmas_Click
If Val (Nrocanal.Caption) < 13 Then
Nrocanal.Caption = Val (Nrocanal.Caption) + 1

Else
Nrocanal.Caption = 1

End If

End Sub


Sub Catvtv_Click
If Tvcatv.Caption = "TV" Then
Tvcatv.Caption = "CATV"

Else
Tvcatv.Caption = "TV"

End If

End Sub