| Auteur | Message |
 techno_techno
Newbie
Messages : 2
Inscrit(e) le: 19/11/2014
|
 Posté le 19/11/2014 11:31 | | | problème de communication pic 16f877A via rs232 |
Salam
je suis débutant en électronique numérique ..
j'ai réalisé un montage sous isis afin de faire une communication entre pic16f877a avec le pc via rs232 en utilisant usart_terminal du mikropascal pro v8.0 et VSPD V7.1 permettant une communication virtuelle .Mon problème c'est que je veut afficher les données (alphanumérique) transmises par terminal sur l'afficheur lcd.
le code que j'ai écrit 'affiche n'affiche rien
voilà mon code :
program serial;
var
receive:byte;
receivech:string[20];
begin
TRISB:=0X00;
portb:=0;
trisc:=0x80;
portc:=0;
trisd:=0x00;
portd:=0;
Lcd_Config(PORTB,7,6,5,4,PORTB,2,0,3);
Lcd_Init(PORTB);
Lcd_Out(1, 3, 'Hello!');
WHILE true do
begin
Usart_Init(9600);
//receive:=usart_data_ready() ;
if Usart_Data_Ready() = 1 then
begin
receive := Usart_Read;
bytetostr(receive,receivech);
lcd_out(2,3,receivech) ;
end;
end;
end.
voilà mon montage isis
merci....
|
| Edité par techno_techno le 19/11/2014 11:33 |
|
|
| Revenir en haut | Permalien |   |
|
|
techno_techno
Newbie
Messages : 2
Inscrit(e) le: 19/11/2014
|
Posté le 19/11/2014 11:37
 1416393465.DSN (65 Ko) | | | RE : problème de communication pic 16f877A via rs232 |
techno_techno a écrit : Salam
je suis débutant en électronique numérique ..
j'ai réalisé un montage sous isis afin de faire une communication entre pic16f877a avec le pc via rs232 en utilisant usart_terminal du mikropascal pro v8.0 et VSPD V7.1 permettant une communication virtuelle .Mon problème c'est que je veut afficher les données (alphanumérique) transmises par terminal sur l'afficheur lcd.
le code que j'ai écrit 'affiche n'affiche rien
voilà mon code :
program serial;
var
receive:byte;
receivech:string[20];
begin
TRISB:=0X00;
portb:=0;
trisc:=0x80;
portc:=0;
trisd:=0x00;
portd:=0;
Lcd_Config(PORTB,7,6,5,4,PORTB,2,0,3);
Lcd_Init(PORTB);
Lcd_Out(1, 3, 'Hello!');
WHILE true do
begin
Usart_Init(9600);
//receive:=usart_data_ready() ;
if Usart_Data_Ready() = 1 then
begin
receive := Usart_Read;
bytetostr(receive,receivech);
lcd_out(2,3,receivech) ;
end;
end;
end.
voilà mon montage isis
merci.... |
|
|
|
| Revenir en haut | Permalien | |
|
|
techno_techno
