Scribd
Cargar
51 vistas10 páginas

Prueba Unitaria Calculadora

El documento describe una calculadora que permite a los usuarios ingresar dos números en cajas de texto y realizar operaciones matemáticas básicas (suma, resta, multiplicación, división, potenciación, raíz cuadrada) mediante botones. Las funciones almacenan los resultados en una grilla de datos y una etiqueta de texto. También incluye botones para limpiar los campos de texto, borrar la grilla de historial y mostrar créditos.

Cargado por

Kevin Paul Alfau Alcantara
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
51 vistas10 páginas

Prueba Unitaria Calculadora

El documento describe una calculadora que permite a los usuarios ingresar dos números en cajas de texto y realizar operaciones matemáticas básicas (suma, resta, multiplicación, división, potenciación, raíz cuadrada) mediante botones. Las funciones almacenan los resultados en una grilla de datos y una etiqueta de texto. También incluye botones para limpiar los campos de texto, borrar la grilla de historial y mostrar créditos.

Cargado por

Kevin Paul Alfau Alcantara
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Prueba Unitaria de Programa

Calculadora

Variables
Dim num1 As String
Dim num2 As String

Función para darle valor a la variable

Private Sub TextBox1_TextChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

num1 = [Link]

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As [Link], ByVal e As


[Link]) Handles [Link]

num2 = [Link]

End Sub

Toda esta parte funciona correctamente, ya que cumple con lo pedido.


Función Sumar 2 numeros cuales quiera
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = Val(num1) + Val(num2)


[Link](num1, num2, [Link])

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Restar 2 numeros cuales quiera
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = num1 - num2


[Link](num1, num2, [Link])

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Multiplicar 2 numeros cuales quiera
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = num1 * num2


[Link](num1, num2, [Link])

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Dividir 2 numeros cuales quiera
Private Sub Button4_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = num1 / num2


[Link](num1, num2, [Link])

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Potenciar 2 numeros cuales quiera
Private Sub Button5_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = Val(num1) ^ Val(num2)


[Link](num1, num2, [Link])

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Sacar Raíz de numeros cuales quiera
Private Sub Button6_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = Val(num1) ^ 0.5


[Link](num1, num2, [Link])

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función es en los Botones

Función Vaciar
Private Sub Button8_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link] = ""
[Link] = ""
[Link] = "0"

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Vaciar Historial
Private Sub Button9_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

[Link]()

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.


Función Creditos
Private Sub Button7_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]

MsgBox("Kevin Paul Alfau Alcántara #1 5to B", [Link],


"Créditos a")

End Sub

Esta parte funciona correctamente, ya que cumple con lo pedido.

También podría gustarte