Calcular el área de un triangulo

-


como calcular el área de un triangulo diseñado por VICTOR GONZALEZ de 12 años estudiante de
programación  (Visual Basic)
Public Class Area
    Dim nun1 As Double
    Dim nun2 As Double
    Dim res As Double
    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
        nun1 = Val(TextBox1.Text)
        nun2 = Val(TextBox2.Text)
        res = (nun1 * nun2) / 2
        Label3.Text = res
        Label4.Text = nun1
        Label5.Text = nun2 / 2
        PictureBox1.BackColor = Color.IndianRed
    End Sub
    Private Sub Limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Limpiar.Click
        TextBox1.Clear()
        TextBox2.Clear()
        Label3.Text = ""
        PictureBox1.BackColor = Color.Indigo
    End Sub
    Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
        End
    End Sub
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    End Sub
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
    End Sub
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Me.Width = 492
        PictureBox1.BackColor = Color.DarkCyan
    End Sub
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        PictureBox1.BackColor = Color.Aquamarine
        Me.Width = 774
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Not IsNumeric(TextBox1.Text) Then
            TextBox1.Clear()
        End If
    End Sub
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If Not IsNumeric(TextBox2.Text) Then
            TextBox2.Clear()
        End If
    End Sub








Comentarios

Publicar un comentario

Entradas populares de este blog

codigo para calcular area de un triangulo

-
Imagen
Este código  sumamente sencillo pero para los que comienzan,en la programación es importante realizar códigos fáciles e ir incrementando el nivel de dificultad. el código de la aplicación para calcular el área de un triángulo:  Lo primero es el diseño de la interfaz de usuario que consta de los siguientes controles   3 etiquetas (label), 2 cuadros de texto (textbox), dos botone de comando (button).   Luego declara las variables necesarias: Base,Altura,Resultado Luego procedemos a cambiar las propiedades de los controles, para este ejercicio solo cambiaremos la propiedad name(nombre de cada control como se muestra en la imagen); la imagen central se coloca un control PictureBox1 y se agrega la imagen. La fórmula a aplicar es A = base * altura/2   . El símbolo & se utiliza para concatenar la parte numérica con los caracteres. Public Class Form1   Dim base as double   Dim Altura as double   Dim   resultado as d...
Leer más

Qué son las extensiones de archivos

-
Qué son las extensiones de archivos Qué son las extensiones Cuando hablamos de archivos, hablamos de una gran variedad de ellos. Tenemos fotos, videos, sonido, aplicaciones… Lo que nos permite distinguir entre los diferentes tipos de archivo son las extensiones. Las carpetas solo tienen nombres, pero los archivos tienen nombre y extensión. La extensión es lo que encontramos después del punto. Por ejemplo: Archivo.pdf, Foto.jpeg o Audio.mp3 Las extensiones son claves para que el sistema operativo sepa de qué tipo de archivo estamos hablando y sepa con qué aplicación abrirla. En la práctica Hay miles y miles de extensiones, pero en el día a día, manejamos solo unas cuantas. Veamos algunos ejemplos. Archivos de imagen .png Archivo de imagen sin compresión, admite transparencia. .jpeg o .jpg  Archivo de imagen con compresión (menos tamaño pero menos calidad). .tiff  Archivo de imagen de máxima calidad, admite capas. .gif  Archivo de imagen ideal...
Leer más

Como hacer una Calculadora con Vsual Basic 2010.net

-
Imagen
          Buenas hoy les traigo un código,  algunos me solicitaron Código de una calculadora realizado en Visual Basic 2010, aunque existen muchas versiones de la misma les dejo mi versión del referido código, que espero les sea de ayuda:            Lo primero es diseñar la interfaz con la que los usuarios puedan realizar las operaciones, luego de darle el diseño pasamos al código para el cual debemos declarar variables para almacenar los valores que se ingresan por el teclado.realizar los procedimientos para las operaciones y presentar el resultado. veamos como se realizo: '*** Declaracion de variables*****         Dim num1 As Double         Dim num2 As Double         Dim total As Double      Dim op As Integer las variables num1 y num2 respectivamente es para almacenar el valor del textbox cuando se presione  un boton  ...
Leer más