Ayuda con un codigo.

[juaco14]

Ayuda por favor, soy nuevo en el foro y en el tema de programacion con VB.
Estoy haciendo un programa del tipo venta de comidas.
Son 2 Formularios en el primero se indican lascantidades de bebidas, postres, comidas, etc. y en el segundo los valores.
en el Form1 tiene un command que lo que hace es darte el total en $ de bebidas,comidas,postres,etc.
en esa parte me da un error, no se como es si lo hice bien por favor ayudenme e indiquenme cual es mi error si no es de mucha molestia, Gracias!

Aqui esta el codigo :

Código:

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim o As Integer
Dim p As Integer
Dim q As Integer
Dim r As Integer
Dim s As Integer
Dim t As Integer
Dim u As Integer
Dim v As Integer

'En esta parte me da el error

'Bebidas
a = Form2.txtCoca600 * Coca600
b = Form2.txtCoca1 * Coca1
c = Form2.txtAguamedio * Aguamedio
d = Form2.txtAgua1 * Agua1
e = Form2.txtPilsen1 * Pilsen1
f = Form2.txtWhisky * Whisky
'Poestres
v = Form2.txtTarta * Tarta
g = Form2.txtHelado * Helado
h = Form2.txtFlan * Flan
i = Form2.txtLemon * Lemon
j = Form2.txtMacini * Macini
'Comidas
k = Form2.txtBraserito * Braserito
l = Form2.txtVacio * Vacio
m = Form2.txtTira * Tira
n = Form2.txtMilanesa * Milanesa
o = Form2.txtFritas * Fritas
p = Form2.txtFideo * Fideo
q = Form2.txtChivito * Chivito
r = Form2.txtHamburguesa * Hamburguesa
s = Form2.txtHamburguesasalsa * Hamburguesasalsa
'Varios
t = Form2.txtVario1 * Vario1
u = Form2.txtVario2 * Vario2
'.................................................
TB = a + b + c + d + e + f
TP = g + h + i + j + v
TC = k + l + m + n + o + p + q + r + s
TV = t + u
'.................................................
ST = TB + TP + TC + TV
Iva = (ST * 100) / 22
Total = ST + Iva

End sub

Gracias nuevamente.

[vicentecamesella]

POdrias indicar el error que te da

[juaco14]

Me dice:

Run-time error '13' :
Type mismatch

y cuando le doy "Debug" me sublinea

a = Form2.txtCoca600 * Coca600


Gracias.

[David]

¿Qué valor tienes en Form2.txtCoca600 y en la variable Coca600? Lo más probable es que haya algún carácter alfanumérico en txtCoca600

[vicentecamesella]

coca600 ees una variable colocada donde de verdad no entiendo bien tu codigo puedes ser especifico si estas trayendo valores y de donde los traes, si no tienes bases de datos prueba colocando esto a=val(Form2.txtCoca600) * val(Coca600)

[juaco14]

Dejo el proyecto aca para que lo ojeen si pueden y me digan cual es el error.
Pesa solo 4.99kb

subir-archivos.com.ar/file_request.php?action=downloadfile&filename=Comi das.rar&directory=&SID=&desc=ProyectoComidas

Muchas gracias a todos!

[dwin]

hammmmmm
bueno lo cheque, te dire, q no se ni como funciona, falto q incluyeras los txt para poder guardar los valores, y todo lo demas,

podrias decir mas o menos como funciona, primero se ajustan los precios?
despues ya se ingresa lo que consumio la persona x, pero a decir verdad esta un poco mal estructurado el codigo, no hay condiciones ni nada, primero prueba con una caja y un calculo a la vez, porq al parecer debes de ingresar datos en todo, debe estar casi lleno todo para que funcione y creo q no debe de ser asi, pero bueno, tu error aun no lo encontre, seria bien que empezaras por asignar el valor a una caja de texto y llamarla del otro formulario y checar que haga la suma y asi hacer consecutivamente.

aslo de 1 x 1...

bueno, sigamos,

[juaco14]

Claro, mira te explico.
Primero, entras en el form1 (donde se indican las cantitades).
Ahi hay un command que te lleva al form2 para indicar los precios,
lo que hice es que eso del form2 lo guarde en el c en la carpeta
precios en varios txt (precios1,precios2,etc.) para que cuando vuelvas
a entrar al form1 no tengas que indicar los precios nuevamente.
En el form1 al clickear "Calcular" lo que hace es (Precio*Cantidad)
y suma los valores, ahi es donde declare las variables a,b,c... .
Me parece que lo que hice mal es llamar a los textbox del form2
envez de llamar directamente a los txt correspondientes a cada valor,
que eso no se con que codigo lo podre hacer.
Gracias a todos los que me han ayudado y los que me puedan seguir dando
una mano bienbenidos sean!.
Saludos.

[culd]

Te recomiendo que uses en vez de crear tantos integer... que uses un VECTOR... y luego en ves de sumar a+b+c+d que sumes el vector directamente con un FOR

[juaco14]

Jaja, disculpa mi ignorancia, pero como dije arriba soy nuevo en esto,
empeze hace unas semanas.. Como es eso del vector?
Muchas gracias.

[juaco14]

Me parece que encontré donde estaba mi error.
En vez de llamar a los textbox del Form2, voy a
probar llamarlos directamente desde los .txt
correspondientes.
Creo que ahí es donde yo tenia el error.
Lo probare y luego comentare como me fue.
Gracias por la ayuda a todos.

[juaco14]

Ahora mi problema es que no puedo llamar el .txt para hacer operaciones con el,
sin ponerlo en ningún textbox.
Alguien sabe como puedo hacer esto?.
Gracias.

[vicentecamesella]

para utilizar el control de otro formulario seria asi
Ejemplo voy a utilizar el control text1.text del form2 en el form 1

Txtvalor.text = Txtvalor.text*form2.text1.text

espero te sirva

[juaco14]

Claro, yo lo puse " a = Form2.txtCoca600 * Coca600 " por que quiero asignarle a una variable cualquiera osea "a" ese valor. Luego me di cuenta que no tenia que llamar a los textbox del form2, que era mejor llamar directamente a los .txt donde los datos de los textbox del form2 se guardan, ya que así seria mas seguro. Mi problema ahora es saber como hacer para darle a una variable "x" el valor de una linea de un .txt .
Para guardar los valores ingresados en los textbox en un archivo .txt lo que usaba era:

Open "c:\Precios\Precio1.txt" For Output As #1
Print #1, txtCoca600
Close #1

Y para abrirlo:

Dim largo As Long
Dim texto As String

Open "c:\Precios\Precio1.txt" For Input As #1
largo = FileLen("c:\Precios\Precio1.txt")
texto = Input(largo, #1)
Close #1
txtCoca600.Text = texto

Ahora mi pregunta es.. Como hago para darle a una variable "x", no un textbox, label ni nada de eso, solo a una letra asignarle el valor de una linea de un .txt?

Gracias.

[ema21del9]

Luego de abrir el archivo y antes de cerrarlo:

Código:

Do While Not EOF(archivo_abierto)
Line Input #archivo_abierto, variable_x
Loop