clases de ciencias
  INDUSTRIAS MULTIPLES
 

 Presento esta investigación, me tomó segundos descubrirla, pero muchos años construirla. Se refiere a la manera en que cada humano puede tener una industria propia en su propia heredad.
He probado el sistema en mi casa por cinco semanas continuas.
El resultado: Hace un mes prestaba unos cuantos dólares para llegar a la quincena. Hoy, he decidido adquirir un seguro y un instrumento de inversión a medio plazo que pago cada mes, pues las cosas mejoraron en mi territorio.

Renuncio expresamente a mis derechos sobre esta investigación y cualquiera que quiera la puede utilizar. Si conoces lenguajes de computadoras o algún lenguaje de máquinas, puedes servirte del código. Te será especialmente útil si sabes leer Visual Basic V 6.0

Tengo un deseo y una petición: Deseo que este sistema llegue a todo poblador de Cuba y Venezuela que desee recibirlo, y a cada predicador o misionero que enseñe a Jesús como el Dios Salvador.

Mi petición: Ora por mi una oración al Dios de Israel. Israel significa "El que lucha con Dios y con los hombres hasta que Dios lo bendiga"

Si lo deseas, puedes hacer una contribución personal preferiblemente en lo secreto al "Liceo Cristiano de Guayaquil"
Seguramente lo hallarás en la Web.


 

 

INSTITUTO TECNOLOGICO

 

LICEO CRISTIANO DE GUAYAQUIL

 

 

 

IMPORTANCIA DE LA TECNOLOGIA EN LA ADMINISTRACION Y COMERCIALIZACION

DE LA PRODUCCION ARTESANAL

 

 

 

Proyecto de Trabajo de Graduación que se presenta como requisito para optar por el título de Tecnólogo en Análisis de Sistemas

 

 

 

 

 

 

                                      AUTOR:   Tec. Federico Jurado

                                        TUTOR:    Lic. José Zamora

 

 

 

 

Guayaquil,  1 Junio del 2009

 

 

 

 

 

 

 

 

 

 

 

DEDICATORIA

 

 

 

 

 

Dedico este trabajo a Carlos Jurado Lascano, mi papá, cuyas experiencias exitosas en el campo micro-industrial me convencieron de la importancia de la imaginación como herramienta poderosa para superar la debacle económica y conducir al emprendedor por el camino de la prosperidad.

 

Su vida empresarial demuestra, además, lo que prometió Jesús: “Si permanecéis en mí y mis palabras permanecen en vosotros, pedid todo lo que queráis y os será hecho”.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

AGRADECIMIENTO

 

 

 

 

 

Quisiera expresar mi agradecimiento a Bill Gates, a Steven Wozniack, a Jimmy Wales, por sus acciones para impulsar el desarrollo de muchas comunidades.

A Narcisa Silva, a Daniel Toro, a José Zamora y al Pastor John Jerry Smith por sus esfuerzos orientados a preparar personas haciendo del mundo un lugar más agradable para vivir.        Mi gratitud a Verónica García, mi esposa, por su paciencia, Comprensión y apoyo. A Jesús, el Mesías, el camino, la verdad y la vida, por la fidelidad de sus enseñanzas y promesas.

 

Finalmente, he comprendido que la tecnología no se trata de hardware o software, sino de personas, de amigos que compiten por servir a todos.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ESTA PAGINA SOLICITARLA EN LA SECRETARIA, SELLADA

 

 

ACEPTACION DEL DIRECTOR DEL TRABAJO DE GRADUACION

 

 

Fecha: Guayaquil,             de junio del 2008

 

 

 

CARTA DE ACEPTACION

DEL DIRECTOR DEL PROYECTO

 

 

 

En mi calidad de Director de Proyecto sobre el tema: “Importancia de la tecnología en la administración y comercialización de la producción artesanal”. Elaborado por el estudiante Federico Jurado Gálvez de tercer curso, especialización Análisis de Sistemas del Instituto Tecnológico Liceo Cristiano de Guayaquil, me permito declarar que luego de haber orientado, estudiado y revisado, lo apruebe en todas sus partes, salvo el mejor criterio del H. Consejo Directivo del Tecnológico.

 

 

La nota a la que se hace acreedor es de:  (    ) ______________________________

 

 

Atentamente,

 

 

 

____________________________

 

 

 

 

 

 

 

 

PRESENTACION

 

 

¿Hay solución para la escasez de recursos? Varios autores ofrecen diferentes caminos para alcanzar el pleno empleo para los habitantes de una comunidad: Repartir adecuadamente la producción, dicen los socialistas. “De cada uno según sus posibilidades, a cada uno según sus necesidades”.

Dicen los neoliberales: “Dar libertad a las personas para producir lo que su entorno necesite y proveerles el ambiente adecuado para producir mejor”. Los teóricos de la economía se encuentran en un punto en común: La producción debe aumentar en la sociedad que anhele desarrollarse.

Producir más genera muchas mejoras en la sociedad: Personas mejor atendidas, mayor tiempo para compartir, sentimiento de bienestar general, necesidades cubiertas, desarrollo del arte, de la ciencia y mayor interés en los ciudadanos por trascender, sea por medio de actividades intelectuales o espirituales.

Pero, ¿Cómo producir más en una sociedad como la nuestra?, donde muchos de los ciudadanos se sienten incómodos con las empresas trasnacionales y donde algunos grandes empresarios tienden a realizar prácticas monopolistas que llenan de desconfianza al ciudadano común.

La producción dirigida por el gobierno también genera descontento e inconformidad, porque en la práctica no resuelve los problemas individuales y solo acierta a cumplir las previsiones a veces equivocadas del buró político del estado. Rusia y los países socialistas de Europa Oriental dieron muestras suficientes de ello.

Al final, se debe concluir que el camino hacia la democratización del progreso pasa por el desarrollo del individuo y de su capacidad de ser más productivo. Se entiende entonces la importancia de la microempresa y micro-industria.

Si bien las micro-empresas comerciales son un mecanismo muy positivo para servir en la sociedad, el microempresario puede llegar a verse dependiendo de una cadena de abastecimientos que proviene de otras empresas más grandes o incluso de otros países. Las labores comerciales mantendrían al ciudadano y al país en general, dependiendo de empresas o gobiernos de fuera. Esto debería corregirse.

La micro-industria presenta una ventaja sobre las operaciones comerciales porque provee al ciudadano la manera más conveniente de aprovechar con creatividad las riquezas de su entorno y puede convertir al ciudadano en un ser mucho mas independiente y en general la democratización y multiplicación de las micro-industrias pueden hacer del país un país mucho más autárquico.

Las labores artesanales y micro-industriales deben realizarse con optimización. Generalmente, la existencia de un esquema productivo planificado con exactitud matemática, confiere al artesano el poder suficiente para producir abundantemente, con diversidad, y con la utilidad apropiada.

Por medio del presente trabajo quiero demostrar esto: Que la ciencia, la investigación y la tecnología de la informática son las herramientas indispensables para que una empresa artesanal funcione de manera óptima. Los artesanos necesitan conocer el valor de la informática y valerse de ella para producir más y en mayor diversidad.

 

 

 

 

 

 

 

 

INDICE

 

PORTADA INTERIOR…………………………………………………………...I

 

DEDICATORIA…………………………………………………………………. II

 

AGRADECIMIENTO……………………………………………………………III

 

CERTIFICACION DEL DIRECTOR DEL TRABAJO DE GRADO……….. IV

 

PRESENTACION,………………………………………………………………V

 

INDICE………………………………………………………………………… VII

 

RESUMEN,…………………………………………………………………….VIII

 

CAPITULO I

PROBLEMATIZACION………………………………………………………….1

Descripción de la situación actual del problema……………………………..1

Justificación………………………………………………………………………1

Objetivos de la investigación…………………………………………………...4

Objetivo general………………………………………………………………....4

Objetivos específicos……………………………………………………………4

 

CAPITULO II

MARCO EORICO………………………………………………………………..6

 

CAPITULO III

MARCO CONTEXTUAL………………………………………………………42

 

CAPITULO IV

METODOLOGIA……………………………………………………………….45

 

CONCLUSIONES……………………………………………………………...48

 

RECOMENDACIONES………………………………………………………..50

 

CAPITULO V

PROPUESTA…………………………………………………………………..51

 

ANEXOS: El Código de MultiInd……………………………………………..72

 

BIBLIOGRAFIA……………………………………………………………….133

 

 

 

 

 

 

 

INSTITUTO TECNOLÓGICO SUPERIOR

LICEO CRISTIANO DE GUAYAQUIL

 

 

IMPORTANCIA DE LA TECNOLOGIA

EN LA ADMINISTRACION Y COMERCIALIZACION

DE LA PRODUCCION ARTESANAL

 

 

                                       AUTOR: Tec. Federico Jurado

                                       TUTOR: Lic. José Zamora

 

 

RESUMEN:

 

En la presente tesis se establece la importancia de usar los procesos informáticos y programas de computadora para optimizar los procesos de fabricación y comercialización de productos artesanales, se indica la utilidad de los procesos de imaginación artificial para que el emprendedor micro-industrial adquiera la facultad de producir con innovación y de manera óptima los productos necesarios para servir a su comunidad.

Durante la investigación he considerado la influencia que la micro-industria ha tenido para mejorar el estilo de vida de los pueblos, los problemas que los emprendedores enfrentan al fabricar productos artesanales y he intentado anticipar los beneficios que producirán muchas micro-industrias dirigidas por emprendedores apoyados con herramientas informáticas exactas que optimicen la administración de la producción artesanal y faculten al emprendedor a producir con renovada creatividad.

Puedo resumir la presente investigación en las palabras: Artesanía, sistemas, imaginación, producción, optimización


 

 

 

 

 

CAPITULO I

 

PROBLEMATIZACION

 

1.1 Descripción de la situación actual del problema.

 

El subempleo en los países americanos va en aumento, su proporción va desde el 9% al 15% según el caso. En Ecuador la medición de la tasa de desempleo ya no incluye a las personas que dejaron de buscar empleo en las empresas y que se dedican a prestar algún servicio o a vender algún producto de manera informal. Por eso, aunque hay una tasa de desempleo oficial del 8% las personas que no trabajamos en relación de dependencia y que debemos buscar cada nuevo día la manera de subsistir somos ya alrededor de 2’500.000. Se hace manifiesta la necesidad de mecanismos de autoempleo.

La producción artesanal es una alternativa para generar autoempleo, pero actualmente el proceso de producción artesanal es empírico, sin la existencia de cálculos exactos de costos y utilidades, muchas veces se reduce a un producto especial o variedades en torno a un solo producto.

Se nota la necesidad de producir de manera óptima pero especialmente de innovar con creatividad.

 

1.2 Situación, conflicto que debe señalar

 

Las personas necesitan fuentes de empleo, al no existir en la empresa privada, recurren a las entidades públicas en busca de un empleo, pero éstas, politizadas y dependientes del precio del petróleo para sus operaciones, no ofrecen al ciudadano una garantía de empleo digno. Así, muchos recurren a administrar un negocio pequeño pero propio, la escasa imaginación hace que cada uno quiera tener la misma actividad del vecino y se observa la proliferación de negocios semejantes en el mismo sector.

La falta de un sistema organizado de gestión de ventas o de producción hace que muchos pequeños negocios artesanales cierren antes de producir utilidades. Esto desalienta a los emprendedores que podrían verse tentados a abandonar el país en busca de mejores oportunidades.

 

1.3 Causas del problema y consecuencias

 

El problema tiene su causa en la excesiva orientación de la economía hacia los proyectos grandes, hacia las corporaciones. Esta forma de administrar  los recursos ha producido personas dependientes de las organizaciones financieras grandes, de las multinacionales y de los negocios estatales, tenemos latinoamericanos que piensan que si algo no lo vende una multinacional o una corporación estatal es porque no puede hacerse.

Como consecuencia, nos hemos olvidado que las grandes empresas que sirven a la humanidad en todo el mundo, comenzaron como pequeños negocios artesanales en casa, donde un emprendedor invirtió empeño y creatividad para servir primeramente a sus vecinos y más adelante, al mundo entero.

 

1.4 Planteamiento actual del problema

 

El problema que se plantea es: ¿Qué impacto tendrá implementar un sistema informático que trabajando por medio del computador, ayude a administrar y controlar la producción y comercialización de productos artesanales?

Se desea determinar cual es la importancia que la tecnología de la informática puede tener en la administración de un  taller artesanal o de una micro - industria.

Se intenta determinar la influencia que las tecnologías de la información pueden tener para optimizar las labores de una pequeña unidad productiva.

Por lo general, la producción artesanal sigue un proceso estático que depende de la habilidad y la memoria o experiencia de un maestro u operario. Se produce lo que se sabe hacer y se produce para cubrir un pedido específico. No es de extrañar que entre los artesanos haya una exagerada especialización. Mediante un sistema de producción artesanal, el artesano tendrá opciones muy variadas para proveer para las necesidades de su entorno y podrá cambiar de línea de producción cuando el mercado, movido por las necesidades de la población, le exija producir otras variedades de productos.

 

1.5 Justificación

 

Propongo éste tema como mi tesis de grado porque quiero dar a conocer los razonamientos en los que he venido reflexionando desde 1988. La imaginación artificial, idea que presenté en una tesis anterior, es una puerta abierta a una infinidad de productos. Aunque tuviéramos a la mano la totalidad de las ideas y la lista de todos los productos y de todos los sueños que pudiéramos realizar, aún haría falta un mecanismo que nos ayude a realizarlos paso a paso de manera científica y un mecanismo que nos ayude a intercambiarlos para servir a otras personas de modo que todos en la sociedad nos sintamos beneficiados.

He comprobado que el uso de un sistema de producción artesanal permite la realización de los procesos productivos de manera mas exacta conservando la concentración en un paso a la vez y que el análisis adecuado de costos y beneficios provee tranquilidad al productor y un sentido de recompensa cuando comparte con su prójimo el producto de su trabajo.  Además concuerdo con la mayoría de los economistas que el trabajo innovador y la producción abundante son la mejor arma para combatir la pobreza y la mejor herramienta para construir una sociedad justa que maximiza el bienestar común.

1.6 Objetivos de la investigación

 

1.6.1 Objetivo general

 

Describir los procesos de producción micro-industrial  y artesanal, su importancia en el desarrollo de la sociedad y de la cultura y ciencias, analizando históricamente la importancia de la producción artesanal y diseñar un sistema informático que sirva para administrar la producción de un taller familiar.

 

1.6.2 Objetivos específicos

 

1.- Describir el proceso de fabricación artesanal.

2.- Proponer ejemplos históricos que aclaren inductivamente la importancia de la producción artesanal, de la innovación y de la administración en el desarrollo de nuestra civilización.

3.- Implementar un asistente informático que permita controlar paso a paso los procesos productivos de un taller micro-industrial.

 

1.7 Preguntas directrices

1.- ¿Qué es y cómo funciona una microempresa?

2.- ¿Cuál es el papel de las microempresas en el desarrollo de las revoluciones industriales?

3.- ¿Qué papel tuvo la micro-industria en el desarrollo de las revoluciones industriales?

4.- ¿Cuáles son las características técnicas de Visual Basic?

5.- ¿Qué es la tecnología DAO?

6.- ¿Qué importancia tiene la estadística en la administración de una micro-industria?

7.- ¿Cómo se desarrollan los sistemas de inteligencia artificial?

8.- ¿Qué es el perceptrón?

9.- ¿Qué es una red neuronal?

10.- ¿Es posible plantear los procesos de imaginación artificial desde los paradigmas de las redes neuronales?

11.- ¿Qué papel tiene la innovación en el desarrollo de la economía?

12.- ¿Cómo funcionan los mercados?

13.- ¿Como se puede lograr la competencia perfecta en los mercados?

14.- ¿En qué puede beneficiar un sistema informático de producción artesanal a una familia en un país subdesarrollado?

15.- ¿En qué situaciones históricas pueden servir los sistemas de producción artesanal?

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

CAPITULO II

 

MARCO TEORICO

 

 

LA EVOLUCION HISTORICA DE LA ARTESANIA

Vease:   http://es.wikipedia.org/wiki/Artesania  y La Biblia, Génesis, Capítulo 4, verso 17.

La artesanía comprende, básicamente, obras y trabajos realizados manualmente con poca o nula intervención de maquinaria, habitualmente son objetos decorativos de uso común. A quien se dedica a esta actividad se le llama artesano.

El termino artesanía se refiere al trabajo realizado en forma manual por una persona en el que cada pieza es distinta de las demás, diferenciándose del trabajo en serie o industrial. Una definición más explícita de artesanía: técnica manual creativa para producir individualmente bienes y servicios. A la industria se la definiría como: Técnica mecánica aplicada para producir socialmente bienes y servicios.

 

La artesanía surgió desde el principio de la humanidad como un mecanismo para generar riqueza en pequeñas comunidades. La Biblia narra la manera en que el hombre, habiendo perdido el paraíso, empezó a recuperar la confianza y la esperanza trabajando y produciendo para apartarse de la muerte.

La Biblia relata la historia de Lamec y de su hijo Tubal Caín, padre de todos los que realizan obras artesanales. Dice la escritura en el libro del Génesis Capítulo 4, verso 17:

“Y conoció Caín a su mujer, la cual concibió y dio a luz a Enoc; y edificó una ciudad, y llamo el nombre de la ciudad del nombre de su hijo, Enoc.

Y a Enoc le nació Irad, e Irad engendró a Mehujael, y Mehujael engendró a Metusael, y Metusael engendró a Lamec.

Y Lamec tomó para sí dos mujeres; el nombre de la una fue Ada, y el nombre de la otra, Zila.

Y Ada dio a luz a Jabal, el cual fue padre de los que habitan en tiendas y crían ganados.

Y el nombre de su hermano fue Jubal, el cual fue padre de todos los que tocan arpa y flauta.

Y Zila también dio a luz a Tubal Cain, artífice de toda obra de bronce y de hierro; y la hermana de Tubal Cain fue Naama.

 

Y dijo Lamec a sus mujeres:

Ada y Zila oíd mi voz;

Mujeres de Lamec,

Escuchad mi dicho;

Que un varón mataré por mi herida,

Y un joven por mi golpe.

Si siete veces será vengado Caín,

Lamec en verdad setenta veces siete lo será.”

 

Era un tiempo en que la muerte y la escasez asechaban al hombre.

El paraíso había desaparecido y las fuerzas de la muerte y del caos gobernaban el universo conocido. El mundo necesitaba de personas que hicieran más fácil la existencia humana.

Jabal, Jubal y Tubal Caín lideraron esfuerzos para hacer más cómoda, placentera y sencilla la vida en un mundo donde el paraíso era lejano e inalcanzable.

Lamec, padre de estos personajes, siente lo valiosa que ha sido su existencia.

El había criado y educado a estos hombres que trabajaron por un mundo mejor.

Si la vida de un homicida que conocía a Dios habría de valer siete venganzas, la vida del padre, educador y sustentador de Jubal, Jabal y Tubal Caín merecía ser vengada no siete, sino hasta setenta veces siete.

Tal es el valor de una vida que lidera a personas por medio del trabajo manual y la artesanía, para servir a todos, haciendo más agradable la vida en la tierra.

La artesanía fue por milenios una actividad que se transmitía de padre a hijo. En sociedades como Grecia o Roma, era vista como un trabajo para los plebeyos y era practicada por esclavos o por libertos que recién habían adquirido su libertad comprándola al emperador.

La actividad artesanal permitió que personajes como Pablo financien su actividad misionera en la Roma imperial, de modo que esta actividad fue un motor para la expansión del Cristianismo en Roma.

La manufactura medieval se desarrolló permitiendo el intercambio comercial en el Mediterráneo y la formación de la banca como agente de financiamiento para actividades artesanales.

Se piensa que la manufactura moderna surge alrededor de 1780 con la revolución industrial británica, expandiéndose a partir de entonces a toda Europa continental, luego a América del Norte y finalmente al resto del mundo. La manufactura se ha convertido en una porción inmensa de la economía del mundo moderno. Según los analistas económicos, la producción es un sector que produce riqueza en una economía mientras que el sector servicios tiende a ser el consumo de esa riqueza.

 

LA ARTESANIA EN AMERICA LATINA

La artesanía en nuestro entorno ha tenido una evolución bastante lenta. En Venezuela se registran vestigios de artesanías desde el año 14000 antes de Cristo. Los Amerindios venezolanos tallaban piedra y madera y aprovechaban los recursos del ambiente.

Se conocía el uso de la arcilla y la cerámica y su empleo en la fabricación de vasijas, platos y ollas, la cestería era empleada también.

Actualmente en Cuba la artesanía está orientada al turismo y existe la artesanía artística dedicada al embellecimiento de los hogares.

 

LAS REVOLUCIONES INDUSTRIALES

vease:  http://es.wikipedia.org/wiki/Tercera_revoluci%C3%B3n_industrial

Se han registrado en la historia de la civilización, tres revoluciones industriales:

La primera Revolución industrial es un periodo histórico comprendido entre la segunda mitad del siglo XVIII y principios del siglo XIX, en el que el reino unido en primer lugar y luego el resto de Europa continental, sufren transformaciones técnicas y culturales sin comparación en la historia humana desde el Neolítico.

La revolución comenzó con la mecanización de la producción de bienes, especialmente productos textiles, agrícolas y herramientas de hierro.

Se caracterizó por el uso del carbón como fuente de energía y de la máquina de vapor. Esto permitió el desarrollo de los transportes que impulsó aun más la revolución industrial.

La segunda revolución industrial comienza en 1850 y termina en 1920, sus protagonistas son Alemania, Francia, Estados Unidos, Italia y Japón.

Se caracterizó por el uso del petróleo como fuente de energía fundamental, aparece también la electricidad en los procesos productivos.

Hubo una renovación sustancial de las comunicaciones en esta época: Aparece el teléfono, la radio, el cine, la fotografía, las vías férreas siguen construyéndose pero empezaron a construirse vías para automotores, aparece la navegación transatlántica de gran calado, la industria química moderna y el capitalismo monopolista.

Las características de la forma de administrar esta revolución industrial entre los países protagonistas fue: persistencia en el desarrollo de la industria, buen uso de la economía, buen uso de la tecnología, desaparición del espíritu feudal, que daba excesiva importancia a la tierra como medio de producción, apoyo constante y duradero a los artesanos particulares, la competencia libre con productores de otros países favoreció la evolución de la calidad y optimización de los productos, el impulso del crédito productivo.

En Estados Unidos, la innovación constante y el desarrollo de técnicas locales favorecieron la implantación de la segunda revolución industrial.

 

La tercera revolución industrial: Se la llama también la revolución científica técnica o la revolución de la inteligencia comienza al final de la segunda guerra mundial (1945) y continúa hasta hoy (2009) 

Esta revolución ha permitido que el conocimiento se duplique cada cinco años, lo cual refleja un crecimiento exponencial en el saber humano, nunca en la historia de la humanidad se había visto un incremento tan extraordinario de las ciencias y de sus aplicaciones técnicas al servicio de quien quiera informarse y poner en práctica dichos conocimientos.

Las áreas más representativas son la investigación de la energía nuclear y de diversas fuentes de energía alternativa, el conocimiento del espacio y del universo, las ciencias de la informática y de la robótica, la biotecnología y la genética.

Un impulso a esta revolución lo ha dado el crecimiento de las comunicaciones por medio de satélites y redes computacionales.

 

LA MICROEMPRESA: MOTOR PRINCIPAL DE LAS REVOLUCIONES INDUSTRIALES.

Vease:  http://es.wikipedia.org/wiki/Microempresa

En la unión Europea se entiende por microempresa a aquellas empresas que poseen al menos uno de las siguientes características: Número de empleados menor a 10 personas, Volumen de facturación de menos de 2’000.000 de euros y volumen de activos al año menor o igual a 2’000.000 de euros. El modelo del trabajador autónomo y el modelo de la microempresa son los dos principales modelos que eligen  los emprendedores a la hora de organizarse para lograr sus objetivos.

Esto se debe a la dificultad de conseguir financiación al empezar una nueva forma de empresas. Las ventajas de la microempresa son: la flexibilidad para desarrollar al personal que debe ser diestro en múltiples disciplinas, la fácil adaptación del producto al mercado, la rapidez en la toma de decisiones y en realizar las transformaciones necesarias para incrementar la influencia de la empresa.

Todas estas ventajas las puede aprovechar el microempresario para generar un nicho de mercado. El mismo mercado tiende a hacerse mas competitivo y maduro.

La microempresa tiende a generar empleo y la suma de microempresas puede generar tanto empleo como todas las medianas y grandes empresas juntas. Al no poseer una estructura rígida, la microempresa puede transformarse rápidamente y tener índices muy altos de crecimiento.

El principal tropiezo de los microempresarios es la dificultad de hallar financiación. Esto impide al emprendedor el fijarse objetivos mas elevados o conseguirlos en plazos más cortos. Esto limita también las posibilidades de expansión lo cual es un círculo vicioso donde el microempresario encuentra problemas de competitividad y dificultades para expandirse y se ve obligado a limitar su mercado al consumo local.

Existen variados incentivos creados por bancos y gobiernos para subvencionar o dar financiamiento a los emprendedores. Se dispone de los que se denomina capital de riesgo para financiar empresas que poseen ideas que al menos teóricamente tienen un futuro prometedor y donde se espera que grandes beneficios se reviertan a las sociedades de inversión al menos a mediano plazo. Normalmente se debe ceder un número significativo de acciones de la empresa sin perder el control de la misma. Muchas empresas del tipo punto com han crecido y prosperado a través de este modelo de empresa y de financiamiento. Las microempresas pueden dedicarse a suplir las necesidades de la sociedad generando productos o servicios. Los productos son objetos que pueden ser ofrecidos en un mercado para satisfacer una necesidad o un deseo. Un producto es un conjunto de beneficios y satisfacciones que los consumidores perciben cuando compran. Es una suma de atributos físicos, sicológicos y de servicio. El producto es material los servicios no. Un producto posee una utilidad para quien los compra, en otras palabras, la gente paga un precio por ellos porque los productos les sirven de alguna manera. A este tipo de productos se los denomina bienes económicos, tienen alguna demanda, se los puede intercambiar y dado que sirven a las personas, éstas están dispuestas a pagar un valor adicional al precio que las materias primas cuestan por sí solas.

Considero que la fabricación de productos genera riqueza económica tangible, moviliza los mercados y sirve verdaderamente a las poblaciones, no así la extracción y venta de materias primas ni la producción de servicios. La producción de servicios es una consecuencia de la existencia de bienes o productos y no representa la generación de riqueza tangible, por lo cual la venta de servicios es susceptible de especulación financiera dentro de los mercados, pues el valor de los servicios es subjetivo.

 

COSTES: SU DETERMINACION PONE EN MARCHA LA EMPRESA    

Vease:  http://es.wikipedia.org/wiki/Costes

Se denomina coste al monto financiero que representa producir cualquier componente de un producto. Determinar los costes ayuda al empresario a calcular el precio de venta al público pues PVP = coste + beneficio

Los componentes de los costes son: costes directos y costes indirectos.

Los costes directos son los costes asociados directamente con la producción del producto como el coste de la mano de obra, precio de las materias primas.

Los costes indirectos son costes asociados con el funcionamiento de la empresa o de la gestión de ventas o mercadeo de los productos, como publicidad, amortización de edificios, alquiler de bodegas, etc.

La determinación de los costes pone en marcha a la empresa pues ayuda al emprendedor a conocer exactamente los recursos económicos que requerirá y gracias a la determinación de los costes, podrá determinar el beneficio que obtendrá de producir, lo cual es un poderoso motivador para el trabajo duro. El beneficio puede entenderse como la recompensa postergada de la realización de una acertada gestión de producción y ventas.

PROCESOS DE MANUFACTURA: PASO A PASO HACIA EL PRODUCTO

vease:   http://es.wikipedia.org/wiki/Proceso_de_fabricaci%C3%B3n

El proceso de manufactura o fabricación son los pasos necesarios para modificar las características de las materias primas hasta convertirlas en un producto útil al consumidor.

Las características de las materias primas a las que me refiero pueden ser tamaño, color, resistencia, forma, estética, y otras. En la mayoría de los casos para la obtención de un determinado producto será necesaria una multitud de operaciones sobre las materias primas. A este conjunto de operaciones las llamamos “proceso industrial”. Generalmente el proceso industrial requiere una supervisión humana o computarizada.

Para el caso de productos artesanales, la mayoría de los procesos de transformación de las materias primas en productos terminados solo requieren entre tres y doce ingredientes y entre cuatro a quince pasos. Este dato lo he obtenido de revisar numerosas instrucciones de fabricación de productos artesanales útiles para la vida diaria como cuadernos, papel, comidas, sandalias, bolsos, desinfectantes, e incluso medicamentos naturales y elementos eléctricos y electrónicos.

El proceso de fabricación de productos manufacturados se puede expresar en dos partes: una lista de ingredientes y una lista de pasos. A esta receta se la puede comprender como un proceso básico de fabricación pero también como un algoritmo matemático en que las cantidades pueden ser variables independientes y los costos de producción y la utilidad son variables dependientes, es este enfoque de la receta como algoritmo matemático el que permitirá realizar un sistema que permita determinar los costos y beneficios de la producción artesanal bajo pedido.

 

EL PROCESO DE PRODUCIR MANUFACTURAS

 

vease:    http://es.wikipedia.org/wiki/Manufactura

La palabra manufactura viene del idioma latín, “manus” significa mano y “factura” significa hechura. La manufactura es el arte con principios científicos, de transformar los materiales en productos listos para la venta. El proceso de manufactura puede ser manual o utilizar máquinas, aplicando la división del trabajo, es decir, el repartir racionalmente las tareas del proceso de fabricación entre varios operarios de manera que cada uno está especializado en ciertos procesos y juntos realizan la totalidad de la producción, ejecutando cada uno sólo una porción de la tarea. Este sistema permite economizar movimientos y aumenta la velocidad de producción.

Proceso de fabricación es el conjunto de todas las operaciones necesarias para modificar las características de las materias primas en su forma, densidad, tamaño y propiedades estéticas. El proceso necesita supervisión.

Los procesos fundamentales de la tecnología mecánica son:

Moldeo, Fundición, Conformado y Deformación plástica, laminación, Estirado, Extrusión, Conformado de chapa, encogimiento, Mecanizado, Torneado, Fresado, Taladrado, Tratamiento térmico, Acabado, Electro pulido, pulido, tratamientos químicos superficiales.

Estos procesos se pueden agrupar en tres familias: Moldeo, Procesos con arranque de material y Tratamientos superficiales.

Uno de los principios fundamentales de la industria moderna es que nunca considera como definitivos a los procesos de producción. Su base técnica es la revolución, entendida como el cambio sistemático y la variación gradual e irreversible en los productos industriales.

Todas las formas de producción anteriores a la industria moderna fueron conservadores si tomamos en cuenta la transmisión de conocimientos de generación en generación prácticamente sin variaciones.

La revolución en los procesos industriales se fundamenta en la innovación, que puede definirse como negación, cambio, transformación, variación, renovación.

La revolución de la innovación nunca termina, se prolonga hacia el infinito en la misma medida que la imaginación produce resultados innumerables.

¿Qué factores favorecen la innovación que genera riqueza por medio de la industria?

El desarrollo de nuevas técnicas

El desarrollo de ciencias aplicadas

Un clima social receptivo a las nuevas ideas y productos

Procesos individuales de acumulación de destrezas y de conocimientos.

Procesos individuales de acumulación de relaciones personales.

Procesos individuales de acumulación de bienes y servicios.

Un ambiente social que favorezca al capitalismo.

Espíritu emprendedor paciente, persistente y dispuesto a caer y levantarse las veces que sean necesarias hasta estar en marcha imparable.

 

EL ANALISIS DE SISTEMAS

Vease: http://es.wikipedia.org/wiki/Analisis_de_sistemas

Es la ciencia encargada del análisis de sistemas grandes y complejos y sus interacciones. Se encuentra altamente relacionada con la investigación de operaciones. También se denomina análisis de sistemas a una de las etapas de construcción de un sistema informático, que consiste en relevar la información actual y proponer los rasgos generales de la solución futura.

Los analistas de sistemas utilizan la metodología matemática para obtener los detalles de los sistemas a los cuales se encuentran analizando.

 

DISEÑO DE SISTEMAS:

Vease:  http://es.wikipedia.org/wiki/Dise%C3%B1o_de_sistemas

El diseño de sistemas es el arte de definir la arquitectura de hardware y software, módulos y componentes y datos de un sistema de cómputo para satisfacer ciertos requerimientos. Esta es la etapa posterior al análisis de sistemas.

Los métodos de análisis y diseño orientado a objetos se han vuelto los más utilizados en el diseño de sistemas.

 

INGENIERIA DE SOFTWARE:

Vease:  http://es.wikipedia.org/wiki/Desarrollo_de_software

La ingeniería de software es la disciplina que ofrece métodos y técnicas para desarrollar y mantener software de calidad. Esta ingeniería trata con áreas muy diversas de la informática y de las ciencias computacionales, tales como la construcción de compiladores, de sistemas operativos, o desarrollos internet / Intranet, abordando todas las fases del ciclo de vida de un sistema y aplicables a infinidad de áreas (negocios, investigación científica, medicina, banca, producción, etc.)

Algunos autores consideran que “Desarrollo de Software” es un término más apropiado que “Ingeniería de Software” para el proceso de crear software porque la ingeniería de software implica procesos de prueba y rigor matemático que no son apropiados para todo tipo de desarrollo de software.

La ingeniería de software afecta a la economía y a la sociedad de distintas formas. En los Estados Unidos, el software contribuyó en ¼ de todo el incremento del PIB en los años 90’s y a 1/6 de todo el incremento en la productividad durante los últimos años de la década, esto es, alrededor de 33,000 millones de dólares por año. La ingeniería de software contribuyó en un millón de millones de dólares al crecimiento y productividad en esa década. Alrededor del globo, el software contribuye de formas similares al crecimiento de las economías, pero es difícil encontrar estadísticas fiables al respecto como las que se han llevado al cabo en Estados Unidos.

La ingeniería de Software cambia la cultura del mundo debido al extenso uso de la computadora, el correo electrónico, la WWW, la mensajería instantánea que permiten a la gente interactuar en nuevas maneras.

El software baja los costos y mejora la calidad de los servicios de salud, de los departamentos de bomberos, de las dependencias gubernamentales y demás servicios sociales.

La ingeniería tiene como objetivo no solo encontrar la solución de los problemas sino la optimización, es decir, teniendo en cuenta las diferentes soluciones, elegir la más apropiada.

La ingeniería de Software tiene las siguientes etapas:

Análisis de requisitos, especificación, Diseño, programación, prueba, documentación, mantenimiento.

Resumiendo, el análisis de requisitos consiste en un trabajo con el cliente para conocer los requerimientos del sistema a producir.

La especificación consiste en describir el software a ser escrito en una forma matemáticamente rigurosa.

Diseño se refiere a cómo funcionará el sistema de forma general sin entrar en detalles. En esta etapa se usan los modelos orientados a objetos.

Programación consiste en reducir a código el diseño utilizando un lenguaje de computadora.

Prueba: consiste en comprobar que el software realice las tareas para las que fue diseñado.

Documentación es la etapa de documentar el desarrollo de software y la gestión del proyecto, describir los diagramas, escribir los manuales de usuario, etc. Con el propósito de eventuales correcciones.

Mantenimiento es la etapa de mantener y mejorar el software, enfrentar errores descubiertos o nuevos requisitos del usuario.

 

 

PROGRAMACION ORIENTADA A OBJETOS:

Es un paradigma de la programación que usa objetos y sus interacciones para diseñar aplicaciones y programas de computadora. Su uso se hizo popular a principios de la década de 1990. Actualmente son muchos los lenguajes de programación que soportan la orientación a objetos.

Los objetos son entidades matemáticas que poseen estado, comportamiento e identidad.

El estado es uno o mas atributos a los que se habrá asignado unos valores concretos.

El comportamiento se refiere a los métodos o procedimientos con que el objeto puede operar, es decir, las operaciones que se pueden realizar con

El objeto.

La identidad es una propiedad de un objeto que lo diferencia del resto.

La programación orientada a objetos expresa un programa como un conjunto de objetos que colaboran entre ellos para realizar tareas. Así, los programas son más fáciles de escribir, de mantener y de operar.

Conceptos fundamentales:

Clase es la definición de las propiedades y comportamientos de un tipo de objetos, es decir, de un conjunto de objetos. A la lectura de estas definiciones y a la creación de un objeto específico a partir de las definiciones se llama instanciación. Una instancia de un objeto es un conjunto de datos que definen a un objeto particular.

Los lenguajes imperativos como Basic o Pascal, poco a poco fueron introduciendo el paradigma de la programación orientada a objetos. Java es un lenguaje para aplicaciones que soporta programación orientada a objetos pero también permite la programación estructurada tradicional sin presentar incompatibilidades.

Entre los conceptos que introduce la programación orientada a objetos, están: Clase: definición de propiedades y comportamiento de un tipo de objeto, es como la definición de un conjunto por comprensión. La instanciacion es semejante a describir el conjunto definido en la clase, pero por extensión, esto es, uno a uno.

Herencia: es la capacidad de una clase, de heredar atributos y operaciones de otra clase. Una analogía en teoría de conjuntos es el subconjunto propio de otro conjunto. Al definir el subconjunto, los elementos “heredan”  las mismas características del conjunto que lo contiene.

Objeto: entidad provista de propiedades y comportamientos. Para comprender mejor este punto considérese el concepto matemático de “Vector”, que tiene ángulo, sentido y magnitud (propiedades) y posee operaciones definidas propias como suma vectorial, multiplicación por un escalar, producto punto y producto cruz (comportamientos).

Método: es un algoritmo asociado a un objeto cuya ejecución se desencadena tras la recepción de un mensaje. Un método puede producir cambios en las propiedades de un objeto. Es lo que el objeto puede hacer.

Evento es un suceso en el sistema (tal como dar un clic con el Mouse, presionar una tecla, mover el Mouse, activar un formulario, etc.)

Mensaje: Es una comunicación dirigida a un objeto, que le ordena que ejecute uno de sus métodos con parámetros asociados al evento que lo genero.

Propiedades o atributos: es un conjunto de datos asociados al objeto que lo hace visible desde fuera. Usualmente se expresa por adjetivos calificativos como: longitud, altura, color, color de fondo, tipo de letra, etc.

Estado interno es una variable privada solo accesible por el programador y que se usa para indicar las diferentes situaciones posibles para el objeto. Si el objeto representara un animal depredador, sus estados podrían ser: asechando, cazando, caminando, durmiendo.

La representación de un objeto se realiza por medio de una tabla que contiene en la parte superior sus atributos y en la parte inferior, sus métodos, es decir, lo que es capaz de hacer.

 

 

 

VISUAL BASIC: LA HERRAMIENTA DE PROGRAMACION

Vease:  http://es.wikipedia.org/wiki/Visual_Basic

Visual Basic es el lenguaje de programación desarrollado por Alan Cooper para Microsoft.

Es un dialecto del lenguaje Basic con importantes modificaciones. Su primera versión fue presentada en el año 1991 con la intención de ofrecer al programador una herramienta de programación con un entorno grafico que permitiera la creación de interfaces graficas para facilitar a los usuarios el empleo de los sistemas de cómputo. La programación misma se facilita pues el ambiente grafico permite el uso de mayor cantidad de herramientas al mismo tiempo. Visual Basic constituye un IDE, es decir, un entorno de desarrollo integrado (integrated development environment, por sus siglas en ingles).

El entorno de desarrollo integrado ha sido empaquetado como un programa de aplicación, y consiste en un editor de código, un depurador, un compilador y un constructor de interfaz grafica o GUI.

El editor de código es el programa donde se escribe el código fuente, el depurador corrige los errores del código fuente para que pueda ser bien compilado, el compilador traduce el código fuente a lenguaje de maquina y el constructor de interfaz grafica es una forma de programar que permite añadir de forma visual, el código necesario para la parte grafica del programa.

La versión 6.0 del programa Visual Basic se utiliza masivamente alrededor del mundo. Es en esta versión en la que el sistema para administración de la producción artesanal se ha implementado.

Las nuevas versiones de Visual Basic se basan en la plataforma .NET muy diferente de las versiones anteriores.

Visual Basic tiene la ventaja de que su código es fácil de migrar a otros lenguajes y de que integra el diseño e implementación de formularios de Windows, así que se puede usar fácilmente en sistemas operativos bajo plataforma Windows.

 

CONTROLES ACTIVEX USADOS EN LA PROPUESTA

Tomado de la colección MSDN de Ayuda de Visual Studio 6.0 

Vease tambien: www.msdn.microsoft.com

MSFlexGrid

 El control Microsoft FlexGrid (MSFlexGrid) muestra datos de tablas y efectúa operaciones en ellos. Proporciona una flexibilidad completa para ordenar, combinar y aplicar formato a tablas que contienen cadenas e imágenes. Cuando se enlaza a un control Data, el control MSFlexGrid muestra datos de sólo lectura.

Es posible colocar texto, una imagen o ambas cosas en cualquier celda de un control MSFlexGrid. Las propiedades Row y Col especifican la celda actual de un control MSFlexGrid. Puede especificar la celda actual mediante código o bien el usuario puede cambiar la misma en tiempo de ejecución  mediante el mouse o las flechas del cursor. La propiedad Text hace referencia al contenido de la celda actual.

Si el texto de una celda es demasiado largo para que se pueda mostrar en la celda y la propiedad WordWrap está establecida a True, el texto se ajusta a la línea siguiente dentro de la misma celda. Para mostrar el texto ajustado, es posible que sea necesario aumentar el ancho de columna de la celda (propiedad ColWidth) o el alto de la fila (propiedad RowHeight).

Utilice las propiedades Col y Row para determinar el número de columnas y filas de un control MSFlexGrid.

Nota   Antes de poder usar un control MSFlexGrid en la aplicación, es necesario agregar el archivo MSFlxGrd.ocx al proyecto. Para incluir automáticamente el archivo en un proyecto, colóquelo en el archivo Autoload. Al distribuir la aplicación, conviene instalar el archivo MSFlxGrd.ocx en el directorio System de Microsoft Windows del usuario. Para obtener más información acerca de cómo agregar un control ActiveX a un proyecto, vea "Controles ActiveX estándar" en el Manual del programador de Visual Basic.

 

CommonDialog

El control CommonDialog proporciona un conjunto de cuadros de diálogo estándar para realizar operaciones como abrir y guardar archivos, establecer las opciones de impresión y seleccionar colores y fuentes. El control también tiene la posibilidad de presentar Ayuda ejecutando el motor de Ayuda de Windows. El control CommonDialog proporciona una interfaz entre Visual Basic y las rutinas de la biblioteca de vínculos dinámicos Commdlg.dll de Microsoft Windows. Para crear un cuadro de diálogo utilizando este control, Commdlg.dll debe encontrarse en el directorio SYSTEM de Microsoft Windows.

Para usar el control CommonDialog en una aplicación, agréguelo a un formulario y establezca sus propiedades. El cuadro de diálogo presentado por el control está determinado por los métodos del control. En tiempo de ejecución, se presenta un cuadro de diálogo o se ejecuta el motor de Ayuda, cuando se invoca el método apropiado; en tiempo de diseño, el control CommonDialog se presenta como un icono dentro de un formulario. No se puede cambiar el tamaño de dicho icono. El control CommonDialog puede presentar los cuadros de diálogo siguientes utilizando el método especificado.

El control CommonDialog proporciona automáticamente Ayuda interactiva sobre la interfaz de los cuadros de diálogo cuando:

Se hace clic en el botón de Ayuda ¿Qué es esto? de la barra de título y, después, se hace clic en el elemento acerca del que desea más información.

Se hace clic con el botón secundario del mouse (ratón) en el elemento acerca del que se desea más información y, después, se selecciona el comando ¿Qué es esto? del menú contextual que aparece.

El sistema operativo proporciona el texto presentado en la Ayuda emergente de Windows 95. También puede presentar un botón Ayuda en los cuadros de diálogo con el control CommonDialog estableciendo la propiedad Flags; sin embargo, en esta situación tiene que aportar usted los temas de Ayuda.

Control de datos ADO

El Control de datos ADO es similar al control intrínseco Data y al Control de datos remotos (RDC). El Control de datos ADO permite crear rápidamente una conexión con una base de datos mediante Objetos de datos ActiveX de Microsoft (ADO).

Es posible crear en tiempo de diseño una conexión al establecer la propiedad ConnectionString con una cadena de conexión válida y, a continuación, la propiedad RecordSource con una instrucción apropiada para el administrador de base de datos. Puede establecer también la propiedad ConnectionString con el nombre de un archivo que defina una conexión; el archivo se genera mediante el cuadro de diálogo Vínculo de datos que aparece cuando hace clic en ConnectionString en la ventana Propiedades y, después, en Generar o en Seleccionar.

Conecte el Control de datos ADO a un control enlazado a datos como DataGrid, DataCombo o DataList; para esto, establezca la propiedad DataSource con el Control de datos ADO.

En tiempo de ejecución, establezca dinámicamente las propiedades ConnectionString y RecordSource para cambiar la base de datos.

Asistente de empaquetado y distribución

El Asistente de empaquetado y distribución es una herramienta que le ayuda a crear paquetes de instalación para sus aplicaciones de Visual Basic e instalarlas en los equipos de usuarios finales. También puede usar el Asistente de empaquetado y distribución para crear archivos de dependencias (.dep).

Nota   Es necesario haber guardado y compilado el proyecto antes de poder ejecutar este asistente.

El Asistente de empaquetado y distribución ofrece numerosas opciones para la distribución de su aplicación, incluyendo la creación de:

Paquetes estándar, diseñados para ser instalados mediante un programa de instalación (setup.exe).

Paquetes de Internet, diseñados para ser descargados desde un sitio Web.

Archivos de dependencia que puede distribuir con sus componentes.

El asistente comprime los componentes de su aplicación en un paquete formado por archivos "cabinet" (.cab). Puede crear un archivo .cab único o archivos .cab múltiples para copiarlos a disquetes. Además, a medida que trabaja en el asistente puede guardar su configuración bajo la forma de archivos de comandos y reusarlos si necesita empaquetar o distribuir de nuevo la misma aplicación. Puede iniciar el Asistente de empaquetado y distribución como un complemento, o como una aplicación independiente. Para iniciarlo como un complemento, cargue el asistente mediante el cuadro de diálogo Administrador de complementos y ejecútelo: para ello, haga clic en el elemento de menú correspondiente del menú Complementos. Para iniciarlo como componente independiente, haga clic en el icono del Asistente de empaquetado y distribución en el grupo Microsoft Visual Basic 6.0 del menú Inicio.

Nota   El Asistente de empaquetado y distribución no es una herramienta de duplicación de discos. Si quiere hacer copias de sus discos de distribución originales, utilice una aplicación de copia de discos.

 

Opciones:

Proyecto activo

Muestra el nombre y la ruta del proyecto activo. Sólo es aplicable cuando se ejecuta el asistente en modo complemento.

Proyecto seleccionado

Muestra el nombre y la ruta del proyecto seleccionado y enumera los proyectos anteriores. Puede escribir el nombre y la ruta de un proyecto o elegir un proyecto en la lista. Sólo es aplicable cuando se ejecuta el asistente como componente independiente.

Examinar

Muestra un cuadro de diálogo que puede usar para examinar un proyecto. Sólo es aplicable cuando se ejecuta el asistente como componente independiente.

Paquete

Le lleva al primer paso del proceso de empaquetado de su proyecto. Cuando termina de comprimir el paquete de transferencia de su aplicación, puede volver a la pantalla principal para distribuirlo.

Distribuir

Le lleva al primer paso del proceso de distribución de su paquete. Puede usar esta parte del asistente si dispone de un proyecto preparado que desea distribuir en disquetes, en una carpeta local o de red o bien a través de Internet.

Administrar secuencias de comandos

Muestra el cuadro de diálogo Administrar archivos de comandos que permite cambiar los nombres de los archivos de comandos de empaquetado y distribución así como duplicarlos o eliminarlos.

MSFlexGrid

El control Microsoft FlexGrid (MSFlexGrid) muestra datos de tablas y efectúa operaciones en ellos. Proporciona una flexibilidad completa para ordenar, combinar y aplicar formato a tablas que contienen cadenas e imágenes. Cuando se enlaza a un control Data, el control MSFlexGrid muestra datos de sólo lectura.

MSChart

Un gráfico que muestra datos en forma gráfica. Yo lo utilizo para diseñar estadísticas.

El control MSChart acepta las características siguientes:

Verdadera representación tridimensional.

Acepta los principales tipos de gráficos.

Rellena las cuadrículas de datos mediante datos aleatorios y matrices de datos.

El control MSChart está asociado con una cuadrícula de datos (objeto DataGrid). Esta cuadrícula de datos es una tabla que contiene los datos que se mostrarán en el gráfico. La cuadrícula de datos también puede incluir etiquetas para identificar las series y categorías del gráfico. La persona que diseña la aplicación de gráficos rellena la cuadrícula de datos con información al insertar los datos o al importarlos de una hoja de cálculo o de una matriz

OCX

Vease: http://es.wikipedia.or/wiki/OCX

OCX es la abreviatura de Ole Contol Extension. OLE significa Object linking and embedding, esto es una tecnología para enlazar objetos y ocx es la extensión de controles OLE. Hace referencia a módulos que publican controles y funciones a ser usados para Windows, usualmente estas librerías se presentan en librerías de enlace dinámico DLL almacenadas con extensión .ocx.

Skinner

Vease: http://www.visual-basic.com.ar/

Por medio de este control ActiveX se puede cambiar la apariencia de los programas desarrollados en Visual Basic. Son fondos de color que embellecen la apariencia de los formularios dando a los trabajos de programación una apariencia mas pulida y profesional.

Se coloca el control sobre un formulario, por medio de una línea de código, podemos añadir estos fondos de color en todos los formularios.

 

DATA ACCESS OBJECT

Vease:   http://es.wikipedia.org/wiki/Data_Access_

Data Access Object o DAO es un objeto de programación que permite el acceso a datos, es decir suministra una interfaz entre la aplicación y uno o varios dispositivos de almacenamiento de datos, tales como bases de datos o archivos. La ventaja del uso de DAO es que los objetos de programación que usan la información o la manipulan, no requieren conocer directamente el destino de la información que manipulan, pues el objeto de datos DAO se encarga de realizar las transacciones. La desventaja de usar DAO radica en la cantidad de código que se ha de emplear cuando se añaden otros objetos DAO a la aplicación. Las aplicaciones que requieren exigentes rendimientos no deberían usar DAO.

Un sistema de producción artesanal requiere el uso de bases de datos para su funcionamiento y la tecnología DAO ha sido de gran utilidad.

Las bases de datos que se requieren son al menos: Una base de datos de manufacturas que incluya la descripción de los proyectos, ingredientes y procesos a realizar. Una base de clientes que permita organizar la información de las personas a quienes vamos a servir y una base de datos adicional que registre los proyectos realizados, cliente, fecha de producción, numero de orden de pedido y los datos financieros como costes, precio de venta al publico, utilidad, etc.

También se puede agregar una base de datos de reportes de trabajo realizado diariamente.

 

ADMINISTRACION DE VENTAS

Vease:  http://es.wikipedia.org/wiki/Administraci%C3%B3n_de_ventas

La administración de ventas facilita el seguimiento de los procesos de ventas. Agrupan datos y procesos de ventas que permiten evaluar la manera en que se estén realizando los negocios en la organización. La administración de ventas depende de reportes que facilitan la comparación o medición del desempeño, permite analizar la eficiencia del proceso de ventas y determinar que pasos están generando problemas en el flujo de trabajo.

El proceso de producción no termina con la fabricación de un producto, es necesario colocar ese producto en el mercado y dar seguimiento a la venta realizada. El sistema de producción artesanal deberá tener espacio para la administración de las ventas por medio de reportes de trabajo, de la misma manera que es importante llevar un registro de los reportes de producción para llevar adecuadamente el proceso productivo.

 

ESTADISTICAS: EVALUACION Y PLANIFICACION

Vease: http://es.wikipedia.org/wiki/Estadisticas

La estadística es la ciencia matemática que se refiere a la recolección y análisis e interpretación de los datos que busca explicar condiciones que se repiten regularmente en fenómenos de tipo aleatorio. La ciencia estadística es una ciencia de apoyo a las actividades comerciales y a las actividades productivas y permite tomar decisiones en áreas de negocios e instituciones de gobierno. La palabra estadística proviene del latín “statisticum collegium” o “consejo de estado” de aquí viene su derivación en italiano “statista” que significa hombre de estado o político. El termino alemán Statistik refería originalmente al análisis de datos del estado.

La estadística se divide en estadística descriptiva y estadística inferencial. La estadística descriptiva se dedica a la recolección y descripción o diagramación de los datos, los datos pueden ser comparados numéricamente o gráficamente.

La estadística descriptiva es muy útil especialmente al determinar la demanda de un producto en el mercado, los gráficos estadísticos permiten hacer predicciones acerca de la demanda de los productos en los próximos periodos de tiempo, por ello las herramientas estadísticas no deben faltar en un taller artesanal.

El análisis de los datos de la demanda de producto confiere al productor el poder de cambiar de producto o migrar a otra actividad productiva en los tipos de baja demanda y maximizar los esfuerzos productivos en tiempos de alta demanda de sus productos. Registrar la tendencia entre varios meses de las ventas de los productos manufacturados ayuda al emprendedor a tomar decisiones mas acertadas en cuanto al uso de los recursos para invertir y a destinar mayores recursos a la publicidad cuando fuere necesario.

La estadística implica un mejor gobierno de la empresa micro-industrial. Y generalizar su utilización contribuirá enormemente al desarrollo de la civilización.

En el año 3000 A.C. los habitantes de Mesopotamia usaban unas tablillas de piedra o de madera para registrar la producción de insumos y productos agrícolas y mantenían así registros de la productividad durante el año. Esto les permitió a los productores y comerciantes conocer mejor sus negocios y conocer mejor a sus clientes y trajo como resultado la puesta en marcha de la primera civilización global de la humanidad: Babilonia, que abarcaba la mayor parte del mundo conocido.

La Biblia en el libro de Números incluye un trabajo de estadística al mostrar los resultados de la recolección de datos de los varones que estaban en edad de ir a la guerra. Este trabajo de estadística presentado por moisés al principio del libro citado fue muy importante para la planificación de la conquista de la tierra prometida.

Así como en los ejemplos mencionados, la planificación debe ser lo mas importante para un emprendedor que quiera iniciar un negocio artesanal, la utilización de herramientas computacionales para tal fin le ayudara a tomar decisiones óptimas durante el desarrollo de su negocio y convertirá a su pequeña empresa en un ente económico seguro y que se proponga metas evaluables, realizables y las alcance.

 

 

 

 

 

 

HAGALO UD MISMO:

Vease:  http://es.wikipedia.org/wiki/Hazlo_t%C3%BA_mismo

Quisiera referirme a la filosofía de “Hágalo Usted mismo” o “Do it yourself”.

Es la práctica de la fabricación de cosas útiles por uno mismo de modo que ahorra dinero, se entretiene y aprende algo nuevo. Es una forma de autogestión en la cual no se espera en la voluntad de otros para realizar los proyectos de convicción propia.

La ética del “Do it yourself” se asocia a los movimientos anticapitalistas y anticomunistas pues rechaza la idea de depender de otras empresas o autoridades para adquirir las cosas que uno necesita. Tanto el capitalismo como el socialismo degeneran en la práctica en formas monopolistas de las cuales el ciudadano llega a ser tan dependiente como un esclavo.

 

LA IMAGINACION ARTIFICIAL

Vease:  http://es.wikipedia.org/wiki/idea

En mi tesis “Imaginación asistida por computadoras” que desarrollé en el año 2005 senté las bases matemáticas de la simulación de la imaginación en los ordenadores. Quisiera añadir unas cuantas observaciones adicionales.

La palabra “idea” viene del griego eidon que significa “Yo vi” se define como una imagen que se forma en la mente. Las ideas dan lugar a los conceptos y son la base de todos los conocimientos.

Las ideas pueden expresarse con palabras así que combinando una lista de palabras dentro de una estructura gramatical de sujeto – verbo – predicado o dentro de estructuras semejantes, podemos fabricar oraciones o declaraciones. El concepto de una máquina electrónica que sugiera ideas para productos artesanales es perfectamente realizable. Utilizando las tablas de datos llenas de palabras como materia prima y estructuras con variables semánticas como filtros y procesos de combinación de las palabras dentro de las estructuras he podido implementar códigos de programación que son capaces de sugerir al usuario varios millones de ideas. Los filtros a los que me refiero son líneas de código que discriminan las ideas generadas para presentar solo aquellas que sean realmente útiles al diseño de productos o servicios.

Es interesante considerar que sin los filtros adecuados, la maquina genera ideas de lo mas descabelladas, pero también ajustando estrictamente los códigos que permiten filtrar la generación de ideas, se generan ideas monótonas y repetitivas. Los códigos que filtran la generación de ideas deben ser adecuadamente diseñados para evitar estos dos extremos que durante las pruebas me parecieron la simulación electrónica de la demencia descontrolada por un lado y por el otro, la simulación de un pensamiento monótono y cerrado, nada creativo, como la simulación de las expresiones de un necio.

Estos filtros a los que me refiero pueden ser entendidos por medio de la analogía de las neuronas humanas. Entender las bases de la teoría de las redes neuronales puede servir como guía o paradigma para entender un poco mejor los procesos de imaginación artificial.

EL PERCEPTRON

Vease:   http://es.wikipedia.org/wiki/Perceptron

Es un tipo de red neuronal artificial desarrollado por Frank Rosenblatt, se entiende por perceptrón a la neurona artificial. La neurona artificial es la unidad básica de inferencia. La agrupación de estas unidades básicas de inferencia permite simular en las maquinas electrónicas, comportamientos semejantes al razonamiento humano. El perceptrón actúa como un discriminador lineal y puede usarse dentro de un perceptrón más grande o en otro tipo de red neuronal artificial.

Voy a graficar un perceptrón de dos entradas:


Llamaremos X1 y X2 a cualquier par de datos externo. El perceptrón asigna valores numéricos a esos datos, ejecuta una suma y por medio de un discriminador de pesos numéricos produce la respuesta Y, que es una respuesta interna de la máquina.

Al discriminador de pesos numéricos se lo conoce en álgebra como “Función de dominio partido”, una función que produce datos diferentes según los diferentes valores de la variable de entrada.

Un grupo de muchos perceptrones de dos entradas forma un esquema como el que sigue:




Múltiples entradas X1, X2, X3….Xn son analizadas por funciones matemáticas para finalmente producir la respuesta Y1.

Este modelo neuronal es mucho más elegante matemáticamente que lo que yo he apuntado, pero mi explicación nos será útil por el momento.

El modelo simula muy bien los procesos de razonamiento humano y es capaz de lograr clasificaciones (múltiples datos X1, X2, X3,…Xn observados que conducen a la respuesta Y1 que indicaría, por ejemplo, si los datos pertenecen o no a un cierto grupo o clasificación)

El discriminador permite también que la máquina tome una decisión Y1 a partir de considerar todas las condiciones iniciales X1, X2, X3…. Xn de un problema.

En el caso de la medicina, este modelo ha sido muy utilizado en el diagnostico computarizado de enfermedades.

El mismo modelo se ha utilizado para apoyar la toma de decisiones empresariales, políticas y militares; para realizar búsquedas de información en las redes, para analizar informaciones gráficas y para diseñar robots que razonan sus tareas.

 

EL IMAGINATRON

Voy a describir rápidamente la forma de trabajar de la unidad básica de generación de ideas en un sistema de imaginación artificial. Este modelo básico permite la simulación del proceso de imaginación y lo aplico en la propuesta de la presente tesis dentro del sistema MultiInd para generar ideas diversas para la producción de bienes y servicios dentro de uno de los módulos del sistema dedicado a la innovación.

Llamamos X1 a un proceso interno de la computadora, por ejemplo un mensaje de activación de un procedimiento. Ese procedimiento combina, permuta o produce variaciones con los datos almacenados en la memoria del computador y produce las respuestas Y1, Y2, Y3,……Yn 

Puede producir todas las respuestas posibles o producir solo un subconjunto de la totalidad de ellas. La estructura de orden de las combinaciones es la que filtra el tipo de idea que se generará.

En el caso del sistema MultiInd, en la generación de ideas intervienen alrededor de 20 imaginatrones que funcionan según este modelo. Juntos son capaces de generar más de 4’000.000 de ideas para negocios o servicios originales.

Resta por probar lo que podrán lograr perceptrones e imaginatrones combinados e integrados en un sistema computarizado. Yo creo que ahora es posible construir robots pensantes y capaces de simular emociones, razonar los conflictos y escribir poemas o contar un chiste en referencia a ellos. Nótese la analogía de los gráficos con la parte derecha e izquierda del cerebro humano y sus funciones.

El artesano puede verse en gran manera beneficiado por los mecanismos de imaginación artificial y por los generadores de ideas pues le permitirían mejorar sustancialmente las cualidades y las prestaciones de sus productos además de que en tiempos de poca de demanda, el artesano podrá recibir millones de sugerencias desde su equipo electrónico para cambiar de producto y ofrecer nuevos productos que satisfagan otras necesidades de sus clientes que sin una poderosa imaginación son difíciles de descubrir.

A la aplicación de nuevas ideas con la intención de incrementar la productividad se la llama innovación. La palabra innovación viene del latín innovare que significa introducir algo nuevo. Innovar por lo tanto no significa solamente inventar algo nuevo sino introducirlo en el mercado para beneficio de los consumidores. La innovación genera rentabilidad, aumenta la competitividad y satisface a mayor número de clientes. También los empleados y los clientes se sienten más motivados y comprometidos. Innovación es generar ideas, seleccionarlas, implementarlas y comercializarlas.  La fuente de ideas generalmente es la investigación, las ferias, exposiciones, los seminarios, los clientes y aún cada empleado es una fuente de innovación para beneficio de la empresa.  Por lo visto hasta ahora la generación de ideas se logra por métodos bastante difusos; por medio de la imaginación artificial, la generación de ideas vendrá a ser un proceso más exacto.

La innovación cambia la base misma de la competencia en un sector del mercado. Empresas como Amazon, Ebay y otras utilizaron la tecnología como un medio para cambiar la forma de competir por nuevos mercados. La innovación es el medio para competir con éxito no la finalidad misma de la actividad económica en los mercados. La finalidad de la actividad económica es servir a todos. Esto puede perfeccionarse por medio de mecanismos de innovación. Mucho se habla en los negocios de “obtener ventajas competitivas”. Esto puede alcanzarse por medio de la innovación.

VENTAJAS QUE APORTA LA INNOVACION

Vease:  http://es.wikipedia.org/wiki/Innovacion

Mejora la relación con el cliente al mostrarle continuamente nuevos beneficios y novedades.

Permite la construcción de nuevos y mejores argumentos de ventas, indispensables para cerrar negocios con eficacia.

Mejora la imagen de la empresa pues la muestra como activa y realmente emprendedora, moderna e interesada en el servicio a los demás.

Al utilizar la innovación como elemento de competitividad impone una barrera a la competencia y desbarata la competencia desleal.

El proceso de innovación nace por medio de diversas fuentes: por iniciativa del cliente, por necesidad, por iniciativa de los colaboradores de la empresa. La presente investigación tiene como objetivo presentar a la imaginación artificial como una herramienta informática que el empresario puede emplear para desarrollar innovación.

LA LIBERTAD

Vease:  http://es.wikipedia.org/wiki/Libertad , La Biblia, libro de Juan, capítulo 3

La libertad es un concepto muy amplio al que se le han dado numerosas interpretaciones. La libertad designa la facultad del ser humano que le permite decidir llevar a cabo o no una determinada acción según su inteligencia o voluntad.

La primera representación escrita del concepto “Libertad” se cree que es la palabra sumeria escrita en lenguaje cuneiforme Ama-Gi que traducido en forma literal significa “Volver a la madre”.

Esta expresión puede ser malentendida. Jesús aclaró que para experimentar la libertad gloriosa de los hijos de Dios, era necesario al hombre nacer del espíritu de Dios, nacer de nuevo.

La libertad significa autonomía interna, es decir, la capacidad de actuar conforme a los dictados de la razón o de los valores personales y universales.

El liberalismo definió la palabra “Libertad” como la capacidad de actuar sin restricciones o coacciones del gobierno.

El socialismo la definió como la capacidad de tener acceso a ciertos bienes y recursos sin limitaciones sociales.

La microempresa confiere al emprendedor lo mejor de cada una de las definiciones apuntadas.

 

MERCADO: UN LUGAR AUTOREGULADO PARA SERVIR

Vease: http://es.wikipedia.org/wiki/Mercado

El mercado se define como el conjunto de transacciones, acuerdos o intercambios de bienes y de servicios entre compradores y vendedores.

Un mercado implica un comercio regular y regulado, donde existe una cierta competencia entre los participantes. Para que el mercado exista debe haber un ambiente social que propicie las condiciones para el intercambio de bienes y servicios. El mercado surge espontáneamente cuando se juntan productores que ofertan un producto o servicio con compradores que los necesitan y para realizar los intercambios se ponen de acuerdo acerca del precio.

Los mercados pueden funcionar cuando los agentes que ofrecen productos están en competencia por servir mejor y a mejor precio a los clientes. La competencia puede ser imperfecta, si alguno de los competidores puede influir de tal manera en el precio de los productos que produce pérdidas en los demás competidores hasta que los deja fuera del mercado. Los mecanismos de competencia imperfecta conducen a los monopolios, en los cuales la riqueza es administrada por una sola persona conforme a sus intereses.

Los monopolios han demostrado estar basados en el egoísmo y generalmente traen retrasos al crecimiento de las sociedades.  En mi opinión, muchos países socialistas practican un monopolio de estado que utiliza los mismos mecanismos de los monopolios capitalistas para mantenerse en el poder: Propaganda, especulación, control sobre las personas, coacción.

 

COMPETENCIA PERFECTA Y EFICIENCIA ECONOMICA

Vease:    http://es.wikipedia.org/wiki/Competencia_perfecta

Un mercado de competencia perfecta es aquel en el cual cada unidad social, individuo, institución o familia tiene tal influencia en el mercado que no tiene poder para ejercer influencia suficiente para lograr que los demás competidores se retiren del mercado.

El mercado en competencia perfecta tiene como objetivo la eficiencia económica que consiste en lograr que todo lo que se produjo, fue intercambiado dentro del mercado, esto significa “Se vendió todo lo que se ofertó”.

El objetivo de la competencia perfecta es maximizar los excesos de oferta por parte de los productores y maximizar el exceso de demanda de parte de los compradores.

Para lograr un mercado altamente competitivo será necesario elevar el número de participantes, productores y compradores dentro del mercado. Mayor numero de participantes, más competitivo el mercado y la posibilidad de actividades monopólicas será anulada.

Para lograr maximizar las ganancias en un mercado de competencia perfecta, las empresas deben recurrir al máximo aprovechamiento de la tecnología, así la búsqueda de mayores beneficios va asociada al uso más eficiente de los factores productivos y a la modernización de la tecnología.

Aquí reside la razón de la importancia fundamental de la tecnología en la producción artesanal: Si Dios lo quiere y podemos caminar en su voluntad, el diseño de buenos sistemas tecnológicos permitirán que el emprendedor micro-industrial optimice el uso de los recursos en el proceso productivo y de comercialización de productos que añaden riqueza a la nación. La difusión de la tecnología permitirá que mas personas emprendan pequeñas empresas que generen riqueza y el aumento del número de participantes en el mercado de productos impedirá la creación de monopolios.

La tecnología por medio de los sistemas de imaginación artificial permitirá que la oferta de productos sea cada vez más diversa. Esa variedad animará a un mayor número de compradores a participar en los mercados y el mercado se convertirá en un mercado de competencia perfecta.

En un mercado de competencia perfecta, los productores que desearen obtener mejores ganancias recurrirán a la capacitación en el uso de nuevas tecnologías para mejorar sus procesos productivos.

Así, Si Dios nos ayuda, el mercado crecerá, la riqueza aumentará en cantidad y diversidad y la inversión en nuevas tecnologías se hará prioritaria, mejorando con ello el nivel de vida de los ciudadanos.

Esta es una forma realista de democratizar el progreso y la riqueza.

 

Respuestas a las preguntas directrices:

1.- ¿Qué es y cómo funciona una microempresa?

Una microempresa es una alternativa de negocios en la que un emprendedor administra sus recursos para proveer un producto o un servicio a la comunidad. La microempresa trabaja por medio de un grupo de hasta diez obreros, se financia con créditos pequeños de corto plazo o por medio de grupos de accionistas. Su fortaleza es impulsar el desarrollo de productos innovadores que no tendrían el apoyo de los grandes capitalistas por constituir inversiones riesgosas.

2.- ¿Cuál es el papel de las microempresas en el desarrollo de las revoluciones industriales?

Las microempresas comerciales e industriales han permitido el desarrollo de las innovaciones tecnológicas. Cada una de las revoluciones industriales empezó con una o más ideas que fueron desarrolladas por uno o más microempresarios en un pequeño taller y cuando la idea tomó forma de producto y ganó valor al servir a la comunidad, fue adoptada por la civilización para aumentar la producción y mejorar la calidad de vida de todos. Ejemplo de ello es el desarrollo del computador personal, el cual impulsó la tercera revolución industrial: Dos jóvenes norteamericanos, Steven Wozniack y Steve Jobs, reunidos en un taller casero, elaboraron artesanalmente, con partes y piezas electrónicas, una computadora personal cuyo desarrollo ha llegado a dar un servicio incomparable a la humanidad.

3.- ¿Qué papel tuvo la micro-industria en el desarrollo de las revoluciones industriales?

Es de destacar que los pequeños emprendimientos guiados con mucha persistencia tuvieron tanta o más influencia en el desarrollo de las revoluciones industriales, que los grandes proyectos corporativos. La mayoría de las grandes industrias que impulsaron las revoluciones industriales comenzaron con poco, en pequeños talleres, con una idea innovadora y con gran decisión de administrar los escasos recursos de la manera más racional posible. Esta actitud de los micro-industriales influyó enormemente en el progreso de las revoluciones industriales y convirtió a los pequeños empresarios en directores de grandes corporaciones.

4.- ¿Cuáles son las características técnicas de Visual Basic?

Es un lenguaje orientado a objetos, sencillo de aprender, diseñado para aplicaciones de tipo general que correrán sobre el sistema operativo Windows.

5.- ¿Qué es la tecnología DAO?

DAO, Data Access Object por sus siglas en inglés es una tecnología que permite enlazar bases de datos a un sistema informático desarrollado en Visual Basic. Para este fin emplea controles y componentes del entorno de programación Visual Basic que logran abrir, editar, modificar y eliminar registros de las tablas de datos de las bases de datos especificadas.

 

6.- ¿Qué importancia tiene la estadística en la administración de una micro-industria?

La estadística fue pensada como la ciencia para administrar un país. Para un emprendedor, la estadística es una poderosa herramienta de planificación, de toma de decisiones y de predicción. El empleo de la estadística permite al emprendedor anticipar los cambios en el país, en los mercados mundiales y en la propia empresa y tomar decisiones inteligentes para progresar a pesar de ellos.

7.- ¿Cómo se desarrollan los sistemas de inteligencia artificial?

La inteligencia artificial, es decir, el razonamiento artificial se puede desarrollar en un sistema informático por medio un artificio lógico-matemático llamado perceptrón. No se debería pensar que una máquina posee inteligencia, se debe entender que “simula” los procesos de razonamiento del humano.

8.- ¿Qué es el perceptrón?

El perceptrón es un artificio lógico-matemático cuyo fundamento se encuentra en el estudio de las funciones de dominio partido. A cada entrada, se le asigna un valor, a cada suma de valores de las diferentes entradas se le asigna una respuesta o comportamiento diferente de la maquina.

9.- ¿Qué es una red neuronal?

Muchos perceptrones trabajando en equipo constituyen una red neuronal capaz de simular procesos de asociación, de clasificación, de aprendizaje, de búsqueda inteligente, de diagnóstico de problemas y de toma de decisiones, procesos que son propios de la inteligencia humana.

10.- ¿Es posible plantear los procesos de imaginación artificial desde los paradigmas de las redes neuronales?

Si, los procesos de imaginación pueden simularse por medio de una red neuronal de simetría inversa a las redes neuronales formadas por perceptrones.

11.- ¿Qué papel tiene la innovación en el desarrollo de la economía?

La innovación hace que la economía sea sostenible y creciente.

12.- ¿Cómo funcionan los mercados?

Los mercados son lugares físicos o virtuales donde las personas se ponen de acuerdo para intercambiar el producto de sus trabajos, basta que haya alguien que ofrezca un producto o servicio y alguien que lo necesite y esté dispuesto a dar a cambio sus propios productos o servicios para que se empiecen a manifestar las leyes del libre mercado.

13.- ¿Como se puede lograr la competencia perfecta en los mercados?

Impidiendo que un solo grupo económico tenga demasiada influencia para imponer el precio de un producto en el mercado. Esto puede darse de formas brutales de control o mediante la capacitación y fortalecimiento de un mayor número de agentes que oferten y compren en los mercados. La innovación y el uso de tecnologías para optimizar la administración de las empresas fortalecen a los agentes del mercado para impedir los monopolios y favorecer un ambiente de competencia perfecta.

14.- ¿En qué puede beneficiar un sistema informático de producción artesanal a una familia en un país subdesarrollado?

Un sistema informático para optimizar la producción artesanal puede servir para aumentar las destrezas productivas de los jóvenes de escasos recursos quienes necesitan financiar sus estudios. El sistema de producción artesanal puede usarse para mejorar los ingresos de una familia de escasos recursos donde pocas personas tienen un ingreso fijo.

El componente variable del ingreso familiar, provisto por un sistema de producción artesanal ayudará a generar ahorro que servirá a la familia para solventar imprevistos. No es fácil anticipar el beneficio que este sistema podrá proveer a los ancianos de la familia, a los niños con capacidades especiales y a las madres solteras de una familia de escasos recursos.

15.- ¿En qué situaciones históricas pueden servir los sistemas de producción artesanal?

Un sistema de producción artesanal con imaginación artificial podrá servir a las comunidades en casos de desastres naturales, de devastaciones, de guerras nucleares y de manera especial en tiempos de paz.

 

 

 

 

 

CAPITULO III

MARCO CONTEXTUAL

El sistema desarrollado se diseñó para utilizarlo en especial en aquellos grupos humanos, sociedades o familias donde hay mano de obra disponible pero productos elaborados caros o escasos.

Comencemos pensando en familias de escasos recursos con hijos adolescentes. El exceso de ocio, distracciones y tiempo libre convierte a los hijos adolescentes en una carga para sus padres. El sistema de producción artesanal MultiInd es una herramienta que permite a los padres liderar la educación práctica de sus hijos adolescentes para que desde el hogar sean parte de la solución de los problemas de la sociedad, aprendiendo a trabajar con las manos para proveer y proveerse de recursos para el hogar y para las necesidades de su entorno más cercano: parientes, amigos, vecinos, familiares y gente necesitada que viva cerca del hogar.

La elaboración de pan, desinfectantes, manteles, cultivos de ciclo corto, adornos, cuadernos, comidas y demás provisiones convierten a los jóvenes en colaboradores con el progreso social y les faculta para ser independientes y socialmente responsables con las necesidades del medio en que viven., contribuyendo no solamente al crecimiento intelectual de los jóvenes en cuanto al aumento de sus destrezas, sino también al desarrollo de cualidades fundamentales para la inteligencia emocional como la capacidad de expresar sentimientos por medio de regalos o actos de servicio y la empatía con los necesitados.

Otro contexto en que el sistema puede ser aprovechado es en el marco de las comunidades más pobres, para favorecer la provisión y el intercambio comercial y de ayuda mutua bajo la dirección de un pastor o misionero.

Los grupos marginados de una ciudad, bajo la dirección de un pastor, misionero o líder comunitario pueden ser motivados a producir en diversidad individualmente y luego intercambiar sus productos elaborados a mano y que otros podrían necesitar dentro del círculo de su comunidad o casta. La ventaja del sistema planteado está en que luego de producir un lote de productos específicos y venderlos, saciando la necesidad de tal producto y eliminando la escasez del mismo dentro de la comunidad, se puede pasar a producir un bien escaso diferente pero necesario para la comunidad o un bien innovador generado por mecanismos de imaginación artificial.

Las misiones cristianas tendrán un impulso con esta herramienta que permite a los misioneros atacar al mismo tiempo las causas espirituales de la pobreza y las consecuencias tangibles de la escasez en las comunidades más pobres del mundo y especialmente en los lugares apartados y aislados de la tierra.

Recordemos la epístola del apóstol Santiago, Capítulo 2, versos 15 y 16 donde recomienda a los misioneros y pastores preocuparse por las necesidades espirituales sin descuidar las necesidades físicas de la congregación: “Y si un hermano o una hermana están desnudos, y tienen necesidad del mantenimiento de cada día, y alguno de vosotros les dice: Id en paz, calentaos y saciaos, pero no les dais las cosas que son necesarias para el cuerpo, ¿De qué aprovecha?”

Creo que las misiones mundiales pueden perfeccionar su desempeño con sistemas computacionales de gestión de microempresas que favorezcan la autonomía económica de las tribus más desprotegidas.

Se puede definir la autonomía económica como la desconcentración de la provisión económica, la autonomía económica se puede lograr repartiendo a muchos la facultad de producir para satisfacer sus necesidades.

En tiempos guerra, de crisis o de devastaciones naturales resulta ineficaz acudir por provisiones a un gobierno centralizado en un líder máximo, por muy bien intencionado que sea. Eficaz es más bien facultar a cada individuo para tomar decisiones inmediatas y proveerse por sí mismo los medios que necesite para resistir el caos económico, el problema militar o la devastación natural con los recursos de su entorno.

En tiempos de gran depresión económica, las ganancias de muchas familias son mínimas y han de usarse de la manera más inteligente.

El sistema de producción artesanal MultiInd permitirá que las familias ocupen los valores monetarios en lo más óptimo y usen el tiempo y la mano de obra disponibles en la fabricación de elementos de subsistencia menos prioritarios para evitar así gastos adicionales innecesarios.

El desempleo abundante en tiempos de gran depresión es la mejor oportunidad para aprender nuevas técnicas de producción como las que el sistema MultiInd ofrece y así construir, vía la renovación del conocimiento en el arte de producir, una nueva etapa de recuperación económica y prosperidad para los trabajadores.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

CAPITULO IV

Metodología

 

Diseño de la investigación

La metodología empleada en la realización de la presente investigación ha sido la de observación de los problemas del emprendedor artesanal.

Procedimientos de la investigación

1.- búsqueda, recopilación y análisis  de la información que demuestre la hipótesis de la importancia de los sistemas informáticos para la producción y comercialización de productos artesanales.

2.- Análisis, diseño, implementación y pruebas del sistema de administración de la producción artesanal.

3.- Elaboración del presente documento que describa los hallazgos realizados y las conclusiones a las que he llegado.

 

Técnicas e instrumentos de recolección de datos

La investigación se realizó a base de lecturas y de análisis de documentos relacionados con la actividad artesanal y la micro-industria.  La fuente principal de información fue el internet. Se pusieron en lista los temas críticos relacionados con la producción artesanal y la microempresa, la micro-industria y el trabajador autónomo, la importancia de la innovación en las labores artesanales y luego se hizo necesario leer sobre economía temas como administración de costes, administración de ventas y la historia de las empresas artesanales como fuente de desarrollo de los países occidentales.

Se recopiló la información en fichas bibliograficas que consideraban la fuente de los datos y la porción mas relevante del escrito. Los datos fueron sometidos a un análisis lógico y pude comprobar la hipótesis inicial, que es indispensable un sistema informático para la realización de labores micro-industriales con innovación continua y eficiencia económica.

 

LA TECNICA DE OBSERVACION:

Vease: http://es.wikipedia.org/wiki/Observacion

La observación es la actividad realizada por el ser humano que detecta y asimila el conocimiento de un fenómeno. También se denomina observación al registro de datos utilizando instrumentos. La observación es una de las manifestaciones, junto con la experimentación, del método científico. Ambas son complementarias. La astronomía es el paradigma de las ciencias basadas en la observación, pues el objeto de estudio, las estrellas, no puede ser llevado al laboratorio para realizar experimentos.

La observación consiste en medir y registrar hechos observables. La observación debe ser realizada profesionalmente, sin la influencia de opiniones o emociones que alteren el objeto de estudio.

El método científico incluye los siguientes pasos:

1.- Observación

2.- elaborar hipótesis para explicar lo observado

3.- predecir en base a la hipótesis, las consecuencias del fenómeno observado

4.- experimentar para verificar la predicción

5.- revisar para evitar errores.

6.- llegar a una conclusión.

Yo añadiría un séptimo paso que es comunicar la veracidad de la hipótesis para desarrollar técnicas que sirvan a las personas, apoyadas en el experimento realizado. La observación aparece en el primer y en el cuarto paso del método científico.

Aspectos Materiales:

Hojas A4

Computadora personal

Tiempo de Internet

Impresiones

Copias

 

 

Aspectos Financieros:

La inversión que debí realizar para el desarrollo de ésta tesis puede resumirse así:

$ 360.=  Contantes y Sonantes

Conclusiones

He observado que incrementar la producción de bienes y servicios en beneficio de la colectividad es la finalidad del sistema económico capitalista o socialista. No importa mucho cual sea el sistema, la comunidad necesita una mayor producción que aumente su nivel de vida y mejore las cualidades de su entorno.

He notado que la manufactura de bienes artesanales es un motor que impulsa el desarrollo de los pueblos; Esta actividad debe realizarse racional y planificadamente para que rinda frutos. En América latina, el poco uso que se da a la estadística, la matemática, la informática y otras ciencias, estanca el desarrollo de esta actividad productiva.

Esto puede cambiar introduciendo herramientas informáticas para ser usadas en los talleres artesanales.

He observado que cuando un emprendedor lanza al mercado un nuevo producto, muchos otros pretenden iniciar un negocio de productos idénticos al primero, este comportamiento daña los negocios de todos los competidores y desestabiliza las empresas debilitándolas al dividir los mercados y restar las oportunidades. Esta y otras formas de competencia imperfecta pueden corregirse facultando a los empresarios de imaginación y de herramientas para optimizar racionalmente su producción.

He observado que muchos teóricos de la economía anuncian el fin de la libre empresa. He llegado a la conclusión que es apresurado hablar del fin del capitalismo, de la libertad de empresa y de los mercados.

Los estudiosos de las ciencias económicas deberían dedicar más esfuerzos a perfeccionar las técnicas de generar y administrar la riqueza que a discurrir acerca de la pobreza y la escasez.

He observado que los teóricos de la economía han fundamentado las ciencias económicas en la escasez de los recursos.

Cuando la puerta del campo infinito de la imaginación se abre, resulta vano el axioma de gran parte de las ciencias económicas: Que los bienes son escasos.

Este axioma me parece una falacia descabellada que ha adormecido a los pueblos por siglos. Solo basta mirar las estrellas, los planetas, el sol, el mar o la luz para comprender que los bienes son sobreabundantes y que la escasez es más una consecuencia de vivir apartados de razón, de imaginación, y de fe.

He observado que es posible simular los procesos de la imaginación humana usando sistemas informáticos y que esta simulación puede ser representada matemáticamente según los paradigmas de las redes neuronales.

He observado que los procesos artificiales de generación de ideas pueden servir al micro-industrial.

He observado las palabras que dio Dios al profeta Isaías en el capítulo 65 del libro del mismo nombre, en la Biblia, palabras referentes al futuro de las relaciones productivas en la humanidad y he llegado a la conclusión que son palabras verdaderas y fieles:

 

“Edificarán casas, y morarán en ellas, plantarán viñas, y comerán del fruto de ellas. No edificarán para que otro habite, ni plantarán para que otro coma; porque según los días de los árboles serán los días de mi pueblo, y mis escogidos disfrutarán la obra de sus manos.

No trabajarán en vano, ni darán a luz para maldición; porque son linaje de los benditos de Jehová y sus descendientes con ellos.”  

Isaías 65:11-23

 

 

 

 

 

 

 

 

Recomendaciones

Quisiera recomendar a los lectores de la presente tesis el interesarse en las tecnologías referentes a la inteligencia artificial y a la simulación de los procesos intelectuales en las máquinas. Este conocimiento puede servir mucho a la humanidad pero también puede hacer mucho daño, lo mejor es estar preparado.

 

Quisiera recomendar a los misioneros que lideran obras entre las comunidades más pobres de las regiones no alcanzadas por el evangelio, el uso de sistemas semejantes a MultiInd cuyo manual de usuario describo en el capítulo V. Los enviados a las naciones pueden llevar esperanza y alimento a las naciones necesitadas por medio del uso adecuado de la tecnología y de la imaginación.

 

Recomiendo el uso de este sistema para el desarrollo de programas de rehabilitación integral de los presos de las cárceles en los países donde haya un legítimo interés de reinsertar al preso a una vida productiva.

 

Recomiendo que se interese a la juventud en el desarrollo de nuevas ciencias relacionadas con los descubrimientos apuntados; como la robótica, domótica, y las tecnologías para la supervivencia en las exploraciones espaciales.

 

Finalmente, recomiendo celebrar en todas las naciones las ideas que llevaron a la abolición de la esclavitud en los países occidentales. He llegado a comprender que parte del plan de Dios para la humanidad es que la ciencia provea al hombre de servidores, no que el hombre utilice a su prójimo como un esclavo.

 

 

 

 

 

 

 

 

 

CAPITULO V

PROPUESTA

 

TITULO DE LA PROPUESTA:

Sistema MultiInd para la producción artesanal

 

OBJETIVOS DE LA PROPUESTA

Ofrecer al público en general una herramienta software que faculte a cada individuo, grupo familiar o social para fabricar productos artesanales en forma rentable, racional, sostenible y creativa. El sistema permitirá que el emprendedor utilice la capacidad de la computadora para calcular y planificar los costos y las ganancias, que se apoye en la estadística para planificar su accionar en los mercados y se sirva de la imaginación artificial para ser competitivo en el servicio a su comunidad.

 

BENEFICIARIOS

Misioneros cristianos, líderes comunitarios, organizaciones de ayuda a los necesitados, servicios de caridad, organizaciones de ayuda a los niños de la calle, hogares de ancianos, desempleados, emprendedores, escuelas de oficios, fabricantes de manufacturas, hogares con varios adolescentes, grupos humanos desplazados por catástrofes naturales o por guerras y devastaciones. Grupos humanos expatriados por gobiernos totalitarios. Colegios y Universidades que desean incrementar, de manera práctica,  las destrezas productivas de sus alumnos.

 

 

 

 

 

INSTITUTO TECNOLOGICO SUPERIOR

 “LICEO CRISTIANO DE GUAYAQUIL”

 

 

 

SISTEMA MULTIIND PARA ADMINISTRAR LA PRODUCCION ARTESANAL

 

 

 

 

MANUAL DE USUARIO

 

 

 

 

AUTOR: Tec. Federico Jurado

TUTOR: Lic. José Zamora

 

 

Guayaquil, 1 de Junio del  2009

 

 

Componentes de hardware y software requeridos para el correcto funcionamiento del sistema

Requerimientos de Hardware

Microprocesador Intel Pentium III o superior

Monitor a color

Memoria Ram 256 MB

Unidad de disco duro de 40 GB

Unidad de Cd – Rom

Mouse

Requerimientos de Software

Sistema operativo Microsoft Windows XP

Microsoft Visual Basic 6.0

Microsoft Access

Pasos a seguir para ejecutar el sistema MultiInd

Ingrese el disco instalador en la unidad de Cd – Rom.

Seleccione el menú Inicio desde el explorador de Windows.

Escoja la unidad de Cd – Rom

Copie la carpeta del Cd insertado de nombre MultiInd a la unidad C:

Abra el archivo MultiInd Pack v 1.3.1

Pulse sobre el icono de nombre Setup

El programa le solicitará que cierre los programas que tiene en ejecución

Dé clic en los botones aceptar y siguiente de los diálogos que aparecen durante el proceso de instalación. Se deberá instalar el sistema en el disco duro en la ruta C:MultiInd

Esperamos unos segundos hasta que se instale el sistema.

Al final aparece la pantalla que indica que el programa se instaló correctamente, presione aceptar para finalizar la instalación.

El programa lo encontrará en la barra Inicio Todos los programas MultiInd

Cumplidos estos pasos de instalación, se visualizarán las pantallas siguientes:


EL CODIGO DEL SISTEMA MULTIIND

‘formulario Menu

 

Private Sub DBCOMERCIALIZ_Click()

COMERCIALIZACION.Show

End Sub

 

Private Sub DBMANUF_Click()

BASE_MANUFACTURAS.Show

End Sub

 

Private Sub DBPROY_Click()

BASE_PROYECTOS.Show

End Sub

 

Private Sub Form_Load()

MENU.Picture = LoadPicture("")

 

Aplicar_skin Me

 

ShockwaveFlash1.Movie = App.Path & "MultiIndMOVIE.swf"

ShockwaveFlash1.Play

End Sub

 

Private Sub FRMCOSTOS_Click()

COSTOS.Show

End Sub

 

Private Sub FRMDEMAN_Click()

Form1.Show

End Sub

 

Private Sub FRMFABRICACION_Click()

FABRICACION.Show

End Sub

 

Private Sub FRMIDEAS_Click()

F5.Show

End Sub

 

Private Sub FRMREPORTES_Click()

REPORTES.Show

End Sub

 

Private Sub MNUACERCA_Click()

ACERCA.Show

End Sub

 

Private Sub MNUCOSULTARREP_Click()

CONSULTAREP.Show

End Sub

 

 

Private Sub MNUSALIR_Click()

End

Close All

 

End Sub

 

‘formulario Ingreso_Manufacturas

 

Dim DB As Database

Dim RS As Recordset

Dim K As Integer

 

 

Private Sub CMDGUARDAR_Click()

If TXT1 = "" Then

    MsgBox "Falta el Código", 16

    TXT1.SetFocus

    Exit Sub

End If

If TXT2 = "" Then

    MsgBox "Falta el Nombre del Proyecto", 16

    TXT2.SetFocus

    Exit Sub

End If

If TXT15 = "" Then

    MsgBox "Falta escribir las Instrucciones", 16

    TXT15.SetFocus

    Exit Sub

End If

 

RS.Seek "=", TXT1

 

If Not RS.NoMatch Then

    MsgBox "Codigo repetido", 16

    TXT1 = ""

    TXT1.SetFocus

    Exit Sub

End If

 

        RS.AddNew

        RS!CODIGO = TXT1

        RS!PROYECTO = TXT2

        RS!PASOS = TXT15

        RS!IN1 = TXT3

        RS!IN2 = TXT4

        RS!IN3 = TXT5

        RS!IN4 = TXT6

        RS!IN5 = TXT7

        RS!IN6 = TXT8

        RS!IN7 = TXT9

        RS!IN8 = TXT10

        RS!IN9 = TXT11

        RS!IN10 = TXT12

        RS!IN11 = TXT13

        RS!IN12 = TXT14

 

        RS.Update       

    Call LIMPIAR

   

Data1.Refresh

Data1.Recordset.MoveLast

TXT1.Text = Val(Text1.Text) + 1

End Sub

 

Private Sub LIMPIAR()

TXT1 = "-"

TXT2 = "-"

TXT3 = "-"

TXT4 = "-"

TXT5 = "-"

TXT6 = "-"

TXT7 = "-"

TXT8 = "-"

TXT9 = "-"

TXT10 = "-"

TXT11 = "-"

TXT12 = "-"

TXT13 = "-"

TXT14 = "-"

TXT15 = "-"

TXT1.SetFocus

End Sub

 

Private Sub CMDSALIR_Click()

Data1.Refresh

RS.Close

DB.Close

BASE_MANUFACTURAS.Command3.Visible = True

Unload Me

End Sub

 

Private Sub Form_Load()

Set DB = OpenDatabase(App.Path & "IND.mdb")

Set RS = DB.OpenRecordset("PROYECTOS")

RS.Index = "i_PROYECTOS"

 

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "PROYECTOS"

Data1.Refresh

 

Data1.Recordset.MoveLast

TXT1.Text = Val(Text1.Text) + 1

TXT2 = "-"

TXT3 = "-"

TXT4 = "-"

TXT5 = "-"

TXT6 = "-"

TXT7 = "-"

TXT8 = "-"

TXT9 = "-"

TXT10 = "-"

TXT11 = "-"

TXT12 = "-"

TXT13 = "-"

TXT14 = "-"

TXT15 = "-"

End Sub

 

Private Sub TXT1_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

If KeyAscii = 13 Then

TXT2.SetFocus

TXT2.Text = ""

End If

End Sub

Private Sub TXT2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT2.Text = UCase(TXT2.Text)

TXT3.SetFocus

TXT3.Text = ""

End If

End Sub

Private Sub TXT3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT4.SetFocus

TXT4.Text = ""

End If

End Sub

Private Sub TXT4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT5.Text = ""

TXT5.SetFocus

End If

End Sub

Private Sub TXT5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT6.Text = ""

TXT6.SetFocus

End If

End Sub

Private Sub TXT6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT7.Text = ""

TXT7.SetFocus

End If

End Sub

Private Sub TXT7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT8.Text = ""

TXT8.SetFocus

End If

End Sub

Private Sub TXT8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT9.Text = ""

TXT9.SetFocus

End If

End Sub

Private Sub TXT9_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT10.Text = ""

TXT10.SetFocus

End If

End Sub

Private Sub TXT10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT11.Text = ""

TXT11.SetFocus

End If

End Sub

Private Sub TXT11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT12.Text = ""

TXT12.SetFocus

End If

End Sub

Private Sub TXT12_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT13.Text = ""

TXT13.SetFocus

End If

End Sub

Private Sub TXT13_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT14.Text = ""

TXT14.SetFocus

End If

End Sub

Private Sub TXT14_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXT15.Text = ""

TXT15.SetFocus

End If

End Sub

Private Sub TXT15_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

CMDGUARDAR.SetFocus

End If

End Sub

 

 

Formulario Ingreso_clientes

Dim DBC As Database

Dim rc As Recordset

 

Private Sub CMD1_Click() 'GUARDAR

    If T1.Text = "" Then

        MsgBox "FALTA CODIGO", 16

        T1.SetFocus

        Exit Sub

    End If

    If T2.Text = "" Then

        MsgBox "FALTA NOMBRE", 16

        T2.SetFocus

        Exit Sub

    End If

    If T3.Text = "" Then

        MsgBox "FALTA DIRECCION", 16

        T3.SetFocus

        Exit Sub

    End If

    If T4.Text = "" Then

        MsgBox "FALTA TELEFONO", 16

        T4.SetFocus

        Exit Sub

    End If

   

 rc.AddNew

 rc!CODIGO = T1.Text

 rc!NOMBRE = T2.Text

 rc!DIRECCION = T3.Text

 rc!TELEFONO = T4.Text

 

 rc.Update

 

Call LIMPIAR

 

Data1.Refresh

Data1.Recordset.MoveLast

T1.Text = Val(Text1.Text) + 1

End Sub

 

Private Sub LIMPIAR()

T1.Text = ""

T2.Text = ""

T3.Text = ""

T4.Text = ""

T1.SetFocus

End Sub

Private Sub CMD3_Click() 'SALIR

Data1.Refresh

rc.Close

DBC.Close

Unload Me

End Sub

Private Sub Form_Load()

Set DBC = OpenDatabase(App.Path & "IND.mdb")

Set rc = DBC.OpenRecordset("CLIENTES")

rc.Index = "I_CLIENTES"

 

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "CLIENTES"

Data1.Refresh

 

Data1.Recordset.MoveLast

T1.Text = Val(Text1.Text) + 1

End Sub

 

Private Sub T1_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

 

Private Sub T2_KeyPress(KeyAscii As Integer)

Call VAL_T(KeyAscii)

If KeyAscii = 13 Then

T2.Text = UCase(T2.Text)

End If

End Sub

 

Private Sub T3_KeyPress(KeyAscii As Integer)

Call VAL_T(KeyAscii)

End Sub

Private Sub T4_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

 

formulario REPORTES

 

Dim DB As Database

Dim RE As Recordset

 

Private Sub CMD1GUARDAR_Click()

If TCODRE.Text = "" Then

MsgBox "FALTA EL CODIGO", 16

TCODRE.SetFocus

Exit Sub

End If

If T1.Text = "" Then

MsgBox "FALTA EL NUMERO DE CLIENTES VISITADOS", 16

T1.SetFocus

Exit Sub

End If

If T2.Text = "" Then

MsgBox "FALTA EL NUMERO DE LLAMADAS REALIZADAS", 16

T2.SetFocus

Exit Sub

End If

If T3.Text = "" Then

MsgBox "FALTA EL NUMERO DE VENTAS REALIZADAS", 16

T3.SetFocus

Exit Sub

End If

If T4.Text = "" Then

MsgBox "FALTA EL NUMERO DE COBRANZAS REALIZADAS", 16

T4.SetFocus

Exit Sub

End If

 

 

If T5.Text = "" Then

MsgBox "FALTA ESCRIBIR LAS OBSERVACIONES DEL DIA", 16

T5.SetFocus

Exit Sub

End If

RE.Seek "=", TCODRE.Text

If Not RE.NoMatch Then

MsgBox "Codigo Repetido, revise los códigos de reportes anteriores y escoja uno diferente", 16

CMDCODRE.SetFocus

Exit Sub

End If

If TX1.Text = "" Then

MsgBox "FALTA EL NUMERO DE PRODUCTOS FABRICADOS", 16

TX1.SetFocus

Exit Sub

End If

 

If TX2.Text = "" Then

MsgBox "FALTA ESCRIBIR OBSERVACIONES SOBRE EL DIA", 16

TX2.SetFocus

Exit Sub

End If

 

RE.AddNew

 

RE!CODIGO = Val(TCODRE.Text)

RE!FECHA = TFCH.Text

RE!PLANIFICO = CHK4.Value

RE!PREPARO_VISITAS = CHK1.Value

RE!ADQUIRIO_MATERIALES = CHK3.Value

RE!VISITAS = Val(T1.Text)

RE!LLAMADAS = Val(T2.Text)

RE!PEDIDOS = Val(T3.Text)

RE!COBRANZAS = Val(T4.Text)

RE!PRODUCTOS = Val(TX1.Text)

RE!OBSERVACOMERCIO = (T5.Text)

RE!OBSERVAPRODUCCION = (TX2.Text)

 

RE.Update

 

Call LIMPIAR

Data1.Refresh

Data1.Recordset.MoveLast

TCODRE.Text = Text1.Text + 1

End Sub

 

Private Sub CMDCODRE_Click()

CONSULTARE.Show

End Sub

Private Sub Form_Load()

FRM1.Visible = True

FRM2.Visible = True

Data1.Refresh

TFCH = Date

 

Set DB = OpenDatabase(App.Path & "IND.mdb")

Set RE = DB.OpenRecordset("REPORTES")

RE.Index = "I_REPORTES"

 

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "REPORTES"

Data1.Refresh

 

Label2.Visible = True

TCODRE.Visible = True

Data1.Recordset.MoveLast

TCODRE.Text = Val(Text1.Text) + 1

T5 = "-"

TX2 = "-"

End Sub

Private Sub LIMPIAR()

T1.Text = ""

T2.Text = ""

T3.Text = ""

T4.Text = ""

T5.Text = ""

TX1.Text = ""

TX2.Text = ""

CHK1.Value = 0

CHK2.Value = 0

CHK3.Value = 0

CHK4.Value = 0

End Sub

Private Sub Option1_Click()

FRM1.Visible = True

FRM2.Visible = False

 

Label2.Visible = True

TCODRE.Visible = True

 

Label2.Left = 300

TCODRE.Left = 1700

End Sub

 

Private Sub Option2_Click()

FRM1.Visible = False

FRM2.Visible = True

 

Label2.Visible = True

TCODRE.Visible = True

End Sub

Private Sub CMDSALIR_Click()

Data1.Refresh

RE.Close

DB.Close

Unload Me

End Sub

Private Sub T1_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T2_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T3_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T4_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub TX1_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

 

‘formulario Form1 para estadisticas

 

Private Sub Command1_Click()

DATOS.Show

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub TIPOS_Click()

If TIPOS.ListIndex = 0 Then

MSChart1.ChartType = VtChChartType2dBar

Exit Sub

End If

If TIPOS.ListIndex = 1 Then

MSChart1.ChartType = VtChChartType3dArea

Exit Sub

End If

 

If TIPOS.ListIndex = 2 Then

MSChart1.ChartType = VtChChartType2dBar

Exit Sub

End If

If TIPOS.ListIndex = 3 Then

MSChart1.ChartType = VtChChartType3dBar

Exit Sub

End If

If TIPOS.ListIndex = 4 Then

MSChart1.ChartType = VtChChartType2dPie

Exit Sub

End If

If TIPOS.ListIndex = 5 Then

MSChart1.ChartType = VtChChartType2dLine

Exit Sub

End If

End Sub

 

Formulario FABRICACION

 

Dim C(16), V(12), G(6), K(8), l(3), F(9) As String

Dim DB As Database

Dim RS As Recordset

 

Private Sub Command1_Click()

T1.Text = ""

T1.SetFocus

BASE_MANUFACTURAS.Show

BASE_MANUFACTURAS.Command3.Visible = False

End Sub

Private Sub Command2_Click()

If T1.Text = "" Then

MsgBox "ESCRIBA EL CODIGO DEL PROYECTO SELECCIONADO", vbCritical

T1.SetFocus

Exit Sub

End If

 

RS.Seek "=", T1.Text

 

If RS.NoMatch Then

MsgBox "NO EXISTE EL CODIGO", vbCritical

T1.SetFocus

Exit Sub

End If

 

 

 

Text1.Text = ""

Text1.Text = Text1.Text & RS!PROYECTO & vbCrLf

Text1.Text = Text1.Text & "  INGREDIENTES " & vbCrLf

Text1.Text = Text1.Text & RS!IN1 & vbCrLf

Text1.Text = Text1.Text & RS!IN2 & vbCrLf

Text1.Text = Text1.Text & RS!IN3 & vbCrLf

Text1.Text = Text1.Text & RS!IN4 & vbCrLf

Text1.Text = Text1.Text & RS!IN5 & vbCrLf

Text1.Text = Text1.Text & RS!IN6 & vbCrLf

Text1.Text = Text1.Text & RS!IN7 & vbCrLf

Text1.Text = Text1.Text & RS!IN8 & vbCrLf

Text1.Text = Text1.Text & RS!IN9 & vbCrLf

Text1.Text = Text1.Text & RS!IN10 & vbCrLf

Text1.Text = Text1.Text & RS!IN11 & vbCrLf

Text1.Text = Text1.Text & RS!IN12 & vbCrLf

Text1.Text = Text1.Text & vbCrLf

Text1.Text = Text1.Text & "  INSTRUCCIONES " & vbCrLf

Text1.Text = Text1.Text & RS!PASOS & vbCrLf

End Sub

 

Private Sub Form_Load()

Aplicar2_skin Me

 

Set DB = OpenDatabase(App.Path & "IND.mdb")

Set RS = DB.OpenRecordset("PROYECTOS")

RS.Index = "I_PROYECTOS"

End Sub

 

Private Sub OPabrir_Click()

Call abrir

End Sub

Private Sub OPfuente_Click()

Call fuente

End Sub

Private Sub OPguardarcomo_Click()

Call guardarcomo

End Sub

Private Sub OPnuevo_Click()

FABRICACION.Caption = " ( Sin Título ) "

Text1.Text = ""

T1.Text = ""

End Sub

Private Sub OPsalir_Click()

RS.Close

DB.Close

Unload Me

End Sub

 

Private Sub Command3_Click()

RS.Close

DB.Close

Unload Me

End Sub

 

Public Sub abrir()

On Error GoTo manipularerrorabrir

'muestra la caja de dialogo abrir archivo

With CommonDialog

.Filter = "ARCHIVOS DE TEXTO*.TXTTodos los Archivos*.*"

.DefaultExt = ".txt"

.ShowOpen

Open .FileName For Input As #1

FABRICACION.Caption = .FileName

End With

'limpia la caja de texto

Text1.Text = ""

'abre el archivo con las caracteristicas de texto previas

Text1.Text = Input$(LOF(1), #1)

Close #1

Exit Sub

''mensaje de error si no puede abrir el archivo

manipularerrorabrir:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al abrir el archivo"

End If

End Sub

 

Public Sub guardarcomo()

On Error GoTo manipularerrorguardar

With CommonDialog

.CancelError = True

.DefaultExt = ".txt"

.Filter = "TEXTO*.TXTTodos los Archivos*.*"

'muestra mensaje si desea sobreescribir en el archivo

.Flags = cdlOFNOverwritePrompt

.ShowSave

Open .FileName For Output As #1

FABRICACION.Caption = .FileName

End With

'escribir en el archivo los datos necesaros

Print #1, Text1.Text

'cierra el archivo ya guardado

Close #1

Exit Sub

'en caso de no poder abrir el archivo presenta mensaje de error

manipularerrorguardar:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al guardar el archivo"

End If

End Sub

Public Sub fuente()

'procedimiento que modifica el estilo del texto

On Error GoTo manipularerrorfuente

With CommonDialog

.CancelError = True

.FontName = Text1.FontName

.FontSize = Text1.FontSize

.FontBold = Text1.FontBold

.FontItalic = Text1.FontItalic

.FontUnderline = Text1.FontUnderline

.FontStrikethru = Text1.FontStrikethru

.Color = Text1.ForeColor

.Flags = cdlCFBoth Or cdlCFEffects

'muestra el cuadro de dialogo fuente

.ShowFont

End With

With CommonDialog

'aplica al cuadro de texto el estilo escogido

Text1.FontName = .FontName

Text1.FontSize = .FontSize

Text1.FontBold = .FontBold

Text1.FontItalic = .FontItalic

Text1.FontUnderline = .FontUnderline

Text1.FontStrikethru = .FontStrikethru

Text1.ForeColor = .Color

End With

Exit Sub

'en caso de error al abrir la caja de dialogo de fuente

manipularerrorfuente:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al abrir la caja de dialogo de estilos"

End If

End Sub

 

Private Sub T1_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

 

Private Sub Text1_Change()

modificado = True

End Sub

 

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

OPfuente.Enabled = (Text1.SelLength > 0)

End Sub

 

formulario F5 IDEAS

 

Dim C(16), V(12), G(6), K(8), l(3), F(9) As String

Dim u, J, a, b, W, s, T As Long

 

Dim P1, P2, P3, P4, P5, P6, P7 As String

Dim DB As Database

Dim RS, RV, RAJ, RMAT As Recordset

 

Private Sub Command1_Click()  'LIBRETA DE NOTAS

F1.Show

End Sub

Private Sub Form_Load()

Aplicar1_skin Me

 

Set DB = OpenDatabase(App.Path & "IND.mdb")

    Set RS = DB.OpenRecordset("S")

        RS.Index = "I_S"

    Set RV = DB.OpenRecordset("V")

        RV.Index = "I_V"

    Set RAJ = DB.OpenRecordset("AJ")

        RAJ.Index = "I_AJ"

    Set RMAT = DB.OpenRecordset("MAT")

        RMAT.Index = "I_MAT"

       

Text2.Text = "LA PALABRA DE DIOS ES VIVA Y EFICAZ"

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub GENERAR_Click()

Dim F As Integer

Randomize

F = Int(Rnd() * 18 + 1)

Select Case F

 

    Case 1

    Call GEN1

    Case 2

    Call GEN2

    Case 3

    Call GEN3

    Case 4

    Call GEN4

    Case 5

    Call GEN5 'hasta aqui 420,000

    Case 6

    Call GEN6 '2,000

    Case 7

    Call GEN7 '3,000

    Case 8

    Call GEN8 '212,000

    Case 9

    Call GEN9 '213,000 hasta aqui 850,000

    Case 10

    Call GEN10 '1,320,000  van 2,170,000

    Case 11

    Call GEN11 '2300 +

    Case 12

    Call GEN12 '1,283,000   van 3,455,000

    Case 13

    Call GEN13  '196,000

    Case 14

    Call GEN14    '21,000   van 3,672,000

    Case 15

    Call GEN15  '5,200

    Case 16

    Call GEN16  '300

    Case 17

    Call GEN17 '60,000

    Case 18

    Call GEN18  '237,000   van 4,000,000

   

End Select   

End Sub

 

 

 

Private Sub MENUIMPRIMIR_Click()

Call imprimir

End Sub

Private Sub OPabrir_Click()

Call abrir

End Sub

Private Sub OPfuente_Click()

Call fuente

End Sub

Private Sub OPguardarcomo_Click()

Call guardarcomo

End Sub

Private Sub OPnuevo_Click()

F5.Caption = " ( Sin Título ) "

Text1.Text = ""

End Sub

Private Sub OPsalir_Click()

RS.Close

RV.Close

RAJ.Close

DB.Close

Unload Me

End Sub

'sub para abrir un archivo de texto

Public Sub abrir()

On Error GoTo manipularerrorabrir

'muestra la caja de dialogo abrir archivo

With CommonDialog

.Filter = "ARCHIVOS DE TEXTO*.TXTTodos los Archivos*.*"

.DefaultExt = ".txt"

.ShowOpen

Open .FileName For Input As #1

F5.Caption = .FileName

End With

'limpia la caja de texto

Text1.Text = ""

'abre el archivo con las caracteristicas de texto previas

Text1.Text = Input$(LOF(1), #1)

Close #1

Exit Sub

''mensaje de error si no puede abrir el archivo

manipularerrorabrir:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al abrir el archivo"

End If

End Sub

 

Public Sub guardarcomo()

On Error GoTo manipularerrorguardar

With CommonDialog

.CancelError = True

.DefaultExt = ".txt"

.Filter = "TEXTO*.TXTTodos los Archivos*.*"

'muestra mensaje si desea sobreescribir en el archivo

.Flags = cdlOFNOverwritePrompt

.ShowSave

Open .FileName For Output As #1

F5.Caption = .FileName

End With

'escribir en el archivo los datos necesaros

Print #1, Text1.Text

'cierra el archivo ya guardado

Close #1

Exit Sub

'en caso de no poder abrir el archivo presenta mensaje de error

manipularerrorguardar:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al guardar el archivo"

End If

End Sub

Public Sub imprimir()

Dim copias As Byte

On Error GoTo manipularerrorimprimir

With CommonDialog

.CancelError = True

.Flags = cdlPDNoSelection Or cdlPDNoPageNums Or cdlPDHidePrintToFile

.PrinterDefault = True

'muestra caja de dialogo imprimir

.ShowPrinter

copias = .Copies

End With

'fijar el numero de copias

Printer.Copies = copias

'tomar el estilo del texto

Printer.Font = Text1.Font

'imprimir el texto actual

Printer.Print Text1.Text

Printer.EndDoc  'fin de la impresion

Exit Sub

 

 

'en caso de error al imprimir

manipularerrorimprimir:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "ERROR DESCONOCIDO AL IMPRIMIR"

End If

End Sub

 

Public Sub fuente()

'procedimiento que modifica el estilo del texto

On Error GoTo manipularerrorfuente

With CommonDialog

.CancelError = True

.FontName = Text1.FontName

.FontSize = Text1.FontSize

.FontBold = Text1.FontBold

.FontItalic = Text1.FontItalic

.FontUnderline = Text1.FontUnderline

.FontStrikethru = Text1.FontStrikethru

.Color = Text1.ForeColor

.Flags = cdlCFBoth Or cdlCFEffects

'muestra el cuadro de dialogo fuente

.ShowFont

End UIT

 

With CommonDialog

'aplica al cuadro de texto el estilo escogido

Text1.FontName = .FontName

Text1.FontSize = .FontSize

Text1.FontBold = .FontBold

Text1.FontItalic = .FontItalic

Text1.FontUnderline = .FontUnderline

Text1.FontStrikethru = .FontStrikethru

Text1.ForeColor = .Color

End UIT

 

Exit Sub

'en caso de error al abrir la caja de dialogo de fuente

 

manipularerrorfuente:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al abrir la caja de dialogo de estilos"

End If

End Sub

 

Private Sub SALIR_Click()

RS.Close

RV.Close

RAJ.Close

RMAT.Close

DB.Close

Unload Me

End Sub

Private Sub Text1_Change()

modificado = True

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

OPfuente.Enabled = (Text1.SelLength > 0)

End Sub

 

Public Sub GEN1()

Text1.Text = ""

For a = 1 To 100

Randomize

T = Int(Rnd() * 3 + 1)

Select Case T

    Case 1

            Do

               Randomize

                    u = Int(Rnd() * 299 + 1)

                    J = Int(Rnd() * 299 + 1)

            Loop While I = J

           

                RS.Seek "=", u

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

                P1 = RS!SP

                       

                RS.Seek "=", J

                If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

                   

                P2 = RS!SP

            '40000

            Text1.Text = Text1.Text & "  usar" & " " & P1 & " para producir " & P2 & vbCrLf

   

 

Case 2

            Do

                    u = Int(Rnd() * 297 + 1)

                    J = Int(Rnd() * 297 + 1)

            Loop While I = J

           

                RS.Seek "=", u

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

                P1 = RS!SP

                       

                RS.Seek "=", J

                If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

                   

                P2 = RS!SP

            '40000

            Text1.Text = Text1.Text & "  reciclar" & " " & P1 & " para producir " & P2 & vbCrLf

   Case 3

            Do

                    u = Int(Rnd() * 297 + 1)

                    J = Int(Rnd() * 297 + 1)

            Loop While I = J

           

                RS.Seek "=", u

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

                P1 = RS!SP

                       

                RS.Seek "=", J

                If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

                   

                P2 = RS!SP

            '40000

            Text1.Text = Text1.Text & "  vender" & " " & P1 & " para " & P2 & vbCrLf

 

 

    Case Else

    MsgBox " PROBLEMAS EN EL SISTEMA ", vbCritical

    Exit Sub  

End Select

Next a

End Sub

 

Public Sub GEN2()

Text1.Text = ""

For a = 1 To 100

   Randomize

         J = Int(Rnd() * 290 + 1)

    'ESTE LOOP PARA EVITAR LOS VERBOS INTRANSITIVOS EN ESTA ESTRUCT

    Do

     u = Int(Rnd() * 180 + 1)

                RV.Seek "=", u

                    If RV.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

    Loop Until RV!TR <> 0

    P1 = RV!I 'ASI SE ASEGURA UN VERBO TRANSITIVO

                       

        RS.Seek "=", J

        If RS.NoMatch Then

                MsgBox "CODIGO NO EXISTE", 16

                Exit Sub

            End If

           

        P2 = RS!SP 'ESCOGE UN S EN PLURAL  40x40=1600, 3200

   '60000

    Text1.Text = Text1.Text & "  " & P1 & " " & P2 & vbCrLf

 

Next a

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

Public Sub GEN3()

Text1.Text = ""

'ESCRIBE 100 IDEAS

For a = 1 To 100

Randomize

       

         J = Int(Rnd() * 297 + 1)

    'ESTE LOOP PARA EVITAR LOS VERBOS INTRANSITIVOS EN ESTA ESTRUCT

    Do

     u = Int(Rnd() * 180 + 1)

                RV.Seek "=", u

                    If RV.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

    Loop Until RV!TR <> 0

    P1 = RV!G 'ASI SE ASEGURA UN VERBO TRANSITIVO                       

        RS.Seek "=", J

        If RS.NoMatch Then

                MsgBox "CODIGO NO EXISTE", 16

                Exit Sub

            End If           

        P2 = RS!SP 'ESCOGE UN S EN PLURAL  40x40=1600, 3200

    '60000

    Text1.Text = Text1.Text & "  " & "negociar " & P1 & " " & P2 & vbCrLf

 

Next a

End Sub

Public Sub GEN4()

Text1.Text = ""

'ESCRIBE 100 IDEAS

For a = 1 To 100

Randomize

   'ESTE LOOP PARA EVITAR LOS VERBOS INTRANSITIVOS EN ESTA ESTRUCT

    Do

     u = Int(Rnd() * 180 + 1)

                RV.Seek "=", u

                    If RV.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

    Loop Until RV!TR <> 0

    P1 = RV!I 'ASI SE ASEGURA UN VERBO TRANSITIVO                     

    Text1.Text = Text1.Text & "  " & "enseñar a " & P1 & vbCrLf

Next a

End Sub

Public Sub GEN5()

Text1.Text = ""

For a = 1 To 100

Randomize

         J = Int(Rnd() * 297 + 1)

        RS.Seek "=", J

        If RS.NoMatch Then

                MsgBox "CODIGO NO EXISTE", 16

                Exit Sub

            End If

        P1 = RS!SP 'ESCOGE UN AJ  40x40=1600, 3200

        If RS!M = True Then

                u = Int(Rnd() * 110 + 1)

                RAJ.Seek "=", u

                    If RAJ.NoMatch Then

                    MsgBox "CODIGO NO EXISTE", 16

                    Exit Sub

                    End If

            P2 = RAJ!PM

        Else

        If RS!M = False Then

                u = Int(Rnd() * 110 + 1)

                RAJ.Seek "=", u

                    If RAJ.NoMatch Then

                    MsgBox "CODIGO NO EXISTE", 16

                    Exit Sub

                    End If

            P2 = RAJ!PF

        End If

        End If

        '300*110

     Text1.Text = Text1.Text & "  diseñar una fabrica de " & P1 & " " & P2 & vbCrLf

Next a

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

Public Sub GEN6()  '2000+

Dim TXT1(11) As String

Dim u1 As Integer

Text1.Text = ""

'ESCRIBE 100 IDEAS

TXT1(1) = "vender maquinas que sirvan para":

TXT1(2) = "producir motores que sirvan para":

TXT1(3) = "ofrecer equipos que sirvan para":

TXT1(4) = "alquilar lugares para":

TXT1(5) = "ofrecer cursos para aprender a":

TXT1(6) = "alquilar ropa para":

TXT1(7) = "enseñar a":

TXT1(8) = "vender herramientas para":

TXT1(9) = "vender accesorios para":

TXT1(10) = "vender implementos para":

TXT1(11) = "vender productos quimicos para":

 

 

For a = 1 To 100

Randomize

    u1 = Int(Rnd() * 11 + 1)

    u = Int(Rnd() * 180 + 1)

                RV.Seek "=", u

                    If RV.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P1 = RV!I 'ASI SE ASEGURA UN VERBO                       

    Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P1 & vbCrLf

Next a

End Sub

 

Public Sub GEN7()

Dim TXT1(21) As String

Dim u1 As Integer

Text1.Text = ""

'ESCRIBE 100 IDEAS

TXT1(1) = "vender exhibidores para":

TXT1(2) = "vender seguros para":

TXT1(3) = "enseñar a usar":

TXT1(4) = "reciclar":

TXT1(5) = "enseñar a reutilizar":

TXT1(6) = "vender":

TXT1(7) = "fabricar":

TXT1(8) = "vender equipos para fabricar":

TXT1(9) = "producir empaques para":

TXT1(10) = "vender materiales para fabricar":

TXT1(11) = "producir partes para ensamblar":

TXT1(12) = "vender repuestos para":

TXT1(13) = "vender accesorios para":

TXT1(14) = "ofrecer transporte para":

TXT1(15) = "producir juguetes en forma de":

TXT1(16) = "producir golosinas en forma de":

TXT1(17) = "producir embalaje para":

TXT1(18) = "alquilar":

TXT1(19) = "rentar bodegas para":

TXT1(20) = "enseñar a hacer":

TXT1(21) = "vender alarmas para":

'TXT1(11) = "":

 

For a = 1 To 100

Randomize

    u1 = Int(Rnd() * 21 + 1)

    u = Int(Rnd() * 297 + 1)

                RS.Seek "=", u

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO

    Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P1 & vbCrLf

 

Next a

End Sub

 

Public Sub GEN8()

Dim TXT1(4) As String

Dim u1 As Integer

Text1.Text = ""

TXT1(1) = "ofrecer capacitacion para"

TXT1(2) = "enseñar a"

TXT1(3) = "vender informacion para"

TXT1(4) = "asesorar para"

 

For a = 1 To 100

Randomize

    u1 = Int(Rnd() * 4 + 1)

    u = Int(Rnd() * 297 + 1)

                RS.Seek "=", u

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO   

        Do

         u = Int(Rnd() * 180 + 1)

                    RV.Seek "=", u

                        If RV.NoMatch Then

                            MsgBox "CODIGO NO EXISTE", 16

                            Exit Sub

                        End If

        Loop Until RV!TR <> 0

        P2 = RV!I 'ASI SE ASEGURA UN VERBO TRANSITIVO

        Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P2 & " " & P1 & vbCrLf

Next a

End Sub

 

Public Sub GEN9()

Dim TXT1(4) As String

Dim u1 As Integer

Text1.Text = ""

 

TXT1(1) = "servir"

TXT1(2) = "negociar"

TXT1(3) = "trabajar"

TXT1(4) = "ayudar"

 

For a = 1 To 100

Randomize

    u1 = Int(Rnd() * 4 + 1)

    u = Int(Rnd() * 297 + 1)

                RS.Seek "=", u

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO   

        Do

         u = Int(Rnd() * 180 + 1)

                    RV.Seek "=", u

                        If RV.NoMatch Then

                            MsgBox "CODIGO NO EXISTE", 16

                            Exit Sub

                        End If

        Loop Until RV!TR <> 0

        P2 = RV!G 'ASI SE ASEGURA UN VERBO TRANSITIVO

        Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P2 & " " & P1 & vbCrLf

Next a

End Sub

 

Public Sub GEN10()

Dim TXT1(5), TXT2(3) As String

Dim u1, u2, u3, u4 As Integer

Text1.Text = ""

 

TXT1(1) = "vender"

TXT1(2) = "producir"

TXT1(3) = "diseñar"

TXT1(4) = "elaborar"

TXT1(5) = "fabricar"

 

TXT2(1) = "que tengan"

TXT2(2) = "con"

TXT2(3) = "y"

 

For a = 1 To 100

Randomize

 

u1 = Int(Rnd() * 5 + 1)

u2 = Int(Rnd() * 3 + 1)

    Do

    Randomize

    u3 = Int(Rnd() * 297 + 1)

    u4 = Int(Rnd() * 297 + 1)

    Loop Until u3 <> u4 'GENERA CODIGOS DIFERENTES

                RS.Seek "=", u3

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO

               RS.Seek "=", u4

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P2 = RS!SP 'ASI SE ASEGURA OTRO SUSTANTIVO

            Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P1 & " " & TXT2(u2) & " " & P2 & vbCrLf

 

Next a

End Sub

 

 

 

 

Private Sub Timer1_Timer()

Call DISPLAY_WORD

End Sub

 

Public Sub DISPLAY_WORD() ‘muestra la palabra de Dios,

Dim W(32), V(32) As String    ‘fuente de todo lo que existe

Dim I, J, K, l, M, n As Integer  ‘en el cielo, la tierra y el mar

Dim E(32) As Boolean

 

K = 0

'INICIALIZA CON NINGUNO HA SIDO ESCOGIDO

For I = 1 To 32

E(I) = False

Next I

 

'LOS VERSOS DE LA BIBLIA

W(1) = "EL RESPONDIÓ Y DIJO: ESCRITO ESTÁ: NO SÓLO DE PAN VIVIRÁ EL HOMBRE, SINÓ DE TODA PALABRA QUE SALE DE LA BOCA DE DIOS. ":  V(1) = "MATEO 4:4"

W(2) = "EL CIELO Y LA TIERRA PASARÁN, PERO MIS PALABRAS NO PASARÁN. ": V(2) = "MARCOS 13:31"

W(3) = "Y TODOS DABAN BUEN TESTIMONO DE ÉL Y ESTABAN MARAVILLADOS DE LAS PALABRAS QUE SALÍAN DE SU BOCA, Y DECÍAN ¿ NO ES ÉSTE EL HIJO DE JOSÉ ? ": V(3) = "LUCAS 4:22"

W(4) = "Y SE ADMIRABAN DE SU DOCTRINA PORQUE SU PALABRA ERA CON AUTORIDAD.": V(4) = "LUCAS 4:32"

W(5) = "EL ESPIRITU ES EL QUE DA VIDA; LA CARNE PARA NADA APROVECHA; LAS PALABRAS QUE OS HE HABLADO SON ESPÍRITU Y SON VIDA": V(5) = "JUAN 6:63"

W(6) = "LE RESPONDIÓ SIMÓN PEDRO: SEÑOR ¿ A QUIÉN IREMOS ?, TÚ TIENES PALABRAS DE VIDA ETERNA.": V(6) = "JUAN 6:68"

W(7) = "LOS ALGUACILES RESPONDIERON: ¡ JAMÁS HOMBRE ALGUNO HA HABLADO COMO ÉSTE HOMBRE !": V(7) = "JUAN 7:46"

W(8) = "EL QUE ME RECHAZA, Y NO RECIBE MIS PALABRAS, TIENE QUIEN LE JUZGUE; LA PALABRA QUE HE HABLADO, ELLA LE JUZGARÁ EN EL DÍA POSTRERO.": V(8) = "JUAN 12:48"

W(9) = "EL QUE NO ME AMA, NO GUARDA MIS PALABRAS; Y LA PALABRA QUE HABÉIS OÍDO NO ES MÍA SINÓ DEL PADRE QUE ME ENVIÓ.": V(9) = "JUAN 14:24"

W(10) = "DE CIERTO, DE CIERTO OS DIGO, QUE EL QUE GUARDA MIS PALABRA, NUNCA VERÁ MUERTE. ": V(10) = "JUAN 8:51"

W(11) = "Y bendito sea el Dios altísimo, que entregó tus enemigos en tu mano. Y le dio Abram los diezmos de todo.": V(11) = "Génesis 14:20"

W(12) = "Y esta piedra que he puesto por señal, será casa de Dios; y de todo lo que me dieres, el diezmo apartaré para ti.": V(12) = "Génesis 28:22"

W(13) = "Y el diezmo de la tierra, así de la simiente de la tierra como del fruto de los árboles, de Jehová es; es cosa dedicada a Jehová.": V(13) = "Levítico 27:30"

W(14) = "Y cuando este edicto fue divulgado, los hijos de Israel dieron muchas primicias de grano, vino, aceite, miel, y de todos los frutos de la tierra; trajeron asimismo en abundancia los diezmos de todas las cosas. ": V(14) = "2 Crónicas 31:5"

W(15) = "Traed todos los diezmos al alfolí y haya alimento en mi casa; y probadme ahora en esto, dice Jehová de los ejércitos, si no os abriré las ventanas de los cielos y derramaré sobre vosotros bendición hasta que sobreabunde.": V(15) = "Malaquías 3:10"

W(16) = "Y cuando tu hermano empobreciere y se acogiere a ti, tú lo ampararás; como forastero y extrangero vivirá contigo.": V(16) = "Levítico 25:35"

W(17) = "Cuando haya en medio de ti menesteroso de alguno de tus hermanos en alguna de tus ciudades, en la tierra que Jehová tu Dios te dá, no endurecerás tu corazón, ni cerrarás tu mano contra tu hermano pobre.": V(17) = "Deuteronomio 15:7"

W(18) = "Guardaos de hacer vuestra justicia delante de los hombres, para ser vistos de ellos; de otra manera no tendréis recompensa de vuestro padre que está en los cielos.": V(18) = "Mateo 6:1"

W(19) = "Jesús le dijo: Si quieres ser perfecto, vende lo que tienes, y dalo a los pobre, y tendrás tesoro en el cielo; y ven y sígueme.": V(19) = "Mateo 19:21"

W(20) = "Pero dad limosna de lo que tenéis, y entonces todo os será limpio.": V(20) = "Lucas 11:41"

W(21) = "Hay quienes reparten y les es añadido más; y hay quienes retienen mas de lo que es justo pero vienen a pobreza.": V(21) = "Proverbios 11:24"

W(22) = "El que cierra su oído al clamor del pobre, También él clamará y no será oído.": V(22) = "Proverbios 21:13"

W(23) = "El que dá al pobre no tendrá pobreza; Mas el que aparta sus ojos tendrá muchas maldiciones.": V(23) = "Proverbios 28:27"

W(24) = "Hay un mal doloroso que he visto debajo del sol: Las riquezas guardadas por sus dueños para su mal.": V(24) = "Eclesiastés 5:13"

W(25) = "Vino a él una mujer, con un vaso de alabastro de perfume de gran precio, y lo derramó sobre la cabeza de él, estando sentado a la mesa.": V(25) = "Mateo 26:7"

W(26) = "¿Robará el hombre a Dios? Pues vosotros me habéis robado. Y dijisteis: ¿en qué te hemos robado? En vuestros diezmos y ofrendas. ": V(26) = "Malaquías 3:8"

W(27) = "No codiciarás la casa de tu prójimo, no codiciarás la mujer de tu prójimo, ni su siervo, ni su criada, ni su buey, ni su asno, ni cosa alguna de tu prójimo.": V(27) = "Exodo 20:17"

W(28) = "Porque desde el más chico de ellos hasta el más grande, cada uno sigue la avaricia; y desde el profeta hasta el sacerdote, todos son engañadores.": V(28) = "Jeremías 6:13"

W(29) = "¡Ay del que codicia injusta ganancia para su casa, para poner en alto su nido, para escaparse del poder del mal! ": V(29) = "Habacuc 2:9"

W(30) = "Y les dijo: Mirad y guardaos de toda avaricia; porque la vida del hombre no consiste en la abundancia de los bienes que posee. ": V(30) = "Lucas 12:15"

W(31) = "Haced morir, pues, lo terrenal en vosotros: fornicación, impureza, pasiones desordenadas, malos deseos y avaricia, que es idolatría;": V(31) = "Colosenses 3:5"

W(32) = "Alborota su casa el codicioso; mas el que aborrece el soborno vivirá.": V(32) = "Proverbios 15:27"

 

 

Text2.Text = ""

Label1.Caption = ""

Randomize

'PRODUCE UN ENTERO I

        Do

        I = Int(Rnd() * 32 + 1)

        Loop Until E(I) = False 'VERIFICA QUE NO HA SIDO ESCOGIDO

        'DISPLAYA EL VERSO CORRESPONDIENTE

            Text2.Text = Text2.Text & W(I)

            Label1.Caption = Label1.Caption & V(I)

            E(I) = True

            K = K + 1 'CONTADOR           

'CUANDO HAY 32 VERSOS DISPLAYADOS

'HACE QUE NINGUNO FUE ESCOGIDO

If K = 32 Then

    For I = 1 To 32

    E(I) = False

    Next I

   

    K = 0 'REINICIALIZA

End If

End Sub

Public Sub GEN11()

Dim TXT1(8), TXT2(3) As String

Dim u1, u2, u3, u4 As Integer

Text1.Text = ""

 

TXT1(1) = "dar mantenimiento a"

TXT1(2) = "dar limpieza a"

TXT1(3) = "dar mejoras a"

TXT1(4) = "vender repuestos para"

TXT1(5) = "vender accesorios para"

TXT1(6) = "instalar repuestos a"

TXT1(7) = "adornar"

TXT1(8) = "instalar repuestos para"

 

For a = 1 To 100

Randomize

 

u1 = Int(Rnd() * 8 + 1)

  

    u2 = Int(Rnd() * 297 + 1)

                RS.Seek "=", u2

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO

              

    Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P1 & vbCrLf   

Next a

End Sub

 

Public Sub GEN12()

Dim TXT1(8), TXT2(3) As String

Dim u1, u2, u3, u4 As Integer

Text1.Text = ""

 

TXT1(1) = "elaborar"

TXT1(2) = "hacer"

TXT1(3) = "construir"

TXT1(4) = "fabricar"

TXT1(5) = "diseñar"

TXT1(6) = "armar"

TXT1(7) = "vender"

TXT1(8) = "negociar con"

 

TXT2(1) = "que puedan"

TXT2(2) = "que ayuden a"

TXT2(3) = "para"

 

For a = 1 To 100

Randomize

 

u1 = Int(Rnd() * 8 + 1)

u2 = Int(Rnd() * 3 + 1)

   

    Randomize

    u3 = Int(Rnd() * 297 + 1)

    u4 = Int(Rnd() * 180 + 1)

  

 

 

                RS.Seek "=", u3

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO

               RV.Seek "=", u4

                    If RS.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

    P2 = RV!I 'ASI SE ASEGURA UN VERBO

            Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P1 & " " & TXT2(u2) & " " & P2 & vbCrLf

Next a

End Sub

 

Public Sub GEN13()

Dim TXT1(6) As String

Dim u, u1 As Integer

 

TXT1(1) = "elaborar"

TXT1(2) = "hacer"

TXT1(3) = "construir"

TXT1(4) = "fabricar"

TXT1(5) = "diseñar"

TXT1(6) = "armar"

 

Text1.Text = ""

'ESCRIBE 100 IDEAS

For a = 1 To 100

Randomize

   u1 = Int(Rnd() * 6 + 1)

        J = Int(Rnd() * 297 + 1)

        RS.Seek "=", J

        If RS.NoMatch Then

                MsgBox "CODIGO NO EXISTE", 16

                Exit Sub

            End If

         P1 = RS!SP

        'ESCOGE UN AJ

                u = Int(Rnd() * 110 + 1)

                RAJ.Seek "=", u

                    If RAJ.NoMatch Then

                    MsgBox "CODIGO NO EXISTE", 16

                    Exit Sub

                    End If

       

        If RS!M = True Then

             P2 = RAJ!PM

        Else

                    P2 = RAJ!PF

        End If

      

     Text1.Text = Text1.Text & " " & TXT1(u1) & " " & P1 & " " & P2 & vbCrLf

Next a

End Sub

 

Public Sub GEN14()

Dim TXT1(2), TXT2(2), PROF(30) As String

Dim u, u1, u2, u3 As Integer

 

Text1.Text = ""

 

TXT1(1) = "trabajar"

TXT1(2) = "negociar"

 

TXT2(1) = "a"

TXT2(2) = "para"

 

PROF(1) = "doctores"

PROF(2) = "abogados"

PROF(3) = "profesores"

PROF(4) = "pintores"

PROF(5) = "choferes"

PROF(6) = "mensajeros"

PROF(7) = "gerentes"

PROF(8) = "rectores"

PROF(9) = "administradores"

PROF(10) = "masajistas"

PROF(11) = "despachadores"

PROF(12) = "vendedores"

PROF(13) = "amas de casa"

PROF(14) = "camareros"

PROF(15) = "nadadores"

PROF(16) = "deportistas"

PROF(17) = "viajeros"

PROF(18) = "turistas"

PROF(19) = "dibujantes"

PROF(20) = "entrenadores"

PROF(21) = "constructores"

PROF(22) = "ferreteros"

PROF(23) = "electricistas"

PROF(24) = "farmaceuticos"

PROF(25) = "ingenieros"

PROF(26) = "artesanos"

PROF(27) = "periodistas"

PROF(28) = "cocineros"

PROF(29) = "costureras"

PROF(30) = "comerciantes"

'PROF() = ""

 

For a = 1 To 100

Randomize

    u1 = Int(Rnd() * 2 + 1)

    u2 = Int(Rnd() * 2 + 1)

    u3 = Int(Rnd() * 30 + 1)

    u = Int(Rnd() * 180 + 1)

                RV.Seek "=", u

                    If RV.NoMatch Then

                        MsgBox "CODIGO NO EXISTE", 16

                        Exit Sub

                    End If

 

    P1 = RV!G 'ASI SE ASEGURA UN VERBO EN GERUNDIO                      

 

    Text1.Text = Text1.Text & "  " & TXT1(u1) & " " & P1 & " " & TXT2(u2) & " " & PROF(u3) & vbCrLf

Next a

End Sub

 

Public Sub GEN15()

Dim E(26), P(2) As String

Dim u, u1, u2, u3, a, I As Integer

 

Text1.Text = ""

P(1) = "fabricar"

P(2) = "vender"

 

E(1) = "tarjetas de"

E(2) = "sellos de"

E(3) = "relojes de"

E(4) = "tuberia de"

E(5) = "rotulos de"

E(6) = "muebles de"

E(7) = "cortinas de"

E(8) = "carros de"

E(9) = "empaques de"

E(10) = "bebidas en envases de"

E(11) = "envases de"

E(12) = "tanques de"

E(13) = "tejidos de"

E(14) = "puertas de"

E(15) = "botellas de"

E(16) = "botones de"

E(17) = "bordados de"

E(18) = "cajas de"

E(19) = "rollos de"

E(20) = "laminas de"

E(21) = "estructuras de"

E(22) = "encuadernacion con"

E(23) = "cuadernos de"

E(24) = "carpetas de"

E(25) = "anillos de"

E(26) = "perfiles de"

 

For a = 1 To 100

Randomize

u = Int(Rnd() * 99 + 1)

u1 = Int(Rnd() * 2 + 1)

u2 = Int(Rnd() * 26 + 1)

 

    RMAT.Seek "=", u

        If RMAT.NoMatch Then

        MsgBox "CODIGO NO EXISTE", 16

        Exit Sub

        End If

    P1 = RMAT!MAT

Text1.Text = Text1.Text & " " & P(u1) & " " & E(u2) & " " & P1 & vbCrLf

 

Next a

End Sub

 

Public Sub GEN16()

Dim P(3) As String

Dim u, u1, u2, u3, a, I As Integer

Text1.Text = ""

P(1) = "fabricar"

P(2) = "vender"

P(3) = "enseñar a trabajar con"

For a = 1 To 100

Randomize

u = Int(Rnd() * 99 + 1)

u1 = Int(Rnd() * 3 + 1)

 

    RMAT.Seek "=", u

        If RMAT.NoMatch Then

        MsgBox "CODIGO NO EXISTE", 16

        Exit Sub

        End If

    P1 = RMAT!MAT

Text1.Text = Text1.Text & " " & P(u1) & " " & P1 & vbCrLf

Next a

End Sub

 

Public Sub GEN17()

Dim P(2), P1, P2 As String

Dim u, u1, u2, u3, a, I As Integer

 

Text1.Text = ""

 

P(1) = "fabricar"

P(2) = "vender"

 

For a = 1 To 100

Randomize

u = Int(Rnd() * 99 + 1)

u1 = Int(Rnd() * 2 + 1)

u2 = Int(Rnd() * 297 + 1)

 

    RMAT.Seek "=", u

        If RMAT.NoMatch Then

        MsgBox "CODIGO NO EXISTE", 16

        Exit Sub

        End If

    P2 = RMAT!MAT

   

    RS.Seek "=", u2

          If RS.NoMatch Then

          MsgBox "CODIGO NO EXISTE", 16

          Exit Sub

          End If

 

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO

  

Text1.Text = Text1.Text & " " & P(u1) & " " & P1 & " de " & P2 & vbCrLf

Next a

End Sub

 

 

 

 

 

 

 

 

 

 

Public Sub GEN18()

Dim P(4), T(4), P1, P2 As String

Dim u, u1, u2, u3, a, I As Integer

Text1.Text = ""

P(1) = "fabricar"

P(2) = "vender"

P(3) = "producir accesorios para"

P(4) = "enseñar a hacer"

 

T(1) = "con"

T(2) = "de"

 

For a = 1 To 100

Randomize

u = Int(Rnd() * 99 + 1) 'P2 MAT

u1 = Int(Rnd() * 4 + 1)  'P()

u2 = Int(Rnd() * 297 + 1)  'P1

u3 = Int(Rnd() * 2 + 1)  'T()

 

    RMAT.Seek "=", u

        If RMAT.NoMatch Then

        MsgBox "CODIGO NO EXISTE", 16

        Exit Sub

        End If

    P2 = RMAT!MAT

   

    RS.Seek "=", u2

          If RS.NoMatch Then

          MsgBox "CODIGO NO EXISTE", 16

          Exit Sub

          End If

 

    P1 = RS!SP 'ASI SE ASEGURA UN SUSTANTIVO

   

Text1.Text = Text1.Text & " " & P(u1) & " " & P1 & " " & T(u3) & " " & P2 & vbCrLf

 

Next a

End Sub

 

 

 

 

 

 

 

 

 

formulario F1 Notas

 

Dim C(16), V(12), G(6), K(8), l(3), F(9) As String

Private Sub Form_Load()

Aplicar3_skin Me

End Sub

Private Sub MENUIMPRIMIR_Click()

Call imprimir

End Sub

Private Sub OPabrir_Click()

Call abrir

End Sub

Private Sub OPfuente_Click()

Call fuente

End Sub

Private Sub OPguardarcomo_Click()

Call guardarcomo

End Sub

Private Sub OPnuevo_Click()

F1.Caption = " ( Sin Título ) "

Text1.Text = ""

End Sub

Private Sub OPsalir_Click()

Unload Me

End Sub

 

'sub para abrir un archivo de texto

Public Sub abrir()

On Error GoTo manipularerrorabrir

 

'muestra la caja de dialogo abrir archivo

With CommonDialog1

.Filter = "ARCHIVOS DE TEXTO*.TXTTodos los Archivos*.*"

.DefaultExt = ".txt"

.ShowOpen

Open .FileName For Input As #1

F1.Caption = .FileName

End With

'limpia la caja de texto

Text1.Text = ""

'abre el archivo con las caracteristicas de texto previas

Text1.Text = Input$(LOF(1), #1)

Close #1

Exit Sub

''mensaje de error si no puede abrir el archivo

manipularerrorabrir:

 

 

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al abrir el archivo"

End If

End Sub

Public Sub guardarcomo()

On Error GoTo manipularerrorguardar

With CommonDialog1

.CancelError = True

.DefaultExt = ".txt"

.Filter = "TEXTO*.TXTTodos los Archivos*.*"

'muestra mensaje si desea sobreescribir en el archivo

.Flags = cdlOFNOverwritePrompt

.ShowSave

Open .FileName For Output As #1

F1.Caption = .FileName

End With

'escribir en el archivo los datos necesaros

Print #1, Text1.Text

'cierra el archivo ya guardado

Close #1

Exit Sub

'en caso de no poder abrir el archivo presenta mensaje de error

manipularerrorguardar:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al guardar el archivo"

End If

End Sub

Public Sub imprimir()

Dim copias As Byte

On Error GoTo manipularerrorimprimir

With CommonDialog1

.CancelError = True

.Flags = cdlPDNoSelection Or cdlPDNoPageNums Or cdlPDHidePrintToFile

.PrinterDefault = True

'muestra caja de dialogo imprimir

.ShowPrinter

copias = .Copies

End With

'fijar el numero de copias

Printer.Copies = copias

'tomar el estilo del texto

Printer.Font = Text1.Font

 

'imprimir el texto actual

Printer.Print Text1.Text

Printer.EndDoc  'fin de la impresion

Exit Sub

'en caso de error al imprimir

manipularerrorimprimir:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "ERROR DESCONOCIDO AL IMPRIMIR"

End If

End Sub

Public Sub fuente()

'procedimiento que modifica el estilo del texto

On Error GoTo manipularerrorfuente

With CommonDialog1

.CancelError = True

.FontName = Text1.FontName

.FontSize = Text1.FontSize

.FontBold = Text1.FontBold

.FontItalic = Text1.FontItalic

.FontUnderline = Text1.FontUnderline

.FontStrikethru = Text1.FontStrikethru

.Color = Text1.ForeColor

.Flags = cdlCFBoth Or cdlCFEffects

'muestra el cuadro de dialogo fuente

.ShowFont

End With

With CommonDialog1

'aplica al cuadro de texto el estilo escogido

Text1.FontName = .FontName

Text1.FontSize = .FontSize

Text1.FontBold = .FontBold

Text1.FontItalic = .FontItalic

Text1.FontUnderline = .FontUnderline

Text1.FontStrikethru = .FontStrikethru

Text1.ForeColor = .Color

End With

Exit Sub

'en caso de error al abrir la caja de dialogo de fuente

manipularerrorfuente:

If Err.Number = 32755 Then

Exit Sub

Else

MsgBox "error al abrir la caja de dialogo de estilos"

End If

 

End Sub

 

Private Sub Text1_Change()

modificado = True

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

OPfuente.Enabled = (Text1.SelLength > 0)

End Sub

 

‘formulario DATOS

 

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click() 'BOTON VER

DATOS.Hide

Form1.Show

Form1.MSChart1.TitleText = T1.Text

With Form1.MSChart1

    .ShowLegend = True

    .ColumnCount = 4

    .RowCount = 3

   

    .Column = 1

    .Row = 1

    .RowLabel = FLXGRID.TextMatrix(1, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 1)

     .Data = Val(FLXGRID.TextMatrix(1, 1))

   

    .Column = 1

    .Row = 2

    .RowLabel = FLXGRID.TextMatrix(2, 0)

    .ColumnLabel = FLXGRID.TextMatrix(0, 1)

     .Data = Val(FLXGRID.TextMatrix(2, 1))

       

    .Column = 1

    .Row = 3

    .RowLabel = FLXGRID.TextMatrix(3, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 1)

     .Data = Val(FLXGRID.TextMatrix(3, 1))

   

    .Column = 2

    .Row = 1

    .RowLabel = FLXGRID.TextMatrix(1, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 2)

     .Data = Val(FLXGRID.TextMatrix(1, 2))

   

   

    .Column = 2

    .Row = 2

    .RowLabel = FLXGRID.TextMatrix(2, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 2)

     .Data = Val(FLXGRID.TextMatrix(2, 1))

       

    .Column = 2

    .Row = 3

    .RowLabel = FLXGRID.TextMatrix(3, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 2)

     .Data = Val(FLXGRID.TextMatrix(3, 2))

       

    .Column = 3

    .Row = 1

    .RowLabel = FLXGRID.TextMatrix(1, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 3)

     .Data = Val(FLXGRID.TextMatrix(1, 3))

       

    .Column = 3

    .Row = 2

    .RowLabel = FLXGRID.TextMatrix(2, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 3)

     .Data = Val(FLXGRID.TextMatrix(2, 3))

       

    .Column = 3

    .Row = 3

    .RowLabel = FLXGRID.TextMatrix(3, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 3)

     .Data = Val(FLXGRID.TextMatrix(3, 3))

         

    .Column = 4

    .Row = 1

    .RowLabel = FLXGRID.TextMatrix(1, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 4)

     .Data = Val(FLXGRID.TextMatrix(1, 4))

       

    .Column = 4

    .Row = 2

    .RowLabel = FLXGRID.TextMatrix(2, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 4)

     .Data = Val(FLXGRID.TextMatrix(2, 4))        

    .Column = 4

    .Row = 3

    .RowLabel = FLXGRID.TextMatrix(3, 0)

     .ColumnLabel = FLXGRID.TextMatrix(0, 4)

     .Data = Val(FLXGRID.TextMatrix(3, 4))

    End With

End Sub

Private Sub FLXGRID_EnterCell()

Text1.Text = ""

Text1.Visible = False

Text1.Top = FLXGRID.Top + FLXGRID.CellTop

Text1.Left = FLXGRID.Left + FLXGRID.CellLeft

Text1.Width = FLXGRID.CellWidth

Text1.Height = FLXGRID.CellHeight

Text1.Text = FLXGRID.Text

Text1.Visible = True

Text1.SetFocus

End Sub

Private Sub FLXGRID_LeaveCell()

FLXGRID.Text = Text1.Text

End Sub

Private Sub Form_Load()

FLXGRID.TextMatrix(0, 1) = "producto 1"

FLXGRID.TextMatrix(0, 2) = "producto 2"

FLXGRID.TextMatrix(0, 3) = "producto 3"

FLXGRID.TextMatrix(0, 4) = "producto 4"

FLXGRID.TextMatrix(1, 0) = "Enero"

FLXGRID.TextMatrix(2, 0) = "febrero"

FLXGRID.TextMatrix(3, 0) = "Marzo"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 13

        FLXGRID.Row = FLXGRID.RowSel + 1

        FLXGRID.Col = FLXGRID.ColSel

Case 32

        FLXGRID.Row = FLXGRID.RowSel

        FLXGRID.Col = FLXGRID.ColSel + 1

Case 8

        If FLXGRID.RowSel <> 0 Then

        FLXGRID.Row = FLXGRID.RowSel - 1

        FLXGRID.Col = FLXGRID.ColSel

        Else

        Exit Sub

        End If

End Select

End Sub

 

 

 

 

 

 

 

 

formulario COSTOS

 

Dim DB As Database

Dim rc As Recordset

Dim RP As Recordset

Dim COSTOS(12) As Double

Dim CANTSOLIC, COSTOTOTL, PVPSUGER, PORCENDUTIL As Double

Dim PVPFINAL, COSTOUNIT, UTILNETA As Double

Private Sub CANTS_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub CMDCALCULARCOSTOS_Click()

Call VERIFICACION2

COSTOS(1) = Val(T1.Text)

COSTOS(2) = Val(T2.Text)

COSTOS(3) = Val(T3.Text)

COSTOS(4) = Val(T4.Text)

COSTOS(5) = Val(T5.Text)

COSTOS(6) = Val(T6.Text)

COSTOS(7) = Val(T7.Text)

COSTOS(8) = Val(T8.Text)

COSTOS(9) = Val(T9.Text)

COSTOS(10) = Val(T10.Text)

COSTOS(11) = Val(T11.Text)

COSTOS(12) = Val(T12.Text)

COSTOUNIT = 0

For I = 1 To 12

COSTOUNIT = COSTOUNIT + COSTOS(I)

Next I

Call CALCULARLOSCOSTOS

CMDCALCULARCOSTOS.Enabled = False

End Sub

Private Sub CALCULARLOSCOSTOS()

CU.Text = COSTOUNIT

CTT.Text = Val(CANTS) * COSTOUNIT

PVPS = 2.5 * Val(CTT)

PVPSUGER = Val(PVPS.Text)

PVP.Text = Val(CTT.Text) * Val(PERUT) / 100 + Val(CTT.Text)

UTNT.Text = Val(PVP.Text) - Val(CTT.Text)

If Val(CANTS) = 0 Then

MsgBox "INGRESE LA CANTIDAD", vbCritical

CANTS.SetFocus

Exit Sub

Else

PVPUNIT.Text = Val(PVP) / Val(CANTS)

End If

End Sub

Private Sub CMDCONSULTAR_Click()

If TCOD.Text = "" Then

MsgBox "INGRESE CODIGO", 16

TCOD.SetFocus

Exit Sub

End If

 

rc.Seek "=", TCOD.Text

If rc.NoMatch Then

MsgBox "EL CODIGO NO EXISTE", 16

TCOD = ""

TCOD.SetFocus

Exit Sub

End If

TXTPROY.Text = rc!PROYECTO

LBL1.Text = rc!IN1

LBL2.Text = rc!IN2

LBL3.Text = rc!IN3

LBL4.Text = rc!IN4

LBL5.Text = rc!IN5

LBL6.Text = rc!IN6

LBL7.Text = rc!IN7

LBL8.Text = rc!IN8

LBL9.Text = rc!IN9

LBL10.Text = rc!IN10

LBL11.Text = rc!IN11

LBL12.Text = rc!IN12

CMDCALCULARCOSTOS.Enabled = True

End Sub

Private Sub CMDGUARDAR_Click()

Call VERIFICACION2

RP.AddNew

RP!N_ORDEN = textnumord.Text

RP!NOMCLIENTE = TEXTCLI.Text

RP!NOMPROYECTO = TXTPROY.Text

RP!CANTPROYS = CANTS

RP!PVP = Val(PVP.Text)

RP!UTILIDAD = Val(UTNT.Text)

RP!INGRESO = Val(PVP.Text)

RP!EGRESO = Val(CTT.Text)

RP!COSTOU = Val(CTT.Text) / Val(CANTS.Text)

RP!PORCENUTILIDAD = Val(PERUT.Text)

RP.Update

Call LMP

Data1.Refresh

Data1.Recordset.MoveLast

textnumord.Text = Val(Text1.Text) + 1

End Sub

Private Sub LMP()

 

T1 = "-"

T2 = "-"

T3 = "-"

T4 = "-"

T5 = "-"

T6 = "-"

T7 = "-"

T8 = "-"

T9 = "-"

T10 = "-"

T11 = "-"

T12 = "-"

 

LBL1 = "-"

LBL2 = "-"

LBL3 = "-"

LBL4 = "-"

LBL5 = "-"

LBL6 = "-"

LBL7 = "-"

LBL8 = "-"

LBL9 = "-"

LBL10 = "-"

LBL11 = "-"

LBL12 = "-"

 

TEXTCLI.Text = ""

PVPUNIT.Text = ""

TXTPROY.Text = ""

 

Call INICOSTOS

Call INITXTFINANCIEROS

CMDCONSULTAR.SetFocus

 

End Sub

Private Sub INITXTFINANCIEROS()

TCOD = ""

CANTS = ""

CTT = ""

PVP = ""

PVPS = ""

PERUT = ""

UTNT = ""

CU = ""

End Sub

 

 

Private Sub CMDSALIR_Click()

Data1.Refresh

rc.Close

RP.Close

DB.Close

Unload Me

BASE_MANUFACTURAS.Command3.Visible = True

End Sub

Private Sub CMDSELECCIONARCODIGO_Click()

BASE_MANUFACTURAS.Show

BASE_MANUFACTURAS.Command3.Visible = False

End Sub

Private Sub INICOSTOS()

T1 = 0

T2 = 0

T3 = 0

T4 = 0

T5 = 0

T6 = 0

T7 = 0

T8 = 0

T9 = 0

T10 = 0

T11 = 0

T12 = 0

End Sub

Private Sub Form_Load()

Set DB = OpenDatabase(App.Path & "IND.mdb")

Set rc = DB.OpenRecordset("PROYECTOS")

rc.Index = "I_PROYECTOS"

 

Set RP = DB.OpenRecordset("PRODUCCIONES")

RP.Index = "I_PRODUCCIONES"

 

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "PRODUCCIONES"

Data1.Refresh

 

Call INICOSTOS

CMDCALCULARCOSTOS.Enabled = False

 

Data1.Refresh

Data1.Recordset.MoveLast

textnumord.Text = Val(Text1.Text) + 1

End Sub

 

 

Private Sub PERUT_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

If KeyAscii = 13 Then

    If CANTS.Text = "" Then

    MsgBox "DEBE ESCRIBIR LA CANTIDAD SOLICITADA", 16

    CANTS.SetFocus

    Exit Sub

    End If

    CMDCALCULARCOSTOS.Enabled = True

End If

End Sub

Private Sub T1_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T10_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T11_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T12_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T2_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T3_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T4_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T5_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T6_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T7_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T8_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub T9_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

 

Private Sub TCOD_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub TEXTCLI_KeyPress(KeyAscii As Integer)

Call VAL_T(KeyAscii)

If KeyAscii = 13 Then

TEXTCLI.Text = UCase(TEXTCLI.Text)

End If

End Sub

Private Sub textnumord_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Public Sub VERIFICACION2()

If T1 = "" Then

MsgBox "FALTA COSTO", 16

T1.SetFocus

Exit Sub

End If

If T2 = "" Then

MsgBox "FALTA COSTO", 16

T2.SetFocus

Exit Sub

End If

If T3 = "" Then

MsgBox "FALTA COSTO", 16

T3.SetFocus

Exit Sub

End If

If T4 = "" Then

MsgBox "FALTA COSTO", 16

T4.SetFocus

Exit Sub

End If

If T5 = "" Then

MsgBox "FALTA COSTO", 16

T5.SetFocus

Exit Sub

End If

If T6 = "" Then

MsgBox "FALTA COSTO", 16

T6.SetFocus

Exit Sub

End If

If T7 = "" Then

MsgBox "FALTA COSTO", 16

T7.SetFocus

Exit Sub

End If

If T8 = "" Then

MsgBox "FALTA COSTO", 16

T8.SetFocus

Exit Sub

End If

If T9 = "" Then

MsgBox "FALTA COSTO", 16

T9.SetFocus

Exit Sub

End If

If T10 = "" Then

MsgBox "FALTA COSTO", 16

T10.SetFocus

Exit Sub

End If

If T11 = "" Then

MsgBox "FALTA COSTO", 16

T11.SetFocus

Exit Sub

End If

If T12 = "" Then

MsgBox "FALTA COSTO", 16

T12.SetFocus

Exit Sub

End If

If TCOD = "" Then

MsgBox "ESCRIBA EL CODIGO", 16

TCOD.SetFocus

Exit Sub

End If

If TEXTCLI = "" Then

MsgBox "ESCRIBA EL NOMBRE DEL CLIENTE", 16

TEXTCLI.SetFocus

Exit Sub

End If

If CANTS = "" Then

MsgBox "FALTA LA CANTIDAD", 16

CANTS.SetFocus

Exit Sub

End If

If PERUT = "" Then

MsgBox "ESCRIBA EL PORCENTAJE DE UTILIDAD", 16

PERUT.SetFocus

Exit Sub

End If

 

 

 

If TXTPROY = "" Then

MsgBox "ESCOJA UN PROYECTO", 16

TXTPROY.SetFocus

Exit Sub

End If

If textnumord = "" Then

MsgBox "ESCRIBA EL NUMERO DE LA ORDEN DE PRODUCCION", 16

textnumord.SetFocus

Exit Sub

End If

End Sub

‘formulario de consulta de reportes CONSULTAREP

Private Sub Command1_Click() 'PRIMERO

If Not Data1.Recordset.BOF Then

Command1.Enabled = True

Data1.Recordset.MoveFirst

End If

If Data1.Recordset.BOF Then

Data1.Recordset.MoveFirst

Command2.Enabled = True  'BTN AVANZAR

Command3.Enabled = False  'BTN ATRAS

End If

Call ACT

End Sub

Private Sub Command2_Click() 'AVANZAR

If Not Data1.Recordset.EOF Then

Command2.Enabled = True

Command3.Enabled = True

Data1.Recordset.MoveNext

End If

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

Command2.Enabled = True

End If

Call ACT

End Sub

Private Sub Command3_Click() 'ATRAS

If Not Data1.Recordset.BOF Then

Command3.Enabled = True  'BTN ATRAS

Data1.Recordset.MovePrevious

End If

If Data1.Recordset.BOF Then

Data1.Recordset.MoveFirst

Command2.Enabled = True  'BTN AVANZAR

End If

Call ACT

End Sub

Private Sub Command4_Click()

Data1.Refresh

Unload Me

End Sub

Private Sub Command5_Click()  'ULTIMO

If Not Data1.Recordset.BOF Then

Command3.Enabled = True 'BTN ATRAS

Data1.Recordset.MoveLast

End If

If Data1.Recordset.EOF Then

Command2.Enabled = False 'BTN SIGUIENTE

Data1.Recordset.MoveLast

End If

Call ACT

End Sub

Private Sub Form_Load()

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "REPORTES"

Data1.Refresh

Call ACT

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)

Call VAL_T(KeyAscii)

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

Call VAL_N(KeyAscii)

End Sub

Private Sub ACT()

If T7.Text = "-1" Then

Check1.Value = 1

End If

If T7.Text = "0" Then

Check1.Value = 0

End If

If T8.Text = "-1" Then

Check2.Value = 1

End If

If T8.Text = "0" Then

Check2.Value = 0 : End If

If T9.Text = "-1" Then

Check3.Value = 1

End If

If T9.Text = "0" Then

Check3.Value = 0

End If

End Sub

 

 

formulario de consulta de clientes COMERCIALIZACION

Private Sub Command1_Click()

INGRESO_CLIENTES.Show

End Sub

Private Sub Command3_Click() 'ACEPTAR ORDENAR

If OP1.Value = True Then

    Data1.RecordSource = "SELECT * FROM CLIENTES ORDER BY CODIGO"

    Data1.Refresh

End If

If OP2.Value = True Then

  Data1.RecordSource = "SELECT * FROM CLIENTES ORDER BY NOMBRE"

  Data1.Refresh

End If

 

If OP3.Value = True Then

  Data1.RecordSource = "SELECT * FROM CLIENTES ORDER BY DIRECCION"

  Data1.Refresh

End If

End Sub

Private Sub Command4_Click()

Data1.Refresh

COMERCIALIZACION.Hide

End Sub

Private Sub Form_Load()

MSF.ColWidth(0) = 1000

MSF.ColWidth(1) = 2500

MSF.ColWidth(2) = 2500

MSF.ColWidth(3) = 1500

 

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "CLIENTES"

Data1.Refresh

End Sub

 

 

 

‘formulario de consulta de proyectos realizados BASE_PROYECTOS

Private Sub CMDACEPTAR_Click()

 

If OP1.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY NOMPROYECTO"

Data1.Refresh

End If

If OP2.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY N_ORDEN"

Data1.Refresh

End If

If OP3.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY UTILIDAD"

Data1.Refresh

End If

If OP4.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY NOMCLIENTE"

Data1.Refresh

End If

If OP5.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY COSTOU"

Data1.Refresh

End If

If OP6.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY EGRESO"

Data1.Refresh

End If

If OP7.Value = True Then

Data1.RecordSource = "SELECT * FROM PRODUCCIONES ORDER BY PVP"

Data1.Refresh

End If

End Sub

Private Sub Command1_Click()

Data1.Refresh

Unload Me

End Sub

 

 

 

 

Private Sub Form_Load()

MSF1.ColWidth(1) = 2700

MSF1.ColWidth(1) = 2200

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "PRODUCCIONES"

Data1.Refresh

End Sub

 

fomulario de consulta de manufacturas BASE_MANUFACTURAS

 

Private Sub CMDACEPTAR_Click()

If Option1.Value = True Then

Data1.RecordSource = "SELECT * FROM PROYECTOS ORDER BY CODIGO"

Data1.Refresh

End If

If Option2.Value = True Then

Data1.RecordSource = "SELECT * FROM PROYECTOS ORDER BY PROYECTO"

Data1.Refresh

End If

End Sub

Private Sub CMDSALIR_Click()

Data1.Refresh

Unload Me

End Sub

Private Sub Command3_Click()

INGRESO_MANUFACTURAS.Show

End Sub

Private Sub Form_Load()

MSF.ColWidth(1) = 8000

Data1.DatabaseName = (App.Path & "IND.mdb")

Data1.RecordSource = "PROYECTOS"

Data1.Refresh

End Sub

Private Sub MSF_dblclick()

With BASE_MANUFACTURAS.MSF

FABRICACION.T1.Text = .TextMatrix(.Row, 0)

COSTOS.TCOD.Text = .TextMatrix(.Row, 0)

End With

End Sub

 

 

 

 

 

 

‘formulario informativo ACERCA DE

Option Explicit

 

' Opciones de seguridad de clave del Registro...

Const READ_CONTROL = &H20000

Const KEY_QUERY_VALUE = &H1

Const KEY_SET_VALUE = &H2

Const KEY_CREATE_SUB_KEY = &H4

Const KEY_ENUMERATE_SUB_KEYS = &H8

Const KEY_NOTIFY = &H10

Const KEY_CREATE_LINK = &H20

Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _

                       KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _

                       KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

                    

' Tipos ROOT de clave del Registro...

Const HKEY_LOCAL_MACHINE = &H80000002

Const ERROR_SUCCESS = 0

Const REG_SZ = 1                         ' Cadena Unicode terminada en valor nulo

Const REG_DWORD = 4                      ' Número de 32 bits

 

Const gREGKEYSYSINFOLOC = "SOFTWAREMicrosoftShared Tools Location"

Const gREGVALSYSINFOLOC = "MSINFO"

Const gREGKEYSYSINFO = "SOFTWAREMicrosoftShared ToolsMSINFO"

Const gREGVALSYSINFO = "PATH"

 

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

 

Private Sub cmdSysInfo_Click()

  Call StartSysInfo

End Sub

Private Sub cmdOK_Click()

  Unload Me

End Sub

 

Private Sub Form_Load()

    Me.Caption = "Acerca de " & App.Title

    lblVersion.Caption = "Versión " & App.Major & "." & App.Minor & "." & App.Revision

    lblTitle.Caption = App.Title

End Sub

 

Public Sub StartSysInfo()

    On Error GoTo SysInfoErr 

    Dim rc As Long

    Dim SysInfoPath As String

   

    ' Intentar obtener ruta de acceso y nombre del programa de Info. del sistema a partir del Registro...

    If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then

    ' Intentar obtener sólo ruta del programa de Info. del sistema a partir del Registro...

    ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then

        ' Validar la existencia de versión conocida de 32 bits del archivo

        If (Dir(SysInfoPath & "MSINFO32.EXE") <> "") Then

            SysInfoPath = SysInfoPath & "MSINFO32.EXE"

           

        ' Error: no se puede encontrar el archivo...

        Else

            GoTo SysInfoErr

        End If

    ' Error: no se puede encontrar la entrada del Registro...

    Else

        GoTo SysInfoErr

    End If

   

    Call Shell(SysInfoPath, vbNormalFocus)

   

    Exit Sub

SysInfoErr:

    MsgBox "La información del sistema no está disponible en este momento", vbOKOnly

End Sub

 

Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean

    Dim I As Long                                           ' Contador de bucle

    Dim rc As Long                                          ' Código de retorno

    Dim hKey As Long                                        ' Controlador de una clave de Registro abierta

    Dim hDepth As Long                                      '

    Dim KeyValType As Long                                  ' Tipo de datos de una clave de Registro

    Dim tmpVal As String                                    ' Almacenamiento temporal para un valor de clave de Registro

    Dim KeyValSize As Long                                  ' Tamaño de variable de clave de Registro

    '------------------------------------------------------------

    ' Abrir clave de registro bajo KeyRoot {HKEY_LOCAL_MACHINE...}

    '------------------------------------------------------------

    rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Abrir clave de Registro

   

    If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Error de controlador...

   

    tmpVal = String$(1024, 0)                             ' Asignar espacio de variable

    KeyValSize = 1024                                       ' Marcar tamaño de variable

   

    '------------------------------------------------------------

    ' Obtener valor de clave de Registro...

    '------------------------------------------------------------

    rc = RegQueryValueEx(hKey, SubKeyRef, 0, _

                         KeyValType, tmpVal, KeyValSize)    ' Obtener o crear valor de clave

                       

    If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Controlar errores

   

    If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then           ' Win95 agregar cadena terminada en valor nulo...

        tmpVal = Left(tmpVal, KeyValSize - 1)               ' Encontrado valor nulo, se va a quitar de la cadena

    Else                                                    ' En WinNT las cadenas no terminan en valor nulo...

        tmpVal = Left(tmpVal, KeyValSize)                   ' No se ha encontrado valor nulo, sólo se va a extraer la cadena

    End If

    '------------------------------------------------------------

    ' Determinar tipo de valor de clave para conversión...

    '------------------------------------------------------------

    Select Case KeyValType                                  ' Buscar tipos de datos...

    Case REG_SZ                                             ' Tipo de datos String de clave de Registro

        KeyVal = tmpVal                                     ' Copiar valor de cadena

    Case REG_DWORD                                          ' Tipo de datos Double Word de clave del Registro

        For I = Len(tmpVal) To 1 Step -1                    ' Convertir cada bit

            KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, I, 1)))   ' Generar valor carácter a carácter

        Next

        KeyVal = Format$("&h" + KeyVal)                     ' Convertir Double Word a cadena

    End Select

   

    GetKeyValue = True                                      ' Se ha devuelto correctamente

    rc = RegCloseKey(hKey)                                  ' Cerrar clave de Registro

    Exit Function                                           ' Salir

   

GetKeyError:      ' Borrar después de que se produzca un error...

    KeyVal = ""                                             ' Establecer valor a cadena vacía

    GetKeyValue = False                                     ' Fallo de retorno

    rc = RegCloseKey(hKey)                                  ' Cerrar clave de Registro

End Function

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

BIBLIOGRAFIA

Información relevante del Marco Teórico fue obtenida de la enciclopedia virtual Wikipedia. www.wikipedia.org

Apunto las direcciones electrónicas de los temas consultados:

http://es.wikipedia.org/wiki/Microempresa

http://es.wikipedia.org/wiki/idea

http://es.wikipedia.org/wiki/Producto

http://es.wikipedia.org/wiki/Mercado

http://es.wikipedia.org/wiki/Visual_Basic

http://es.wikipedia.org/wiki/Data_Access_

http://es.wikipedia.org/wiki/Estadisticas

http://es.wikipedia.org/wiki/Administraci%C3%B3n_de_ventas

http://es.wikipedia.org/wiki/Hazlo_t%C3%BA_mismo

http://es.wikipedia.org/wiki/Innovacion

http://es.wikipedia.org/wiki/Libertad

http://es.wikipedia.org/wiki/Perceptron

http://es.wikipedia.org/wiki/Costes

 

www.resursosvisualbasic.com.ar

www.monografias.com

www.mailxmail.com

Colección MSDN de Microsoft Corporation

La Biblia, versión Reina – Valera revisión de 1960





 
   
 
=> ¿Desea una página web gratis? Pues, haz clic aquí! <=