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

Apunte - (Por Sol y Gasti)

Sub Uno_Click
Auxcanal.Caption = Auxcanal.Caption + "1"
End Sub

Sub Enter_Click
Canal.Caption = Auxcanal.Caption
Auxcanal.Caption = " "
End Sub

Sub Canalmas_Click
Canal.Caption = Val (Canal.Caption) + 1
End Sub

Apunte - (Por Sol y Gasti)

Sub Botonon_Click
Onoff.BackColor = vbRed
End Sub

Sub Botonoff_Click
Onoff.BackColor = vbBlack
End Sub

Sub Botontv_Click
Tvcatv.Caption = "TV"
End Sub

Sub Botoncatv_Click
Tvcatv.Caption = "CATV"
End Sub

Sub Brillomas_Click
Pantalla.Top = Pantalla.Top - 100
Bajopantalla.Top = Bajopantalla.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
Onoff.Top = Onoff.Top - 100
Canal.Top = Canal.Top - 100
End Sub

Sub Brillomenos_Click
Pantalla.Top = Pantalla.Top + 100
Bajopantalla.Top = Bajopantalla.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
Onoff.Top = Onoff.Top + 100
Canal.Top = Canal.Top + 100
End Sub

Sub Contrastemas_Click
Pantalla.Left = Pantalla.Left + 100
Bajopantalla.Left = Bajopantalla.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
Onoff.Left = Onoff.Left + 100
Canal.Left = Canal.Left + 100
End Sub

Sub Contrastemenos_Click
Pantalla.Left = Pantalla.Left - 100
Bajopantalla.Left = Bajopantalla.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
Onoff.Left = Onoff.Left - 100
Canal.Left = Canal.Left - 100
End Sub

Sub Volumenmas_Click
Pantalla.Width = Pantalla.Width + 100
Bajopantalla.Width = Bajopantalla.Width + 100
End Sub

Sub Volumenmenos_Click
Pantalla.Width = Pantalla.Width - 100
Bajopantalla.Width = Bajopantalla.Width - 100
End Sub

Análisis de encuesta (Por Sol)