apunte de la clase del 11/10

Programamos:
Private Sub divididouno_Click()
If visor.Caption = 0 Then
visor.Caption = "ERROR"
Else
visor.Caption = 1 / Val(visor.Caption)End IfEnd SubPrivate Sub igual_Click()punto.Enabled = TrueIf signos.Caption = "+" Thenvisor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "-" Thenvisor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "*" Thenvisor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "/" ThenIf visor.Caption = "0" Thenvisor.Caption = "ERROR"signos.Caption = ""auxcanal.Caption = ""Elsevisor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""End IfEnd IfEnd IfEnd IfEnd IfIf signos.Caption = "%" Thenvisor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)End IfPrivate Sub masmenos_Click()visor.Caption = Val(-(visor.Caption))End SubPrivate Sub porcentaje_Click()signos.Caption = "%"auxcanal.Caption = visor.Captionvisor.Caption = ""End Sub

Lo que hicimos en esta clase fue:
Private Sub alcuadrado_Click()visor.Caption = visor.Caption * visor.Caption
End Sub

Private Sub Command1_Click()visor.Caption = Sqr((Val(visor.Caption)))

End Sub

Private Sub igual_Click()punto.Enabled = True
If signos.Caption = "+" Thenvisor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "-" Thenvisor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "*" Thenvisor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)signos.Caption = ""auxcanal.Caption = ""ElseIf signos.Caption = "/" ThenIf visor.Caption = "0" Thenvisor.Caption = "ERROR"signos.Caption = ""auxcanal.Caption = ""Elsevisor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)signos.Caption = ""auxcanal.Caption = ""End IfEnd IfEnd IfEnd IfEnd IfIf signos.Caption = "%" Thenvisor.Caption = Val(visor.Caption) / 100 * Val(auxcanal)End If



End Sub

Private Sub potencias_Click()visor.Caption = visor.Caption * visor.Caption
End Sub

Private Sub raizcuadrada_Click()
If visor.Caption < 0 Thenvisor.Caption = "ERROR"Elsevisor.Caption = Sqr((Val(visor.Caption)))End If
End Sub

Aviso para vos Guille

Queria avisrate q lo de las vacaciones ya lo tengo prro no lo puedo postiar ya q se me sirra la pagina cuando copio el enbed de slideshare en HTML. Voy a tratar desde otra compu.

Avance del 23 de agosto,poe Ezequiel

En esta clase lo que hicimos en le trabajo fue:
-Programar de vuelta el enter ya que habiamos hecho algo mal
-Programar el anterior
-Crear el canalanterior

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

Avance de la clase del 16/8 con mi compañero Ary

Esta clase no hemos podido avanzar debido a que no concurrimos al laboratorio . Por ende, no pudimos crear el boton anterior ni programar el canal ant , canal mas y el enter( las cosas que vimos en esta clase).Lo haremos el jueves que viene.

Avance de la clase del 19/7 por Ezequiel y Ary

En la clase del 19 de julio programamos:
-canal mas y canal menos para catv para que lleguen a 120 y luego vuelvan a 1
-onoff para que cuando la tele este apagada se desactiven todos los botones de numeros , canal mas , canal menos y enter por medio de enabled.