• Martes 5 de Noviembre de 2024, 17:33

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 - electrik77

Páginas: [1]
1
Microcontroladores / Re: Varios Puertos Serie En 16f84
« en: Jueves 3 de Noviembre de 2005, 03:32 »
:comp: Hola de nuevo,  fijate el link que puse abajo que te puede dar una idea de como montarte los modulos, y como asignarles una direccion, no está el soft, pero te puede servir de guía...nos vemos salu2  :kicking:

http://www.pablin.com.ar/electron/proyecto/plink/index.htm

 :devil: :devil::devil::devil::devil::devil::devil::devil::devil::devil::devil::devil:

2
Microcontroladores / Re: Rx Y Tx Asincrona Con 16f84
« en: Miércoles 2 de Noviembre de 2005, 18:42 »
:comp: Ahí te adjunto un .asm , fijate en la parte que dice "Transmit" pero tené en cuanta que registros y subrutinas adicionales ocupa para la transmision, este era un proyecto que arme para la facultad, era un medidor de distancias por ultrasonido, el pic16f84 hacía las medidas y le mandaba al pc los datos...saludos electrik :whistling:

3
Visual Basic 6.0 e inferiores / Re: Vb Y Un Block De Notas Tabulado
« en: Miércoles 2 de Noviembre de 2005, 18:27 »
:comp:  fijate si te sirve esto, yo creaba un archivo .txt , lo abría y escribía en el unos datos, fijate si te sirve esta parte:

Open "c:\distancia.txt" For Append As #1
    Print #1, "****Inicio*****  "; Date; Tab; Time
    Print #1, ""
    Close #1


fijate que el escribía ***inicio****, despues en el mismo renglon escribía el día. y separado con un TAB escribia la hora, o fijate tambien estas linea

Private Sub Label4_Change()
' If Text1.Text = "" Then
   ' GoTo salir
    'Else
    Open "c:\distancia.txt" For Append As #1
    Print #1, Time & Chr(32) & "--------" & Chr(32) & Label4.Caption
    Close #1
   
    List1.AddItem (Chr(32) & Chr(32) & Time & Chr(32) & "-----------" & Chr(32) & Label4.Caption)
    'Text1.Text = ""
salir:
    'End If
End Sub


el Chr(32) si ma no recuerdo es la barra espaciadora, la utilizaba para separar con un espacio entre cada elemento.
No se si es esto lo que preguntaste pero ojala que te sirva de algo.. nos vemos salu2 :whistling:

4
Visual Basic 6.0 e inferiores / Re: Manejo Del Puerto Paralelo?
« en: Miércoles 2 de Noviembre de 2005, 17:01 »
:comp: Hola que tal, mira si te puede servir de algo, hay por la red un archivo zip que se llama inpout32.zip, que dentro trae una librería inpout32.dll que tendrías que copiarlo a la carpeta system y system32 de tu win, bueno tambien trae un inpuot32.bas que tendrías que agregar en tu proyecto para que te funcione, dentro del zip hay un inpout.txt  que muestra como escribir y leer el puerto paralelo desde VB con esta librería, esto funciona por que lo he probado, es mas ahí encontré el zip y te lo adjunto, si no lo podes bajar pedimelo a mi correo ptt52@hotmail.com.....espero que te sirva....salu2 electrik  :whistling:

5
Microcontroladores / Re: Varios Puertos Serie En 16f84
« en: Miércoles 2 de Noviembre de 2005, 16:36 »
:comp: Hola que tal, mirá por ahí te puede servir lo que te comento, mirá podes hacer algo como vos decis con el protocolo RS232 pero fijate, tendrías que conectar pic con pic en cascada, te das una idea de lo que te quiero decir, sería a cada uno le asignas una direccion, que la tendrías que guardar en la Eprom del pic, bueno la idea es que le mandes una secuencias de BYTE desde la pc al 1º pic, en la secuencia iría ej:  (Direccion),(comando)...(comando), estonces el 1º pic se fija la direccion de lo que llega, si es para él, lo toma y actua segun comando, si no es su direccion lo reenvía al 2º pic, y así sucesivamente, implementando de éste modo poedés usar cualquier pic y picbasic, y no necesitas el I2C, por supuesto es menos seguro éste modo que el I2C, espero que te alla servído de ayuda...nos vemos. :whistling:

Páginas: [1]