adamlar yazmış bende devresini çizip denedim. gerçekten güzel yapmışlar.
'* PIC16F877 *
'****************************************************************
INCLUDE "Modedefs.Bas"
DEFINE OSC 4
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTE
DEFINE LCD_EBIT 0
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
counter VAR BYTE
Text VAR BYTE[20]
X VAR BYTE
Y VAR BYTE
PAUSE 500
Main:
LCDOut $fe,%1000000
FOR X =1 TO 8
LCDOUT %10000
next x
FOR X=1 TO 8
LCDOUT %11000
NEXT X
FOR X=1 TO 8
LCDOUT %11100
NEXT X
FOR X=1 TO 8
LCDOUT %11110
NEXT X
FOR X=1 TO 8
LCDOUT %11111
NEXT X
LCDOut $fe,%10000000
' FOR X = 0 TO 255
' LCDOUT $FE,1,#X,X
' PAUSE 100
' NEXT X
LOOP1: LCDOUT $FE,1,"deneme "
LCDOUT $FE,$C0
LCDOUT 0
for X= 0 TO 19
PAUSE 100
LCDOUT $FE,$10,1
PAUSE 100
LCDOUT $FE,$10,2
PAUSE 100
LCDOUT $FE,$10,3
PAUSE 100
LCDOUT $FE,$10,4
PAUSE 100
LCDOUT $FE,$14
LCDOUT $FE,0
NEXT X
GOTO LOOP1
END
buradada proteusta simulasyon hali var.
http://rapidshare.com/files/147246237/lcd_bargraph.rar.html
teşekkürler. faydalı bir çalışma . ellerine sağlık