21 Ağustos 2013 Çarşamba

proton basic glcd 128X64 uygulaması




Proton basic ile uygulamalar kolaylıklla gerçekleştirilebiliyor. Ancak simulasyon ortamından reel devrelere geçişte sıkıntılar olabiliyor. Picproje.org forumda ares2039 rumuzlu üyenin karşılaştığı bir sorunda 320volt.com dan kod örneği vermiştim, ancak kod simulasyonda çalışmasına rağmen gerçek devrede çalışmamıştı. Kodda yapılan düzenlemeler sonucunda aşağıdaki çalışan kod oluşturulmuş. Ayrıntılı bilgiler ve kaynak site için aşağıdaki linki ziyaret ediniz.


Çalışan Proton basic Kodu:

Device = 16F877A
XTAL = 20
ALL_DIGITAL= TRUE      'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
Declare LCD_DTPORT PORTD     'GLCD DATA PORTLARI PORTB'YE BAĞLI
Declare LCD_RSPIN  PORTC.5   'GLCD RS PİNİ PORTC.5 BAĞLI
Declare LCD_ENPIN  PORTC.1   'GLCD ENABLE PİNİ PORTC.1 BAĞLI
Declare LCD_RWPIN  PORTC.4   'GLCD RW PİNİ PORTC.4 BAĞLI
Declare LCD_CS1PIN PORTC.2   'GLCD CS1 PİNİ PORTC.2 BAĞLI
Declare LCD_CS2PIN PORTC.3   'GLCD CS2 PİNİ PORTC.3 BAĞLI
Declare LCD_RSTPIN PORTC.6   'GLCD RESET PİNİ PORTC.6 BAĞLI
Declare LCD_TYPE   SAMSUNG   'GLCD TİPİ GRAFİK KS0108 128X64A WİNSTAR
INTERNAL_FONT = On                 
FONT_ADDR = 1
GLCD_CS_INVERT On            'LCD tipi bunu destekliyor proteusta olmaycak gercekte olacak

GLCD_EXTERNAL_PRINT = PPRINT
Cls
DelayMS 500 

Dim  Xpos    As Byte
Dim  Ypos    As Byte
Dim  Addr    As Word
Dim  char    As Byte 

START:

     For Ypos = 0 To 7
         For Xpos = 0 To 127

             Addr = (Ypos*128)+Xpos
             char = CRead galatasaray_logo+Addr
             LCDWrite Ypos,Xpos,[char]
         Next
     Next

     DelayMS 100

     GoTo    START 


Include  "galatasaray_logo.inc"

Devre Şeması: