Az karanlıkta tek led, çok karanlıkta iki led
yanmaktadır. Ledlerin yerine transistör ile
röleyi sürebilirsiniz. Röleye ters yönde diyot
bağlamanız gerekecek.
Tüm dosyaların bulunduğu RAR dosyasını
aşağıdaki linkten indirebilirsiniz.
DEFINE LOADER_USED 1
'define osccal_1k 1
define osc 4
'@ DEVICE pic12F675,XT_OSC,mclr_off
@ DEVICE pic12f675,INTRC_OSC_NOCLKOUT, mclr_off
Define ADC_BITS 8 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS
adval var byte
ANSEL = 0100 ' AN2 analog kanal digerleri digital
trisio=001111 ' giris ve cikislar ayarlandi
gpio =001111
OPTION_REG.7 = 0
OSCCAL = 3432
high gpio.4
pause 3000
low gpio.4
ANA:
ADCIN 2, adval ' AN2
select case adval
case is<50
high gpio.4
case is<80
high gpio.5
case is>50
low gpio.4: low gpio.5
end select
Goto ANA
End
2 Kanal LDR Dosyaları indir 12F675 LDR Bas Videolu