Şimdi Ara

GLCD pinler eksik gibi

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
1
Cevap
0
Favori
270
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri
  • Son Yorum 6 yıl
  • Cevaplayan Üyeler 1
  • Konu Sahibinin Yazdıkları 1
  • Son 1 Saatteki Mesajlar 1
  • Konuya En Çok Yazanlar
  • yolcu27 (1 mesaj)
  • Konuya Yazanların Platform Dağılımı
  • Mobil (1 mesaj)
  • @
0 oy
Öne Çıkar
Giriş
Mesaj
  • 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.

    quote:

    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?

    < Bu ileti mobil sürüm kullanılarak atıldı >



    |
    |




- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.