Visual Basic 1 (por Daniel)

Private Sub catv_Click()
TVCATV.Caption = "CATV"
End Sub

Private Sub cero_Click()
nrocanal.Caption = "0"
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub cinco_Click()
nrocanal.Caption = "5"
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub Command1_Click()

End Sub

Private Sub cuatro_Click()
nrocanal.Caption = "4"
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub dos_Click()
nrocanal.Caption = "2"
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub enter_Click()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
pantallita.Top = pantallita.Top + 100
auxiliar.Top = auxiliar.Top + 100
End Sub

Private Sub mascanal_Click()
If nrocanal.Caption < 129 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End Sub

Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left + 50
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
pantallita.Top = pantallita.Top - 100
auxiliar.Top = auxiliar.Top - 100
End Sub