Ynt: GLCD pinler eksik gibi

[yolcu27]

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?

[Maxim]

cevap çok basit: sizin ekran glcd değil