Calcular área y perímetro de un círculo en Visual Basic 6.0

Bueno el día de hoy vamos a hacer un pequeño programa con visual basic
Objetivo: Calcular el área y perímetro de un círculo en Visual Basic 6.0
Este programa es un de varios que are donde la temática sera la misma, por ejemplo en este es un circulo, el siguiente un cuadrado y así por el estilo para que cuando tengamos varios proyectos de esta misma temática los unamos en un solo programa y nos demos cuenta como de algo sencillo, sale algo complejo.

Archivos del proyecto: Area de circulo Vb6.0-Ingenieriaelectronica.org

Contraseña para descomprimir: ingenieriaelectronica.org
Programación completa: https://ingenieriaelectronica.org/programacion-completa-del-proyecto-area-y-perimetro-para-un-circulo/

Primero que nada, abrimos visual basic y creamos un nuevo proyecto:

Una vez que estemos en la ventana del proyecto empezaremos a diseñar nuestro programa (esta vez me iré un poco más rápido ya que los conceptos que nombrare ya están explicados en otros temas)

Creamos 4 TextBox y los ponemos en orden como en la siguiente imagen en este orden: el primero es: text1, el de la derecha de text1 es text2, después abajo comienza ala izquierda con text 3 y ala derecha termina con text4.

Bien ahora creamos 2 botones con la herramienta: CommandButton los renombramos en el cuadro de propiedades, utilizando la propiedad caption y remplazamos lo que diga por la palabra: Resultado, o lo que quieran que diga.

Ahora vamos a poner unas cuantas frivolidades XD, pondremos una imagen usando la herramienta: image y para escoger la imagen nos vamos a las propiedades y buscamos la que diga: Picture una vez encontrada nos permitirá Buscar una imagen en nuestra computadora, simplemente la buscamos y le damos abrir.

y ya tendremos la imagen, solo la ponemos donde queremos que se vea.

Después ponemos 2 labels (esto es opcional) que digan Radio o el valor que le pedirán al usuario introducir en el primero cuadro

Por último la programación, solo los botones tendrán una programación ya que las cajas de texto son solo para introducir un valor y para dar un resultado

Vamos y damos doble click sobre el primer botón (que sera para sacar el área) y usaremos este código:

Private Sub Command1_Click()
 'AREA DEL CIRCULO
 Text2.Text = (3.1416) * Val(Text1.Text) ^ 2
 End Sub

Donde:
Private Sub Command1_Click()      ‘ Te lo da el programa por defecto
‘AREA DEL CIRCULO                       ‘ Una pequeña nota para que el programa no te de error debes poner un apostrofe antes de la nota

Text2.Text = (3.1416) * Val(Text1.Text) ^ 2       ‘con Text2 estamos indicando que queremos que se imprima en esta caja de texto el resultado, así mismo al agregar:

.Text = (3.1416) indicamos que Text2 equivale a 3.1416 (Valor de Pi), por ultimo:

* Val(Text1.Text) ^ 2
aqui estamos especificando que la operación sera una multiplicación por el valor que hay en text 1 y lo elevaremos ala segunda potencia o al cuadrado como quieran verlo
End Sub     ‘ te lo da el programa por defecto (etiqueta de cierre)

Ahora nos vamos con el segundo botón, este no lo explicare ya que es lo mismo que explique arriba en el área solo que en este cambia la formula, es la única diferencia.

Private Sub Command2_Click()
 'PERIMETRO DEL CIRCULO
 Text4.Text = (2 * 3.1416) * Val(Text3.Text)
 End Sub
 

Y listo así tienen una sencilla aplicación para determinar área y perímetro de un circulo, si tienen alguna duda, déjenla en los comentarios
saludos 🙂

Luis

Nombre del autor: Luis Antonio De La Cruz Reyes.
Rango en el Staff: Administrador y fundador
Descripción: Mi nombre es Luis, un egresado de la carrera de Ingeniería Electrónica, el motivo por el cual funde y cree esta página, fue para formar un sitio que recopilara todo lo que se va a prendiendo durante la carrera, con el fin de que este conocimiento no se perdiera y sea de utilidad para las futuras generaciones.

ingenieriaelectronica.org