büyük bir heyecan ile glcd ve 16f877 picim gelince hemen proton ide ile bir resim basmak için kod yazdım internet yardımı ile.
dedim birde devre üzerinde deneyeyim. birde baktım ki GLCD olarak aldığım üründe cs1 cs2 pinleri yok
1 den 20 ye kadar yazayım sırası ile
GND - VCC- VO- RS- RW- E- DB0-DB1-DB2-DB3-DB4-DB5-DB6-DB7-PSB-NC-RST-VOUT-ANOT -KATOT
bağlantıyı nasıl yapmalıyım ve kod tanımlamada bu pinleri nasıl yazmalıyım .
haftasonuna kadar yetiştirmem gereken bir proje.
isis ile denedim kodum ile istediğim resmi basıyorum ama dediğim gibi bağlantıda sorunum var.
Device = 16F877
Config XT_OSC,WDT_OFF,PWRTE_ON,BODEN_ON,LVP_OFF,DEBUG_OFF,CP_ALL
Xtal = 4
All_Digital= TRUE 'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
LCD_DTPort = PORTD 'GLCD DATA PORTLARI PORTB'YE BAĞLI
LCD_RSPin = PORTC.5 'GLCD RS PİNİ PORTC.5 BAĞLI
LCD_ENPin = PORTC.1 'GLCD ENABLE PİNİ PORTC.1 BAĞLI
LCD_RWPin = PORTC.4 'GLCD RW PİNİ PORTC.4 BAĞLI
LCD_CS1Pin = PORTC.2 'GLCD CS1 PİNİ PORTC.2 BAĞLI
LCD_CS2Pin = PORTC.3 'GLCD CS2 PİNİ PORTC.3 BAĞLI
LCD_Type = GRAPHIC 'GLCD TİPİ GRAFİK KS0108 128*64B WİNSTAR
Internal_Font = On
Font_Addr = 0
GLCD_EXTERNAL_PRINT = PPRINT
Cls
DelayMS 500
Dim Xpos As Byte
Dim Ypos As Byte
Dim Addr As Word
Dim char As Byte
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon
arabalar1:
Cls
DelayMS 100
arabalar2:
For Ypos = 0 To 7
For Xpos = 0 To 127
Addr = (Ypos*128)+Xpos
char = CRead arabalar+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon
DelayMS 100
GoTo arabalar2
dikkat2:
Cls
DelayMS 100
dikkat3:
For Ypos = 0 To 7
For Xpos = 0 To 127
Addr = (Ypos*128)+Xpos
char = CRead dikkat+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon
DelayMS 100
GoTo dikkat3
kamyon:
Cls
DelayMS 100
kamyon2:
For Ypos = 0 To 7
For Xpos = 0 To 127
Addr = (Ypos*128)+Xpos
char = CRead kamyonaraba+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next
If PORTA.0=1 Then arabalar1
If PORTA.1=1 Then dikkat2
If PORTA.2=1 Then kamyon
DelayMS 100
GoTo kamyon2
Include "kamyonaraba.inc"
Include "arabalar.inc"
Include "dikkat.inc"
kodlar bu şekilde.
nasıl bir bağlantı yaparak nasıl bir lcd tanımlaması yapmalıyım?
mesaj birleştirme:: 12 Nisan 2016, 12:01:09
yeniden kodları düzenledim 3 resim görünecek şekilde porta.0 1 2 ye buton koydum if then komutları ile etiketlere yönlendirdim.
sadece şu glcd nin bağlantısı kaldı bir yardım lütfen. şimdi sipariş versem 1 haftaya ancak gelir. bunu değerlendiremez miyim?
cevap çok basit: sizin ekran glcd değil :)