16,32,48 ve 80 Adım Analog Bar Gösterge Şema + Kod

[alayli]

Merhabalar;

Zaman zaman LCD'de analog bar gösterim ihtiyacım olur. Duruma ve ihtiyacım olan çözünürlüğe göre 16,32,48 veya 80 adım bar gösterge kullanırım. Sizlerin de Proton+'da bu göstergeleri kullanabilmeniz ve konuyu kavrayabilmeniz için bir örnek kod ve şema ekliyorum. 20 ve 40 sütun LCD'ler için sırasıyla 20,40,60,100 adım ve 40,80,120,200 adım analog barlar oluşturmak olası. Uzun uzun açıklamalar yazmadım. Anlaşılmayan hususları sorun açıklıyayım...

Proteus7.xx uyumlu dizayn dosyası ve Proton+ örnek kodlar hex vb. aşağıadaki linkte rar dosyasının içinde...

http://www.4shared.com/file/l2S9y6DF/BAR_2.html

[F.T]

teşekkürler.

[Murat Mert]

S.A.
Hocam güzel olmuş eline sağlık

[Maxim]

üstad, eline sağlık

[mustafa_cmbz]

çağatay abi çok teşekkür ederim..şimdi iş başa düştü bunu glcd versiyonunu yapmak var

[KAZIMUGUR]

Daha önce böyle çalışmalar yapan arkadaşların dosyaları .

http://www.4shared.com/file/6Q0IdEgA/LCD_Bar.html

[teknikelektronikci]

çağatay abi çok teşekkür ederim..şimdi iş başa düştü bunu glcd versiyonunu yapmak var

grafik lcd versionu vfar forumda analog degerleri an0 dan ölcüp barda gösteriyor muhitin hocanin calismasaydi sanirim hatta dur arsivime bakayim bulursam eklerim

[teknikelektronikci]

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [Muhittin KAPLAN]                                 *
'*  Notice  : Copyright (c) 2010 [K2K Tek]                      *
'*          : All Rights Reserved                               *
'*  Date    : 09.01.2010                                        *
'*  Version : 1.0                                               *
'*  Notes   : isi deneme                                        *
'*          :                                                   *
'****************************************************************
        Device 16F877A
        XTAL 4
        
;--- ADC tanýmlamalarý----------------------------------------     
        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


;------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"

       

[Hattusa]

s.a.
arkadaşlar bu bar ın ters istikametine çalışan türü yapılabilir mi? hep soldan sağa doğru bir uygulama var birde sağdan sola bar ilerlemesi yapılabilirmi?

[cesmeali]

merhaba alaylı arkadaşım dosyayı indiremedim.bir daha yüklermisin?

[dnacikaya]

merhaba alaylı arkadaşım dosyayı indiremedim.bir daha yüklermisin?

Paylaşım için teşekkürler alaylı, @cesmeali öncelikle ultrasurf programı  ile sayfaya ulaşabilirsin. Sonra üye olmalısın. Sonra dosyayı yükleyebilmek için şifreyi girmelisin. Bu iş böyle uzar gider, rar şifreli değil   yükleme şifresi:  www.picproje.org

[cesmeali]

Paylaşım için teşekkürler alaylı, @cesmeali öncelikle ultrasurf programı  ile sayfaya ulaşabilirsin. Sonra üye olmalısın. Sonra dosyayı yükleyebilmek için şifreyi girmelisin. Bu iş böyle uzar gider, rar şifreli değil   yükleme şifresi:  www.picproje.org

merhaba arkadaşım,,sonunda indirdim.proton öğrenmeye çalışıyorum.bar olustururken lcd 1.satırıa cizgilkerin nasıl cekildiğini öğrenmek istiyorum.programı yazan alaylı arkadasıma teşekkür ederim.