Convertir de unidades a cajas y viceversa
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