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