Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - e500

#1
Programación Visual Basic / Re: VB6 USB MSCOMM
16 Febrero 2019, 10:24 AM
Cita de: MCKSys Argentina en 14 Febrero 2019, 23:47 PM
Hola!

El circuito está conectado al PC por USB o por el puerto COM?

Encontré ésto, pero no sé si es lo que estás buscando: http://www.vbforums.com/showthread.php?612756-RESOLVED-MSComm-connection-for-USB-to-Serial-Port

Saludos!

Gracias nuevamente!!! voy por ese camino... Esto me fue de mucha ayuda!!


Resolví el problema. El problema era con las señales DTR y RTS.
En la mayoría de los convertidores de USB a serie, estas señales no se activan automáticamente.


Así que si podemos cambiarlo mientras enviamos datos en el puerto.

El problema se puede resolver


con Port2
.DTREnable = False
.RTSEnable = True
End con

**** Enviar datos

con Port2
.RTSEnable = False
.DTREnable = True
End con


Salu2
#2
Bases de Datos / Re: Consulta Inmuebles/Contratos
15 Febrero 2019, 20:53 PM
Cita de: MCKSys Argentina en 15 Febrero 2019, 13:27 PM
Bueno, no soy experto en SQL, pero para MySQL creo que podrías usar:

Asumiendo que tienes un campo idcontrato en INMUEBLES:

Código (sql) [Seleccionar]
UPDATE CONTRATOS AS c
INNER JOIN INMUEBLES AS i ON c.id = i.idcontrato
SET montoinicial = if(CURDATE() > DATE(fechavence), montoinicial, (montoinicial * porcentajedeaumento) / 100)
-- aqui puede ir una clausula where


Ahora ya tienes una...

No entiendo el uso del campo tiempodeaumento, por eso no lo incluí en la consulta. Pero ya tienes una idea...

Saludos!

Aaa pero me alegraste el día! gracias por tu ayuda!

El campo tiempoaumento es para saber si el aumento del alquiler es de 2 6 o 12 meses en caso de que sea por ejemplo de 6 meses y pasados los 6 meses del valor que tiene el campo fechadealta hacemos un aumento del montoinicial por el porcentajedeaumento. Ahora te vuelvo a molestar, si el contrato es de 3 años y ya vamos por el segundo aumento (a los 12 meses) que sería el mismo porcentajeaumento pero sobre el montoinicial ya aumentado, como lograríamos esa consulta, ahí estoy trabado. Y como agregado final a mi consulta que sería lo primero que tendríamos que comprobar, es que la fechadealta no supere a la fechadevence.

Salu2 desde Argentina tmb!  :-*
#3
Bases de Datos / Re: Consulta Inmuebles/Contratos
15 Febrero 2019, 09:10 AM
Cita de: MCKSys Argentina en 15 Febrero 2019, 01:21 AM
Bueno, ya tienes una sugerencia...  ;D

Saludos!

Ya te dí gracias, espero alguna consulta armada en modo ejemplo como hacen los usuarios normalmente en foros, para que me ayude a salir adelante con mi proyecto.
#4
Bases de Datos / Re: Consulta Inmuebles/Contratos
15 Febrero 2019, 00:58 AM
Cita de: MCKSys Argentina en 14 Febrero 2019, 23:41 PM
Hola!

Creo que te falta establecer una relación entre el Inmueble y el contrato.

La table inmuebles debería tener un campo más, que haga referencia al id del contrato. O bien, agregarlo en la tabla de pagos. Lo que creas más conveniente.

Con eso ya puedes establecer una relación completa entre las 3 tablas y solicionar tu consulta.

Saludos!

Gracias por tu pronta respuesta MCKSys Argentina... pero aclaré que no puse las relaciones justamente para ver alguna idea o sugerencia de relación.

#5
Programación Visual Basic / VB6 USB MSCOMM
14 Febrero 2019, 21:18 PM
Hola, mi consulta es la siguiente hay manera de enviar información mediante el control MSCOMM por medio de un USB (perdón por la ignorancia de mi consulta) si es así sería siempre un COM1 o 2 o 3. Ahora alguien tiene algún ejemplo, porque el objetivo de mi consulta es enviar un bit para que luego un circuito electrónico (evitando arduino, raspberry, etc) por medio de un "relee" lo establezca en 1 o 0 dependiendo el bit que envíe dicho software. Les pido disculpas por lo engorroso y rebuscado para explicar. Espero su ayuda Salu2.
#6
Bases de Datos / Consulta Inmuebles/Contratos
14 Febrero 2019, 21:17 PM
Hola gente del foro, le comento mi siguiente cuestión para ver si alguien tiene alguna respuesta que me pueda ayudar a seguir con mi proyecto.

Tengo 3 Tablas:


PAGOS:
--------
id
idcliente
idinmueble
fdpaga (fechadepago)
fdvence
monto
paga
debe
aumento (boolean)

INMUEBLES;
-------------
id
nombre
direccion
piso
depto-of

CONTRATOS;
-------------
id
montoinicial
fechadealta
fechavence
porcentajedeaumento
tiempoaumento


Tengo algo así, sin especificar relaciones porque es justamente donde viene mi consulta. ¿Cómo puedo hacer una consulta que al ingresar un Pago, de un Inmueble me verifique si ese inmueble tiene el contrato vencido (fechavence) y a su ves que si no está vencido me haga el aumento del montoinicial sabiendo el tiempodeaumento (bimestral/semestral/anual por 2, 6 o 12 meses) teniendo en cuenta el porcentajedeaumento sombre el montoinicial ?

• Aclaro que no generé campos que relacionen las tablas, solo para ver que ideas surgen.

Gracias por su ayuda.
#7
 ;D gracias! :D lo voy a investigar ya estoy en un 90% casi lo tengo!

Salu2
#8
Cita de: e500 en 30 Diciembre 2014, 18:11 PM
Hola amigos del foro, estoy intentando hace unos días obtener la lista de archivos de un directorio y copiarlos uno por uno a otra carpeta, y que por medio de un minimo y máximo de archivos un progressbar cargue.

Ejemplo:

Carpeta c:\[Numeros]
Archivos 1.num 2.num 3.num 4.num
Copiar esto en d:\[Numeros]\*.*

Espero que me puedan ayudar.
Salu2  :D

     

Estoy listando los archivos de la carpeta de esta manera por el momento...


   'Variable de tipo FILE y FOLDER para listar los archivos de un path
   Dim El_Archivo As File
   Dim El_Directorio As Folder

   'Si no hay items en el List sale
   If List1.ListIndex = -1 Then Exit Sub
   
   List2.Clear
   
   'Nuevo objeto FileSystemObject
   Set Fso = New FileSystemObject
   
   ' Obtiene el directorio
   Set El_Directorio = Fso.GetFolder("c:\[Numero]")
   
   
   ' Lista los ficheros de esta carpeta
   For Each El_Archivo In El_Directorio.Files
      'Añade la ruta
      List2.AddItem El_Archivo.Name
       
   Next El_Archivo


Utilizo la referencia Microsoft Scripting Runtime

Ahora voy a recorrer dicho listbox utilizando:


Call Shell("xcopy /S CARPETA DESTINO", vbMaximizedFocus)


Voy a seguir programando, sé que lo voy a lograr, pero me parece muy rebuscado mi metodo. Siempre aparece una mente brillante generando ideas muy originales.

Salu2
#9
Hola amigos del foro, estoy intentando hace unos días obtener la lista de archivos de un directorio y copiarlos uno por uno a otra carpeta, y que por medio de un minimo y máximo de archivos un progressbar cargue.

Ejemplo:

Carpeta c:\[Numeros]
Archivos 1.num 2.num 3.num 4.num
Copiar esto en d:\[Numeros]\*.*

Espero que me puedan ayudar.
Salu2  :D

     
#10
 ;D Gracias por tu respuesta Danyfirex