Artık cep telefonlarıyla, dijital saatlerle ve göstergeli her türlü eşyayla hayatımızın bir parçası olan LCD (Lquid Crystal Display - Sıvı Kristal Gösterge) ekranları kullanarak birşeyler yapmak istemez misiniz? Proteus ve PIC Basic ikilisiyle birçok uygulamayı kolayca yapabilirsiniz.
1-YAZI YAZMA
DEFINE OSC 4 ' PIC'in çalışma hızını 4 MHZ 'e ayarladık
DEFINE LCD_DREG PORTB ' Yazı bilgisini göndereceğimiz portu seçtik
DEFINE LCD_DBIT 4 ' Bilgi göndermek için başlangıç bitini seçtik
DEFINE LCD_RSREG PORTB ' LCD Register(Kayıt) Portunu seçtik
DEFINE LCD_RSBIT 0 ' LCD Register Bitini seçtik
DEFINE LCD_EREG PORTB ' Enable(Yazılma) Portunu seçtik
DEFINE LCD_EBIT 1 ' Enable bitni seçtik
DEFINE LCD_BITS 4 ' Kaç bitlik bir hattan bilgi transferi yapacağımızı yazdık.
DEFINE LCD_LINES 2 ' Kaç satırlık bir LCDmiz varsa yazdık
DEFINE LCD_COMMANDUS 2000 ' Kac mikrosaniyede bir komut gönderileceğini yazdık
DEFINE LCD_DATAUS 50 ' Kac mikrosaniyede bir yazı gönderileceğini yazdık
LCDOUT 254,1, " LCD KULLANMA"
LCDOUT 254,192," PROGRAM : 01"
1-YAZI YAZMA
DEFINE OSC 4 ' PIC'in çalışma hızını 4 MHZ 'e ayarladık
DEFINE LCD_DREG PORTB ' Yazı bilgisini göndereceğimiz portu seçtik
DEFINE LCD_DBIT 4 ' Bilgi göndermek için başlangıç bitini seçtik
DEFINE LCD_RSREG PORTB ' LCD Register(Kayıt) Portunu seçtik
DEFINE LCD_RSBIT 0 ' LCD Register Bitini seçtik
DEFINE LCD_EREG PORTB ' Enable(Yazılma) Portunu seçtik
DEFINE LCD_EBIT 1 ' Enable bitni seçtik
DEFINE LCD_BITS 4 ' Kaç bitlik bir hattan bilgi transferi yapacağımızı yazdık.
DEFINE LCD_LINES 2 ' Kaç satırlık bir LCDmiz varsa yazdık
DEFINE LCD_COMMANDUS 2000 ' Kac mikrosaniyede bir komut gönderileceğini yazdık
DEFINE LCD_DATAUS 50 ' Kac mikrosaniyede bir yazı gönderileceğini yazdık
LCDOUT 254,1, " LCD KULLANMA"
LCDOUT 254,192," PROGRAM : 01"