Visual 2 (por Pau)

Private Sub Label2_Click()
End Sub
Private Sub catv_Click()tvcatv.Caption = "CATV"End Sub
Private Sub catvtv_Click()If tvcatv.Caption = "TV" Then tvcatv.Caption = "CATV"Else tvcatv.Caption = "TV"End IfEnd Sub
Private Sub cero_Click()aux.Caption = aux.Caption + "0"End Sub
Private Sub cinco_Click()aux.Caption = aux.Caption + "5"End Sub
Private Sub Command15_Click()
End Sub
Private Sub Command17_Click()
End Sub
Private Sub cuatro_Click()aux.Caption = aux.Caption + "4"End Sub
Private Sub dos_Click()aux.Caption = aux.Caption + "2"End Sub
Private Sub enter_Click()If tvcatv.Caption = "CATV" Then If aux.Caption < 140 Then nrocanal.Caption = aux.Caption aux.Caption = "" Else aux.Caption = "" End IfElse If aux.Caption < 13 Then nrocanal.Caption = aux.Caption aux.Caption = "" Else aux.Caption = "" End IfEnd IfEnd Sub
Private Sub masbrillo_Click()pantalla.Top = pantalla.Top + 100End Sub
Private Sub mascanal_Click()If tvcatv.Caption = "CATV" ThenIf nrocanal.Caption < 140 Thennrocanal.Caption = nrocanal.Caption + 1Elsenrocanal.Caption = "0"End IfElseIf nrocanal.Caption < 13 Thennrocanal.Caption = nrocanal.Caption + 1Elsenrocanal.Caption = "0"End IfEnd IfEnd Sub
Private Sub masvolumen_Click()pantalla.Left = pantalla.Left + 100End Sub
Private Sub menosbrillo_Click()pantalla.Top = pantalla.Top - 100End Sub
Private Sub menoscanal_Click()If nrocanal.Caption > 0 Thennrocanal.Caption = nrocanal.Caption - 1ElseIf tvcatv.Caption = "CATV" Thennrocanal.Caption = 140Elsenrocanal.Caption = "13"End IfEnd IfEnd Sub
Private Sub menosvolumen_Click()pantalla.Left = pantalla.Left - 100End Sub
Private Sub nueve_Click()aux.Caption = aux.Caption + "9"End Sub
Private Sub ocho_Click()aux.Caption = aux.Caption + "8"End Sub
Private Sub off_Click()nrocanal.Caption = ""tvcatv.Caption = ""onoff.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falseenter.Enabled = Falsemascanal.Enabled = Falsemenoscanal.Enabled = Falsemasbrillo.Enabled = Falsemenosbrillo.Enabled = Falsemenosvolumen.Enabled = Falsemasvolumen.Enabled = Falsetv.Enabled = Falsecatv.Enabled = Falseaux.Caption = ""End Sub
Private Sub on_Click()nrocanal.Caption = "0"tvcatv.Caption = "CATV"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Trueenter.Enabled = Truemascanal.Enabled = Truemenoscanal.Enabled = Truemasbrillo.Enabled = Truemenosbrillo.Enabled = Truemenosvolumen.Enabled = Truemasvolumen.Enabled = Truetv.Enabled = Truecatv.Enabled = TrueEnd Sub
Private Sub power_Click()If onoff.BackColor = vbRed Then onoff.BackColor = vbBlacknrocanal.Caption = ""tvcatv.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falseenter.Enabled = Falsemascanal.Enabled = Falsemenoscanal.Enabled = Falsemasbrillo.Enabled = Falsemenosbrillo.Enabled = Falsemenosvolumen.Enabled = Falsemasvolumen.Enabled = Falsetv.Enabled = Falsecatv.Enabled = Falseaux.Caption = ""catvtv.Enabled = FalseElsenrocanal.Caption = "0"tvcatv.Caption = "CATV"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Trueenter.Enabled = Truemascanal.Enabled = Truemenoscanal.Enabled = Truemasbrillo.Enabled = Truemenosbrillo.Enabled = Truemenosvolumen.Enabled = Truemasvolumen.Enabled = Truetv.Enabled = Truecatvtv.Enabled = Truecatv.Enabled = TrueEnd If
End Sub
Private Sub seis_Click()aux.Caption = aux.Caption + "6"End Sub
Private Sub siete_Click()aux.Caption = aux.Caption + "7"End Sub
Private Sub tres_Click()aux.Caption = aux.Caption + "3"End Sub
Private Sub tv_Click()tvcatv.Caption = "TV"End Sub
Private Sub uno_Click()aux.Caption = aux.Caption + "1"End Sub