Apunte de la clase del 23 de agosto

Lo que hicimos la clase del 23 fue programar el anterior y el enter .este ult. de vuelta ya que habiamos hecho algo mal.

Private Sub anterior_Click()
auxcanal.Caption = canalant.Caption
canalant.Caption = numerodecanal.Caption
numerodecanal.Caption = auxcanal.Caption
auxcanal.Caption = ""

Private Sub enter_Click()
If tvcatv.Caption = "tv" Then
If auxcanal.Caption < 13 Then
canalant.Caption = numerodecanal.Caption
numerodecanal.Caption = auxcanal.Caption
auxcanal.Caption = ""
Else
auxcanal.Caption = ""

End If
Else
If auxcanal.Caption < 120 Then
canalant.Caption = numerodecanal.Caption
numerodecanal.Caption = auxcanal.Caption
auxcanal.Caption = ""
Else
auxcanal.Caption = ""
End If
End If

End Sub

Apunte de la clase 19/7

Te pongo el form. nada mas porque me dijiste que con eso alcanzaba.


El formulario de lo que hize en la clase del 19 de julio fue:

Private Sub canalmas_Click()
If tvcatv.Caption = "tv" Then
If Val(numerodecanal.Caption) > 12 Then
numerodecanal.Caption = 1
Else
numerodecanal.Caption = numerodecanal.Caption + 1
End If
Else
If Val(numerodecanal.Caption) > 120 Then
numerodecanal.Caption = 1
Else
numerodecanal.Caption = numerodecanal.Caption + 1
End If
End If
End Sub
Private Sub canalmenos_Click()
If tvcatv.Caption = "tv" Then
If Val(numerodecanal.Caption) < 1 Then
numerodecanal.Caption = 13
Else
numerodecanal.Caption = numerodecanal.Caption - 1
End If
Else
If Val(numerodecanal.Caption) < 1 Then
numerodecanal.Caption = 120
Else
numerodecanal.Caption = numerodecanal.Caption - 1
End If
End If
End Sub
Private Sub onoff_Click()
If OFFON.BackColor = vbRed Then
OFFON.BackColor = vbbalck
canalmas.Enabled = False
canalmenos.Enabled = False
enter.Enabled = False
uno.Enabled = False
dos.Enabled = False
tres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False

Else
OFFON.BackColor = vbRed
canalmas.Enabled = True
canalmenos.Enabled = True
enter.Enabled = True
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 If

If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub

Private Sub catvtv_Click()
If tvcatv.Caption = "tv" Then
tvcatv.Caption = "catv"
Else
tvcatv.Caption = "tv"
End If
End Sub

Apunte de la clase del 12/7

Hoy , 12/7 el formulario que programamos con mi compañero fue:
Private Sub canalmas_Click()
If Val(numerodecanal.Caption) < 13 Then
numerodecanal.Caption = Val(numerodecanal.Caption) + 1
Else
numerodecanal.Caption = 1
End If
End Sub
rivate Sub canalmenos_Click()
If Val(numerodecanal.Caption) > 1 Then
numerodecanal.Caption = Val(numerodecanal.Caption) - 1
Else
numerodecanal.Caption = 13
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 onoff_Click()
If OFFON.Caption = "on" Then
OFFON.Caption = "off"
Else
OFFON.Caption = "on"
End If
End Sub
Private Sub cero_Click()
auxcanal.Caption = auxcanal.Caption + "0"
End Sub