Como realizar Calculos de Modelos de Inventario?..

[gohanjaja]

Hola estimados, tengo q rendir , y me encagaron realizar un programa q permita calcular los siguientes modelos:

Modelo de Facturación con deficit
Modelo de Manufacturación sin Deficit.
Modelo de Reabastecimiento por compra con reposición.
Modelo de Reabastecimineto por compra sin reposición.

En los 4 modelos aplicamos masomenos 5 o 6 formulas.

El interfaz y todo lo demás lo hago tranquilo, pero al momento de realizar el calculo no me sale igual a la calculadora.
Como ejemplo les dejo el BOTON que el calculo hace de obtención de CTU( costo total por unidad) del primer modelo:

Código:

Private Sub Command1_Click()
Dim c1, c2, c3, r, k, X, X2 As String
c1 = Text1.Text
c2 = Text2.Text
c3 = Text3.Text
r = Text4.Text
k = Text5.Text
X = Math.Sqr((2 * r * c1 * c2 * c3 * (1 - (r / k))) / (c1 + c2))

Text6.Text = X

De resultado me da : 350,909220111974

En cambio en la calculadora me da:
321.21

Los valores de las variables son los siguientes:

C1=0.15
C2=1.66
C3=500
r=1500
K=3000

Alguien sabe por que me sale diferente los calculos....les dejo un patallazo de mi calculo:

Diseño:



Calculo botón



Recuerden que Math.Spr es la raiz cuadrada....

Por favor ayudaaaaaaaaaa!!! Uso visual basic 6.0

[Kruzado]

esta re facil po'

declaraste tus variables como string cierto??? por eso el resultado final difiere de la calculadora, para que te funcione como tu quieres debes comvertir esos string en numeros, prueba con esto :

X = Math.Sqr((2 * Val(r) * Val(c1) * Val(c2) * Val(c3) * (1 - (Val(r) / Val(k)))) / (Val(c1) + Val(c2)))

saludos !!!!