Vade mecum 2023

Z-2300 2.1 ??Uso uno/dos meses.

el problema es con el procedimiento de registro: al introducir un inf().nit que ya existe, vuelve al menu registrar perocuando se le da alguna opcion dentro del menu, vuelve a pedir datos dentro del procedimiento de registro. Gracias de antemano por la ayudaOption ExplicitType informacionnombre As Stringdireccion As Stringtelef As Stringnit As StringEnd TypeType productotipo As Stringnom As Stringccompra As Longcantidad As Integercventa As Integerutil As LongEnd TypeType pedidovolumen As Integerfecha As Longprod As Stringutpro As IntegerEnd TypeSub main()Dim op As IntegerDim opc As IntegerDim ped(100) As pedidoDim inf(100) As informacionDim pr(40) As productoDim x As IntegerDim y As IntegerDim w As IntegerDim o As Stringx = 1y = 1w = 1MsgBox (""Bienvenido a la distribuidora de dulces TRULULÚ"")Doo = menu()If IsNumeric(o) Thenop = oSelect Case opCase 1Call Cargar_productos(pr, y)Call Surtir_el_almacen(pr, y)Case 2Call Cargar_Informacion(inf, x)Call Registrar(inf, x)Case 3Call Cargar_pedido(inf, pr, ped, x, y, w)Call compra(inf, pr, ped, x, y, w)Case 4Call Cargar_contabilidad(inf, pr, ped, x, y, w)Call Contabilidad(inf, pr, ped, x, y, w)Case 5Call Cargar_entrega(inf, pr, ped, x, y, w)Call Entrega(inf, pr, ped, x, y, w)Case 6MsgBox (""Gracias por su visita"")End SelectElseMsgBox (""La opcion que escogio no corresponde a una del menu"")End IfLoop Until IsNumeric(op) And (op = 6)Call Bajar_productos(pr, y)Call Bajar_Informacion(inf, x)Call Bajar_pedido(inf, pr, ped, x, y, w)Call Bajar_contabilidad(inf, pr, ped, x, y, w)Call Bajar_entrega(inf, pr, ped, x, y, w)If op > 6 ThenMsgBox (""No existe la opcion en el menu"")End IfEnd SubPublic Function menu()menu = InputBox(""MENU"" & Chr(13) & ""1.Surtir el almacen"" & Chr(13) & ""2. Registrar establecimiento"" & Chr(13) & ""3. Compra"" & Chr(13) & ""4. Contabilidad "" & Chr(13) & ""5.Entrega de mercancia"" & Chr(13) & ""6. Salir"")End FunctionSub Cargar_productos(ByRef pr() As producto, ByRef y As Integer)Dim x As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\productos.txt"" For Input As #5Input #5, yFor x = 1 To yInput #5, pr(x).tipoInput #5, pr(x).nomInput #5, pr(x).ccompraInput #5, pr(x).cantidadInput #5, pr(x).cventaInput #5, pr(x).utilNextClose #5End SubSub Surtir_el_almacen(ByRef pr() As producto, ByRef y As Integer)Dim x As IntegerDim costoT As LongDim Utipro As LongDim c As IntegerDim n As StringDim t As StringDim R As StringDim z As IntegerDim can As StringDim co As StringDim p As StringDoy = y + 1t = InputBox(""Escriba el tipo del producto que desea surtir "")While (t = """")t = InputBox(""No ha ingresado el tipo de producto que desea surtir, ingrese uno valido "")WendFor x = 1 To yWhile (pr(x).tipo = t)n = InputBox(""Escriba el nombre de producto que desea correspondiente al tipo "" & t)While (n = """")n = InputBox(""No ha ingresado el nombre de producto que desea correspondiente al tipo,ingrese uno valido "" & t)WendIf (pr(x).nom = n) Thenc = InputBox(""Escriba la cantidad de "" & Chr(13) & pr(x).nom & "" que desea"")While (c = """")c = InputBox(""No ha ingresado la cantidad, ingrese una cantidad valida"")WendIf ((pr(x).cantidad + c) End IfWhile ((pr(x).cantidad + c) > 500)c = InputBox(""Se necesita menos cantidad del producto"" & Chr(13) & ""Escriba la nueva cantidad de"" & Chr(13) & pr(x).nom & "" Que desea"")WendEnd IfcostoT = InputBox(""De el costo total de la compra de"" & Chr(13) & pr(x).nom)pr(x).ccompra = costoT / cUtipro = pr(x).ccompra * 0.2pr(x).util = Utipropr(x).cventa = pr(x).ccompra + UtiproMsgBox (""el costo total de la compra es $ "" & costoT)MsgBox (""El precio por producto es $"" & pr(x).ccompra)MsgBox (""La utilidad del producto es $"" & Utipro)MsgBox (""El precio de venta del producto sera $"" & pr(x).cventa)While (pr(x).nom <> n)pr(x).nom = npr(x).cantidad = InputBox(""Escriba la cantidad de "" & Chr(13) & pr(x).nom & "" que desea"")While (pr(x).cantidad = """")pr(x).cantidad = InputBox(""No ha ingresado ningun dato,escriba la cantidad de "" & Chr(13) & pr(x).nom & "" que desea"")WendWhile (pr(x).cantidad >= 500)pr(x).cantidad = InputBox(""Se necesita menos cantidad del producto"" & Chr(13) & ""escriba la nueva cantidad de "" & Chr(13) & pr(x).nom & "" que desea"")WendcostoT = InputBox(""De el costo total de la compra de"" & Chr(13) & pr(x).nom)pr(x).ccompra = costoT / pr(x).cantidadUtipro = pr(x).ccompra * 0.2pr(x).util = Utipropr(x).cventa = pr(x).ccompra + UtiproMsgBox (""el costo total de la compra es $ "" & costoT)MsgBox (""El precio por producto es $"" & pr(x).ccompra)MsgBox (""La utilidad del producto es $"" & Utipro)MsgBox (""El precio de venta del producto sera $"" & pr(x).cventa)WendWendNextWhile (pr.tipo <> t)pr.tipo = tpr.nom = InputBox(""escriba el nombre de producto a pedir correspondiente al tipo "" & t)While pr.nom = """"pr.nom = InputBox(""No ha ingresado ningun dato, ingrese el nombre de producto a pedir correspondiente al tipo "" & t)WendDocan = InputBox(""Escriba la cantidad a pedir de"" & Chr(13) & pr.nom)If IsNumeric(can) Thenpr.cantidad = canElseMsgBox (""Ingreso de datos incorrecto"")End IfLoop Until IsNumeric(pr.cantidad) And pr.cantidad > 0While (pr.cantidad >= 500)pr.cantidad = InputBox(""Se necesita menos cantidad del producto"" & Chr(13) & ""escriba la nueva cantidad de"" & Chr(13) & pr.nom & "" que desea"")WendDoco = InputBox(""De el costo total de la compra de"" & Chr(13) & pr.nom)If IsNumeric(co) ThencostoT = coElseMsgBox (""Ingreso de datos incorrecto"")End IfLoop Until IsNumeric(costoT) And costoT > 0pr.ccompra = costoT / pr.cantidadUtipro = pr.ccompra * 0.2pr.util = Utipropr.cventa = pr.ccompra + UtiproMsgBox (""el costo total de la compra es $ "" & costoT)MsgBox (""El precio por producto es $"" & pr.ccompra)MsgBox (""La utilidad del producto es $"" & Utipro)MsgBox (""El precio de venta del producto sera $"" & pr.cventa)WendR = InputBox(""Desea surtir otro producto?"")Loop While (R = ""si"")End SubSub Cargar_Informacion(ByRef inf() As informacion, ByRef x As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\informacion.txt"" For Input As #3Input #3, xFor z = 1 To xInput #3, inf(z).nombreMsgBox (inf(z).nombre)Input #3, inf(z).direccionInput #3, inf(z).telefInput #3, inf(z).nitNextClose #3End SubSub Registrar(ByRef inf() As informacion, ByRef x As Integer)Dim op As IntegerDim o As Integerop = InputBox(""1.Registrar por primera vez el establecimiento"" & Chr(13) & ""2.Actualizar informacion del establecimiento"" & Chr(13) & ""3.Volver al menu principal"")Select Case opCase 1Call Registrar_Establecimiento(inf, x)Case 2Call Actualizar_Informacion(inf, x)Case 3o = menu()End SelectEnd SubSub Registrar_Establecimiento(ByRef inf() As informacion, ByRef x As Integer)Dim id As StringDim z As IntegerIf (x While (id = """")id = InputBox(""Usted no ha ingresado ningun dato"" & Chr(13) & ""Ingrese el nit de su establecimiento"")WendFor z = 1 To xMsgBox (inf(z).nombre)If (inf(z).nit = id) ThenMsgBox (""El establecimiento ya esta registrado para modificar la informacion entre en la opcion 2 del menu registrar"")Call Registrar(inf, x)Elseinf(z).nit = idinf(z).nombre = InputBox(""Ingrese el nombre de su establecimiento"")inf(z).direccion = InputBox(""Ingrese la direccion del establecimiento"")inf(z).telef = InputBox(""Ingrese el telefono del establecimiento"")MsgBox (inf(z).nombre & "" con NIT numero "" & inf(z).nit & "" ha quedado registrado"")End IfNextx = x + 1End IfIf (x > 100) ThenMsgBox (""No es posible el registro, no hay cupo"")End IfEnd SubSub Actualizar_Informacion(ByRef inf() As informacion, ByRef x As Integer)Dim id As StringDim z As IntegerDim M As StringDim res As StringDoid = InputBox(""Escriba el NIT de su establecimiento"")For z = 1 To xIf (id <> inf(z).nit) ThenMsgBox (""El establecimiento no esta registrado"")ElseM = InputBox(""Que desea cambiar? nombre/direccion/telefono"")While (M <> ""nombre"" And M <> ""direccion"" And M <> ""telefono"")MsgBox (""No existe la categoria de cambio"")M = InputBox(""Que desea cambiar? nombre/direccion/telefono"")WendIf (M = ""nombre"") Theninf(z).nombre = InputBox(""Escriba el nuevo nombre de su establecimiento"")MsgBox (""Su nuevo nombre es "" & inf(z).nombre)End IfIf (M = ""direccion"") Theninf(z).direccion = InputBox(""Escriba la nueva direccion del establecimiento"")MsgBox (""Su nuevo direccion es "" & inf(z).direccion)End IfIf (M = ""telefono"") Theninf(z).telef = InputBox(""Escriba el nuevo telefono del establecimiento"")MsgBox (""Su nuevo telefono es "" & inf(z).telef)End IfEnd IfNextres = InputBox(""Desea modificar mas datos? Si/no"")Loop While (res = ""si"")End SubSub Cargar_pedido(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\pedido.txt"" For Input As #1Input #1, xFor z = 1 To xInput #1, inf(z).nombreInput #1, inf(z).direccionInput #1, inf(z).telefInput #1, inf(z).nitNextInput #1, yFor z = 1 To yInput #1, pr(z).tipoInput #1, pr(z).nomInput #1, pr(z).ccompraInput #1, pr(z).cantidadInput #1, pr(z).cventaInput #1, pr(z).utilNextInput #1, wFor z = 1 To wInput #1, ped(z).volumenInput #1, ped(z).fechaInput #1, ped(z).prodInput #1, ped(z).utproNextClose #1End SubSub compra(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)Dim op As Integer, u As StringDou = InputBox(""1.Catalogo de productos"" & Chr(13) & ""2.Hacer Pedido"" & Chr(13) & ""3.Pago"")If IsNumeric(u) Thenop = uSelect Case opCase 1Call catalogo(pr, y)Case 2Call Hacer_Pedido(inf, pr, ped, x, y, w)End SelectElseMsgBox (""No existe la opcion que escogio en el menu"")End IfLoop Until IsNumeric(op) And op Sub catalogo(ByRef pr() As producto, ByVal y As Integer)Dim z As IntegerDim M As StringM = """"For z = 1 To yM = M & pr(z).tipo & "" "" & pr(z).nom & "" $"" & pr(z).cventa & Chr(13)NextMsgBox (""CATALOGO"" & Chr(13) & M)End SubSub Hacer_Pedido(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)Dim id As StringDim z As IntegerDim t As StringDim q As IntegerDim n As StringDim c As IntegerDim u As IntegerDim PT As LongDim res As StringDim comtot As Longcomtot = 0Doid = InputBox(""Escriba su Numero de Identificacion Tributario"")For z = 1 To xIf (id <> inf(z).nit) ThenMsgBox (""El establecimiento no esta registrado, para registrarlo valla a la opcion 2 del menu principal"")Elset = InputBox(""Escriba el tipo del producto que desea"")For q = 1 To yIf (t <> pr(q).tipo) Thent = InputBox(""El Tipo no existe"" & Chr(13) & ""Escriba otro tipo"")Elsen = InputBox(""Escriba el nombre del producto que desea"")If (n <> pr(q).nom) Thenn = InputBox(""El Producto no existe"" & Chr(13) & ""Escriba otro producto"")Elsec = InputBox(""Escriba la cantidad de "" & n & "" que desea"")If (c ped(u).prod = nped(u).volumen = cpr(q).cantidad = pr(q).cantidad - cPT = pr(q).cventa * cped(u).utpro = pr(q).util * ccomtot = comtot + PTMsgBox (""PEDIDO"" & Chr(13) & pr.tipo & "" "" & ped(u).prod & "" "" & ped(u).volumen & "" $"" & PT)MsgBox (""Existencias restantes del producto "" & pr(q).cantidad)Nextw = w + 1Elsec = InputBox(""No hay la cantidad que requiere del producto"" & Chr(13) & ""Escriba una cantidad menor"")End IfEnd IfEnd IfNextEnd Ifres = InputBox(""Desea comprar mas productos?"")NextLoop While (res = ""si"")MsgBox (""El costo total de la compra hasta el momento es "" & comtot)End SubSub Cargar_contabilidad(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\contabilidad.txt"" For Input As #8Input #8, xFor z = 1 To xInput #8, inf(z).nombreInput #8, inf(z).direccionInput #8, inf(z).telefInput #8, inf(z).nitNextInput #8, yFor z = 1 To yInput #8, pr(z).tipoInput #8, pr(z).nomInput #8, pr(z).ccompraInput #8, pr(z).cantidadInput #8, pr(z).cventaInput #8, pr(z).utilNextInput #8, wFor z = 1 To wInput #8, ped(z).volumenInput #8, ped(z).fechaInput #8, ped(z).prodInput #8, ped(z).utproNextClose #8End SubSub Contabilidad(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)MsgBox (""Aqui tendra la opcion de llevar las finanzas de la empresa con la contabilidad"")End SubSub Cargar_entrega(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\Entrega.txt"" For Input As #11Input #11, xFor z = 1 To xInput #11, inf(z).nombreInput #11, inf(z).direccionInput #11, inf(z).telefInput #11, inf(z).nitNextInput #11, yFor z = 1 To yInput #11, pr(z).tipoInput #11, pr(z).nomInput #11, pr(z).ccompraInput #11, pr(z).cantidadInput #11, pr(z).cventaInput #11, pr(z).utilNextInput #11, wFor z = 1 To wInput #11, ped(z).volumenInput #11, ped(z).fechaInput #11, ped(z).prodInput #11, ped(z).utproNextClose #11End SubSub Entrega(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByRef x As Integer, ByRef y As Integer, ByRef w As Integer)MsgBox (""Aqui ecncontrar el flujo de transporte y entrega de los pedidos con su organizacion pertinente"")End SubSub Bajar_productos(ByRef pr() As producto, ByRef y As Integer)Dim x As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\productos.txt"" For Output As #4Write #4, yFor x = 1 To yWrite #4, pr(x).tipoWrite #4, pr(x).nomWrite #4, pr(x).ccompraWrite #4, pr(x).cantidadWrite #4, pr(x).cventaWrite #4, pr(x).utilNextClose #4End SubSub Bajar_Informacion(ByRef inf() As informacion, ByRef x As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\informacion.txt"" For Output As #2Write #2, xFor z = 1 To xWrite #2, inf(z).nombreWrite #2, inf(z).direccionWrite #2, inf(z).telefWrite #2, inf(z).nitNextClose #2End SubSub Bajar_pedido(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\pedido.txt"" For Output As #9Write #9, xFor z = 1 To xWrite #9, inf(z).nombreWrite #9, inf(z).direccionWrite #9, inf(z).telefWrite #9, inf(z).nitNextWrite #9, yFor z = 1 To yWrite #9, pr(z).tipoWrite #9, pr(z).nomWrite #9, pr(z).ccompraWrite #9, pr(z).cantidadWrite #9, pr(z).cventaWrite #9, pr(z).utilNextWrite #9, wFor z = 1 To wWrite #9, ped(z).volumenWrite #9, ped(z).fechaWrite #9, ped(z).prodWrite #9, ped(z).utproNextClose #9End SubSub Bajar_contabilidad(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\contabilidad.txt"" For Output As #12Write #12, xFor z = 1 To xWrite #12, inf(z).nombreWrite #12, inf(z).direccionWrite #12, inf(z).telefWrite #12, inf(z).nitNextWrite #12, yFor z = 1 To yWrite #12, pr(z).tipoWrite #12, pr(z).nomWrite #12, pr(z).ccompraWrite #12, pr(z).cantidadWrite #12, pr(z).cventaWrite #12, pr(z).utilNextWrite #12, wFor z = 1 To wWrite #12, ped(z).volumenWrite #12, ped(z).fechaWrite #12, ped(z).prodWrite #12, ped(z).utproNextClose #12End SubSub Bajar_entrega(ByRef inf() As informacion, ByRef pr() As producto, ByRef ped() As pedido, ByVal x As Integer, ByVal y As Integer, ByVal w As Integer)Dim z As IntegerOpen ""C:\Users\M@ri@k_mIlA\Documents\proyecto\Entrega.txt"" For Output As #13Write #13, xFor z = 1 To xWrite #13, inf(z).nombreWrite #13, inf(z).direccionWrite #13, inf(z).telefWrite #13, inf(z).nitNextWrite #13, yFor z = 1 To yWrite #13, pr(z).tipoWrite #13, pr(z).nomWrite #13, pr(z).ccompraWrite #13, pr(z).cantidadWrite #13, pr(z).cventaWrite #13, pr(z).utilNextWrite #13, wFor z = 1 To wWrite #13, ped(z).volumenWrite #13, ped(z).fechaWrite #13, ped(z).prodWrite #13, ped(z).utproNextClose #13End Sub

Jajajaj thread diggerEnviado desde mi Galaxy Nexus usando Tapatalk 2

Para Mario Kart y mario galaxy solo necesita una ... Para smash brothers no estoy seguro, pero creo que igual funciona con la misma del mario galaxy..

perdon, eran los Z-640 los 5.1

cuanto tiene el z 200 de uso??

/>y tambien descarga y ejecuta el GPU-Z para y subes unos screen shots de lo que te muestra el gpu-z

Para mi dragon ball z y evangelion

cpu-z,..... elemental

hombre gracias, verdad estoy detras del mario galaxy

Z-2300 sin duda, a menos que realmente quiera un sistema 5.1.En todo caso la calidad de los Z-2300 es superior.

cpu z lo descargas desde http://www.softonic.com/ie/15311/CPU-Z

buenas noches a todos, estoy en un pequeño dilema y me gustaria saber si me pueden ayuda, quiero comprar un celular android pero estoy indesiso entre el samsung galaxy 551, el samsung galaxy mini, lg optimus one y el sony ericson xperia mini pro, estoy revisando caracteristicas y me son muy parecidas, si alguien me puede aconcejar se lo agradeceria........ :-p

el samsung galaxy 551 es el mismo que el samsung galaxy S ? Si es asi, elegiría ese, sino , elegiría el LG Optimus One.Por cierto , desconocía que el Iphone no pudiera enviar MMS =S

Le envíe un MP y de paso un UPEnviado desde mi Galaxy Nexus usando Tapatalk 2

mmm malas para mi busque en el ares galaxy pa bajarme el video y no encontre na

Que tan cierto es que va a salir Android 4.0 para Samsung Galaxy ACE?

Si le das un Clic en la barra de Nombre te lo ordena de a -z, y si das clic nuevamente lo ordena de z - a.

mazinger z!!!lo mejor!!

CPU-Z tambien te puede decir eso

aca dejo unas imagenes y trailers de la conferencia....MP3,Mario Galaxy y pantallas de mario kart/>imagennes de soul scalibur legends/>fire emblem/>Suerte

los Z-540 costaban como $550.000.

Una buena opcione en Precio/beneficio son los Logitech Z-5300 o si podes estirarte mas pues los Z-5500 también son buena opción aunque mas costosa.Suerte

El chip se actualiza por dvd, y le funcionan perfectamante juegos como el Mario galaxy y Super smash bros (copia), recomiendo a este lanero

men consigues estos, Logitech Z-2300