Serial Port

[[egostar]]

Hice un pequeño programa para capturar lo que se recibe en el puerto, ademas le he puesto las señales del puerto serial para ver cuando se envia y cuando se reciben caracteres y el estado de otras señales importantes.

Espero que esto funcione.

Salud OS

[JoseFco]

Eso esta perfecto.

Cuando lo ruedo con el micro me da los 8 hex, las luces solo son TX and RX.

Dime algo que configuracion tiene el serial port en ese programita?

Un Saludo.

[[egostar]]

Empezado por JoseFco

Eso esta perfecto.

Cuando lo ruedo con el micro me da los 8 hex, las luces solo son TX and RX.

Dime algo que configuracion tiene el serial port en ese programita?

Un Saludo.

Pues la configuracion es la que tu das excepto la velocidad que es 57,600.

Estoy usando los componentes Apro, este es el código que estoy usando en el programa

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  ApdSLController1.Monitoring := True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ApdComport1.Open := False;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ApdComPort1.PutString(#2#0);
end;

Salud OS

PD. Te paso el fuente, pero requieres de los componentes que te menciono.

[JoseFco]

Tengo que aprenderme ese componente Apro.

A este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);beginComport1.Connected:=true;Comport1.WriteStr(#2#0);end;

Le falta dejar el serial port reciviendo, que es lo que no logro hacer.Me da error. Un Saludo.

[[kurono]]

hola egostar puedes mostrar el codigo fuente de ese programa que hiciste

[[egostar]]

Empezado por JoseFco

Tengo que aprenderme ese componente Apro.

A este:

Código Delphi [-]
procedure TForm1.FormCreate(Sender:TObject);
begin
  Comport1.Connected:=true;
  Comport1.WriteStr(#2#0);
end;

Le falta dejar el serial port reciviendo, que es lo que no logro hacer.Me da error.

Un Saludo.

Seria bueno que nos mencionaras que error te da. si me dices donde bajo ese componente que usas podría hacer algunas pruebas para ver que es lo que te hace falta.

Empezado por kurono

hola egostar puedes mostrar el codigo fuente de ese programa que hiciste

Todo está en el archivo adjunto que coloque.

Salud OS

[JoseFco]

Hola Egostar.

Si el ComPort Library version 3.10 de Dejan Crnila es el que uso y lo encontre en un hilo de aqui del foro.
Yo entro a Google y aqui en en el foro a ver hilos y referencias sobre el comport.Tomo algunos codigos y trato de rodarlos, pero ya te digo me da errores algunas veces tres y tratando de repararlos cuando vengo a ver tengo 10 jajajajajajaja.Algun dia lo entendere mejor o al menos me dejara jugar con el.

Un Saludo.

[[egostar]]

Pues ya he visto tu componente, pero no veo por ningun lado el evento

Código Delphi [-]
procedure TForm1.ComPort1ReceiveCallBack(Data: String);
begin
  Edit1.Text:=(Data);
end;

Sin embargo, hice un programita y si funciona.

Salud OS

PD: Lo hice con Turbo Delphi, espero puedas abrir el fuente.

[JoseFco]

Hola Egostar.

Si el problema es que tengo dos ComPort en mi PC y esa fue la conficion.Estaba con un comport usando procedimientos de que no tenia.

Código Delphi [-]
 
 procedure TForm1.ComPortRxChar(Sender: TObject; Count:Integer);
 var
   Str: String;
 begin
   
   ComPort.ReadStr(Str, Count);
   Memo.Text := Memo.Text + Str;
 end;

Es que existen dos comport con el mismo nombre y diferentes componentes( yo en mi pc los llamo diferentes el otro es "PuertoCom" en mi pc.Pero si miro Google encuentras codigos y hay que tener cuidado al menos yo que estoy comenzando en esto y puedo cometer el error de usar un componente que no existe en un comport aunque se llame comport.

Deja correr ese programita que me mandaste a ver que hace y estudiar el codigo.


PD: En ese linck que mirastes ayer del hilo asm ese es otro comport y no el comport de Dejan Crnila por ejemplo.

Un Saludo.

[seo]

Empezado por JoseFco

Eso esta perfecto.

Cuando lo ruedo con el micro me da los 8 hex, las luces solo son TX and RX.

Dime algo que configuracion tiene el serial port en ese programita?

Un Saludo.

Oye ya instale el Async Apro para el delphi 5 que es el que uso, ahora no tengo ni idea de como usar los componentes que tiene este componente, no se si me equivoco pero creo que para usar el puerto serie necesito utilizar el puerto TapdComPort, ahora tengo la duda de como utilizar este componente, si puedes ayudarme te lo agradeceria.

Saludos.

[JoseFco]

Hola seo.

Yo lo que tengo es el ComPort Library version 3.10 para Delphi 3,4,5,6 y 7. Por Dejan Cernilla.
Con el Apro no te puedo ayudar no lo he trabajado.Pero si instalas este te puedo dar una ayudadita con tu proyecto.Si el micro que trabajas es de la familia Intell 51 te puedo ayudar un poco mas.


Un Saludo.

[seo]

Empezado por JoseFco

Hola seo.

Yo lo que tengo es el ComPort Library version 3.10 para Delphi 3,4,5,6 y 7. Por Dejan Cernilla.
Con el Apro no te puedo ayudar no lo he trabajado.Pero si instalas este te puedo dar una ayudadita con tu proyecto.Si el micro que trabajas es de la familia Intell 51 te puedo ayudar un poco mas.


Un Saludo.

Orale, nada mas dime donde lo encuentro, o si me lo puedes pasar mejor, y ya me das un pequeño tutorial de como se utiliza.

El micro que utilizo es el pic 16f877a (aunque tambien he utilizado los de la familia 51), pues la verdad comparandolos, son un poco mas complicados los de la familia 51.

Pues espero tu respuesta, gracias por contestar.

[JoseFco]

Hola seo.

El Comport lo puedes encontrar aqui.
http://sourceforge.net/projects/comport/ tiene toda la informacion para que lo instales sin problema. En cuanto al Pic en eso no te puedo ayudar mucho, nunca los he trabajado. Si algun dia tienes problemas con algun 8051 o con alguno de sus parientes Atmel 89Cxx en esos si te puedo ayudar.
Cuando instales ese componente fijate en la ayuda y en los ejemplos que trae.Luego si tienes alguna duda entonces aqui estamos.

Un Saludo.

[mario2000]

Ya veo por que los commandos me paresian tan familiares, llevo años manejando ese comport desde delphi 3 jeje, pero me gustaria aprender los de tapro. Comport tiene algunos problemas y me gustaria probar otro. si alguien sabe me gustaria me diera su alluda.

[seo]

Empezado por egostar

Hice un pequeño programa para capturar lo que se recibe en el puerto, ademas le he puesto las señales del puerto serial para ver cuando se envia y cuando se reciben caracteres y el estado de otras señales importantes.

Espero que esto funcione.

Salud OS

Hola egostar, he mirado desde el principio del tema hasta el fin, y se ve que eres bastante bueno, por eso te pido he de pedir ayuda, mira mi caso es que tambien tengo que leer y escribir datos por el puerto serial de mi pc a un micro, el problema es que no tengo idea de como hacerlo. El Baud rate al que envio es de 2400, con 8 bits, sin paridad y con bit de stop. Ya probe el micro y la conexion y si sirve, lo probe con una terminal uart que viene incluida en el kit de desarrollo que uso, lo que hago es enviar un dato y en seguida el uart lo muestra en un edit, pero necesito yo crear mi propio monitor de acuerdo al proyecto que hago.

Si puedieras ayudarme con alguna referencia, manual, o codigo para que de ahi partiera, te lo agradeceria mucho.

Saludos...