Autor Tema: Apreder a usar el puerto serial  (Leído 2419 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BLACKPIC

  • Colaborador
  • PIC16
  • *****
  • Mensajes: 129
Apreder a usar el puerto serial
« en: 11 de Enero de 2007, 20:07:22 »
Hola a todos les pido ayuda estoy buscando como aprender a usar el puerto serial de la pc..
bueno buscando y buscando encontre esto que es una direccion del viejo foro pero no me permite bajar nada intente
y nada http://miarroba.com/foros/ver.php?foroid=64652&temaid=172512 agradeceria su ayuda...

me gustaria aprender como comunicar el pc con el exterior a un pic  :lol:
Saludo desde Rep.Dom ( BLACKPIC )..
La ciencia es el arte del ensayo y el error, su producto más importante es la razón...

Desconectado LordLafebre

  • Moderador Global
  • DsPIC30
  • *****
  • Mensajes: 3529
    • Micros & micros
Re: Apreder a usar el puerto serial
« Respuesta #1 en: 11 de Enero de 2007, 21:09:30 »
Hola:

Busca en este mismo foro, en el hilo de arriba, pueda que los archivos esten caducados pero si lees lo que los compañeros postean de seguro que sacas algo importante

http://www.todopic.com.ar/foros/index.php?topic=7013.0

Son 8 paginas, de seguro algo de bueno sacaras.

Desconectado piriots

  • Colaborador
  • PIC24F
  • *****
  • Mensajes: 609
Re: Apreder a usar el puerto serial
« Respuesta #2 en: 18 de Enero de 2007, 19:13:25 »
Aqui te pongo el codigo necesario para poder configurar y abrir un puerto serie con VB. Si buscas en el foro encontraras programas para conectar via rs-232, este trozo que te pego esta extraido creo del proyecto del brazo robot de Radon. Yo posteé un proyecto con el soft en Vb para controlar reles des del PC, pero no lo he podido encontrar.
PC
Private Sub conectar_Click()
   
    MSComm1.Settings = "9600,n,8,1"            'Velocidad en baudios, sin paridad, 8 bits, 1 bit de stop
    If MSComm1.PortOpen = True Then
        MsgBox "El puerto esta siendo utilitzado por otra aplicacion"
    Else
        MSComm1.PortOpen = True
    End If
    If MSComm1.CommPort = 1 Then
       
        conectar.Enabled = False
        desconectar.Enabled = True
    End If
End Sub

Para enviar datos del pc al pic pones:

MSComm1.Output = variable

Comunicacion del Pic al Pc no lo he probado pero la semana que viene tendre tiempo de cacharrear un poco intentare hacerlo, seguro que no es dificil.

Salu2


 

anything