Apunte de la clase del 20 de setiembre

Lo que hicimos en esta clase fue:

Private Sub alcuadrado_Click()
visor.Caption = visor.Caption * visor.Caption

End Sub


Private Sub igual_Click()
punto.Enabled = True

If signos.Caption = "+" Then
visor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "-" Then
visor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "*" Then
visor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "/" Then
If visor.Caption = "0" Then
visor.Caption = "ERROR"
signos.Caption = ""
auxcanal.Caption = ""
Else
visor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
End If
End If
End If
End If
End If
If signos.Caption = "%" Then
visor.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 Then
visor.Caption = "ERROR"
Else
visor.Caption = Sqr((Val(visor.Caption)))
End If

End Sub

Avance de la clase del 20 de setiembre por Ary

Con mi compañero Ezequiel en esta clase logramos programar las siguientes funciones

-Raíz
-Potenciacion
-+/-
Tambien logramos corregir algo del igual que estaba mal y diseñar el porcentaje, el cual todabia no pudimos programar.Esperamos programarlo la clase que viene.

Avance de la clase del 6 de setiembre

En esta clase con mi compañero EZequiel lo que hicimos fue:
Programar en la calculadora:el boton borrar, multiplicar,dividir,la coma,un label afuera de la computadora para que borrase los signos, el igual(lo completamos ya que nos faltaba algo)
Ademas diseñamos 3 botones auxiliares para tapar los numeros y signos auxiliares.

Apunte de la clase del 6 de setiembre

Lo que hicmos con la calculadora hoy fue:
Private Sub borrar_Click()
visor.Caption = ""
auxcanal.Caption = ""
signos.Caption = ""
punto.Enabled = True
End Sub

Private Sub dividido_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "/"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub igual_Click()
punto.Enabled = True

If signos.Caption = "+" Then
visor.Caption = Val(visor.Caption) + Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "-" Then
visor.Caption = Val(auxcanal.Caption) - Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "*" Then
visor.Caption = Val(visor.Caption) * Val(auxcanal.Caption)
signos.Caption = ""
auxcanal.Caption = ""
Else
If signos.Caption = "/" Then
If visor.Caption = "0" Then
visor.Caption = "ERROR"
signos.Caption = ""
auxcanal.Caption = ""
Else
visor.Caption = Val(auxcanal.Caption) / Val(visor.Caption)
signos.Caption = ""
auxcanal.Caption = ""
End If
End If
End If
End If
End If
End Sub

Private Sub por_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "*"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
punto.Enabled = False
End Sub

Apunte del 30 de agosto

En esta clase comenzamos la calculadora y lo que hicimos fue:

Private Sub cero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Private Sub cinco_Click()
visor.Caption = visor.Caption + "5"
End Sub

Private Sub cuatro_Click()
visor.Caption = visor.Caption + "4"
End Sub

Private Sub dos_Click()
visor.Caption = visor.Caption + "2"
End Sub

Private Sub nueve_Click()
visor.Caption = visor.Caption + "9"
End Sub

Private Sub ocho_Click()
visor.Caption = visor.Caption + "8"
End Sub


Private Sub onoff_Click()
If onoff1.BackColor = vbRed Then
onoff1.BackColor = vbBlack
auxcanal.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
mas.Enabled = False
menos.Enabled = False
por.Enabled = False
dividido.Enabled = False
igual.Enabled = False
visor.Caption = ""
borrar.Enabled = False

Else
onoff1.BackColor = vbRed
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
mas.Enabled = True
menos.Enabled = True
por.Enabled = True
dividido.Enabled = True
igual.Enabled = True
borrar.Enabled = True

End If
End Sub


Private Sub seis_Click()
visor.Caption = visor.Caption + "6"
End Sub

Private Sub siete_Click()
visor.Caption = visor.Caption + "7"
End Sub

Private Sub tres_Click()
visor.Caption = visor.Caption + "3"
End Sub

Private Sub uno_Click()

visor.Caption = visor.Caption + "1"
End Sub

Private Sub mas_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "+"
visor.Caption = ""
punto.Enabled = True

End Sub

Private Sub menos_Click()
auxcanal.Caption = Val(visor.Caption)
signos.Caption = "-"
visor.Caption = ""
punto.Enabled = True

End Sub

Avance de la clase del 30/8 con mi compañero Ezequiel

Hoy con mi compañero logramos programar:
-Todos los numeros
-Boton de sumar
-Boton de restar
-Boton del igual
-El boton on/off.
-El boton de borrar
Ademas logramos diseñar toda la calculadora.