SoloCodigo

Hola oye yo tengo ese problema pero me dice ke no
me marca error de loadlibrary
 por ke??

No entiendo tu pregunta/problema, puedes explicarte con más detalle ?.

una tabla de 6 columnas y 30.000 filas,
todos los elementos son enteros del 1 al 50,
cada fila están ordenados ascendentemente, y no puede haber ninguno repetido.

quiero saber el número de elementos coincidentes que hay entre cualquier pareja de filas...
dificultad viene a la hora de buscar una solución lo más rápida posible ya que comparar 30.000 filas con todas las demás son unos 450 millones de comparaciones solo a nivel de fila con fila...
Más luego las comparaciones de los números dentro de cada pareja de filas....

Particularmente este tipo de problemas tratándose de números enteros tiene una fácil solución, más cuando se conoce el número mayor de la serie y especialmente si es lo más pequeño posible, en tu caso concurren las 3 situaciones. La solución no lleva más de una décima de segundo para las 30.000 filas, he utuilizado algoritmos similares para varios cientos de millones y llevaba aproximadamente unos 20 minutos, creo recordar que la última vez utilicé uno de unos 10 millones y tardó unos 35 segundos (en mi equipo de casa que va a 1500Mhz.).

No obstante para ponerte un ejemplo de código debo entender exactamente que tratas de decir con: 'número de elementos coincidentes que hay entre cualquier pareja de filas', ya que es obvio que no está claramente especificado que pretendes hacer, hay un puñado de cosas diferentes y parecidas entre sí que se 'acoplan' a ese concepto de forma generalizada. Esto es:
1  tu quieres recorrer todas las filas y desechar primero todas las repetidas (que haya una única copia de cada una de ellas si/no).
2 recorrer todas las filas y encontrar todas las coincidencias de al menos 1 elemento (columna) con respecto a  1 fila concreta si/no.
3 Ordenar todas las filas en orden ascendente/descendente si/no.
4 Cuando varía un elemento     se considera una variación sólo si está en la misma posición, o en cualquier posición si/no, ...
5 ,6 , 7 etc...

Responde a esto y te expongo un par de ejemplos que resuelven lo 1º y lo 3º a la vez en sólo 1 recorrido y lo 2º y/o lo 4º en otro recorrido. Si tienes 30.000 filas un recorrido es un bucle de 30.000 filas.

Hay que crear unas pequeñas funciones que nos den el formato que necesitemos, te pongo un ejemplo con 3 funciones (sobrecargadas) que soluciona estos problemas... y de ,los que puedes deducir el camino a seguir para ajustarlo a otras ideas.

En esta primera función, se pasa el valor que se desea formatear y se pasa el límite que fija redondearse arriba o abajo. en el código del 'botón 1'  se muestra ejemplos y el resultado de llamadas con distintos valores.

En la siguiente función, que es una sobrecarga de la anterior se pasan 2 límites, uno inferior y otro superior si el límite superior es un punto superior al limite inferior se comporta como la función anterior también sucede este comportamiento si el límite superior es igual o menor que el limite inferior, pero si el límite superior dista del limite inferior se devuelve el valor que se introdujo sin formatear...

El 'botón 2' prueba el uso de esta función con algunos ejemplos.

En la 3ª función que es sobrecarga de las anteriores se muestra justo el caso que indicas. Esto es usamos 3 límites. Si la parte decimal es igual o menor que el limite inferior se redondea al entero menor más próximo, si la parte decimal es igual o superior al límite superior edondea al entero mayor más próximo y si no es ningúno de los casos anteriores se devuelve la parte entera + el límite medio fijado.

Nota que el límite medio no realiza comprobaciones de si está en un rango dado, esto sólo sería necesario si quisiéramos indicar 4 límites. Lo que hace es que si no es ninguno de los 2 casos anteriores. En tu pregunta los valores para estos límites deberían ser:  redondear( valor, 0.25,0.75,0.5  )
El 'botón 3' muestra unos ejemplos del uso de esta función y el resultado a cada caso.

Math.Ceiling, Math.Floor y math.Round son funciones de redondeo, la 1ª devuelve el entero siguiente al actual, el 2ª ídem pero aplicando el inferior, el 3ª devuelve el entero más próximo, hemos usado floor y ceiling para contruir nuestro propio formato de redondeo. La traducción literal de ceiling y floor es techo y suelo, para que no parezca algo 'raro' o misterioso...

Si tienes que hacer bastantes más cosas al respecto podría interesarte realizar una pequeña clase de matematicas donde vas reuniendo este tipo de funciones.

Además las funciones no son fijas en el sentido de que en cada llamada podemos fijar unos límites distintos. si creas una clase podrías especificar unas propiedades con dichos límites (que podrían definirse con el constructor de la instancia) y así no pasar en cada llamada a la función estos valores sino que los recogería internamente... eso queda como ejercicio para tí.

Cualquier duda que tengas pregunta...

Constantemente convierten hilos de VB en offtopic ! y se generan discusiones tipo chat, las cuales no deberian de permitirse ya que desvirtuan el hilo, y lo deforman con mensajes sin razon y en ocaciones rayando en lo estupido , el sitio cuenta con una seccion para hablar de lo que sea se llama Taberna del Bit y tambien creo recordar que hay una area de chat.

En lo personal se me hace bastante molesto leer mensajes que NO SIRVEN PARA NADA , en los subforos especificos para un tema DE PROGRAMACION, generando BASURA que despues indexan los buscadores , que restan reputacion  y seriedad a este sitio , ya me ha tocado llegar a solocodigo a traves de google por temas que no son propios del contexto de este foro.

Valoremos el contenido de nuestras respuestas para cuidar, la informacion que tenemos y la comunidad a la que pertenecemos y no llenemos de basura solo por responder.

 
Saludos

Totalmente de acuerdo.

Recuerdo a quien lo haya olvidado que también existen los mensajes privados para cuchichear de modo ajeno al tema del foro y para esos intercambios de tipo rifi-rafe.

Es cierto, a todo lem undo se le hace extraño...
Te respondo brevemente:

Si en vb6.0 querías hacer una línea dentro de un picture hacía como indicas picture1.line(xo,yo)-(xf,yf),color . Al hacer esto fíjate que el grueso de línea y algunas otras opciones gráficas quedaban definidas por el contenedor donde se dibujaba es decir picture1.DrawWidth  implicaba el ancho de los métodos gráficos referidos al picture1.

Ahora en VB2005-2008...  se ha querido separar e independizar, te pongo un ejemplo que será más significativo y te comento dentro del mismo:


Supongo que ya te atreverás a graficar sin problemas...

El código lo puedes ejecutar desde un botón o si prefieres desde un timer (como indicas), eso ya al gusto de cada uno.

Cita de: "Nebire"

En política y religión, rara vez los argumentos satisfacen a alguien al punto de que cambie de opinión.

Habla por ti...

Esto que dices es una tontería típica de no saber que responder. Si alguien te pregunta que tienpo hace ahí ... tu no contestas en mi casa hace esto, sino que dices AQUÍ hace esto, y al decir aquí te refieres a la población donde resides. De igual forma resulta tonto decir eso de habla por tí... lo que he dicho anteriormente es algo que cualquiera habrá comprobado día sí y día también a lo largo de su vida.... por tanto generalizar es lo más correcto además tu respuesta es aún más estúpida cuanto que yo no he afirmado 'nadie ... cambia' sino que he admitido las excepciones posibles al decir 'rara vez ... alguien cambie'.

Cita de: "Nebire"

en el supuesto caso de que Chávez quedara como presidente, yo me iría del país

... ten en cuenta que lo cuenta en la democracia no es TÚ opinión, sino la de la mayoría.

Ya empieza a ser costumbre... te columpias diciendo cosas que no te has molestado ni siquiera en verificar. Mira este enlace: http://es.wikipedia.org/wiki/Regla_de_la_mayor%C3%ADa donde te indica claramente que 'La regla de la mayoría no debe ser confundida con la democracia, aunque ésta suele hacer uso de ella aplicada al pueblo elector. Sistemas no democráticos utilizan la regla de la mayoría en muchas ocasiones, y los sistemas democráticos suelen no utilizarla en muchas ocasiones....'  
 y un poco más abajo...
'...Frecuentemente y de manera errónea, se confunde «democracia» con regla de la mayoría. Es cierto que la democracia liberal moderna, tiene como una de sus reglas principales la aplicación de la regla de la mayoría, aplicada al pueblo, es decir a los ciudadanos, y principalmente para la elección de autoridades. Sin embargo, por un lado los sistemas democráticos tienen infinidad de mecanismos que atenúan la regla de la mayoría (refiriéndose a la mayoría del pueblo) y en otros casos mecanismos de decisión que no la utilizan en ningún momento (las decisiones presidenciales, las decisiones judiciales, etc.). Por otra parte sistemas no democráticos utilizan frecuentemente la regla de la mayoría para tomar decisiones, como por ejemplo la elección del papa por los cardenales en la Iglesia Católica, la toma de decisiones en una junta militar, etc...'

Actualiza o mejor aún corrije tus supuestos conocimientos sobre democracia, no son correctos para nada. No puedes pretender dar lecciones sobre Democracia a nadie.

En Venezuela Chávez ganó DOS referéndums (que todos los organismos internacionales calificaron de limpios, incluso los yankis) y sobrevivió a un golpe de estado que no fue condenado por ninguna de las supestas "democracias" occidentales....

Te olvidas... que también en Venezuela, él mismo protagonizó un golpe de estado, pero... ah, claro si tu eras muy chiquitín, ni siquiera te dabas cuenta de lo que estaba pasando... será por eso que lo has olvidado o será que quizás esté prohibido recordarlo.

¿Queréis democracia o queréis yankilandia? Esa es la cuestión. No confundan ambas cosas.

Ya ha quedado patente tu visión y conocimientos de lo que entiendes por Democracia, deja de usar una palabra cuyo significado desconoces en absoluto.
Por otro lado habrá que buscar un término para definir a los maniáticos que una vez tras otra cuando alguien no está de acuerdo con una postura de tipo político asume que sólo existe su postura y la de 'yankilandia'. De entrada se llama Fijación pero es algo más que eso... Supongo que Chávez  debe haber sodomizado a parte de la población a través de 'su canal de noticias' (único en el mundo) donde sólo suelta panfletadas contra Bush y en general contra  tú 'yankilandia'... de tanto repetir el estribillo ya se os ha quedado a alguno. Se sirve de ese dicho popular que dice:  'Calumnia que algo queda...'

Bush es ya historia... veremos que pasa cuando finalice el plazo de Chávez que 'tú mayoría', votó porque no haga ni un mandato más. Veremos si cuando ese plazo venza podremos decir que ya es historia y veremos si no tendremos que volver a habalr de él por su implicación en turbias historias... Veremos si es capaz de asumir la decisión de la  mayoría que él mismo convocó.  

p.d.: Espero que dejes de utilizar la palabra Democracia contínuamente en tus post habido como se ha demostrado tu desconocimiento del significado auténtico de esa palabra... Mira que creer que Democracia = opinión de la mayoría    

Hola.

Nunca he usado esas API, pero un vistazo rápido al visor de API, confirma mis sospechas... Te adjunto la declaración original de estas API y las estructuras para VB.6 que obviamente deben ser correctamente interpretadas para vb > 6.0


Como puedes ver , debes cambiar los tipos de datos originales, un long en vb6.0 es un integer (int32) en vb2008.
Haz también las correcciones pertienentes en la sub InitJoy (xJa, xRj deben declarase como integer visto la devolución de las API).

luego yo haría los siguientes cambios:

Yo no tengo Joysticks así que no puedo probarlo...
Una vez que arregles ese desaguisado de los tipos de datos, si tienes más problemas vuelve a preguntar con el error devuelto

No sé en que podremos ayudarte. el trabajo lo tienes que hacer la persona a la que han contratado al efecto, si eres tú, pués eso.

A preguntas puntuales siempre se podrá responder, pero si se te queda grande porque no conoces Delphi, te va a ser difícil por no decir imposible, llevar a cabo la tarea que te han encomendado...

Yo que tú pediría la planificación inicial (esquemas y demás) y trataría de montarlo desde ahí (si es que tenían algún plan y si se ciñeron a él, si luego han ido añadiendo y quitando sobre la marcha esas partes tendrías que trabajarlas revisando el código...

mensaje repetido

Es normal que no te devuelva correctamente ....
Tienes varias cosas que corregir, pero sólo me voy a ceñir a las 2 funciones del módulo

1º ) Esta declaración: 'Function mx(may As Integer)' (y la otra del menor) , cualquier declaración de una función sin tipo de retorno se entiende como Variant, sin embargo se observa que recibe un entero,y viendo lo que hace sería pués lo correcto que devolviera un entero tal que declararla así: 'Function mx(may As Integer) as integer' . Si en una función no vas a usar el parámetro de retorno y lo devuelves por referencia directamente desde el parámetro, entonces sería mejor que fuera una sub en vez de una function. aunque en algunos casos una sub pueda funcionar más rápido en devolver valores que una función, sólo interesa cuando la cantidad de llamadas es muy grande y no usamos inmeditamente el valor devuelto, ya que si esto último no se cumple no existe ventaja en la velocidad.

La función (funciones) que tienes son un ejemplo donde es conveniente devolver el valor como devolución de llamada porque el valor es un resultado final, si una matriz fuera evaluada sobre un sólo ítem la llamada a la función sería acorde que se devolviera con byref a través del parámetro dejando la devolución de la llamada libre para devolver una circunstancia concreta, ya que sería un valor 'medio' de un proceso mayor y no un proceso final en sí mismo.

En una función no conviene usar otroas variables que las declaradas explícitamente dentro de la misma, a través de sus parámetros y/o algunas constantes globales, así usar 'list1', no es lo adecuado, porque al hacer eso restringes la capacidad de una función, ya que la fuerzas a trabajar a una parcela concreta (sólo funciona con esa lista) si en cambio le pasas como parámetro un listbox la función podría aplicarse a cualquier lista que le pasaras y no sólo a list1.Es decir le estás restando universalidad a la función.  Pero bueno, supondremos que es sólo un ejercicio...

Si como dices esas funciones están en un módulo, duiudo que funcionen ya que marcarían error al usar list1, y en ese caso se debería indicar como form1.list1... por lo que queda claro que no lo tienes en un módulo como señalas sino dentro del formulario.

En la devolución de las funciones (las dos) lo que devuelves es 1, fíjate ya le dices después de hacer lo que sea que 'mx = 1', por tanto lo que devolverá es 1. Por otro lado puesto que no declaras may dentro del parámetro se sobrenetiende que es byRef por lo que todavía podría funcionar, sin embargo al recibir la llamada, ignoras ese valor en favor del retorno explíxito de la llamada.
'n = mx(may)' . O usas call mx(may) y sigues usando may hasta el final o usas mx= may al final de la función.

También se observa en relación con lo anterior un intento mísero de querer tener control del resultado de la función cuando usas: 'If n = 1 Then', sin embargo resulta absurdo desde el momento en que nunca tiene oportunidad de ser un valor distinto de 1 ya que la función al final hace un si o si  'mx = 1', esto sólo puede variar cuando haya un error y en ese caso ya el propio entorno se encarga de parar la ejecución porque tampoco existe control de errores (si es que esperaras uno, sobre código adicional que hayas retirado al mostrar el ejemplo).

Luego veo que en el supuesto módulo declaras variables globales a variables que se repiten dentro de una y otra función, al respecto debes saber que las variables de una función 'nacen' y deben 'morir'  en la función, así la línea 'Dim nume, j As Integer, y As Integer, i, p As Integer' es casi un insulto a la función, pués que impide en un momento dado usar i ó p en otra función y obtener errores porque de entrada no eran 0, debo recordar si el valor que tiene actualmente me es útil al caso presente o acaso si es opuesto ?.... esto no son formas...
 
En fin en tan poco código produces tantos y tantos errores que se me han quitado hasta las ganas de resolverte las dudas... porque creo que igualmente sólo serviría para cometer otras decenas de atropellos... sólo puedo recomendarte que dejes el código de momento, y que no vuelvas a escribir una línea más hasta que te hayas leído por lo menos un manual que sepas que es una variable, qué es una función, que es un método o subrutina, etc, etc, etc... de lo contrario adquirirás muy malos hábitos que luego te costará mucho corregir y serás un programador caótico e ineficiente sin futuro alguno.

Hola.

El problema que tienes es que tu tomas del texto carácter a carácter, luego en el bloque select case le dices que si es uno de aquellos a 'b' se le añada tal... pero claro elo código morse no es un código basado en 1 sólo carácter sino en varios, por tanto puesto que sólo tomas un carácter en el bloque select case sólo coincidrá cuando sea '.' ó '-' , es decir punto o raya (E y T), porque son los únicos caso de un sólo carácter.

La solución no es posible. De hecho para que fuera sencillo debería haber un carácter separador entre cada signo del código, sino es así no hay manera de saber si la secuencia '-.-.-.' es ';' o si es 'NNN' ó 'KR' ó 'CN', etc....

El código ha sido abandonado de los procesos digitales por los errores ineludibles cuando una máquina intenta interpretar el 'acento' de cada conferenciante. Si hubiera un tercer signo separador, sería otra cosa, o bien una regla de separación , por ejemplo en binario se usan también sólo dos dígitos pero para interpretar un cóodigo se establece previamente el tamaño de cada 'palabra', casos:  byte= 8 códigos, Integer=32 códigos, etc... Caudno se teclea, el separador es una pausa en el tiempo, que una persona puede interpretar correctamente con cierto adiestramiento, pero en un texto lineal, es prácticamente imposible, habría que hacer un programa de inteligencia artificial  primero para crear un contexto y luego probar si lo que sigue es consecuente con el contexto, si no lo es habría que recrear un nuevo contexto, etc... Todavía no tenemos esa potencia de análisis apenas hemos emepezado a procesar el lenguaje humano, como saber si la secuencia es un texto humano o los datos de la matriz de una imagen... o un ruido previo para ofuscar y entorpecer a un posible oyente... ?

No te rompas los cuernos con morse, aunque si es por precticar siempre aprenderás algo....

Hola...

De entrada decirte que se puede ordenar perfectamente una matriz de 2 o más dimensiones directamente sin trasvasarla a una matriz unidimensional, pero el algoritmo resultante es un poco más complejo, y ciertamente para un estudiante que se inicia sea más complejo aún de lo necesario.

Dicho lo cual te aclaro: ordenar es comparar por tamaños y colocarlos de acuerdo a esa comparación... por tanto , si ordenas de mayor a menor deberías tener una variable llamada max (o la que te dé la gana, pero que refleje la idea del mayor) y habrá de contener o bien el valor del mayor o bien el índice del valor de mayor. No obstante para empezar... el algoritmo más sencillo de entender es el de burbuja y a ese caso la variable necesaria no tiene la necesidad de llamarse max ni min, sino más bien temp, ya que contendrá un valor arbitrario de modo temporal.

El método de burbuja es casi el más sencillo de programar, de hecho es tan sencillo que se puede programar de memoria, sin pensar en menos de un minuto (menos aún, para los que teclean muy rápido).

El método de burbuja son 2 bucles anidados, el externo hha de recorrer desde 0 hasta el final de la matriz -1, el bucle interno se inicia en el valor actual  del externo +1, hasta el final de la matriz. Fíjate que 'A < B' es igual que 'B  > A' , lo digo porque a veces puede inducir a engaño pensar que si busco el mayor plantee que un elemento es menor que...estuviera mal, cuando es totalmente correcto.

El cuerpo del bucle interno lo que hace es preguntarle el valor de la matriz cuyo índice señala el primer bucle es menorque el valor de la matriz en el índice que señala el bucle interno ????, si la respuesta es si se intercambian los valores, para ello usamos esa variable temp...
Fíjate de no liarte si quieres ordenar de mayor a menor o de menor a mayor, ya que con un pequeño cambio (de diferentes maneras) en esa parte del código el desarrolo final podría ser el inverso... o incluso algo desastroso. Como referencia, con los datos aportados, al final del primer bucle interno, matriz(0) contiene el mayor de todo el array....
El algoritmo de burbuja es casi el más lento, pero para unos pocos cientos de elementos no se nota...

Ya lo tienes mascado..

Que quieres que te diga...    si para añadir funcioalidad a un programa sin rescribir ese programa, lo que haces es rescribir una dll, dónde está la diferencia ?.

Tienes 2 aplicaciones una es la que muestra la interfaz de ejecución y otra oculta es esa dll , tu interfaz (la ventana 1) lo primero que hace cuando arranca es ejecutar una función de la dll,  leer_el listado_de_'formularos'_disponibles, el cual le devuelve una matriz con un númerito (no absolutamente necesario), unos iconos (como matriz de long por ejemplo) y el nombre de los mismos. Esa matriz la metes en un menú 'principal'

Luego Cuando pulse en uno de esos formularios disponibles, lo que hace es llamar a la dll que muestra ese formulario dentro desí pero que está oculto y con un setparent (por ejemplo) se transfiere desde la dll a la aplicación, puedes transferir el formulario completo, o sólo un panel donde reposa lo principal, ó un panel y un menú... en fin eso ya es a tu gusto.

No es necesario disponer y usar desde una base de datos, de hecho creo que eso lo que hace es complicarlo, a cambio puedes en la dll tener una estructura equivalente a esa tabla de una bd, gestionada por una clase... con métodos tales como listar_formularios genera la matriz de items: (item, nombre, icono, descripción...) , listar_objetos_aTransferir  lista de los objetos a los que haremos un setparent dado un item de referencia, ... etc... en la dll cuando se invoquen las llamadas la clase crea dichos listados y la función ejecuta dicha devolución.

Pero date cuenta que al caso la interfaz que no quieres modificar en realidad es un cascarón hueco con una funcionalidad mínima justo para invocar la dll, por lo que no modificar la aplicación pero modificar la dll es sólo una cuestión en la práctica, vana.

Por ahí debo tener un código parecido a esto sólo que creo recordar que no eran ficheros separados, pero al caso es lo mismo, si ves que no eres capaz de sacarlo por tí mismo, me lo indicas y lo buscaría haría alguna adaptación para eliminar todo el código que no es estrictamente explicativo del ejemplo y lo subiría.