Apunte de la clase del 16/08

Private Sub botonCatv_Click()
TvCatv.Caption = "Catv"
End Sub

Private Sub BotonOff_Click()
OnOff.BackColor = vbBlack
End Sub

Private Sub botonOn_Click()
OnOff.BackColor = vbRed
End Sub

Private Sub Anterior_Click()
Canalaux.Caption = canalant.Caption
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Canalaux.Caption
Canalaux.Caption = ""

End Sub

Private Sub botononoff_Click()
If OnOff.BackColor = vbRed Then
OnOff.BackColor = vbBlack
Canalmas.Enabled = False
Anterior.Enabled = False
Canalmenos.Enabled = False
numerouno.Enabled = False
numerodos.Enabled = False
numerotres.Enabled = False
numerocuatro.Enabled = False
numerocinco.Enabled = False
numeroseis.Enabled = False
numerosiete.Enabled = False
numeroocho.Enabled = False
numeronueve.Enabled = False
numerocero.Enabled = False
Enter.Enabled = False
Contrastemas.Enabled = False
Contrastemenos.Enabled = False
Volumenmas.Enabled = False
volumenmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
botontvcatv.Enabled = False
Else: OnOff.BackColor = vbRed
Canalmas.Enabled = True
Canalmenos.Enabled = True
numerouno.Enabled = True
numerodos.Enabled = True
numerotres.Enabled = True
numerocuatro.Enabled = True
numerocinco.Enabled = True
numeroseis.Enabled = True
numerosiete.Enabled = True
numeroocho.Enabled = True
numeronueve.Enabled = True
numerocero.Enabled = True
Enter.Enabled = True
Anterior.Enabled = True
Contrastemas.Enabled = True
Contrastemenos.Enabled = True
Volumenmas.Enabled = True
volumenmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
botontvcatv.Enabled = True
End If
End Sub

Private Sub botonTv_Click()
TvCatv.Caption = "Tv"
End Sub

Private Sub botontvcatv_Click()
If TvCatv.Caption = "tv" Then
TvCatv.Caption = "catv"
Else: TvCatv.Caption = "catv"
TvCatv.Caption = "tv"
End If
End Sub

Private Sub Brillomas_Click()
Tv.Top = Tv.Top - 100
PieTv.Top = PieTv.Top - 100
OnOff.Top = OnOff.Top - 100
TvCatv.Top = TvCatv.Top - 100
Nrocanal.Top = Nrocanal.Top - 100
End Sub

Private Sub Brillomenos_Click()
Tv.Top = Tv.Top + 100
PieTv.Top = PieTv.Top + 100
OnOff.Top = OnOff.Top + 100
TvCatv.Top = TvCatv.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
End Sub

Private Sub Canalmas_Click()
If TvCatv.Caption = "tv" Then
If Nrocanal.Caption > 12 Then
canalant.Caption = 13
Nrocanal.Caption = 1
Else
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Nrocanal.Caption + 1
End If
Else
If Nrocanal.Caption > 119 Then
canalant.Caption = 120
Nrocanal.Caption = 1
Else
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Nrocanal.Caption + 1
End If
End If
End Sub

Private Sub Canalmenos_Click()
If TvCatv.Caption = "tv" Then
If Nrocanal.Caption < 2 Then
canalant.Caption = 1
Nrocanal.Caption = 13
Else
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Nrocanal.Caption - 1
End If
Else
If Nrocanal.Caption < 2 Then
canalant.Caption = 1
Nrocanal.Caption = 120
Else
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Nrocanal.Caption - 1
End If
End If
End Sub

Private Sub Contrastemas_Click()
Tv.Left = Tv.Left - 100
PieTv.Left = PieTv.Left - 100
OnOff.Left = OnOff.Left - 100
TvCatv.Left = TvCatv.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
End Sub

Private Sub Contrastemenos_Click()
Tv.Left = Tv.Left + 100
PieTv.Left = PieTv.Left + 100
OnOff.Left = OnOff.Left + 100
TvCatv.Left = TvCatv.Left + 100
Nrocanal.Left = Nrocanal.Left + 100
End Sub

Private Sub Enter_Click()
If TvCatv.Caption = "tv" Then
If Val(Canalaux.Caption) > 13 Then
Canalaux.Caption = ""
Else
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Val(Canalaux.Caption)
Canalaux.Caption = Val(Nrocanal.Caption)
Canalaux.Caption = ""
End If
Else
If Val(Canalaux.Caption) > 120 Then
Canalaux.Caption = ""
Else
canalant.Caption = Nrocanal.Caption
Nrocanal.Caption = Val(Canalaux.Caption)
Canalaux.Caption = Val(Nrocanal.Caption)
Canalaux.Caption = ""
End If
End If
End Sub

Private Sub numerocero_Click()
Canalaux.Caption = Canalaux.Caption + "0"
End Sub

Private Sub numerocinco_Click()
Canalaux.Caption = Canalaux.Caption + "5"
End Sub

Private Sub numerocuatro_Click()
Canalaux.Caption = Canalaux.Caption + "4"
End Sub

Private Sub numerodos_Click()
Canalaux.Caption = Canalaux.Caption + "2"
End Sub

Private Sub numeronueve_Click()
Canalaux.Caption = Canalaux.Caption + "9"
End Sub

Private Sub numeroocho_Click()
Canalaux.Caption = Canalaux.Caption + "8"
End Sub

Private Sub numeroseis_Click()
Canalaux.Caption = Canalaux.Caption + "6"
End Sub

Private Sub numerosiete_Click()
Canalaux.Caption = Canalaux.Caption + "7"
End Sub

Private Sub numerotres_Click()
Canalaux.Caption = Canalaux.Caption + "3"
End Sub

Private Sub numerouno_Click()
Canalaux.Caption = Canalaux.Caption + "1"
End Sub

Private Sub Volumenmas_Click()
Tv.Width = Tv.Width + 100
PieTv.Width = PieTv.Width + 100
OnOff.Width = OnOff.Width + 100
TvCatv.Width = TvCatv.Width + 100
Nrocanal.Width = Nrocanal.Width + 100
End Sub

Private Sub volumenmenos_Click()
Tv.Width = Tv.Width - 100
PieTv.Width = PieTv.Width - 100
OnOff.Width = OnOff.Width - 100
TvCatv.Width = TvCatv.Width - 100
Nrocanal.Width = Nrocanal.Width - 100
End Sub

Mis vacaciones de invierno

Mis vacaciones de invierno

En mis vacaciones de invierno me quedé todos los dias en mi country porque la primer semana vinieron 2 amigos de Bariloche e hicimos muchas cosas pero todas dentro del country ya que este tiene: _Cancha de futbol techada
_Canchas (2) de futbol al aire libre (una de 7 y otra de 11) y más cosas pero solo nombro estas porque allí se centralizo nuestra actividad deportiva.
Pasada la primera semana mis 2 amigos se fueron a Bariloche y volvieron todos los residentes de fin de semana y los de semana al country. El primer día nos reunimos y contamos que hicimos cada uno en nuestras vacaciones, conversación de la cual yo quede casi completamente sin palabras y luego de ese día (sábado, mis 2 amigos se fueron el viernes) hicimos en toda la semana juegos deportivos con y sin profesores y llegado el actual fin de semana (sábado 5 ded Agosto si no me confundo, día en que escribí esta entrada) volvimos a la rutina de un sábado en el country (primero juegos mixtos, luego tenis y luego entrenamiento de fútbol) y mañana ,domingo, mostraremos lo practicado en el entrenamiento en un partido de la Liga Conutry Sur.
Es por eso que no tengo ninguna imágen ni video que mostrar ni película que describir ni actividad desarrollada en otro lugar que no sea el country.