none
AYUDAAA con visual basic

    Pregunta

  • ayuda necesito hacer un programa que me calcule la densidad,
    el usuaria tiene la capacidad de elegir en un combobox si su masa es en kg,gr, o mg y en otro combobox si su voluemn es en m3,cm3,mm3,
    y no se como escrbir el codigo , lo que queiro es que no importa si el usuario la da en masa o gramo o lo que sea, pero que el prigrama me lo muestre en una estandar que sera Kg/metrocubico
    no se como hacerlo ayudaaa
    miércoles, 16 de noviembre de 2016 22:33

Respuestas

  • Hola:
    En un Form como el de la imagen, copia y pega el siguiente código


    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.txtDensidad.ReadOnly = True
            Me.cboMasa.DropDownStyle = ComboBoxStyle.DropDownList
            Me.cboMasa.Items.Add("Kilogramo")
            Me.cboMasa.Items.Add("Gramo")
            Me.cboMasa.Items.Add("Miligramo")
            Me.cboVolumen.DropDownStyle = ComboBoxStyle.DropDownList
            Me.cboVolumen.Items.Add("Metro Cubico")
            Me.cboVolumen.Items.Add("Centimetro Cubico")
            Me.cboVolumen.Items.Add("Milimetro Cubico")
        End Sub

        Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click
            Dim ldMasa As Double = Me.nudMasa.Value
            If cboMasa.SelectedIndex = 1 Then
                ldMasa /= 1000
            ElseIf cboMasa.SelectedIndex = 2 Then
                ldMasa /= 1000000
            End If
            Dim ldVolumen As Double = Me.nudVolumen.Value
            If cboVolumen.SelectedIndex = 1 Then
                ldVolumen /= 1000000
            ElseIf cboMasa.SelectedIndex = 2 Then
                ldVolumen /= 1000000000
            End If
            Dim ldDensidad As Double = ldMasa / ldVolumen
            Me.txtDensidad.Text = Convert.ToString(ldDensidad)
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    jueves, 17 de noviembre de 2016 8:30

Todas las respuestas

  • Hola

    Si el problema es que no sabes como transformar la formula a código, lo que tienes que hacer es a la formula sustituirla por las variables de tu sistema para obtener el valor.

    ya sabes con que formula lo vas a realizar?

    Saludos


    jueves, 17 de noviembre de 2016 0:42
  • Hola:
    En un Form como el de la imagen, copia y pega el siguiente código


    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            Me.txtDensidad.ReadOnly = True
            Me.cboMasa.DropDownStyle = ComboBoxStyle.DropDownList
            Me.cboMasa.Items.Add("Kilogramo")
            Me.cboMasa.Items.Add("Gramo")
            Me.cboMasa.Items.Add("Miligramo")
            Me.cboVolumen.DropDownStyle = ComboBoxStyle.DropDownList
            Me.cboVolumen.Items.Add("Metro Cubico")
            Me.cboVolumen.Items.Add("Centimetro Cubico")
            Me.cboVolumen.Items.Add("Milimetro Cubico")
        End Sub

        Private Sub btnCalcular_Click(sender As Object, e As EventArgs) Handles btnCalcular.Click
            Dim ldMasa As Double = Me.nudMasa.Value
            If cboMasa.SelectedIndex = 1 Then
                ldMasa /= 1000
            ElseIf cboMasa.SelectedIndex = 2 Then
                ldMasa /= 1000000
            End If
            Dim ldVolumen As Double = Me.nudVolumen.Value
            If cboVolumen.SelectedIndex = 1 Then
                ldVolumen /= 1000000
            ElseIf cboMasa.SelectedIndex = 2 Then
                ldVolumen /= 1000000000
            End If
            Dim ldDensidad As Double = ldMasa / ldVolumen
            Me.txtDensidad.Text = Convert.ToString(ldDensidad)
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    jueves, 17 de noviembre de 2016 8:30
  • muchas garcaiassss

    jueves, 17 de noviembre de 2016 15:01
  • no se por que me daba 1 no importaba las medidas que pusiera, siempre me daba 1 xdxd

    jueves, 17 de noviembre de 2016 15:01