Visual Basic - Convertir de unidades a cajas

Life is soft - evento anual de software empresarial
   
Vista:

Convertir de unidades a cajas

Publicado por jhonn preyler (1 intervención) el 22/06/2013 21:32:55
quisiera convertir de unidades a cajas Ejemplo :
tengo 47 botellas y cada caja traen 12
¿ Cuantas cajas y botellas tengo? Gracias por su respuesta..

aqui la imagen del formulario:
http://s2.subirimagenes.com/otros/previo/thump_8504181form.jpg
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

Convertir de unidades a cajas y viceversa

Publicado por jcmg (24 intervenciones) el 23/06/2013 08:48:56
john este es un sencillo ejemplo
Function cajasaunidades(a As Integer, b As Integer)
a = Text1 'numero de unidades en cada caja
b = Text2 ' total de unidades
cajasaunidades = b \ a ' dividimos
End Function

Private Sub Command1_Click()
'variables a declarar
Dim y As Integer
Dim x As Integer
Dim z As Integer
'hacemos la divicion el resultado lo metemos en y
y = cajasaunidades(Text2, Text1)
'multiplicamos y por el total e cajas, el
'resultado lo guardamos en x
x = y * Text1
'restamos el resultado x al total de unidades
'el resultado lo guardamos en y lo desplegamos
' en el text 3
z = Text2 - x
Text3 = z
MsgBox "el total de cajas es " & y
MsgBox "el total de botellas sobrantes es " & z
End Sub

Function unidadesacajas(a As Integer, b As Integer)
a = Text4 'numero de cajas
b = Text5 'unidades en cada caja
unidadesacajas = a * b ' multiplicamos las cajas por el
'total de unidades en cada caja
End Function

Private Sub Command2_Click()
'variables a declarar
Dim y As Integer
Dim x As Integer
Dim z As Integer
'hacemos la multiplicacion el resultado lo metemos en y
y = unidadesacajas(Text4, Text5) + Text6
MsgBox "el total de unidades es " & y
MsgBox "el total de cajas es " & Text4
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