LPG dijital gösterge

arkadaşlar forumun bırınde gezerken gördüm bn yapamadım pek bi bilgim yok inş yardımı dokunur

[img][/img]

Bu devre standart bir PIC 16F877 tek kanal ADC okuma devresi. ADC kaynağı olarak ben ibreye taktığım pot'u okudum.
4 buton da depo miktarını ve gaz fiyatını girmek için.
Asıl önemli olan devre değil, ibredeki değişimi okuyabilecek hale getirebilmek. Benim kullandığım lpg
tartarini. Şamandıra üzerindeki ibre hareketi manyetik olduğu için şamandırayla ibre birbirinden bağımsız.
Bu yüzden ibreyi sökme zor olmadı. Bence ibreyi sökerken dikkatli olmalısın. Eğer şamandırayla ibre
birbirine bağlı ise açılması durumunda gaz sızıntısı yapabilir.

[img][/img]

programda kullanılan PIC kodu
Programı Picbasicpro'da yazılmış

deger var word
deger1 var word
toplamdeger var word
miktar1 var word
miktar2 var word
miktar3 var word
depomiktari var byte
fiyat var word
toplamfiyat var word
i var byte
zaman var byte


Define LCD_DREG PORTB
Define LCD_DBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 1
Define LCD_RWREG PORTB
Define LCD_RWBIT 2
Define LCD_EREG PORTB
Define LCD_EBIT 3

Define ADC_BITS 10
Define ADC_CLOCK 3
Define ADC_SAMPLEUS 50


TRISA = %11111111
ADCON1 = %10000010
pause 500

toplamdeger=0

ilk:
read 1,depomiktari
'depo miktarı 32 lt'ye göre
if depomiktari<30 or depomiktari > 36 then depomiktari = 32
read 2,fiyat.byte0
read 3,fiyat.byte1
if fiyat <1400 or fiyat>3000 then fiyat=1500

basla:
zaman=0
if portc.2=1 then
while portc.2=1
zaman=zaman+1
pause 50
if zaman>20 then goto setup
wend
endif
'Çıkış butonuna basıldığında fiyat olarak gösterir
if portd.1=1 then
while portd.1=1
toplamfiyat = miktar1*fiyat+(miktar2*fiyat)/10
lcdout $fe,$c0,#toplamfiyat," YTL "
pause 100
wend
endif
for i=1 to 24
adcin 0,deger
toplamdeger=toplamdeger+deger
next i
deger1=toplamdeger/12
toplamdeger=0
deger = 1023-deger1
if deger>=32 then
deger=deger-32
else
deger=0
endif
miktar3 = deger*depomiktari
miktar1=miktar3 / 1023
miktar2=miktar3-(miktar1*1023)
miktar2 = miktar2*10
miktar2 = miktar2 /1023
lcdout $fe,2,"Gaz Miktari "
lcdout $fe,$c0,#miktar1,",",dec1 miktar2," Litre "
pause 500
goto basla
setup:
LCDOut $fe,1,"Setup "
Pause 100
if portc.2=1 then goto setup
i=1
setup2:
IF portc.3=1 Then
i=i+1
if i>2 then i=1
while portc.3=1
pause 50
wend
EndIF
IF portd.0 =1 Then
i=i-1
if i<1 then i=2
while portd.0=1
pause 50
wend
EndIF
IF portc.2=1 Then
while portc.2=1
pause 50
wend
if i=1 then goto miktar
if i=2 then goto gazfiyati
EndIF
if portd.1=1 then
while portd.1=1
pause 50
wend
goto ilk
endif
IF i=1 Then LCDOut $fe,$c0,"Depo Miktari "
IF i=2 Then LCDOut $fe,$c0,"Fiyat "
pause 100
GoTo setup2
Return
miktar:
IF portc.3=1 Then depomiktari=depomiktari+1
while portc.3=1
pause 50
wend
IF portd.0 =1 Then depomiktari=depomiktari-1
while portd.0=1
pause 50
wend
if portc.2=1 then
while portc.2=1
pause 50
wend
write 1,depomiktari
goto setup
endif
if portd.1=1 then
while portd.1=1
pause 50
wend
read 1,depomiktari
goto setup
endif
LCDOut $fe,1,"Depo Miktari "
lcdout $fe,$c0,#depomiktari," Litre "
pause 100
goto miktar
gazfiyati:
IF portc.3=1 Then fiyat=fiyat+10
while portc.3=1
pause 50
wend
IF portd.0 =1 Then fiyat=fiyat-10
while portd.0=1
pause 50
wend
if (portc.2=1) then
while portc.2=1
pause 50
wend
write 2,fiyat.byte0
write 3,fiyat.byte1
goto setup
endif
if portd.1=1 then
while portd.1=1
pause 50
wend
read 2,fiyat.byte0
read 3,fiyat.byte1
goto setup
endif
LCDOut $fe,1,"Fiyat : "
lcdout $fe,$c0,dec4 fiyat," YTL "
pause 100
goto gazfiyati

---

şamandıra bağlantısı
Önce bu resimde görülen kırmızıyla işaretlenmiş olan 2 vidayı sökerek sensörü çıkarıyoruz. Sensörün kablo giriş soketi resimde altta görülüyor. Bu soketin konumunu unutmayın göndereceğim sensörün kabloları da aynı yöne gelecek. Zaten sadece 2 yönde takabilirsiniz. Bir süre kullanım sonrası hatalı takıldığını anlarsanız ters çevirirsiniz
[img]Önce bu resimde görülen kırmızıyla işaretlenmiş olan 2 vidayı sökerek sensörü çıkarıyoruz. Sensörün kablo giriş soketi resimde altta görülüyor. Bu soketin konumunu unutmayın göndereceğim sensörün kabloları da aynı yöne gelecek. Zaten sadece 2 yönde takabilirsiniz. Bir süre kullanım sonrası hatalı takıldığını anlarsanız ters çevirirsiniz[/img]
Çıkardığımız sensörün yerine resimde görülen sensörü kabloların yönüne dikkat ederek takıyoruz. Yani burada da kablolar aşağı bakacak.
[img][/img]

Bu kısımları doğru yaptıysanız tankla işimiz kalmıyor. Bundan sonra 5 mt. ara kablo ve göstergeyi de yerine takarak montaj işlemini bitiriyoruz.

Göstergede ek olarak mevcut lpg miktarıyla kaç km. gidebileceğiniz yazıyor. Mesafeye ait değerler ayarlanabiliyor. Aracınızın 1 lt. ile kaç km. gittiğini biliyorsanız cihaza girerek daha doğru tahmin etmesini sağlayabilirsiniz. Standart şehir içi 1 lt lpg ile 8 km , uzun yol 1 lt lpg ile 12 km ayarlı.

Depo miktarı standart 32 lt'ye ayarlı. Deposu büyük olanlar ayar menüsünden istediği değeri yazabilir.