proton da glcd için bir adet bar komutu rica etsem.

[muhittin_kaplan]

       Device 16F877A
        XTAL 4
        
;--- ADC tanımlamaları----------------------------------------     
        TRISA=%000001      
        ADCON1 = %10000010  
        ADIN_RES 10         
        ADIN_TAD FRC
        ADIN_STIME 50      


;------LCD TANIMLAMALARI------------------------------------------
        Dim  Xpos    As Byte
        Dim  Ypos    As Byte
        Dim  Addr    As Word
        Dim  char    As Byte
 
		LCD_DTPORT = PORTD
		LCD_RSPIN = PORTC.1
		LCD_ENPIN = PORTC.4
		LCD_RWPIN = PORTC.0
        LCD_CS1PIN = PORTC.3
		LCD_CS2PIN = PORTC.2
        LCD_TYPE = GRAPHIC
		INTERNAL_FONT = On
		FONT_ADDR = 1
        GLCD_EXTERNAL_PRINT = PPRINT 
        ;GLCD_CS_INVERT On           ;LCD tipi bunu destekliyor proteusta olmaycak gercekte olacak

;-------Genel Tanımlamalar--------------------------------------------

        Dim BarDeger As Byte
        Dim Ham As Word
        Dim Olcum As Float 
        Dim PLSatir As Byte
        Dim SilDeger As Byte
        GoSub Ciz

Adc_al:
           Ham=ADIn 0
           Olcum=Ham * 0.46875    ;4.8 volt için
           

           Print Font ArialK____12
           Print At 20,50,DEC2 Olcum," C "
           GoSub Bar
           GoTo Adc_al
Ciz:
        For Ypos = 0 To 7
            For Xpos = 0 To 127
                 
                Addr = (Ypos*128)+Xpos
                char = CRead img+Addr
                LCDWrite Ypos,Xpos,[char]
            Next
        Next
 
        DelayMS 100
        Return 
Bar:
                  
        For PLSatir=50-Olcum To 4 Step -1
            UnPlot PLSatir,7
            UnPlot PLSatir,8
            UnPlot PLSatir,9
            UnPlot PLSatir,10
            UnPlot PLSatir,11
            UnPlot PLSatir,12
            UnPlot PLSatir,13
            UnPlot PLSatir,14
        Next
        
        For PLSatir=53 To 53-Olcum Step -1
            Plot PLSatir,7
            Plot PLSatir,8
            Plot PLSatir,9
            Plot PLSatir,10
            Plot PLSatir,11
            Plot PLSatir,12
            Plot PLSatir,13
            Plot PLSatir,14
        Next

         
        Return
        Stop        

        Include "arial18.inc"
        Include "img.inc"

Kodlar Yukarıda

Devre Burada

Resim Aşağıda

[FUNKY]

muhittin_kaplan hocam yine güzel bir örnekle bize yadımcı oldun teşekkür ederim.

[teknikelektronikci]

hocam elinize sağlık çok güzel olmuş
bu arial k12 için arial18 dosyasını proje içinemi atmak gerek yoksa program files deki proteus içinemi? ve bu font için sadece arial18.inc dosyası yeterlimi? aykut hocam bi ara forumda paylaşmıştı sanırsam

[muhittin_kaplan]

projenin olduğu klasör olabilir. yada proton un inc içerisinde olabilir her iki durumda da derleyebilirsiniz.
Aşağıda Font Oluşturmak için ve İmage BAsmak vs için gerekli olan Programlar Var
Araçlar

[aykut54]

muhittin abi teşekkürler güzelolmuş bu programı DS18B20 uygulamasında kullanırım bu arada glcd çalıştırmışsın hayırlı olsun.

görüşürüz.

[muhittin_kaplan]

teşekkür ederim arkadaşlar

[FUNKY]

arkadaşlar yaptığımız bu bar çalışmaları VU metre yapmada kullanırsak hareketleri yavaş kalıyor gibi. proteusta girişe pot bağlayıp  sim. anında potun değerini hızla değiştirdiğimde  ekranın altında geçen zamanla orantılasam bile yavaş kalıyor . uygulamada da böyle mi acaba.?

[muhittin_kaplan]

lm35 ile sıkıntı yaşamadım ama vu metre gibi bir çalışmada denemedim

[teknikelektronikci]

arkadaşlar yaptığımız bu bar çalışmaları VU metre yapmada kullanırsak hareketleri yavaş kalıyor gibi. proteusta girişe pot bağlayıp  sim. anında potun değerini hızla değiştirdiğimde  ekranın altında geçen zamanla orantılasam bile yavaş kalıyor . uygulamada da böyle mi acaba.?

isisdeki gibi yavaş olmaz hatta güzelde olur forumda 18f adc ile audio spectrometre yapan var