Visual Basic: TV- códigos 3 (Melu, Dani H., Maga)

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()inv.Caption = nrocanal.CaptionIf tvcatv.Caption = "CATV" Then If aux.Caption < caption =" aux.Caption" caption = "" caption = "" caption =" aux.Caption" caption = "" caption = "" top =" pantalla.Top" caption =" nrocanal.CaptionIf" caption = "CATV" caption =" nrocanal.Caption" caption = "0" caption =" nrocanal.Caption" caption = "0" left =" pantalla.Left" top =" pantalla.Top" caption =" nrocanal.CaptionIf"> 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
Private Sub volver_Click()inv2.Caption = nrocanal.Captionnrocanal.Caption = inv.Captioninv.Caption = inv2.CaptionEnd Sub

Visual Basic por Ariel .M.

Private Sub catv_Click()

tvcatv.Caption = "CATV"

End Sub

Private Sub anterior_Click()

nrocanal.Caption = auxiliar2.Caption

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

nrocanal.Caption = auxiliar2.Caption

auxiliar3.Caption = auxiliar2.Caption

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()

auxiliar2.Caption = nrocanal.Caption

If auxiliar.Caption <>

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 <>

nrocanal.Caption = nrocanal.Caption + 1

Else: nrocanal.Caption = 0

End If

Else

If nrocanal.Caption <>

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

auxiliar.Enabled = False

anterior.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

auxiliar.Enabled = True

anterior.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

Visual 3 (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()inv.Caption = nrocanal.CaptionIf 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()inv.Caption = nrocanal.CaptionIf 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()inv.Caption = nrocanal.CaptionIf 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
Private Sub volver_Click()inv2.Caption = nrocanal.Captionnrocanal.Caption = inv.Captioninv.Caption = inv2.CaptionEnd Sub

visual basic 3(por cami)

Private Sub anterior_Click()
nrocanal.Caption = Auxiliar.Caption
End Sub

Private Sub canalmas_Click()
If tvcatv.Caption = "TV" Then
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" caption =" nrocanal.Caption" caption =" 0"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 13
End If
End If
End Sub

Private Sub CATVTV_Click()
If tvcatv.Caption = "TV" Then
tvcatv.Caption = "CATV"
Else
tvcatv.Caption = "TV"
End If
End Sub

Private Sub cero_Click()
nrocanal.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 enter_Click()
If Auxiliar.Caption < 129 Then
aux2.Caption = nrocanal.Caption
nrocanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Else
Auxiliar.Caption = ""
End If
End Sub

Private Sub mas_Click(Index As Integer)
pantalla.Left = pantalla.Left + 100
nrocanal.Left = nrocanal.Left + 100
onoff.Left = onoff.Left + 100
tvcatv.Left = tvcatv.Left + 100
pantalla2.Left = pantalla2.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
nrocanal.Top = nrocanal.Top + 100
onoff.Top = onoff.Top + 100
tvcatv.Top = tvcatv.Top + 100
pantalla2.Top = pantalla2.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
End Sub

Private Sub menos_Click()
pantalla.Left = pantalla.Left - 100
nrocanal.Left = nrocanal.Left - 100
onoff.Left = onoff.Left - 100
tvcatv.Left = tvcatv.Left - 100
pantalla2.Left = pantalla2.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
onoff.Top = onoff.Top - 100
tvcatv.Top = tvcatv.Top - 100
pantalla2.Top = pantalla2.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
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 OFF_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
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
End Sub

Private Sub offon_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
aux2.Caption = ""
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
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
Else
aux2.Caption = "0"
nrocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
End If
End Sub

Private Sub ON_Click()
nrocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
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 uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Visual Basic 3 (por Lula)

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

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 If
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 Enter_Click()

If Tvcatv.Caption = "TV" Then
If auxiliar.Caption < 13 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If
Else
If auxiliar.Caption < 129 Then
Auxiliar2.Caption = NroCanal.Caption
NroCanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End If

End If

End Sub



Private Sub Mas_Click()
If Tvcatv.Caption = "TV" Then
If NroCanal.Caption < 13 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
Else
If NroCanal.Caption < 129 Then
NroCanal.Caption = NroCanal.Caption + 1
Else
NroCanal.Caption = 0
End If
End If
End Sub

Private Sub Mas1_Click()
Pantalla.Top = Pantalla.Top + 100
auxiliar.Top = auxiliar.Top + 100
Shape2.Top = Shape2.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
onoff.Top = onoff.Top + 100
NroCanal.Top = NroCanal.Top + 100

End Sub

Private Sub Mas2_Click()
Pantalla.Left = Pantalla.Left + 100
auxiliar.Left = auxiliar.Left + 100
Shape2.Left = Shape2.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
onoff.Left = onoff.Left + 100
NroCanal.Left = NroCanal.Left + 100
End Sub

Private Sub Menos_Click()
If NroCanal.Caption > 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.Left - 100
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 Off_Click()
NroCanal.Caption = ""
Tvcatv.Caption = ""
onoff.BackColor = vbBlack
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
TV.Enabled = False
CATV.Enabled = False
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
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
TV.Enabled = False
CATV.Enabled = False
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
onoff.BackColor = vbRed
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
TV.Enabled = True
CATV.Enabled = True
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
NroCanal.Caption = "0"
Tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
TV.Enabled = True
CATV.Enabled = True
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()
Tvcatv.Caption = "TV"
End Sub


Private Sub Uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub

Visual Basic 3 (por Iaru y Ari)

Private Sub Anterior_Click()
NroCanal.Caption = Auxiliar2.Caption
Auxiliar2.Caption = auxiliar3.Caption
Auxiliar2.Caption = NroCanal.Caption
auxiliar3.Caption = Auxiliar2.Caption
NroCanal.Caption = Auxiliar2.Caption

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 If
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 Enter_Click()

If Tvcatv.Caption = "TV" Then
If auxiliar.Caption < caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption =" NroCanal.Caption" caption =" auxiliar.Caption" caption = "" caption = "TV" caption =" NroCanal.Caption" caption =" 0" caption =" NroCanal.Caption" caption =" 0" top =" Pantalla.Top" top =" auxiliar.Top" top =" Shape2.Top" top =" Tvcatv.Top" top =" onoff.Top" top =" NroCanal.Top" left =" Pantalla.Left" left =" auxiliar.Left" left =" Shape2.Left" left =" Tvcatv.Left" left =" onoff.Left" left =" NroCanal.Left"> 0 Then
NroCanal.Caption = NroCanal.Caption - 1
Else
If Tvcatv.Caption = "CATV" Then
NroCanal.Caption = 129
Else
NroCanal.Caption = 13
End If
End If
End Sub

Private Sub Menos1_Click()
Pantalla.Top = Pantalla.Top - 100
auxiliar.Top = auxiliar.Top - 100
Shape2.Top = Shape2.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
onoff.Top = onoff.Top - 100
NroCanal.Top = NroCanal.Top - 100
End Sub

Private Sub Menos2_Click()
Pantalla.Left = Pantalla.Left - 100
auxiliar.Left = auxiliar.Left - 100
Shape2.Left = Shape2.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
onoff.Left = onoff.Left - 100
NroCanal.Left = NroCanal.Left - 100
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 Off_Click()
NroCanal.Caption = ""
Tvcatv.Caption = ""
onoff.BackColor = vbBlack
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
TV.Enabled = False
CATV.Enabled = False
auxiliar.Caption = ""
End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
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
TV.Enabled = False
CATV.Enabled = False
catvtv.Enabled = False
auxiliar.Caption = ""
Mas.Enabled = False
Mas1.Enabled = False
Mas2.Enabled = False
Menos.Enabled = False
Menos1.Enabled = False
Menos2.Enabled = False
Enter.Enabled = False
Else
onoff.BackColor = vbRed
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
TV.Enabled = True
CATV.Enabled = True
catvtv.Enabled = True
Mas.Enabled = True
Mas1.Enabled = True
Mas2.Enabled = True
Menos.Enabled = True
Menos1.Enabled = True
Menos2.Enabled = True
Enter.Enabled = True
End If

End Sub

Private Sub On_Click()
NroCanal.Caption = "0"
Tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
TV.Enabled = True
CATV.Enabled = True
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()
Tvcatv.Caption = "TV"
End Sub


Private Sub Uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub