Codigo del Visual Basic (Por Kevin H.)

Private Sub Apagar_Click()
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
Televisión.Left 240
End Sub


Private Sub Brillomas_Click()
Televisión.Left = Televisión.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
Base.Left = Base.Left + 100
Ncanal.Left = Ncanal.Left + 100
Nrocanal.Left = Nrocanal.Left + 100
onoff.Left = onoff.Left + 100
TVcanal.Left = TVcanal.Left + 100
Kevson.Left = Kevson.Left + 100
End Sub

Private Sub Brillomenos_Click()
Televisión.Left = Televisión.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Base.Left = Base.Left - 100
Ncanal.Left = Ncanal.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
onoff.Left = onoff.Left - 100
TVcanal.Left = TVcanal.Left - 100
Kevson.Left = Kevson.Left - 100
End Sub

Private Sub Canalmas_Click()
If Ncanal.Caption < 100 Then
Ncanal.Caption = Ncanal.Caption + 1
Else: Ncanal.Caption = 1
End If
End Sub

Private Sub Canalmenos_Click()
If Ncanal.Caption > 1 Then
Ncanal.Caption = Ncanal.Caption - 1
Else: Ncanal.Caption = 100
End If
End Sub

Private Sub CATV_Click()
TVcanal.Caption = "CATV Canal"
End Sub

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

Private Sub cinco_Click()

Auxiliar.Caption = Auxiliar.Caption + "5"

End Sub

Private Sub cuatro_Click()

Auxiliar.Caption = Auxiliar.Caption + "4"


End Sub

Private Sub dos_Click()

Auxiliar.Caption = Auxiliar.Caption + "2"

End Sub

Private Sub Encender_Click()
Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
End Sub

Private Sub Enter_Click()
Ncanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Nrocanal.Caption = "Numero de Canal:"
End Sub

Private Sub nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub

Private Sub ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub

Private Sub offon_Click()
If uno.Enabled = True Then
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
TVCATV.Enabled = False
Else: Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
TVCATV.Enabled = True
End If
End Sub

Private Sub seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub

Private Sub siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub

Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub TV_Click()
TVcanal.Caption = "TV Canal"
End Sub

Private Sub TVCATV_Click()
If TVcanal.Caption = "TV Canal" Then
TVcanal.Caption = "CATV Canal"
Else: TVcanal.Caption = "TV Canal"
End If
End Sub

Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Private Sub Volmas_Click()
Televisión.Top = Televisión.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Base.Top = Base.Top + 100
Ncanal.Top = Ncanal.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
onoff.Top = onoff.Top + 100
TVcanal.Top = TVcanal.Top + 100
Kevson.Top = Kevson.Top + 100
End Sub

Private Sub Volmenos_Click()
Televisión.Top = Televisión.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
Base.Top = Base.Top - 100
Ncanal.Top = Ncanal.Top - 100
Nrocanal.Top = Nrocanal.Top - 100
onoff.Top = onoff.Top - 100
TVcanal.Top = TVcanal.Top - 100
Kevson.Top = Kevson.Top - 100
End Sub