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ı:
Yorumlar
Yorum Gönder