Codigos Visual Basic

Private Sub canalmas_Click()If tvcatv.Caption = "tv" ThenIf nrocanal.Caption < 13 Thennrocanal.Caption = nrocanal.Caption + 1Elsenrocanal.Caption = 0nrocanal.Caption = nrocanal.Caption + 1End IfElsenrocanal.Caption = 0End IfEnd SubPrivate Sub CATVTV_Click()If tvcatv.Caption = "TV" Thentvcatv.Caption = "CATV"Elsetvcatv.Caption = "TV"End IfEnd SubPrivate Sub cero_Click()nrocanal.Caption = "0"End SubPrivate Sub cinco_Click()Auxiliar.Caption = Auxiliar.Caption + "5"End SubPrivate Sub cuatro_Click()Auxiliar.Caption = Auxiliar.Caption + "4"End SubPrivate Sub dos_Click()Auxiliar.Caption = Auxiliar.Caption + "2"End SubPrivate Sub enter_Click()If Auxiliar.Caption < 129 Thennrocanal.Caption = Auxiliar.CaptionAuxiliar.Caption = ""ElseAuxiliar.Caption = ""End IfEnd SubPrivate Sub mas_Click(Index As Integer)pantalla.Left = pantalla.Left + 100nrocanal.Left = nrocanal.Left + 100onoff.Left = onoff.Left + 100tvcatv.Left = tvcatv.Left + 100pantalla2.Left = pantalla2.Left + 100Auxiliar.Left = Auxiliar.Left + 100End SubPrivate Sub masbrillo_Click()pantalla.Top = pantalla.Top + 100nrocanal.Top = nrocanal.Top + 100onoff.Top = onoff.Top + 100tvcatv.Top = tvcatv.Top + 100pantalla2.Top = pantalla2.Top + 100Auxiliar.Top = Auxiliar.Top + 100End SubPrivate Sub menos_Click()pantalla.Left = pantalla.Left - 100nrocanal.Left = nrocanal.Left - 100onoff.Left = onoff.Left - 100tvcatv.Left = tvcatv.Left - 100pantalla2.Left = pantalla2.Left - 100Auxiliar.Left = Auxiliar.Left - 100End SubPrivate Sub menosbrillo_Click()pantalla.Top = pantalla.Top - 100nrocanal.Top = nrocanal.Top - 100onoff.Top = onoff.Top - 100tvcatv.Top = tvcatv.Top - 100pantalla2.Top = pantalla2.Top - 100Auxiliar.Top = Auxiliar.Top - 100End SubPrivate Sub nueve_Click()Auxiliar.Caption = Auxiliar.Caption + "9"End SubPrivate Sub ocho_Click()Auxiliar.Caption = Auxiliar.Caption + "8"End SubPrivate 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 = FalseEnd SubPrivate Sub offon_Click()If onoff.BackColor = vbRed Thenonoff.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = FalseElseonoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueEnd IfEnd SubPrivate Sub ON_Click()nrocanal.Caption = "0"tvcatv.Caption = "TV"onoff.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnd SubPrivate Sub seis_Click()Auxiliar.Caption = Auxiliar.Caption + "6"End SubPrivate Sub siete_Click()Auxiliar.Caption = Auxiliar.Caption + "7"End SubPrivate Sub tres_Click()Auxiliar.Caption = Auxiliar.Caption + "3"End SubPrivate Sub uno_Click()Auxiliar.Caption = Auxiliar.Caption + "1"End Sub

Projecto Visual Basic

Aca esta mi projecto del Visual Basic.