Visual Basic - ayuda para hacer un programa de conversion e unidades

Life is soft - evento anual de software empresarial
   
Vista:

ayuda para hacer un programa de conversion e unidades

Publicado por javier (1 intervención) el 19/04/2013 19:24:35
Hola me podrian ayudar necesito crear un programa que convierta unidades de longitud comoDe centímetros a pulgadas y viceversa.
De metros a pies y viceversa.
De metros a yardas y viceversa.
saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda para hacer un programa de conversion e unidades

Publicado por jcmg (24 intervenciones) el 22/04/2013 04:10:55
hola Javier
en este enlace encontraras mas conversiones
http://www.intercomex.cl/pesos.html
el programa:
crea un nuevo projecto, e inserta en la forma 2 labels, 9 botones, y dos textbox y pega el codigo de abajo en declaraciones

Rem centimetros a pulgadas
Private Sub Command1_Click()
If (Text1 = "") Then Exit Sub
Text2 = Text1 * 0.3937
End Sub

Rem pulgadas a centimetros
Private Sub Command2_Click()
If (Text1 = "") Then Exit Sub
Text2 = Text1 * 2.54001
End Sub

Rem limpiar las cajas
Private Sub Command7_Click()
limpiar
End Sub

Rem metros a pies
Private Sub Command3_Click()
If (Text1 = "") Then Exit Sub
Text2 = Text1 * 3.2808
End Sub

Rem pies a metros
Private Sub Command4_Click()
If (Text1 = "") Then Exit Sub
Text2 = Text1 * 0.304801
End Sub

Rem metros a yardas
Private Sub Command5_Click()
If (Text1 = "") Then Exit Sub
Text2 = Text1 * 1.0936
End Sub

Rem yardas a metros
Private Sub Command6_Click()
If (Text1 = "") Then Exit Sub
Text2 = Text1 * 0.9144
End Sub

Rem autor del programa
Private Sub Command8_Click()
MsgBox "Programa creado por", 32, "Autor"
End Sub

Rem salir del programa
Private Sub Command9_Click()
salir
End Sub

Rem funciones de los botones y lo demas
Private Sub Form_Load()
If App.PrevInstance = False Then
Label1.Caption = "Medida"
Label2.Caption = "Resultado"
limpiar
Command1.Caption = "Centimetros a pulgadas"
Command2.Caption = "Pulgadas a centimetros"
Command3.Caption = "Metros a pies"
Command4.Caption = "Pies a Metros"
Command5.Caption = "Metros a yardas"
Command6.Caption = "Yardas a metros"
Command7.Caption = "limpiar las cajas"
Command8.Caption = "Autor del programa"
Command9.Caption = "Salir del programa"
' si se vuelve a ejecutar el programa en uso, cerrarlo
ElseIf App.PrevInstance = True Then
MsgBox "El programa esta en uso", 32, "Mensaje"
salir
End If
End Sub

Rem limpiar las cajas
Sub limpiar()
Text1.Text = ""
Text2.Text = ""
End Sub

Rem salir del programa
Sub salir()
Set Form1 = Nothing
End
End Sub

Rem por si se cierra el programa en el boton cerrar
Private Sub Form_Unload(Cancel As Integer)
salir
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Hola "jcmg"

Publicado por MaTer (1 intervención) el 25/08/2013 22:04:36
oye podrias hacer un tutorial de como hacerlo? Porfavor te a quedado fabuloso pero yo estoy batallando porfavor has un tuto donde explique como realizarlo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar