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

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

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:

 

area circulo1Una 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.

area circulo2Bien 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.

area circulo3 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.

 

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

Anuncio

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

 

area circulo6Por ú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

area circulo7Vamos 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 🙂

 

Programa capas de calcular el área y perímetro de un círculo en Visual Basic 6.0

Programa capas de calcular el área y perímetro de un círculo en Visual Basic 6.0

LuisVisual Basic
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...