KS0108 GLCD4 LM35DZ uygulaması

[aykut54]

http://www.4shared.com/file/187245405/2d293ac2/GLCD_4_LM35.html


@muhittin kaplan,@teknikelektronik hocalarıma teşekkürler

[muhittin_kaplan]

ellerine sağlık aykut.
Çalışmak Herzaman Zekadan Daha Üstün Bir Meziyettir.

[zakbay]

içindeki kod eksik

Device = 16F877
'Config XT_OSC,WDT_OFF,PWRTE_ON,BODEN_ON,LVP_OFF,DEBUG_OFF,CP_ALL  
XTAL = 4

'*****LCD TANIMLAMALARI******
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	 
BASLA:

                      
Include "Arialk12.txt"
Include "ARIAL8.TXT"

[aykut54]

arkadaşlar çok özür dilerim dosyları eklerken eksik olan kod dosyasını vermişim aşağıda orjinal kodlar tekrar tekrar özür dilerim

Device = 16F877
'Config XT_OSC,WDT_OFF,PWRTE_ON,BODEN_ON,LVP_OFF,DEBUG_OFF,CP_ALL  
XTAL = 4
'*****ADC TANIMLAMALARI******
TRISA=%000001       'RA0 PORTA.0 ANALOG GİRİŞ
ADCON1 = %10000010  '10 BİT ÇÖZÜNÜRLÜK ALMAK İÇİN
ADIN_RES 10         'ADC ÇÖZÜNÜRLÜĞÜ 10 BİT 0...1023 
ADIN_TAD FRC
ADIN_STIME 50       'ÖRNEKLEME ZAMANI 50 US
Dim HAM_DEGER As Word
Dim VOLT As Float 
'*****LCD TANIMLAMALARI******
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
Dim BARDEGER As Byte
Dim dongu As Byte
Cls
DelayMS 500	 
BASLA:
 HAM_DEGER=ADIn 0
        Print Font ArialK____12
        Print At 0,3,"HAM :", DEC3 HAM_DEGER 
        VOLT= (HAM_DEGER * 5) /1023
         VOLT=VOLT*1000
        Print At 15,0,"LM35:", DEC1 VOLT ," Mv " 
        VOLT=VOLT/10
        Print At 30,3,"SCK:", DEC1 VOLT ," C"
        DelayMS 10
        BARDEGER=VOLT
        GoSub BAR
GoTo BASLA
BAR:    
For dongu=0 To 127
            LCDWrite 6,dongu,[$00h]
          LCDWrite 7,dongu,[$00h]
         
        Next
        For dongu=0 To BARDEGER
         LCDWrite 6,dongu,[$FFh]
            LCDWrite 7,dongu,[$ffh]
             
        Next
        Return
                      
Include "Arialk12.txt"
Include "ARIAL8.TXT"

:oops:  :oops: