LCD ekranin ilk satirina PIC BASIC, ikinci satirina ise TEKNOLOJİDERSİ.COM yazdiran program.

Program içerisindeki tanimlamalar Sekildeki uygulama devresine göre düzenlenmistir. Belirtilen uygulama devresi, PicBasicPro’da özel tanimli devre olmadigindan her bir baglanti seklinin
DEFINE komutu ile tanimlanmasi gerekir.
Bu program uygulama devresine yüklendiginde LCD ekran üzerinde PIC BASIC ile TEKNOLOJİDERSİ.COM görüntülenir.

Programin (1)-(10) nolu komut satirlari arasinda Sekildeki uygulama devresine göre, LCD’nin PIC16F84’ün hangi portlarina ve portlar üzerinde hangi pinlere bagli olduguna dair tanimlamalar yapilmaktadir.
(1) DEFINE LCD_DREG PORTB ‘LCD data pinleri PORTB’ye bagli.
(2) DEFINE LCD_DBIT 4 ‘LCD data pinleri 4. bitten basliyor.
(3) DEFINE LCD_EREG PORTB ‘LCD enable pini PORTB’ye bagli.
(4) DEFINE LCD_EBIT 3 ‘LCD enable pini 3. bit’e bagli.
(5) DEFINE LCD_RWREG PORTB ‘LCD R/W pini PORTB’ye bagli.
(6) DEFINE LCD_RWBIT 2 ‘LCD R/W pini 2. bit’e bagli.
(7) DEFINE LCD_RSREG PORTB ‘LCD RS pini PORTB’ye bagli.
(8) DEFINE LCD_RSBIT 1 ‘LCD RS pini 1. bit’e bagli.
(9) DEFINE LCD_BITS 4 ‘LCD 4 bit bagli.
(10) DEFINE LCD_LINES 2 ‘LCD 2 satir çalisiyor.
(11) PORTB çikis olarak tanimlanmaktadir.
(12) PORTB.2 , “0” yapilarak LCD’ye yazmaya imkan vermek için R/W girisi Low yapilarak Yazma (W) moduna alinir. LCD’nin R/W girisi devre üzerinde saseye baglanirsa program içerisine (5), (6) ve (12) nolu komut satirlarini yazmaya gerek kalmaz.
(13) nolu komut satiri ile LCD’nin kullanima hazir hale gelmesi için gerekli gecikme süresi ayarlanir.
(14) nolu komut satiri ile LCD ekrani silinir.
(15) nolu komut satirinda LCDOUT $FE,2 komutu ile kursör satir basina getirilir ve tirnak içerisinde belirtilen “PIC BASIC” ekrana yazdirilir.
Ekrana yazdirilacak tüm karakterler program içerisinde tirnak (“) isareti ile gösterilir.
Bu komut satirinda PIC BASIC yazisinin ilk satira yazilacagi belirtilmemistir. Eger komut satiri içerisinde yazinin kaçinci satira yazilacagi belirtilmez ise Picbasic programi
ilgili yaziyi LCD’nin ilk satirina satir basindan itibaren yazar.
Ayni komut satirinda LCDOUT $FE,2 komutunda “2” rakami yazilmasa dahi LCD ekran üzerinde yazma islemi satir basindan baslar.
(16) nolu komut satirinda LCDOUT, $FE,$C0 komutu ile kursör ikinci satirin basina getirilerek, “TEKNOLOJİDERSİ.COM” ekrana yazdirilir.
Bu komut satirinda yazinin ikinci satira yazilacagi belirtilmesine ragmen, yazma isleminin ikinci satirin hangi bölgesine yazilacagi belirtilmemistir. Eger komut satiri içerisinde yazinin satir içerisinde kaçinci bölgeye yazilacagi belirtilmez ise Picbasic programi ilgili yaziyi LCD’de satir basindan itibaren yazar.
(17) nolu komut satirindaki END komutu ile program sonlandirilir.
Write a comment