12 Volt Gerilim Okuma

[erdogan2734]

 Sevgili alegro öncelikle merhaba dedğin gibi yaptım büyük direnç değerleri ile 12 Voltu gerilim bölücü taktiği ile 12 volt=5 volt şeklinde düşürdüm şimdi asıl mesele programı yazmak. Anladığım kadarıyla pic 16f88 in A0 bacağından ADC yapılabiliyor. Şimdi biraz programla uğraşayım diyorum bu arada eğer forumda buna benzer bir program varsa bana link yazarsanız çok sevinirim...

[Erol YILMAZ]

Misal...

12V u 2k2 ve 1k direnç ile böldün, 3.75V elde ettin...
bunu adc ile okudun...
767 değerini elde ettin.
bu 767 değerini 63.92 ye bölersen   12V u elde edersin.

Bu durumda ADC den hangi değeri okursan oku 63.92 ye bölersen dışarıdaki gerilimi elde edersin.

[erdogan2734]

Misal...

12V u 2k2 ve 1k direnç ile böldün, 3.75V elde ettin...
bunu adc ile okudun...
767 değerini elde ettin.
bu 767 değerini 63.92 ye bölersen   12V u elde edersin.

Bu durumda ADC den hangi değeri okursan oku 63.92 ye bölersen dışarıdaki gerilimi elde edersin.

Programı Aykut Hocamızın Bir programından alıntı yaparak yazmaya çalıştım.

TRISA=%00000001             'PORTA.0 POT BAĞLI GİRİŞ
TRISB=0                     '2*16 LCD BAĞLI ÇIKIŞ
'*****LCD TANIMLAMALARI*****
DEFINE LCD_DREG     PORTB   'LCD DATA BACAKLARI PORTB'YE BAĞLI
DEFINE LCD_DBIT     4       'LCD DATA BACAKLARI PORTB.4 BAĞLI
DEFINE LCD_EREG     PORTB   'LCD ENABLE PİNİ PORTB'YE BAĞLI
DEFINE LCD_EBIT     3       'LCD ENABLE PİNİ PORTB.3 BAĞLI
DEFINE LCD_RSREG    PORTB   'LCD RS PİNİ PORTB'YE BAĞLI
DEFINE LCD_RSBIT    2       'LCD RS PİNİ PORTB.2 BAĞLI
'RW PİNİ TOPRAĞA BAĞLADIK DOLAYISIYLA BI PİN GEREKLİ KOMUT YAZMAYA GEREK YOKTUR.

'*****ADC TANIMLAMALARI*****
DEFINE ADC_BITS      10     'ADC 10 BİT
DEFINE ADC_CLOCK     3
DEFINE ADC_SAMPLEUS  50     'ÖRNEKLEME ZAMANI 50 MİKROSANİYE
ADC_DEGER VAR WORD          'ADC_DEGER 16 BİT WORD CİNSİNDEN TANIMLAMA
ADCON1=%10000010             '10 BİTLİK ADC İÇİN GEREKLİ DEĞER
pause 500
lcdout $fe,1
lcdout $fe,$82,"DENEME"
BASLA:
ADCIN 0,ADC_DEGER           'AN0 KANALINDAN ADC DEGERINI OKU
LCDOUT $FE,$C1                'LCD İÇERİĞİNİ TEMİZLE
LCDOUT "ADC_DEGER ",DEC ADC_DEGER
PAUSE 500
GOTO BASLA
END

Ancak resimdede görüldüğü gibi 3.75 voltta sizin dediğiniz 767 değerini alamıyorum zaten alsam matematiksel bir kaç işlemle olayı bitireceğim işallah.

[Erol YILMAZ]

1k ile 2k2 yi yer değiştir....

şaseye karşı 3.75 V ölçeceksin.

[erdogan2734]

1k ile 2k2 yi yer değiştir....

şaseye karşı 3.75 V ölçeceksin.

Tamamdır şimdi oldu artık matematik konuşturmam lazım. Sevgili alegro bu forumda açtığım ilk konuyada senin yorumun var. O zamanlar yeni başlamıştım
pic basic diline. Uğraşmak iyide bazen öz eleştri yapmakta gerekiyor. Hazıra çok alışıyor insan. Galiba bende özellikle bu programda  baya bi tembellik yaptım. Neyse bu kadar itiraf yeter az daha program çalışayım ben