Visual basic por Ariel .M.

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

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

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

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

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

Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
End Sub
Private Sub canal0_Click()
auxiliar.Caption = auxiliar.Caption + "0"
End Sub
Private Sub canal5_Click()
auxiliar.Caption = auxiliar.Caption + "5"
End Sub
Private Sub canal4_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub
Private Sub canal2_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub Label1_Click()
End Sub
Private Sub enter_Click()
If auxiliar.Caption < 120 Then
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
Else
auxiliar.Caption = ""
End If
End Sub

Private Sub brillomas_Click()
Monitor.Top = Monitor.Top - 100
End Sub
Private Sub canalmas_Click()
If tvcatv.Caption = "TV" Then
If nrocanal.Caption < 120 Then
nrocanal.Caption = nrocanal.Caption + 1
Else: nrocanal.Caption = 0
End If
Else
If nrocanal.Caption < 120 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End If
End Sub

Private Sub volumenmas_Click()
Monitor.Left = Monitor.Left - 100
End Sub
Private Sub brillomenos_Click()
Monitor.Top = Monitor.Top + 100
End Sub
Private Sub canalmenos_Click()
If nrocanal.Caption > 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 0
End If
End If
End Sub
Private Sub volumenmenos_Click()
Monitor.Left = Monitor.Left + 100
End Sub
Private Sub boton9_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub
Private Sub boton8_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub
Private Sub off_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
botonencendido.BackColor = vbBlack
boton1.Enabled = False
boton2.Enabled = False
boton3.Enabled = False
boton4.Enabled = False
boton5.Enabled = False
boton6.Enabled = False
boton7.Enabled = False
boton8.Enabled = False
boton9.Enabled = False
boton0.Enabled = False
tvcatv.Enabled = False
catvtv.Enabled = False
auxiliar.Caption = ""
brillomas.Enabled = False
brillomenos.Enabled = False
brillo.Enabled = False
canalmas.Enabled = False
canalmenos.Enabled = False
canal.Enabled = False
volumenmas.Enabled = False
volumenmenos.Enabled = False
volumen.Enabled = False
enter.Enabled = False
End Sub

Private Sub on_Click()
nrocanal.Caption = "0"
tvcatv.Caption = "TV"
botonencendido.BackColor = vbRed
boton1.Enabled = True
boton2.Enabled = True
boton3.Enabled = True
boton4.Enabled = True
boton5.Enabled = True
boton6.Enabled = True
boton7.Enabled = True
boton8.Enabled = True
boton9.Enabled = True
boton0.Enabled = True
tvcatv.Enabled = True
catvtv.Enabled = True
auxiliar.Enabled = True
brillomas.Enabled = True
brillomenos.Enabled = True
brillo.Enabled = True
canalmas.Enabled = True
canalmenos.Enabled = True
canal.Enabled = True
volumenmas.Enabled = True
volumenmenos.Enabled = True
volumen.Enabled = True
enter.Enabled = True
End Sub
Private Sub boton6_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub
Private Sub boton7_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub
Private Sub boton3_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub
Private Sub tv_Click()
tvcatv.Caption = "TV"
End Sub
Private Sub boton1_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub