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
Linkback: BASİC İLE BARGRAPH UYGULAMASI

teşekkürler. faydalı bir çalışma . ellerine sağlık