resumen de control(por brian)

Private Sub botonoff_Click()If onoff.BackColor = vbRed Thenonoff.BackColor = vbBlackcanalmas.Enabled = Falsecanalmenos.Enabled = Falsebrillomas.Enabled = Falsebrillomenos.Enabled = Falsecontrastemas.Enabled = Falsecontrastemenos.Enabled = Falsebottvcatv.Enabled = Falsevolumenmas.Enabled = Falsevolumenmenos.Enabled = Falseuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falseenter.Enabled = Falsecero.Enabled = FalseElseonoff.BackColor = vbRedcanalmas.Enabled = Truecanalmenos.Enabled = Truebrillomas.Enabled = Truebrillomenos.Enabled = Truecontrastemas.Enabled = Truecontrastemenos.Enabled = Truebottvcatv.Enabled = Truevolumenmas.Enabled = Truevolumenmenos.Enabled = Trueuno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Trueenter.Enabled = Truecero.Enabled = TrueEnd IfEnd Sub
Private Sub bottvcatv_Click()If tvcatv.Caption = "TV" Thentvcatv.Caption = "CATV"Elsetvcatv.Caption = "TV"End IfEnd Sub
Private Sub brillomas_Click()pantalla.Top = pantalla.Top - 50televisor.Top = televisor.Top - 50barra.Top = barra.Top - 50numerocanal.Top = numerocanal.Top - 50onoff.Top = onoff.Top - 50tvcatv.Top = tvcatv.Top - 50End Sub
Private Sub brillomenos_Click()pantalla.Top = pantalla.Top + 50televisor.Top = televisor.Top + 50barra.Top = barra.Top + 50numerocanal.Top = numerocanal.Top + 50onoff.Top = onoff.Top + 50tvcatv.Top = tvcatv.Top + 50End Sub
Private Sub canalmas_Click()If tvcatv.Caption = "TV" ThenIf numerocanal.Caption > 12 Thennumerocanal.Caption = 1Elsenumerocanal.Caption = numerocanal.Caption + 1End IfElseIf numerocanal.Caption = 120 Thennumerocanal.Caption = 1Elsenumerocanal.Caption = numerocanal.Caption + 1End IfEnd IfEnd Sub
Private Sub canalmenos_Click()If tvcatv.Caption = "TV" ThenIf Val(numerocanal.Caption) = 1 Thennumerocanal.Caption = 13Elsenumerocanal.Caption = numerocanal.Caption - 1End IfElseIf Val(numerocanal.Caption) = 1 Thennumerocanal.Caption = 120Elsenumerocanal.Caption = numerocanal.Caption - 1End IfEnd IfEnd Sub
Private Sub catv_Click()tvcatv.Caption = "CATV"End Sub
Private Sub cero_Click()auxcanal.Caption = auxcanal.Caption + "0"
End Sub
Private Sub cinco_Click()auxcanal.Caption = auxcanal.Caption + "5"End Sub
Private Sub contrastemas_Click()pantalla.Left = pantalla.Left - 50televisor.Left = televisor.Left - 50barra.Left = barra.Left - 50numerocanal.Left = numerocanal.Left - 50onoff.Left = onoff.Left - 50tvcatv.Left = tvcatv.Left - 50End Sub
Private Sub contrastemenos_Click()pantalla.Left = pantalla.Left + 50televisor.Left = televisor.Left + 50barra.Left = barra.Left + 50numerocanal.Left = numerocanal.Left + 50onoff.Left = onoff.Left + 50tvcatv.Left = tvcatv.Left + 50End Sub
Private Sub cuatro_Click()auxcanal.Caption = auxcanal.Caption + "4"End Sub
Private Sub dos_Click()auxcanal.Caption = auxcanal.Caption + "2"End Sub
Private Sub enter_Click()If tvcatv.Caption = "TV" ThenIf Val(auxcanal.Caption) > 13 Thenauxcanal.Caption = ""Elseauxcanal.Caption = numerocanal.CaptionEnd IfElsenumerocanal.Caption = auxcanal.CaptionEnd IfIf Val(auxcanal.Caption) < 120 Thenauxcanalcaption = numerocanal.CaptionElseauxcanal.Caption = ""End If
End Sub
Private Sub nueve_Click()auxcanal.Caption = auxcanal.Caption + "9"
End Sub
Private Sub ocho_Click()auxcanal.Caption = auxcanal.Caption + "8"
End Sub
Private Sub seis_Click()auxcanal.Caption = auxcanal.Caption + "6"
End Sub
Private Sub siete_Click()auxcanal.Caption = auxcanal.Caption + "7"
End Sub
Private Sub tres_Click()auxcanal.Caption = auxcanal.Caption + "3"
End Sub
Private Sub tv_Click()tvcatv.Caption = "TV"End Sub
Private Sub tvoff_Click()onoff.BackColor = vbBlackEnd Sub
Private Sub tvon_Click()onoff.BackColor = vbRed
End Sub
Private Sub uno_Click()auxcanal.Caption = auxcanal.Caption + "1"End Sub
Private Sub volumenmas_Click()pantalla.Width = pantalla.Width + 50
End Sub
Private Sub volumenmenos_Click()pantalla.Width = pantalla.Width - 50
End Sub