Mover texto com sinal pela USB

[malepobox]

Olá pessoal.

Boa tarde.

 

Tenho aqui um circuito com PIC 18F2550. (anexo)

 

Como faço uma rotina para quando enviar GND por um pino qualquer (13, 14, ou 14), faço um arquivo texto em um Memo, no Delphi, andar "x" linhas de acordo com uma var onde defino o nº de linhas?

 

O envio de GND pode ser pelo pino 13 ou 14, ou mesmo pelo 15. 

 

Ficaria um loop assim, o soft do PIC

 

if(pin13==0)then

enviar comando para o Delphi subir tantas linhas, quantas forem definidas na var "x", no Delphi.

end;

 

Meu problema está nos comandos para a comunicação do USB através do PIC

 

`Podem ajudar?

 

Grato

 

 

[vtrx]

Seu Delphi acessa USB HID nativo?

 

http://forum.clubedohardware.com.br/forums/topic/1100805-ajuda-para-porta-usb/

[malepobox]

Olá vrtx.

Boa tarde.

 

Não sei te dizer.   Uso o Delphi7

Sou leigo nesse negócio de microcontroladores (estou aprendendo ainda)

Algumas rotinas para acionar somente o PIC, aprendi, mas comunicação com PC, ainda levo minhas surras, principalmente na USB.   Não sei como escrever esse protocolo para conversar com o Delphi.

 

O que preciso fazer é o seguinte:

 

Em um form no Delphi, coloco um Memo e nele carrego um arquivo texto.  (essa parte, sem problemas).

Coloco uma variável no Delphi que vai carregar o número de linhas do texto que eu desejo que mova para cima... Ok!!

 

Exemplo: Um texto tem 60 linhas.    Seto 30 na var.

Quando enviar um pino (pode ser o 13 do pic), para GND, o texto sobe 30 linhas e pára...... Mais um GND, e sobe + 30 linhas e assim por diante, até acabar o texto.

 

Aqui não é o Delphi que vai comandar o PIC e sim o PIC que vai controlar o Delphi (campo Memo).

 

Ops;  Esse programa que baixei USB ID???.

O cristal é de 4MHZ?

 

Agradeço sua resposta.

Um bom final de semana. 

[vtrx]

 

Ops;  Esse programa que baixei USB ID???.

O cristal é de 4MHZ?

Sim.

O exemplo Delphi tem comentários.

Primeira coisa a fazer é instalar o componente USB,e depois rodar o exemplo para ver se instalou correto.

O bom é que voce só vai fazer esta instalação uma vez

[malepobox]

Olá vtrx.

Bom dia...

Agradeço sua resposta...

 

Se for o componente JEDI (usb cobexão) .... foi instalado.

 

Opa... você disse que o exemplo que enviou tem comentários.

Só baixei um executável em Delphi e as rotinas do pic.

No executável não consigo ver o fonte.

 

Pergunta.... O circuito do pic que vai enviar o sinal pela USB, pode ser alimentado pelos +5 da própria porta USB ou precisa de fonte à parte???

O máximo que posso fazer, se puder (consumo de corrente) é colocar um led para sinalizar, se não for corrente em excesso fora a alimentação do pic  

 

Agradeço a resposta.

Um bom final de semana.

[vtrx]

Fiz tantos exemplos na época e tantas versões para ajudar nos fóruns que me perdí nos links

O link com o projeto Delphi7 é :

http://www.4shared.com/rar/DdQdcFrM/Delphi_HID.html

 

 

Pergunta.... O circuito do pic que vai enviar o sinal pela USB, pode ser alimentado pelos +5 da própria porta USB ou precisa de fonte à parte???

Pela tensão USB do PC.

 

OBS:Se você tem instalado o Jedi,talvez tenha que desinstalar ou ler as rotinas da versão que postei e adaptar as chamadas pois o componente que postei é do criador do Jedi mas alterado para instalar apenas a parte USB.

[malepobox]

Olá vrtx.

Grato pela resposta.

 

Tenho uma aplicação rodando no Jedi e se usar o outro componente Delphi (uso o D7), não sei por que,  a aplicação anterior deixa de funcionar. (instalei para ver)

Acabei reinstalando o Jedi.

Essa aplicação ativa pinos do pic através do Delphi.

To pensando agora em usar um 18F2550 (porque já tem os pinos para USB)  Essa aplicação funciona ao contrario.

 

Preciso pegar um pino do pic (que está para +VCC com resistor de 100K)  e colocar esse pino para GND, um timer rodando no Delphi precisa ler esse pino e mandar uma variável (no Delphi) de 0 para 1.  (Pensei no timer, porque se tirar o GND, o pino vai para HIGH e a var no Delphi, volta para 0).  

 

To levando uma surra e não estou fazendo essas rotinas virarem.  (tanto no Delphi como no PIC)    Estou tentando há uma semana nada feito.    Pode ajudar?

 

Agradeço a força