Problème afficheur LCD 2x16

< Sujet précédent  Sujet suivant >
Index du Forum -> Forum des Projets fin d'études, mini-projets et des réalisations electroniques -> Mini-projets
AuteurMessage
Tunisia.png mdaghbouji
Newbie



Messages : 2
Inscrit(e) le: 16/03/2011
Posté le 27/05/2012 19:06  
Problème afficheur LCD 2x16
Salut tout le monde,

Je suis en train de faire le projet suivant :

PIC16F877
Afficheur LCD 2x16

voici le programme que je suis en train de tester :

////////////////////////////////////////////////////
program Lcd_Test;

// LCD module connections
var LCD_RS : sbit at RD1_bit;
var LCD_EN : sbit at RD0_bit;
var LCD_D4 : sbit at RD4_bit;
var LCD_D5 : sbit at RD5_bit;
var LCD_D6 : sbit at RD6_bit;
var LCD_D7 : sbit at RD7_bit;

var LCD_RS_Direction : sbit at TRISD1_bit;
var LCD_EN_Direction : sbit at TRISD0_bit;
var LCD_D4_Direction : sbit at TRISD4_bit;
var LCD_D5_Direction : sbit at TRISD5_bit;
var LCD_D6_Direction : sbit at TRISD6_bit;
var LCD_D7_Direction : sbit at TRISD7_bit;
// End LCD module connections


var txt1 : array[16] of char;
txt2 : array[9] of char;
txt3 : array[8] of char;
txt4 : array[7] of char;
i : byte; // Loop variable

procedure Move_Delay(); // Function used for text moving
begin
Delay_ms(500); // You can change the moving speed here
end;

begin

Delay_ms(1000);
//TRISD := 0;
//PORTD := 0xFF;
//TRISD := 0xFF;


txt1 := 'mikroElektronika';
txt2 := 'EasyPIC6';
txt3 := 'Lcd4bit';
txt4 := 'example';

Lcd_Init(); // Initialize LCD
Lcd_Cmd(_LCD_CLEAR); // Clear display
Lcd_Cmd(_LCD_CURSOR_OFF); // Cursor off
LCD_Out(1,6,txt3); // Write text in first row
LCD_Out(2,6,txt4); // Write text in second row
Delay_ms(2000);
Lcd_Cmd(_LCD_CLEAR); // Clear display

LCD_Out(1,1,txt1); // Write text in first row
Lcd_Out(2,5,txt2); // Write text in second row
Delay_ms(500);

// Moving text
for i:=0 to 3 do // Move text to the right 4 times
begin
Lcd_Cmd(_LCD_SHIFT_RIGHT);
Move_Delay();
end;

while TRUE do // Endless loop
begin
for i:=0 to 7 do // Move text to the left 8 times
begin
Lcd_Cmd(_LCD_SHIFT_LEFT);
Move_Delay();
end;

for i:=0 to 7 do // Move text to the right 8 times
begin
Lcd_Cmd(_LCD_SHIFT_RIGHT);
Move_Delay();
end;

end;
end.

///////////////////////////////////////////////


Lors du démarrage du LCD :

J'ai remarqué que le texte envoyé s'affiche (pas clair) mais il y a des carreaux noirs qui s'affiche tout le temps.

Notez bien que j'ai branché le LCD comme indiqué dans le programme.

j'ai branché aussi R/w ==> masse

Pourriez vous m'aider SVP si vous avez déja rencontré ce problème?

Merci d'avance.

Revenir en haut | Permalien
France.png bertrandbd
Junior Member



Messages : 74
Inscrit(e) le: 12/12/2010
Posté le 27/05/2012 21:37  
RE : Problème afficheur LCD 2x16
Bonsoir

le retroéclairage de l'écran (backlight) est-il bien réglé? Pour info

http://www.aurel32.net/elec/lcd.php

A+

Revenir en haut | Permalien
Tunisia.png mdaghbouji
Newbie



Messages : 2
Inscrit(e) le: 16/03/2011
Posté le 28/05/2012 20:25  
RE : Problème afficheur LCD 2x16
oui le backlight est bien réglé.

Le problème est au niveau affichage de caractère sur le LCD qui se fait en carreau noir pour les deux lignes.

J'ai essayé de changer l'linitialisation du portD avec 0x05 alors là c'est la deuxième ligne qui ne s'allume pas en écran noir.

Merci pour votre conseil.

Revenir en haut | Permalien
France.png bertrandbd
Junior Member



Messages : 74
Inscrit(e) le: 12/12/2010
Posté le 28/05/2012 23:47  
RE : Problème afficheur LCD 2x16
Bonsoir

Tu peux envoyer un schéma et si tu as fait des mesures les joindre au message

merci

Revenir en haut | Permalien

Haut de page

© 2019 Technologue pro, cours électricité électronique informatique · © 2007 - 2019 Technologue pro - Ressources pédagogiques pour l'enseignement technologique en Tunisie
Usage dans un cadre strictement académique

Technologue: cours en ligne gratuit en électricité, électronique, informatique industrielle et mécanique pour l'enseignement technologique en Tunisie et offre des cours en ligne en génie électrique, informatique, mécanique, une base de données de TP, projets fin d'études et un annuaire de ressources pédagogiques
Licence - Sitemap - Qui somme nous ? - confidentialité- Tunisie Index
J'accepte
Ce site web utilise des cookies. Nous utilisons des cookies pour vous offrir la meilleure expérience sur notre site Web. Plus d'infos