SoloCodigo

Uno programador (o que se pretende tal) sin imaginación... es como una rueda cuadrada... será todo lo rueda que quiera, pero, ...no 'rueda'...

Bien, si ya sabes poner puntos y líneas (por ti solita/o) ya se te puede ayudar...

Para utilizar un sistema de cordenadas debes usar la propiedad scale

Por ejmplo:
Aquí le hemos dicho que el sistema de cordenadas tiene 200 unidades de ancho por 200 unidades de alto, y que las unidades van desde -100 en el eje de cordenadas x a: (-100 + 200), para el eje y le indicamos lo mismo que para el eje x.

Qué unidades son ?... las unidades son del sistema indicado en picture1.scalemode, por tanto si previo al código anterior le añades (delante o detrás de la línea indicada):
...ahora ya sabes que las unidades son en píxeles...
Ahora practica poniendo líneas y puntos...
quiero verte poner código y alguna imagen, en tu siguiente intervención (para ver como vas y prosperas) sólo entonces te ayudaré a realizar rotaciones y demás...

saludos y al tajo.

No es exactamente así. Eso son consecuencias, aunque de hecho se aprovechan también para eso. La clave sirve para cifrar y descifrar el mensaje , punto. Luego, adicionalmente o de modo implícito '''agregarle seguridad al algoritmo y para verificar la autenticidad del mensaje''' son consecuencias, pero que pueden explotarse a propósito.
Si es cierto que las claves se idearon-inventaron con ese propósito (agregarle seguridad al algoritmo y para verificar la autenticidad del mensaje), sin embargo una vez hecho el algoritmo, no se puede prescindir de la clave, por tanto la clave es necesaria para cifrar y es (salvo que se diseñe el algoritmo expecíficamente de otro modo) también necesario para descifrar el mensaje.

El otro día estuve editando un artículo en wikipedia, concretamente versaba sobre transposición, échale un vistazo, el artículo es 'Escítala'. Verás que el cifrado utiliza una clave no a la moderna usanza, pero que está sobreentendida en el método usado. Traducido a un algoritmo la clave es un valor numérico.

Imagina una máquina que fabrica vasos de cristal... esa máquina es como un algoritmo de cifrado. Un vaso es un mensaje cifrado, la clave serían las especificaciones del vaso: volumne 10 cm cúbicos. Radio menor= 30 mm, radio mayor= 35 mm. altura= 65mm. grosor=.....  el mensaje sería el material en bruto : Material= vidrio, podría ser barro, podría ser cerámica, aluminio, etc... que es lo que se transforma... Este ejemplo no es totalmente acoplable, pero espero que si entiendas la idea de los parámtros que necesita la máquina para procesar el material, esos parámetros equivalen a la clave...

Imagina una máquina que no requiere parámetros, simplemente le pones el material y listo ella lo procesa, todos los vasos serían equivalentes... imagina otra máquina que tiene un selector, cada selector corresponde con un prototipo, por tanto la clave está inbuída en el algoritmo (la máquina tienes las especificaciones de cada uno de esos prototipos) y por tanto la clave en este caso se resume en reconocer el prototipo usado, el resto de datos residen en la propia máquina. Imagina que dicho selector de prototipos fuera intercambiable, entonces el propio selector sería una clave, habiendo varios selectores, necesitaríamos 2 datos, el selector usado y el prototipo elegido en dicho selector, cada selector tiene la 'firma' de todos los prototipos de vasos que se pueden seleccionar en él.

Pues tengo una grande problema con mi dvd writter y es que no me quema ningun tipo de dvd

este es la descripsion q me dio el everest

Descripción del controlador   HL-DT-ST DVDRRW GCA-4164B

Descripción del controlador   TWXYFGL NWLMRW1U7K1 SCSI CdRom Device

Es muy posible que tengas un virus, los hay que atacan las unidades de DVD. Ya me he encontrado con alguno.

Si formateas podrías ver que funciona perfectamente ... de nuevo.
No hace falta que formatees para verificarlo, basta que desconectes el disco duro actual e insertes uno vacío (uno viejo que no uses y en el que quepa al menos la instalación del S.O.) lo formateas e instalas el S.O. luego tu programa de grabación de CD-DVD y haces la prueba.. si funciona correctamente entonces como te decía un virus tiene 'secuestrada' tu unidad. En el improbable caso de que siga sin funcionar quizás esté dañado el hardware de la unidad, lo más típico aparte de la suciedad de la lente que te indica Moskito es que la lente esté desajustada. Por supuesto primero mira de ver si hay cables flojos.

Bienvenido al foro a pesar de tu mala entrada...

1 - Has resucitado un post de hace 15 meses. Los post antiguos sólo deben ser resucitados por quienes hacen preguntas sobre el mismo no alguien que va a responder a alguien que no está  a la escucha.

2 - El foro es de Visual Basic, no de C, es imperativo si se pone código que éste sea en VB, preciamente existen foros de diferentes lengujaes para que esto sea así.

De entrada no me quedaba claro si querías 'controlar un rentacar' o  si querías crear un control de usuario orientado a un rentacar, porq lo que dices en la línea 'estoy tratando de hacer 1 control de una rentacar '.... No obstante como eres principiante y no hay referencias explícitas y no cambia en nada le código que necesitas asumo que es lo primero... hacer un control de un rentacar queriendo indicar controlar un erntacar (en VB hay algo llamado control, de forma que cuando uno dice quiero hacer un control de... da pie a pensar en que se refiere a un control de usuario (que es cosa de programación) frente a un control como acción del verbo controlar...

Hecha la aclaración, paso a explicarte.
Te cuesta lograr lo que quieres porque tu base de datos básicamente está incompleta (amén de que puedas diseñarla mejor, como alegas que sólo es un ejercició para adquirir conocimientos, pasaremos por alto esto último para ceñirnos en completar tu BD), por tanto ahora viene un pequeño 'rollo', explicativo aclarativo que espero que te ilustre.

Una base de datos puede comportarse como sabes para reflejar lo que típicamente se conoce como 'altas' y 'bajas'. Esto de altas y bajas no es otra cosa que cambiar el estado de un dato, y más concretamente (para conocerse como alta y baja) está ceñido a solo 2 estados (a veces a 1 tercero que en tu caso sería conveniente contemplarlo auqnue casi siempre puede ser asumido en uno de los otros 2 estados anteriores... Estos 2 estados como puedes intuir son 'Si' y 'No'; cierto/falso,; 0/1; 0/255; etc... Esto en la práctica implica elegir entre 2 modelos de diseñar el funcionamiento de tu base de datos, el primer modo afecta a un campo de la tabla, el segundo modo afecta a todo el registro, se debe elegir uno u otro modelo independientemente, ahora en situaciones críticas, es más efectivo elegir un modo o el otro de acuerdo a como se utilice la base de datos, cantidad de conexiones, frecuencia de uso, cantidadde registros, cantidad de cambios, datos compartidos entre varios clientes, etc...

Ahora te aclaro estos modos (luego vuelve a repasar este párrafo anterior que te quedará más claro después de leer este otro). Cuando un usuario (de la BD) elige un modelo de vehículo ( ahora ya vamos a referirnos a cosas concretas para que te sea más fácil entenderlo) lo que debemos haceres ir a la base de datos y cambiar (ACTUALIZAR) el estado del modelo elegido (supongo que está regido en base a su matrícula (esto es, Matriicula es la clave principal de esa tabla, si en tu BD de ejemplo sólo tienes modelos, no importa, tanto en cuanto no haya modelos repetidos, si los hay, entonces hay que establecer una diferenciación y para ello lo mejor dado el caso sería incluir un campo matrícula que identifica cada objeto (vehículo) en particular). Es decir si un cliente eligió el modelo X cuando pasas el modelo X al listbox , también debes cambiar el estado para que la BD refleje el nuevo estado a 'NO'.  Para ser más exactos esto debería hacerse sólo cuando el cliente confirma al usuario (digamos que el cliente es el que alquila el vehículo y el usuario el operario de la rentacar que está atendiendo al cliente) que definitivamente se queda con 'esos' modelos. Lo normal es que los clientes estén dudoosos, te digan si, luego, ...añade ese, luego, ...quita aquél, ...este tiene un color feo cambiámelo por el de antes... y así... no vamos a sobrecargar la base de datos con cada cambio de parecer del cliente, sólo lo haremos una vez, y sólo si el cliente al final 'firma y paga' y sólo con los modelos elegidos, el resto de cambios del 'capricho' del cliente, sólo se harán a nivel de interfaz.

NOTA: Supongo que lo que llamas 'patente' es lo que yo designo como 'matrícula'.

Como ves hemos indicado que cambiamos el dato del campo disponible asociado al modelo. (Es decir lo hemos dado de 'baja' cuando el cliente ha elegido definitivamente el modelo X). Esto es suficiente cuando nuestra BD no tiene mucho trabajo. Si nuestra base de datos tiene mucho trabajo exige que en las búsquedas deba filtrar por el campo disponibilidad 'And Flota.Disponibilidad = "si"'... voy a asumir (cosa que nunca me gusta) que el objeto Tabal_rantacar es un objeto AdoDc o AdoDB, entonces en tu bucle Do ... While not ...EOF debes modificar la línea de añadido como te indico:
 

cuando una base de datos va a tener mucho trabajo, es más óptimo tener 2 tablas que contienen los mismo campos (pero el campo dispobilidad ha desaparecido), este campo se ve reflejado ahora en 2 tablas y las tablas se llamarían por ejemplo: FlotaActiva y FlotaInactiva, entonces cuando se de de baja un modelo lo que se haría sería tomar el registro del modelo X y añadirlo a la tabla FlotaInactiva, luego eliminarlo de la tabla FlotaActiva. Y viceversa, cuando el cliente entregue el modelo localizar el modelo en el registro de la tabla FlotaInactiva, copiarlo y añadirlo a la tabla FlotaActiva y luego eliminarlo de la tabla FlotaInactiva. El resultado es que el rendimiento de la BD es mayor (esto se nota cuando la BD tiene mucha carga de trabajo si no es el caso no se nota), por que sólo tiene que buscar sin tener que filtrar, lo mismo cuando vuelcas la tabla a un control, por ejemplo tu combo, no necesitas filtrarlo por 'if  tabla_rentacar("modelo").Value="si"  then', sino que tomarías todos tal como venías haciendo. 10 millones de registros implica 10 millones de preguntas (una por cada registro), si sabemos que la tabla SOLO tiene vehículos disponibles, la pregunta sobra y por tanto nos ahorramos 10 millones de preguntas. Espero que hayas captado la idea.

Te hablaba de un tercer estado, éste estado por ejemplo es modelo: 'Averiado'  y que al caso puede considerarse como 'no' disponible. Nuevamente si manejaras millones de registros y este valor fuera muy grande implicaría un retraso, por ejemplo cuando el cliente entrega el vehículo al localizar el modelo estamos preguntando a vehículos averiados si es el modelo que entrega el cliente, para darlo nuevamente de alta, pero sabemos que nunca vas a ser un vahículo averiado, por eso una tabla llamada FlotaAveriada, trabajaría con respecto de FlotaInactiva de forma similar a lo que hace FlotaActiva con FlotaaInactiva... imagina estos casos: Un cliente ha tenido un golpe contra una farola, una grúa se desplaza y se entrega en el taller, el del taller debe buscar el modelo x en la tabla FlotaInactiva y mudarlo a la tabla FlotaAveriada, y así consta que el Modelo está entregado, si se dejara en FlotaInactiva podría pensarse que elcliente aún lo tiene en su poder, por tanto si se utiliza 3 tablas, sería conveniente cambiar el nombre de la flotaInactiva por el de Flotaalquilada, pués si en un momento queremos conocer el 'estado' de un modelo debe devolver su estado actual si sólo tenemos 2 tablas, estado nos dirá 'si, 'no' están disponibles, pero si queremos por ejemplo saber si un modelo no ha sido entregado o no, esto no es suficiente, los averiados obran en nuestro poder pero estándo inactivos parece que estuvieran alqulados y que el cliente no lo entregó aún, luego realizar la pertinenete factura para cobrar sería complicado determinarlo y puede dar pie a situaciones de equívoco, esto es fácil de evitar si se mantiene una 3ª tabla FlotaAveriada y para clarificar FlotaInactiva sería conveniente cmabiarlo a FlotaAlquilada...

Espero que toda la parrafada, te resulte útil a la hora de diseñar tablas, y si bien para modelos de prácticas y aprendizaje esto no tiene importancia, pero existe la posibilidad de que se convierta en vicio o que uno piense: 'siempre me lo enseñaron así y siempre me funcionó' y por ello tener bajo rendimiento cuando se nos presenta un caso de una BD con mucho trabajo.

También quiero aclararte otro punto, al trabajar con ADODC ( ADODB, ADOR,etc...), es conveniente hacer que el recordset esté ordenado, porque entonces pueden hacerse búsquedas binarias y entonces si que el rendimiento se eleva, además en el uso de 'controles dependientes', como es tu caso (al usar un combo), puedes referirte a registros en el combo que coinciden con registros en el recordset, lo que significa que puedes emplear su índice (en el recordset sería leer o establecer absoluteposition) que es todavía más efectivo que buscar incluso aunque sea una búsqueda binaria. Para que esto sea así, tu combo también debe tener la propiedad sort establecida a true. (sólo el combo que recibe el volcado de la BD no el combo donde se transfieren los modelos que el cliente elige, éste es mejor que el orden sea en el que se introducen.

Para ordenar el recordset tienes que modificar la línea de conexión, seguramente tengas algo como 'Select * from Flota' pués ahora deberías cambiarlo a: 'Select * from Flota OrderBy Modelo' ,( porque es el modelo lo que añades al combo).

Para que esto último se aplique correctamente, es necesario tener en cuenta otro tipo de cosas, por ejemplo si el recordset aloja tanto los modelos disponibles como los que no, el índice del combo no reflejará correctamente el índice del recordset si lo hemos filtrado, entonces tenemos 3 soluciones posibles:
1 O bien mantenemos 2 tablas (como se indicó más arriba)  .. es lo más fácil y lo más cómodo.
2 O bien eliminamos el filtro al obtener los ítems del recordset para añadirlos al combo, pero a cambio tenemos 'desactivar' los modelos nos disponibles.
3 O bien utilizamos la propiedad Itemdata (del combo) , para retener el índice posicional dentro del recordset.

Termino el post detallando acerca de estas 3 posibilidades:
1  Al mantener tablas separadas para los elementos disponibles y  los no disponibles, se toma el recordset completo, no necesitamos filtrarlo y por tanto todo lo dicho sobre sortby (para el recordset) y sorted (para el combo) es válido.

2 Dado que un combo no permite 'desactivar' elementos individuales, deberíamos remplazar el combobox por un listbox y a dicho listbox cambiar la propiedad style a Checkbox, al rellenar la lista lo que haríamos sería seleccionar el elemento indicando si el modelo está disponible o no. Esto se debe complementar con un filtro, de modo que cuando el cliente elija un modelo de verificarse que no sea un elemento 'no seleccionado'. Algo de código para recoger este caso sería...
Este 2º método tiene en contra que al mostrar modelos tanto disponibles como no, despista al usuario, hace la lista más larga de lo necesario (imagina 120 modelos seguidos no disponibles, el usuario se cansaría de hacer scroll para localizar modelos disponibles).

3  Este método es el más sencillo de aplicar tal como tiene la Bd (además en este podrías omitir ordenar el combo y el recordset, aunque si hay que hacer búsquedas en el recordset (moverse de modo diferente a movenext, moverfirst, etc..., esto es usando 'find'), entonces siempre interesará tenerlo ordenado para poder hacer búsquedas binarias.), de entrada seguimos fltrando , el combo sólo se rellena con modelos disponibles tal como te indicaba en los primeros códigos... Para vincular correctamente los elementos del combo junto con los registros del recordset, utilizamos la propiedad itemdata del combo (list) que sirve precisamente para esto.

Usando este 3º modo, cuando copiemos el valor del combo al listbox que ha elegido el cliente también debemos copiar el valor de itemdata. Cuando el cliente finalmente pulse el botón aceptar (vamos que paga y alguila los modelos elegidos) es cuando actualizamos y para ello usamos los itemdata que reflejan el nº de registro del recordset. Un posible código (simplificado) que hace esto sería:
Esto sólo funcionará bien si el recordset no ha sido modificado, si se eliminaron o añadieron registros, no funcionará en dicho caso habrá que moverse por el recordset usando 'find' para posicionarse sobre el registro correcto, para hacer el cambio oportuno.

Hay muchas más cosas que decir, pero la verdad, me da pereza responder temas de bases de datos porque es tan amplio y cada circunstancia lleva aparejada tantas condiciones y los posteadores omiten tantos datos  y demás cosas que una pregunta simple por un supuesto error se acaba convierto en una cacería de errores por lo general por falta de formación y los posts se hacen larguísimos para explicar los entresijos de cada detalle con claridad... para muestra este mismo post.

Saludos.

Bueno, hay cosas que sigo sin entender, son detalles que sólo tu sabes.

No obstante eso no quita para te pueda indicar una línea de trabajo....

Yo te expongo un código que luego debes completar y adaptar a tus necesidades. Como no he podido descargar hasta hoy los otros 2 ficheros (tras descargar el fichero *.plf el 'gigasize' me indicó que alcancé el límite),  ... pués no he visto que lo trabajas todo en excel.

Hay partes que está comentada y parte que tiene código, te lo meto todo en un archivo rar, lo abres y lo miras detenidamente, para hacerc cambios hazlos sobre una copia,a así quedando este intacto, podrás volver a ver el original cuando lo necesites. Obviamente tendrás que modificarlo bastante para adaptarlo a excel.... Sin embargo está bastante comentado, como para que puedas hacer un seguimiento casi completo  sin perderte.

De todas formas te lo voy comentando por encima...

Tenemos un formulario, tiene 3 botoners, uno de iniciar y otro de detener, el tercero sólo aparece si ocurre aalgún error inesperado, el resto de la interfaz sólo tiene propósitos de aclarar el estado del proceso.

Los estados posibles son EnEspera de iniciarse(a fin de cuentas parado) , petición de inicio, inicio, petición de parada, parado.
Cuando el estado es petición de inicio, el timer se pone en marcha e invoca un método de una clase que es quien realiza todo el trabajo. Si tiene éxito dispara un evento 'procesando', entonces el estado pasa a ser iniciado. si ocurre un error el estado pasa a ser parado.
Cuando se pulsa el botón de parar, el estado se establece en petición de parada, la parada sólo ocurre cuando se termine de procesar los datos actuales. cuando esto ocurre se dispara un evento de terminado.

Estos botones 'fluctuan' ,  con el disparo de dichos eventos (procesando y terminado) habilitándose/desahbilitándose y cambio el color de fondo de los mismos, lo cual está controlado de modo general por el timer...

Cuando se inicia la aplicación se crea una instancia de la clse 'Trnsformar'  y se invoca una función de ésta, la idea es que en esa función busquees el fichero inicial de entrada, debes también asignar las rutas a las variables de dichos archivos (entrada y salida)

El resto de la interfaz son el propio timer y 2 shapes, para indicar estados... adicional al estado que marcan los botones, para distinguir la fluctuación de los botones del estado global.

Como el código del formulario es bastante 'sencillo', creo que no necesita más comentario
El código del formulario  es éste:

La clase se compone de algunas enumeraciones, yo sólo he puesto la de 'eventos', que parece la más obvia y una matriz que se correponde indice a indice con esta enumeración. el resto de enumeraciones que precisares podrías tratarlas del mismo modo.

He tratado cada 'linea' como una estructura, supuse que tu idea inicial era guardarlo como fichero, te texto plano... Cyuando el timer entra en marcha, invoca una función de la clase que se dedica a procesar, hay bastante descripción detallada que señala los pasos que se deben seguir, naturalmente ni está completo ni es obligatorio, deberás añadir, quitar y modificar de acuerdo a tus necesidades, yo sólo te proveo una orientación...

Esa función determina si el fichero en seguimiento ha variado de tamaño, a fin de determinar si se debe seguir leyendo del mismo, intuyo que algo al final de  un archivo debe ser indicador de que el archivo está completo, a falta de ello verificar el tamaño es una opción (más pobre pero que sirve). Si el fichero estuviera completo, se debe localizar el siguiente, se llama a una función que realiza esa labor.

Una vez localizado el fichero (si es otro distinto del anterior) se llama a una función que lee el contenido del actual archivo de entrada. Lo leemos todo de una vez (vb6 puede leer perfectamente incluso 10Mb. en menos de 1 sg.) y lo troceamos en líneas, asumimos que cada línea está separada de la siguiente por un retorno de carro y avande de línes (CR= CarryReturn , LF= Line Feed) ó vbCrlf en vb6. Esta función devuelve por referencia el número de líneas contenidas. Si el fichero no está al inicio se posiciona el cursor en la posición actual de lectura, antes de leerlo, lógicamente y guardamos el cursor de lectura tras tomar los datos, luego se cierra el archivo y se devuelve la matriz de líneas

Tras tomar la matriz de líneas si lineas -1 (error ocurruid) ó 0 (no hay texto ???) dispara un evento de error y sale de la función, en otro caso se invoca a otra función, la que va a realizar la transformación de estas líneas en las que tu quieres.

La función que formatea las líneas, está a medio codificar, hay datos que yo no tengo y lógicamente no se en base a que han detomar una u otra constante, a mi la línea, por ejemplo: '2009.05.04 15:42:28 MESSAGE    PLY0023,23,3,~CM100GEN', no me dice gran cosa, es de asumir que el código de mensaje responde a un manual de operativa de la máquina , yo he tratado las fechas (sesupone que la fecha de inicio de una operación es la fecha de finalización de la anterior), y  he calculado  la duración usando una funcion de fecha, para totalizar segundos. El resto de esta función son sugerencias, por ejemplo verás un bloque 'select case', donde debes procesar la parte de 'mensaje', imagino que el resto de texto a la derecha se interpreta de modo uniforme de acuerdo a ese 'mensaje'.

finalmente en la misma función indicada anteriormente, te ofrezco 2 funciones de salida a fichero (es loque creía que tenías que hacen antes de descargar estos ficheros de excel). Nota que la salida en binario siempre será más rápida y cómoda pero ofrece un fichero ilegible a la vista si lo abres con el 'bloc de notas' (igual que sucede si abres un archivo excel con el mismo 'bloc de notas'), un 2º método te ofrece guardarlo en formato de cadena, es siempre más lento, porque  tiene que hacerse a través de un bucle línea a línea.

No obstante esta (última) salida es aceptable para excel... excel permite importar ficheros de texto, interpretando como fila de excel cada línea de fichero e interpretando como columna cada dato separado de otro. con esto tienes pués 2 caminos a seguir para crear tus archivos excel, tomar todo el código y adaptarlo, completarlo a tu proyecto actual o crear un nuevo proyecto, completar este que ten envío y luego importar a excel el fichero ya elaborado, las 'fórmulas'  que tengas en excel, te siguen valiendo... Sólo cambia el método de adquisición de datos.

El código de la clase es éste:

Considero que tienes bastante materia como para poder completar tu proyecto.    Si tienes alguna duda, consulta, pero sé explícito y no des por hecho que la ¿ troqueladora ? , ¿ torno ? , la hemos fabricado nosotros ni tampoco el programa que la maneja    ?. Mejor si son preguntas concretas, las preguntas genéricas dispersan mucho la respuesta...

envío y luego edito para adjuntar el fichero:

Ok.

Añadimos un módulo al proyecto (siempre que se comparte código entre 2 o más formularios interesará  tener funciones disponibles desde ellos), al iniciar el proyecto invocamos una función que es la que recoge datos para una matriz, metemos en una matriz datos referentes alos combobox que comparten el mismo contenido. Los combobox que no comparten el mismo contenido no tiene aliciente incluirlos.

Para que repares en el código he separado la carga de los combos de igual contenido para que sea llamado desde un botón en el formulario 1,( llena 1 combo del formulario 1 y 2 combos del formulario 2). La carga de los combox que son diferentes se hace desde la función inicial.

El origen de los datos no importa, yo he provisto para los combos compartidos que el origen se tome desde una constante ( de países) que figura en el formulario 1, pero igual podrías tomarlo de un fichero o de un bucle con inputbox...

Los combos que tienen diferente contenido no queda más remedio que llenarlos 1 a uno, por tanto para que puedan llenarse desde la misma función en dicha función debe proveerse el contenido que se ha de alojar en ellos. En dicho sentido he 'simulado' 3 orígenes diferentes, un combo utiliza una contantes cuyo contenido es una cadena que contiene nombres de animales separados por comas,  haciendo un 'split' ya tenemos una matriz. La siguiente es una matriz declarada in situ, elemento e elemento. El tercer combo se rellena con una matriz de longs cuyo contenido se ha recreado obteniendo aleatoriamente valores en el rango 1-100 millones.

Estudia el código, pruébalo y si te queda alguna duda consulta, aunque no he utilizado nada que resulte complicado de entender. Luego haz una copia del proyecto y modifícalo a tus necesidades (conviene que dejes una copia sin alterar para consultar si 'de repente' algo falla.

Te adjunto el código enun archivo comprimido en rar a continuación (envío y edito porque antes se me ha bloqueado y he tenido que rescribir todo el post de nuevo).

Tu aplicación debe estar controlada por un temporizador, un control tinmer con el intervalo puesto a 30000 (milisegundos).
En el evento de consumo del timer, debes poner una llamada al procedimiento que realiza la labor.

El procedimiento lo  que hará será tomar los ficheros que hay en la carpeta. Para  esto será útil disponer de un objeto filesystyemobject (añades una referencia del Microsoft Scripting Runtime), y algunos subobjetos de éste. Un objeto folder y 2 objetos file, uno para recorrer el bucle y el otro para asignación cuando se comparen fechas yéste sea más reciente.
se hace un : set elFolder = fso.getfolder(ruta)
y a continuación un bucle: for each f in elfolder.files ....
A partir de aquí puedes hacer una de 2 cosas, fiarte del nombre de archivo que (como indicas) contiene una especificación de fecha en su nombre, o no fiarte de dicho nombre y preferir la fecha de creación, o modificación del fichero.

Se trata por tanto, en este bucle de localizar el de fecha más reciente, una vez localizado (ya fuera del bucle) hace una llamada al procedimiento que tiene que operar con el fichero pasándole preciamente el objeto file. y ahí ya trabajas  con él.

Debes tener algunas cosas en cuenta...
- por ejemplo  si la aplicación que elabora los ficheros los tiene bloqueados hasta que termina de utilizarlos, no podrás usarlo, entonces tendrás que utilizar el fichero justo anterior a éste e ir por tanto siempre un fichero por detrás... si hay más de una aplicación escribiendo ficheros en esa carpeta esto te exigirá esmerarte más en recoger el archivo deseado.
- Si tardas más de los 30segundos en localizar y manipular el archivo se te iría acumulando trabajo y memoria, para evitar que el proceso se atasque, sería conveniente disponer de un portero en el timer, si no has terminado de operar con el fichero actual, sale del timer sin buscar el siguiente fichero, dándole otro plazo de 30sg.

- Si la carpeta contiene infinidad de archivos y/o son de diferente tipo, tal vez te interese más utilizar un objeto filelistbox y sobre el estableces un filtro. De entrada el filtro sería sobre la extensión de archivo. ' *.plf' y después dado que el propio nombre incluye datos relativos, a la fecha del  proceso deberías ir actualizando este filtro, por ejemplo si el último fichero fue 2009_05_04 15_42_28 YF00D.plf  y sabemos que cada hora al menos se crean 2 (por poner una cifra) entonces tomas como filtro la longitud del fichero que has usado, hasta el patrón del fivhero anterior '2009_05_04 15*.plf , nota el asterisco. Si la lista queda vacía sin duda ha cambiado la hora de 15 a 16, siempre que ocurra esto retiramos el último carácter al patrón de filtro anterior al asterisco, esto hasta que a lo sumo llegue el salto al año, una vez que se encuentra la lista con contenido el siguiente patrón de filtro volverá a ser el nombre del fichero entero menos el último campo (la referencia de pieza ignoro el patrón que sigue por tanto ahí deberás asegurarte tú), con este filtro, lo que consigues es que la lista de ficheros sea muy pequeña y por tanto sólo tendrás que localizar entre esta lista el más reciente. En este caso el cometido del timer será primero actualizar el fltro del filelistbox, como se ha comentado hasta que la lista tenga al menos 1 fichero.  Eso si en este caso cuando arrancas la aplicación el primer fichero debe localizarse fuera del uso del timer, no tienes más remedio que recorrer toda la lista completa para localizar el más reciente, luego ya se usará ese nombre como filtro en las sucesivas llamadas.  Ahora bien si sólo hay 40 ó 50 ficheros en la carpeta no habría diferencia entre usar el filesystemobject y el filelistbox

Ten en cuenta que el filelistbox, filtra la lista de ficheros que en realidad no es otra cosa que recorrer los ficheros de dicha carpeta y ver si el nombre cumple el patrón, algo que igualmente podrías hacer con el filesystemobject, no obstante el filelistbox te ahorra trabajo en ese sentido. Si la lista de ficheros es muy grande habría de mirarse si resulta conveniente ir pasando ficheros a otra carpeta, a fin de que esta lista siempre sea lo más pequeña posible...

Saludos.

mensaje duplicado...

Juego del mastermind. Se incluye el ejecutable. el codigo fuente. (version actualizada)

En la descarga del archivo se incluye un txt con el manual que igualmente es accesible desde un boton del programa.

Cualquier error o duda que surja con el programa podeis avisarme con un mensaje personal o si es posible por esta pagina mejor.

El juego esta programado en Visual Basic 6.0 y responde a una conversacion del foro sobre dicho tema.

Aparte de la logica del juego tiene de interes el uso de \'arrastrar y soltar\' que se utiliza en el juego y donde facilmente se observa su potencial y la facilidad de control de dicha funcion.

El codigo del juego ha sido diseñado sin usar complejidades. no se utiliza ninguna funcion API ni se utilizan mas controles que los estandard que aparecen en el entorno de Vb6 por defecto a fin de que sea asequible para los principiantes. Se han dejado a proposito  varias areas para que puedan ser optimizadas.

El diseño grafico del juego parte de un simple lienzo gris (con gradiente) al que se le ha aplicado una textura de madera modificada para parecer corcho despues se le ha aplicado un efecto \'boton\' primeramente interno usando un perfil determinado y luego esterno sin perfil  usando  un color caoba para acompañar a la textura. Las sucesivas cajas se han creado de la misma forma partiendo del lienzo inicial al tamaño conveniente. Las imagenes finalmente se han superpuesto juntas para formar el tablero base.

Cada boton se compone de 3 imagenes creadas del mismo modo el texto esta inserto como imagen la imagen \'down\' es la imagen \'on\' espejada vertical y horizontalmente los textos se han añadido al final de la imagen  la imagen \'off\' es un negativo de la imagen \'on\'.

Para las bolas se crearon 2 en photoshop  de una de ellas han salido el resto aplicando el efecto \'colorear\' la bola blanca es la 2ª creada y de ella se ha sacado la negra ya que no era posible sacar con calidad adecuada la blanca y la negra partiendo de la 1ª.

Para que el juego no sea excesivamente rapido y a la vez sea distrai­do se ha proporcionado una pequeña animacion en forma de \'cortinilla\' que se va desplazando a medida que se rellenan lineas.



Autor: NEBIRE

Es irrelevante cuantos formularios tengas... y cuantos botones buscar tengas.
En todo momento nos estamos refiriendo sólo a 2 formularios, el que llama y al que quieres llamar y sólo nos importa un botón buscar, auqél que localiza en la tabla correspondiente los datos de persona.

Al pulsar ese botón tu realizas una consulta a la BD ( con la cédula como criterio de búsqueda). Por tanto es este mismo procedmineto donde debes hacer la asignación de los datos recibidos a la estructura persona, (o llamar al procedimiento que lo haga).

El asunto ya te lo he aclarado, creo yo, que lo suficiente, si le das muchas vueltas es posible que te acabes liando, como el gato que juega con el ovillo de lana. Así te lo resumo para que no veas cosas raras

Solo hay 3 pasos:
1 Un procedimiento llama a la base de datos y obtiene unos datos
2 Ese mismo u otro procedmiento coloca los datos obtenidos en una variable que es accesible como mínimo desde este formulario y desde el formulario que mostrará el resultado. Esto signiiifica que pueden ser 3 ubicaciones (lógicas), una variable pública de tipo persona que esté o en  uno de los 2 formularios o en un móodulo.
3 El formulario que lo va a mostrar toma la estructura persona y la vuelca en unos textbox, labels, msgbox, dictado por voz, o lo que quieras.

Ya está, no hay nada más. No le añadas complicaciones, es así de sencillo.
Después, sólo he indicado, que mis explicaciones son simplemente una guía que tu debes adaptar a la situación específica de tu proyecto hay diferentes formas de manejar datos, en explicaciones es más sencillo indicar estructuras, luego uno quizás use un objeto TableDef o cualquier otro tipo de objeto. Tú tienes que tomar la idea, no necesariamente tomarlo al pie de la letra.

Dos objetos sólo pueden comunicarse entre sí, si ambos conocen ó reconocen un objeto (o ruta de objetos) accesible por ambos. Hoomer Simpson sólo podrá enviar una carta a King-Kong, si conoce el domicilio de King-Kong o si conoce a alguien que conoce el domicilio de King-Kong y actúa de intermediario. La variable Persona en el módulo es ese intermediario, FormConsulta tiene acceso al módulo (que actúa como una oficina postal, almacena el paquete en la caja adecuada a su contenido) y mete los datos en un el paquete adaptado a 'Persona', luego le manda un mensaje a formExhibir y le dice, oye te he mandado un paquete lo tienes donde hemos acordado (la oficina postal x)... y formExhibir va a la oficina postal y recoge el paquete 'Persona' abre el contenido y hace con ello lo que quiera hacer... incluso podría modificarlo y enviarlo de vuelta...

Más no te puedo decir, es cuestión tuya que lo entiendas o no. Yo espero haberme expresado con la suficiente claridad, para que sea que si, que lo has entendido.

p.d.: colocar enlaces es un derecho reservado a los usuarios cuando tienen un mínimo de mensajes publicados... no recuerdo el nº,  es una pequeña medida para evitar spam... No obstante no es necesario que envíes imágenes, en mi anterior mensaje mis dudas eran porque me parecía extraño que no sepas añadir un módulo de código al proyecto. Un principnate lo primero que debería de hacer con el entorno de vb es familiarizarse con el menú del programa...

Saludos.