Código de Visual Basic - Calculadora de volumenes

Imágen de perfil

Calculadora de volumenesgráfica de visualizaciones


Visual Basic

Publicado el 20 de Abril del 2015 por emmanuel
1.885 visualizaciones desde el 20 de Abril del 2015. Una media de 28 por semana
pequeña aplicacion en la cual se puede calcular el volumen de una superficie rectangular y cilindrica con un fondo fijo o inclinado, esto puede llegar a servir para calcular la cantidad exacta de cloro que se debe colocar en una pileta por ejemplo.

carece de iconos debido a que me concentre más a su correcto funcionamiento que en los detalles.
imagen
imagen2

Requerimientos

windows 98/00/Xp/7

0.9

Actualizado el 16 de Mayo del 2015 (Creado el 20 de Abril del 2015)gráfica de visualizaciones de la versión: 0.9
1.886 visualizaciones desde el 20 de Abril del 2015. Una media de 28 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
'formulario 1 panel principal
Private Sub Command1_Click()
Form1.Show
End Sub
 
Private Sub Command2_Click()
Form2.Show
End Sub
 
Private Sub Command3_Click()
Label1.Caption = MsgBox("Desarrollado por Emmanuel Breyaue. Dudas, sugerencias y opiniones enviar a emmanuelbreyaue[a]gmail.com", 0 + 48, "Acerca del programa")
End Sub
 
Private Sub Command4_Click()
End
End Sub
 
'formulario 2 superfice rectangular
Public incli As Boolean
Private Sub Form_Load()
Dim medida As String
medida = "Mts"
Form1.Caption = "Superficie Rectangular"
Label6.Caption = medida
Label7.Caption = medida
Label8.Caption = medida
Label9.Caption = medida
Text3.Text = 0
End Sub
Private Sub Command2_Click()
'borrar variables
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = 0
    Text4.Text = " "
    Label1.Caption = " "
 
End Sub
 
Private Sub Command3_Click()
Form1.Hide
End Sub
 
Private Sub Option1_Click()
Text3.Text = 0
Text3.Enabled = False
incli = False
End Sub
 
Private Sub Option2_Click()
incli = True
Text3.Enabled = True
 
End Sub
 
Private Sub Command1_Click()
'definir variables
    Dim vol As Double
    Dim lg As Integer
    Dim an As Integer
    Dim ar As Double
    Dim maxp As Double
    Dim minp As Double
 
        'asignar variables
        lg = Text1.Text
        an = Text2.Text
        minp = Text3.Text
        maxp = Text4.Text
 
        If incli = True Then
        'esta inclinado
        ar = lg * (minp + maxp) / 2
        vol = ar * an
 
        Else
        'no esta inclinado
        ar = (lg * maxp) * an
        vol = ar
        End If
 
'mostrar resultado
Label1.Caption = "Resultado " & vol & "m3"
End Sub
 
 
'formulario 3 superficie cilindrica
Public pi As Double
Public incli As Boolean
Private Sub Command1_Click()
Dim altMax As Double
Dim altMin As Double
Dim dmt As Double
Dim rad As Double
Dim vol As Double
 
'calcular diametro
dmt = Text1.Text
rad = dmt / 2
altMax = Text3.Text
altMin = Text2.Text
 
'calcular Volumen
If incli = True Then
vol = (1 / 2) * pi * rad ^ 2 * (altMax + altMin)
Else
vol = (pi * rad ^ 2) * altMax
End If
 
'mostrar resultado
Label4.Caption = "Resultado" & vol & "m3"
End Sub
 
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label4.Caption = ""
End Sub
 
Private Sub Command3_Click()
Form2.Hide
End Sub
 
Private Sub Form_Load()
pi = 3.14159265
Text2.Enabled = False
Label2.Enabled = False
End Sub
Private Sub Option1_Click()
Text2.Enabled = False
Text2.Text = ""
Label2.Enabled = False
incli = False
End Sub
Private Sub Option2_Click()
incli = True
Text2.Enabled = True
Label2.Enabled = True
End Sub



Comentarios sobre la versión: 0.9 (0)


No hay comentarios
 

Comentar la versión: 0.9

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3140