• Sábado 12 de Julio de 2025, 07:17

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - enri333

Páginas: [1]
1
Diseño de Algoritmos / Re: Algoritmos
« en: Viernes 10 de Noviembre de 2006, 11:46 »
Buenas de nuevo, otro ejemplo:

la 1ª cantidad varía entre 1 y 5 con un decimal de precisión y se multiplica por su precio 9,00€


la 2ª cantidad varía entre 1 y 5 con un decimal de precisión y se multiplica por su precio 20,15€

y la tercera cantidad varía entre 2 y 5 con un decimal de precisión y se multiplica por su precio 33,00€

la suma de esas multiplicaciones debe dar como resultado 210,59 €, solo se me ocurre la solución de los bucles, en este caso hay 52.111 combinaciones y 4 soluciones, pero si aumentamos la precisión a centésimas hay mas de 48 millones de combinaciones con lo que la lentitud está garantizada, sigo pensando que debe haber algún método para resolverlo más rápidamente. gracias

2
Visual Basic 6.0 e inferiores / Salvar Archivos A Disco
« en: Martes 31 de Octubre de 2006, 16:05 »
Buenas:
La pregunta es sencilla, los datos que intoduzco en mi aplicación en forma de Textbox, combos, grids, etc. los quiero salvar en el disco en un archivo ¿en qué formato se deben guardar? me explico, ¿como archivo aleatorio separado por comas o tabuladores o con caracteres especiales y luego recuperarlos con split? (es lo que suelo hacer pero no sé si hay otros métodos mejores utilizo Char$28,29 y 30 como separadores) ¿como archivo secuencial? ¿binario? ¿algún otro? ¿y si hay imágenes? gracias.

3
Diseño de Algoritmos / Algoritmos
« en: Martes 31 de Octubre de 2006, 14:57 »
Buenas:

Necesito encontrar un algoritmo que me permita ajustar varias multiplicaciones y sumas a un importe dado, me explico con un ejemplo: tengo una cantidad que puede variar de 20 a 23 con dos decimales de precisión que se  multiplicará por su precio (1.464,00 €) otra cantidad que puede variar entre 5.295 y 5.300 con dos decimales que se multiplicará por su precio que es de 2,00 €, pues bien, la suma de esas multiplicaciones debe dar 42.729,24 €. Salen 150.801 combinaciones en este caso (a medida que añadimos sumandos, intervalos y decimales de precisión se incrementan las combinaciones) con dos bucles for next se soluciona pero te obliga a recorrer todas las combinaciones que pueden ser enormes en algunos casos ¿se le ocurre a alguien algún algoritmo para solucionar esto? por cierto hay una solución.

4
VBA / Salvar Richtextbox A Rtf
« en: Jueves 12 de Mayo de 2005, 10:14 »
Cuando guardo un Richtextbox como RTF no sé cómo especificar el tamaño de la página y la orientación (siempre me sale la misma), utilizo:

RichTextBox1.SaveFile CDBox.FILENAME, rtfRTF

si alguien sabe cómo hacerlo gracias

5
VBA / Rich Textbox Y Marcadores
« en: Lunes 9 de Mayo de 2005, 10:19 »
¿Se pueden gestionar los marcadores que me aparecen (insertados previamente) en un fichero RTF cuando lo leo en un Rich TextBox?

En vez de Marcadores he puesto texto del tipo "M001" para luego buscarlo así:

FoundPos = RichTextBox2.Find("M001", , , rtfWholeWord)

y sustituirlo por lo que quiera p.e.

RichTextBox2.SelLength = 4
RichTextBox2.SelText = DTPicker1.Value

¿hay alguna forma mejor de acerlo?

Me parece un poco chapu escribir un RTF con unos "Marcadores" que se ven.

Gracias

6
VBA / Re: ultimo dia de fecha
« en: Viernes 6 de Mayo de 2005, 10:01 »
Este código coloca el día 31 al mes en custión y después mira si da error o no, repitiendo el bucle hasta que la fecha es válida p.e. el 31 de febrero no existe así que le quita un día, como el 30 de febrero no existe le quita otro día etc...

    Dim fecha As Boolean
    Dim dia, mes, año As Integer

    fecha = False
    dia = 31
    mes = Month(mes en cuestión)
    año = Year(año en cuestión)
    Do Until fecha = True
    If IsDate(dia & "/" & mes & "/" & año) Then
'mi rutina también miraba que no fuera ni sábado ni domingo
'        If Weekday(dia & "/" & mes & "/" & año) = 1 Then dia = dia - 2
'        If Weekday(dia & "/" & mes & "/" & año) = 7 Then dia = dia - 1
    fecha = True
    Else
    dia = dia - 1
    End If
    Loop

7
VBA / Opción Validate En Un Textbox
« en: Jueves 5 de Mayo de 2005, 19:38 »
En visual basic para aplicaciones (excel, word, etc) los textbox que creo no tienen la propiedad validate en cambio los que creo en VB6 si la tienen, he mirado el OCX y en los dos casos es el mismo ¿como puedo poner un textbox con la propiedad validate en VBA?

Páginas: [1]