Mensajes

Me he descargado esa otra librería...

Toma la librería "quricol32.dll" y muévela a lacarpeta de tu proyecto... si no, no funcionará.

Te pego el código, necesario para guardarlo... fíjate que yo he usado la función para exportar como BMP, no importa, importa la firma de los parámetros...

Código (vb) [Seleccionar] Expandir


Private Enum ErrorCorrectionLevel
   LowQuality = 0
   MediumQuality = 1
   StandardQuality = 2
   HighQuality = 3
End Enum


'Private Declare Sub GuardarImagen Lib "quricol32.dll" Alias "GenerateBMPW" (ByVal file As String, ByVal text As String, ByVal margen As Long, ByVal pixelSize As Long, ByVal nivel As ErrorCorrectionLevel)  

' multilínea para ver mejorcada parámetro.
Private Declare Sub GuardarImagen Lib "quricol32.dll" Alias "GenerateBMPW" ( _
    ByVal file As String, _
    ByVal text As String, _
    ByVal margen As Long, _
    ByVal pixelSize As Long, _
    ByVal nivel As ErrorCorrectionLevel)  


Private Sub Command1_Click()
   Dim ruta As String, ruta2w As String, msg As String
   Dim res As Long
   
   msg = StrConv("Probando la librería Quricol...", vbUnicode) ' <--- Ojo: 4 bytes por carácter.
   ruta = App.Path & "\Qr.bmp"
   ruta2w = StrConv(ruta, vbUnicode)   ' <---- OJO: 4bytes por carácter...
   Call GuardarImagen(ruta2w, msg, 2, 3, HighQuality)

   If (Dir(ruta) <> "") Then
       Set Image1.Picture = LoadPicture(ruta)
   End If
End Sub

Private Sub Form_Load()
   Me.BackColor = vbBlack ' contraste para que destaque...
   Image1.Stretch = True
End Sub




p.d.: Olvidaba decirte, que para probarlo, necesitas un botón y un control image.

Pués no están muy finos con esa fórmula... da lugar a posibles fallos.
Total preguntas = Aciertos + errores

puntos = ((aciertos - (errores / 3)) * 10) / (aciertos + errores)

con 90 aciertos (7 fallos) tienes un 9'3
Con 80 aciertos (17 fallos) tienes un 7'6.
con 70 aciertos (27 fallos) tienes un 6'28
Con 60 aciertos (37 fallos) tienes un 4'91.

El aprobado (5) se alcanza con 61 aciertos (para 97 preguntas)
Para tener un 1, necesitas casi un tercio de respuestas acertadas (32).
Si no aciertas ninguna tiene  -3'33 puntos... OLE.

[Ahora te pregunto:]

Solo  he mirado el código por encima, y...
...en cuanto he visto que tratas de crear permutaciones y que el tamaño de palabra le dejas hastas 26 caracteres... me basta.

Ahora te pregunto: serías capaz de decirme cuantas permutaciones totales resultan para un alfabeto de 26 letras + 10 cifras (un alfabeto de 36 caracteres), para palabras de 26 caracteres de largo?. Y una vez calculado el número de permutaciones, multiplícalo por 26, para saber los bytes que ocupará en memoria/disco...

Cuando me digas el resultado, y me cuentes que pretendes que quepa en la memoria de tu equipo, confío que tú mismo entiendas la raíz del problema...

Pásate por este hilo, para responder a tus preguntas y hacer algo eficaz.
https://foro.elhacker.net/abril_negro/abril_negro_spok_simple_production_of_keys-t468239.10.html

Montoro dando coces...

Claramente asociar peras con teléfonos, solo tienen el claro propósito de que sea la propia población la que se oponga 'frontalmente' a pagar...

Lógicamente el dinero de las pensiones debe salir del Estado, pero si decimos que sale de 'tus vacaciones', 'tus.. lo que sea', no pretende otra cosa que enrabietar a la gente para que se nieguen  en redondo, y la lucha que ellos pretenden ganar, la lidien otros por ellos... de ahí la estúpida idea de enfrentar cosas muy distintas entre sí.

No, señor Montoro... el dinero para las pensiones no debe tener la etiqueta 'tecnología', si debe tener la etiqueta "empresas beneficiadas en sus impuestos por los departamentos de I+D", que son una excusa perfecta para pasar de tributar un 43% a solo algo tan ridículo como un 2-8%. Solo quitando esa ridiculez (hay empresas que solo montan un departamento de I+D, esclusivamente para evadir impuestos, luego el I+D, se limita a una puerta con dicho letrero y 3-6 tipos que no solo pierden tiempo, cobran un sueldo pero al final de año, ahorra cientos millones a las empresas por 4 sueldo más pagados, no se exigen patentes ni cuentas que demuestren cuánto se ha invertido y donde a uido a parar... en cualquier caso, esas partidas deben correr a cargo de las empresas de sus beneficios, no del bolsillo de todos... Señor Montoro, de buena tinta sabemos que por ahí Hacienda pierde más de 500.000 millones al año en imnpuestos... que daría para todo, pensiones y sanidad.

No, señor Montoro... el dinero de las pensiones también puede salir del invento de las SICAV, otro engendro societario para evadir impuestos... donde Hacienda pierde una cantidad difícil de cuantificar, pero que seguramente supere con facilidad más de 50.000 millones anuales...

Hay más saqueos, pero sólo con arreglar esos 2, en 3-4 años, el país se elevaba a su punto de antes de la crisis que provocaron...

Ainssss... con  la 'letra pequeña'.

Si yo fuera juez... yo judgaría un contrato y la importancia y validez de las claúsulas, precisamente por el tamaño de letra:
- Cuanto más grande, más importante.
- Cuanto más peqeña, menos validez.
- Cuanto más breve, más importante.
- Cuanto más largo es un texto, menos importante.
- Cuanto más claro, más importante.
- Cuanto más oscuro, menos validez.
- Cuando exceda de 20 cláusulas (por poner un valor), el resto no se tendrá en cuenta.

Con esto por ley, creo que no se podría engañar a nadie escondiendo y abusando de las palabras, sus interpretaciones, el cansancio, la locuacidad y verbosidad, etc...

Así si una claúsula se compone de 25 páginas, como juez, diría 'esto es paja', nada de lo que ahí diga vale 1 céntimo de euro.
Y si una claúsula se explica en 4 líneas, perfecto. Tiene toda la atención y validez del mundo. Si la claúsula hay que leerla 8 veces para intentar entender que pone, su validez sería nula...

...pero bueno, ¿qué podemos esperar de las empresas, cuando la propia ley de un país, está redactada en los mismo términos...????. Siempre hecha para que ponga lo que ponga se pueda interpretar favorable al que la redacta, bajo cualquier circunstancia, lleno de potenciales...

Como te dice Kenji-chan, pero precisando un poco más...

Crea un array con las 256 letras, marca con 1 aquellas que pueden convertirse en mayúsculas o minúsculas, el resto queda con valor 0.

Luego tu función simplemente será un bucle, que recorre cada caracter del string, comprueba si está en el array de 'CaracteresCapitalizables' y hace la conversión. Aquí un sencillo opseudocódigo, para resolver ambos casos en la misma función.

Código [Seleccionar] Expandir


Funcion Capitalizar(string Texto, buleano ToUpper)
   Si ToUpper = TRUE
       Por cada letra en el Texto
           Si CaracteresCapitalizables(letra) = 1  // o TRUE, etc...
               ... Toupper, para dicha letra.
           Fin si
       Siguiente
   Sino
       // mismo código, pero aplicando ToLower

   Fin si
Fin funcion

Código [Seleccionar] Expandir


ToUpper
Si Letra and 32 luego  // tiene el bit de minúscula
  Letra = Letra xor 32  // pués se lo quitamos.
Fin si

Código [Seleccionar] Expandir


ToLower:
Letra = Letra or 32 //ponemos el bit de minúsculas... si ya lo tenía, no cambia nada,
   // no necesitamos en este caso perder el tiempo verificando si lo tenía o no.


A ver si no confundimos cosas.
La 'tlb' de qr-code está hacha en NET, y se registra con RegASM, pero la 'tlb' stodOLE2, es anterior a NET, no debe ser registrada con RegASM (entre otras cosas no sé si sería posible, porqué no sé de seguro que pueda cambiar).

La cuestión es que en efecto, stdOLE2.tlb, es una librería básica de vb6, contiene entre otras cosas la declaración de las interfaces IStdPicture e IStdFont, necesarias para manejar imágenes y fuentes (textos sobre gráficos en definitiva).

No has aclarado si has usado alguna vez (compilado otros proyectos en ese entorno: win8 64 bits), y quizás el problema sea que no esté bien instalado VS, o que tengas alguna desconfiguración. Así que al menos crea algún otro proyecto que no precise recurrir a librerías externas, añade un control picturebox, y añade un botón para ponerle una imagen en tiempo de ejecución... luego compílalo y usa el programa... si tienes problemas es que has desconfigurado algo... (o nunca antes ha funcionado correctamente VS en ese equipo). Si no tienes problemas, tampoco debieras tenerlos en ese proyecto.

...en definitiva, debe quedar claro, si el problema ha existido siempre (ó nunca lo has comprobado), o si el problema lo has creado tú (aunque sea inadvertidamente) al trastear con este proyecto. Ya que no tiene sentido tratar de encontrar un problema de forma aislada suponiendo algo, si el problema está más atrás o es de mucha más envergadura (que un problema con una ruta o versión o registro de 1 sola librería)...

Ayudaría por tanto saber (responde a las 3):
1 - Has compilado (y ejecutado y probado hasta la saciedad) algún proyecto anteriormente una vez instalado VS6?.
2 - Acabas de instalar VS6 justo para poder operar con este proyecto?.
3 - Puedes crear un proyecto rápido (como el descrito), compilarlo, probarlo y comentar si funciona?

La sentencia 'while', exige una 'repeat', y no una 'else'

...y por favor, cuando pongas código sea del lenguaje que sea, usa las 'etiqeutas GESHI, que aparece en la ventana de redacción del mensaje... eliges el lenguaje adecuado y pegas el código, dentro así resultará más claro y legible.

(las etiquetas también puedes escribirlas a mano... son las siguientes, he añadido un espacio después de '[' para que resulten visibles).

[ code=pascal]
  Tu código aquí dentro...
[ /code]

[arbol sintáctico]

0 - El árbol binario que pides, al caso dado, se llama arbol sintáctico.

1 - La función split, no vale, porque corta por los caracteres pedidos, dejando fuera esos caracteres qe son los operadores.
2 - Además, el operador de asignación '=', lo quedas fuera. Lo mismo que a x. 'x' es una variable, que debe ser tratado exactamente igual que si fuera un número.

3 - Toda la operatoria debe ser un bucle, que recorra buscando bytes o caracteres, reconozca numeros/variables/identificadores (como en el siguiente ejemplo) por un lado y operadores por otro. Los paréntesis también son operadores, en este caso de prioridad (se resuelve lo que está dentro  antes de resolver lo de más afuera).
x = (j * k) + 5 - ((n * 7) + cantidad)

4- Debes considerar la prioridad de los operadores, a falta de paréntesis, se deben seguir las reglas de precedencia de operadores,  y la estructura adecuada para mediar con el bucle y el árbol es una pila.

5 - Con un árbol sintáctico, los nodos terminales siempre contienen el operando (número, variable...) y los nodos internos contienen el operador, quedando el operador en medio de los operandos se conoce como notación infija

6 - Tal vez te interese seguir otro modelo. Revisa la notación polaca inversa, donde los 2 operandos quedan juntos antes del operador.

nota: te he marcado en negrita, todo aquello que puedes buscar en google, para profundizar...

["El sistema no puede encontrar el archivo especificado"]

Ya, pero el mensaje de error es claro:
"El sistema no puede encontrar el archivo especificado"...

Mira de intentar esto: Copia el fichero stdole2.tlb a la misma carpeta donde tienes el proyecto e intenta ejecutarlo, compilarlo... y cambia por tanto la ruta a local:
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#stdole2.tlb#OLE Automation
Si ahora te funciona, en efecto el problema es que no le indicas la ruta correcta a la referencia... o no tienes privilegios de acceso.

Si el problema persiste, busca ayuda en google, no serás el primero que tiene un problema de ese tipo: el mensaje de error te muestra el número de error, usa google con dicho número y el texto (mejor en inglés): "could not load file or assembly stdole version 7.0"