Scribd
Upload
23 views2 pages

Calculadora de Áreas Geométricas

This program contains a main menu form with buttons to calculate the area of different shapes. It includes forms to calculate the area of a circle by inputting the radius, triangle by inputting the base and height, and rectangle by inputting the base and height. Each area calculation form allows the user to input values and see the resulting area, and also contains a button to return to the main menu form.

Uploaded by

jessica reyes salas
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
23 views2 pages

Calculadora de Áreas Geométricas

This program contains a main menu form with buttons to calculate the area of different shapes. It includes forms to calculate the area of a circle by inputting the radius, triangle by inputting the base and height, and rectangle by inputting the base and height. Each area calculation form allows the user to input values and see the resulting area, and also contains a button to return to the main menu form.

Uploaded by

jessica reyes salas
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Programa en Visual que tiene 1 menu para calcular área de circulo, de cuadrado, rectángulo y

triangulo
Public Class Form1

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


[Link]) Handles [Link]
[Link]()
[Link]()
End Sub

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


[Link]) Handles [Link]
[Link]()
[Link]()
End Sub

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


[Link]) Handles [Link]
[Link]()
[Link]()
End Sub

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


[Link]) Handles [Link]
[Link]()
[Link]()
End Sub
End Class

Public Class Form2

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


[Link]) Handles [Link]

End Sub

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


[Link]) Handles [Link]
Dim radio, area As Double
radio = [Link]
area = radio * 3.1416
[Link] = area
End Sub

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


[Link]) Handles [Link]
[Link]()
[Link]()
End Sub
End Class
Public Class Form3

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


[Link]) Handles [Link]
Dim base, altura, area As Double
base = [Link]
altura = [Link]
area = (base * altura) / 2
[Link] = area
End Sub

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


[Link]) Handles [Link]
[Link]()
[Link]()
End Sub
End Class
Public Class Form5

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


[Link]) Handles [Link]
Dim altura, base, area As Double
base = [Link]
altura = [Link]
area = altura * base
[Link] = area
End Sub
End Class

You might also like