SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: chivas2008 en Domingo 28 de Diciembre de 2008, 18:54

Título: Conversor de Unidades
Publicado por: chivas2008 en Domingo 28 de Diciembre de 2008, 18:54

Hola a todos

Estoy iniciandome en la programacion y estoy interesado en hacer un pequeno conversor de unidades de diferentes sistemas, por ejemplo, de cantidades en el sistema Internacional al sistema ingles (km/h a Mi/h, lb a Kg, etc), cuál es la mejor opción a utilizar?, select case, arrays, o que?, les agradeceré me orienten en este caso

Título: Re: Conversor de Unidades
Publicado por: calichecal en Miércoles 1 de Julio de 2009, 18:01

yo estuve haciendo hace meses tambien un conversor ,utilize un formulario mdi y otros estandar con su propiedad mdichild en true y un menu para seleccionar el tipo de conversion ,en este caso =  un menu podria llamarse peso llamaria la ventana estandar  para  peso que tendria aparte su subrutina de codigo y de ahy en adelante es cuestion de imaginacion tuya el saber interactuar con los objetos y variables , yo personalmente utilizaria if con if anidados y renombrando variables, ESPERO QUE ME HALLAS AGARRADO LA IDEA ,DUDAS PUEDES ESCRIBIRME A stevenson.exe@gmail.com

Título: Re: Conversor de Unidades
Publicado por: m0skit0 en Miércoles 1 de Julio de 2009, 19:00

Yo haría enums con vectores.

Saludos

Título: Re: Conversor de Unidades
Publicado por: calichecal en Miércoles 1 de Julio de 2009, 19:21

Cita de: "m0skit0"

Yo haría enums con vectores.

Saludos

saludos mosquito ,

Título: Re: Conversor de Unidades
Publicado por: chiquitita123 en Martes 27 de Octubre de 2009, 13:31

no se si les pueda ayudar pero ahi les dejo un convertidor de algunas unidades que ise como tarea
Private Sub cmdconvertir_Click()
If Optcm = True Then
txte.Text = Val(txtc.Text) * 100
Else
If Optdm = True Then
txte.Text = Val(txtc.Text) * 10
Else
If Optmm = True Then
txte.Text = Val(txtc.Text) * 1000
Else
If Optkm = True Then
txte.Text = Val(txtc.Text) / 1000
End If
End If
End If
End If
End Sub

Private Sub cmdnuevo_Click()
txtc.Text = ""
txte.Text = ""
txtc.SetFocus
End Sub

Private Sub cmdsalir_Click()
End
End Sub

Private Sub Timer1_Timer()
txttime.Text = Time
End Sub