• Viernes 8 de Noviembre de 2024, 06:57

Autor Tema:  programa de conversiones de longitu,peso,volumen en vb  (Leído 2618 veces)

chiohp

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
programa de conversiones de longitu,peso,volumen en vb
« en: Viernes 6 de Noviembre de 2009, 22:55 »
0
ESTO ES LO QUE TENGO QUE HACER  

1.Crear un programa para realizar conversión de medidas de: Longitud, peso, volumen Capacidad. Utilice como punto de partida desde la Unidad (1) en adelante y realice las conversiones de todos los campos que se le presentan tanto para la Longitud, el Peso, y el Volumen Capacidad.

Y ESTO ES LO QUE TENGO HASTA AHORITA

Public Class frmconversiones
    Public Sub longitud()
        Dim a As Double
        If Me.txtcentimetro.Text = "1oo" And Me.txtkilometros.Text = "0.001" And Me.txtmaritima.Text = "0.0005399" And Me.txtmilimetros.Text = "1000" And Me.txtpie.Text = " 3.28084" And Me.txtpulgada.Text = "39.3701" And Me.txtterrestre.Text = "0.006621" And Me.txtyarda.Text = "1.0936" Then
            a = Me.txtmetros.Text
            Me.txtcentimetro.Text = a * 100
            Me.txtkilometros.Text = a * 0.001
            Me.txtmaritima.Text = a * 0.0005399
            Me.txtmilimetros.Text = a * 1000
            Me.txtpie.Text = a * 3.28084
            Me.txtpulgada.Text = a * 39.3701
            Me.txtterrestre.Text = a * 0.006621
            Me.txtyarda.Text = a * 1.0936

        ElseIf Me.txtcentimetro.Text = "" And Me.txtkilometros.Text = "" And Me.txtmaritima.Text = "" And Me.txtmetros.Text = "" And Me.txtpie.Text = "" And Me.txtpulgada.Text = "" And Me.txtterrestre.Text = "" And Me.txtyarda.Text = "" Then
            a = Me.txtmilimetros.Text
            Me.txtcentimetro.Text = a * 0.1
            Me.txtkilometros.Text = a * 0.000001
            Me.txtmaritima.Text = a * 0.0000005399
            Me.txtmetros.Text = a * 0.001
            Me.txtpie.Text = a * 0.00328084
            Me.txtpulgada.Text = a * 0.0393701
            Me.txtterrestre.Text = a * 0.000006621
            Me.txtyarda.Text = a * 0.0010936

        ElseIf Me.txtcentimetro.Text = "" And Me.txtkilometros.Text = "" And Me.txtmaritima.Text = "" And Me.txtmilimetros.Text = "" And Me.txtpie.Text = "" And Me.txtmetros.Text = "" And Me.txtterrestre.Text = "" And Me.txtyarda.Text = "" Then
            a = Me.txtpulgada.Text
            Me.txtcentimetro.Text = a * 2.54
            Me.txtkilometros.Text = a * 0.0000254
            Me.txtmaritima.Text = a * 0.00001371346
            Me.txtmilimetros.Text = a * 25.4
            Me.txtpie.Text = a * 0.083333336
            Me.txtmetros.Text = a * 0.0254
            Me.txtterrestre.Text = a * 0.0001681734
            Me.txtyarda.Text = a * 0.02777744

        ElseIf Me.txtcentimetro.Text = "" And Me.txtkilometros.Text = "" And Me.txtmaritima.Text = "" And Me.txtmilimetros.Text = "" And Me.txtpulgada.Text = "" And Me.txtmetros.Text = "" And Me.txtterrestre.Text = "" And Me.txtyarda.Text = "" Then
            a = Me.txtpie.Text
            Me.txtcentimetro.Text = a * 30.48
            Me.txtkilometros.Text = a * 0.0003048
            Me.txtmaritima.Text = a * 0.000016456152
            Me.txtmilimetros.Text = a * 304.8
            Me.txtpulgada.Text = a * 12
            Me.txtmetros.Text = a * 0.3048
            Me.txtterrestre.Text = a * 0.0020180808
            Me.txtyarda.Text = a * 0.33332928
        End If
    End Sub

    Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click
        longitud()
    End Sub

    Private Sub frmconversiones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnborrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnborrar.Click
        Me.TextBox11.Clear()


    End Sub
End Class

Jimbenit

  • Miembro MUY activo
  • ***
  • Mensajes: 269
  • Nacionalidad: co
    • Ver Perfil
    • http://ingenieriacivil.foroactivo.com
Re: programa de conversiones de longitu,peso,volumen en vb
« Respuesta #1 en: Viernes 6 de Noviembre de 2009, 23:01 »
0
Veo que estas aprendiendo, cierto?...  ^_^
Te recomiendo que leas un poco mas....
Si aun no tienes libro, consiguete uno, te recomiendo que leas hasta las clases...

Temas importantes:

1) Functions
2) Procedimientos Sub
3) Clases

Obviamente, deberas leer algunos temas previos antes de abordar estos temas que te puse.

saludos.


Yo quiero mucho a Toph ---> Mi Web]http://ingenieriacivil.foroactivo.com[/url]

chiohp

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Re: programa de conversiones de longitu,peso,volumen en vb
« Respuesta #2 en: Viernes 6 de Noviembre de 2009, 23:04 »
0
GRACIAS POR EL CONSEJO PERO NECESITO AYUDA Y CORRECCIONES .. QUIERO SABER Q ESTA MALO Y Q BUENO..