Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » ayuda para hacer un programa de conversion e unidades

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

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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
1
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