Código TV Visual Basic (por Leandro y Lukas)

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

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

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

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

Private Sub canal3_Click()
auxiliar.Caption = auxiliar.Caption + "3"
End Sub

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

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

Private Sub canal6_Click()
auxiliar.Caption = auxiliar.Caption + "6"
End Sub

Private Sub canal7_Click()
auxiliar.Caption = auxiliar.Caption + "7"
End Sub

Private Sub canal8_Click()
auxiliar.Caption = auxiliar.Caption + "8"
End Sub

Private Sub canal9_Click()
auxiliar.Caption = auxiliar.Caption + "9"
End Sub

Private Sub Catv_Click()
teve.Caption = "CATV"
End Sub

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

Private Sub masbrillo_Click()
borde1.Left = borde1.Left + 75
borde2.Left = borde2.Left + 75
borde3.Left = borde3.Left + 75
Sony.Left = Sony.Left + 75
television.Left = television.Left + 75
auxiliar.Left = auxiliar.Left + 75
borde0.Left = borde0.Left + 75

End Sub

Private Sub mascanal_Click()
If ncanal.Caption < 120 Then
ncanal.Caption = ncanal.Caption + 1
Else
ncanal.Caption = 1
End If
End Sub

Private Sub masvol_Click()
borde1.Top = borde1.Top - 75
borde2.Top = borde2.Top - 75
borde3.Top = borde3.Top - 75
Sony.Top = Sony.Top - 75
television.Top = television.Top - 75
auxiliar.Top = auxiliar.Top - 75
borde0.Top = borde0.Top - 75
End Sub

Private Sub menosbrillo_Click()
borde1.Left = borde1.Left - 75
borde2.Left = borde2.Left - 75
borde3.Left = borde3.Left - 75
Sony.Left = Sony.Left - 75
television.Left = television.Left - 75
auxiliar.Left = auxiliar.Left - 75
borde0.Left = borde0.Left - 75

End Sub

Private Sub menoscanal_Click()
If ncanal.Caption > 1 Then
ncanal.Caption = ncanal.Caption - 1
Else
ncanal.Caption = 120
End If
End Sub

Private Sub menosvol_Click()
borde1.Top = borde1.Top + 75
borde2.Top = borde2.Top + 75
borde3.Top = borde3.Top + 75
Sony.Top = Sony.Top + 75
television.Top = television.Top + 75
auxiliar.Top = auxiliar.Top + 75
borde0.Top = borde0.Top + 75

End Sub

Private Sub Off_Click()
auxiliar.Caption = ""
teve.Caption = ""
ncanal.Caption = ""
Off.Enabled = False
onoff.BackColor = vbBlack
tvcatv.Enabled = False
canal1.Enabled = False
canal2.Enabled = False
canal3.Enabled = False
canal4.Enabled = False
canal5.Enabled = False
canal6.Enabled = False
canal7.Enabled = False
canal8.Enabled = False
canal9.Enabled = False
canal0.Enabled = False
enter.Enabled = False
Catv.Enabled = False
TV.Enabled = False
masvol.Enabled = False
mascanal.Enabled = False
masbrillo.Enabled = False
menosvol.Enabled = False
menoscanal.Enabled = False
menosbrillo.Enabled = False
End Sub

Private Sub offon_Click()
If canal1.Enabled = True Then
canal1.Enabled = False
canal2.Enabled = False
canal3.Enabled = False
canal4.Enabled = False
canal5.Enabled = False
canal6.Enabled = False
canal7.Enabled = False
canal8.Enabled = False
canal9.Enabled = False
canal0.Enabled = False
enter.Enabled = False
Catv.Enabled = False
TV.Enabled = False
masvol.Enabled = False
mascanal.Enabled = False
masbrillo.Enabled = False
menosvol.Enabled = False
menoscanal.Enabled = False
menosbrillo.Enabled = False
Off.Enabled = False
auxiliar.Caption = ""
teve.Caption = ""
ncanal.Caption = ""
onoff.BackColor = vbBlack
Else
teve.Caption = "TV"
ncanal.Caption = "0"
onoff.BackColor = vbRed
Off.Enabled = True
canal1.Enabled = True
canal2.Enabled = True
canal3.Enabled = True
canal4.Enabled = True
canal5.Enabled = True
canal6.Enabled = True
canal7.Enabled = True
canal8.Enabled = True
canal9.Enabled = True
canal0.Enabled = True
enter.Enabled = True
Catv.Enabled = True
TV.Enabled = True
masvol.Enabled = True
mascanal.Enabled = True
masbrillo.Enabled = True
menosvol.Enabled = True
menoscanal.Enabled = True
menosbrillo.Enabled = True
Off.Enabled = True
End If
End Sub

Private Sub On_Click()
teve.Caption = "TV"
ncanal.Caption = "0"
onoff.BackColor = vbRed
Off.Enabled = True
tvcatv.Enabled = True
canal1.Enabled = True
canal2.Enabled = True
canal3.Enabled = True
canal4.Enabled = True
canal5.Enabled = True
canal6.Enabled = True
canal7.Enabled = True
canal8.Enabled = True
canal9.Enabled = True
canal0.Enabled = True
enter.Enabled = True
Catv.Enabled = True
TV.Enabled = True
masvol.Enabled = True
mascanal.Enabled = True
masbrillo.Enabled = True
menosvol.Enabled = True
menoscanal.Enabled = True
menosbrillo.Enabled = True
End Sub

Private Sub TV_Click()
teve.Caption = "TV"
End Sub

Private Sub tvcatv_Click()
If teve.Caption = "TV" Then
teve.Caption = "CATV"
Else
teve.Caption = "CATV"
teve.Caption = "TV"
End If

End Sub