Scribd
Upload
29 views

Calculadora en Interfaz de Visual Basic

This document describes a calculator interface created in Visual Basic. It defines variables to store numeric user input and calculation results. Buttons are coded to perform calculations like addition, subtraction, multiplication, division, powers, and square roots on the input values when clicked. A reset button clears the input and result fields.

Uploaded by

hugo ramirez hernandez
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
29 views

Calculadora en Interfaz de Visual Basic

This document describes a calculator interface created in Visual Basic. It defines variables to store numeric user input and calculation results. Buttons are coded to perform calculations like addition, subtraction, multiplication, division, powers, and square roots on the input values when clicked. A reset button clears the input and result fields.

Uploaded by

hugo ramirez hernandez
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Hugo Alejandro Ramirez Hernandez 307058

Diseño de Interfaces de Software SOF18

Calculadora en Interfaz de Visual Basic


Practica #9
Hugo Alejandro Ramirez Hernandez 307058
Diseño de Interfaces de Software SOF18
Public Class FRMOperadores

Dim num1, num2 As Integer


Dim Suma, Resta, Div, Multi, Pot, Raiz As Integer

Private Sub BTSalir_Click(sender As Object, e As EventArgs) Handles


BTSalir.Click
Me.Close()
End Sub

Private Sub BTCalcular_Click(sender As Object, e As EventArgs) Handles


BTCalcular.Click
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
txtDiv.Text = (num1 / num2)
txtMulti.Text = num1 * num2
txtPot.Text = Math.Pow(num1, num2)
txtRaiz.Text = Math.Sqrt(num1)
txtResta.Text = num1 - num2
txtSuma.Text = num1 + num2

End Sub

Private Sub BTNuevo_Click(sender As Object, e As EventArgs) Handles


BTNuevo.Click
txtDiv.Clear()
txtMulti.Clear()
txtNum1.Clear()
txtNum2.Clear()
txtPot.Clear()
txtRaiz.Clear()
txtResta.Clear()
txtSuma.Clear()
End Sub
End Class

You might also like