Scribd
Upload
9 views4 pages

Calculadora de Áreas en Visual Basic

This document describes a Visual Basic program with a main menu form and multiple calculation forms. The main menu form contains buttons to open different calculation forms for circles, squares, rectangles, and triangles. Each calculation form allows the user to enter dimensions and calculates the area, displaying the result. The forms then allow returning to the main menu.

Uploaded by

Dany
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
9 views4 pages

Calculadora de Áreas en Visual Basic

This document describes a Visual Basic program with a main menu form and multiple calculation forms. The main menu form contains buttons to open different calculation forms for circles, squares, rectangles, and triangles. Each calculation form allows the user to enter dimensions and calculates the area, displaying the result. The forms then allow returning to the main menu.

Uploaded by

Dany
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

PORGRAMA EN VISUAL BASIC

Menú para calcular áreas de figuras geométricas (circulo, cuadrado, rectángulo, 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

ublic 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 Form4

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


[Link]) Handles [Link]
Dim lado, area As Double
lado = [Link]
area = lado * lado
[Link] = area
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