Codigo visual basic(por flor y sofi)

Private Sub apagar_Click()ceito.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 = Falseonoff.BackColor = vbBlack
End Sub
Private Sub catv_Click()tvcatv.Caption = "catv"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()ceito.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub mados_Click()
End Sub
Private Sub mas_Click()tele.Top = tele.Top - 100base.Top = base.Top - 100End Sub
Private Sub masdos_Click()If ceito.Caption < 120 Then ceito.Caption = ceito.Caption + 1 Else ceito.Caption = 1 End IfEnd Sub
Private Sub masuno_Click()tele.Left = tele.Left - 100base.Left = base.Left - 100End Sub
Private Sub menos_Click()tele.Top = tele.Top + 100base.Top = base.Top + 100End Sub
Private Sub menosdos_Click()If ceito.Caption > 1 Then ceito.Caption = ceito.Caption - 1 Else ceito.Caption = 120 End If End Sub
Private Sub menosuno_Click()tele.Left = tele.Left + 100base.Left = base.Left + 100End Sub
Private Sub nueve_Click()auxiliar.Caption = auxiliar.Caption + "9"End Sub
Private Sub NUEVOCATV_Click()If tvcatv.Caption = "tv" Then tvcatv.Caption = "catv" Else tvcatv.Caption = "catv" tvcatv.Caption = "tv" End If
End Sub
Private Sub ocho_Click()auxiliar.Caption = auxiliar.Caption + "8"End Sub
Private Sub offon_Click()If uno.Enabled = True Then ceito.Caption = "" tvcatv.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 enter.Enabled = False onoff.BackColor = vbBlack mas.Enabled = False masuno.Enabled = False masdos.Enabled = False menos.Enabled = False menosuno.Enabled = False menosdos.Enabled = False NUEVOCATV.Enabled = False prender.Enabled = False apagar.Enabled = False tv.Enabled = False catv.Enabled = FalseElseceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed mas.Enabled = True masuno.Enabled = True masdos.Enabled = True menos.Enabled = True menosuno.Enabled = True menosdos.Enabled = True NUEVOCATV.Enabled = True prender.Enabled = True apagar.Enabled = True tv.Enabled = True catv.Enabled = TrueEnd IfEnd Sub
Private Sub prender_Click()ceito.Caption = "0"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = TrueCinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = TrueCero.Enabled = Trueenter.Enabled = Trueonoff.BackColor = vbRed
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