---

arkadaşlar sinus işaretini doğrultarak pic e veriyorum ve sinus tepe değerine ulaştığında çikiş elde etmek istiyorum şöyle bi program düşünüdüm fakat bu programda giriş olmadan bile çikiş 1 oluyo hatayı anlayan veya başka onerisi olna varsa ;yardım etmek isteyen olursa minnettar olurum

defıne adc_bıts 8 'adc 8 bıt
defıne adc_clock 3 'clock kaynağı
defıne adc_sampleus 50 'örnekleme zamanı 50us

trısa=%00000001 'a portunun a0 ucu giriş
trısb=0 'b portu çıkış
porta=0 'a portunun ilk değeri 0
portb=0 'b portunun ilk değeri 0

adcon1=%0001000 '8 bit değişken tipi seçtik kullanacağımız değer 8 bit

adc_deger var byte
adc_eskı var byte

basla:
adcın 0,adc_deger '0 nolu kanaldan analog değeri oku ve adc_değer değişkenine aktar.

bak:ıf adcon0.2=1 then bak
adc_eskı=adc_deger

ıf adc_deger>=adc_eskı then bak
portb.0=1


end

---

---

http://www.elektrotekno.com/post-58528.html#58528

---

Başa dön

---

ibrsel e teşekkur ediyorum programı için biraz değişiklikle tam istediğim program oldu (proteus ta tam istediğim gibi yani giriş işareti ilk tepeden sonra çikiş 1 oluyo)

defıne adc_bıts 8 'a/d çevirim sonucu kaç bit olacak
defıne adc_clock 3 'clock kaynağı (3=rc)
defıne adc_sampleus 50
'-------------------------------------------------------------------------------
adcon1=%00001110
'-------------------------------------------------------------------------------
ham1 var word
ham2 var word
'-------------------------------------------------------------------------------
trisb=0:portb=0
led var portb.0
'-------------------------------------------------------------------------------

basla:
adcın 0,ham1
pause 25
adcin 0,ham2
pause 15
if ham1<ham2 then
led=0
goto basla
else
led=1
endif
end


fakat bu programı asıl devremde pıc e programlayıp borda taktıktan sonra giriş i vermeden bile çikişi 1 verio pıc, yardımcı olabilecek olan varsa sevinir teşekkurler...

---

Başa dön

---

sevgili serhatly; sana gönderdiğim programı değiştirmişsin. bu yüzden direk çıkış lojik 1 oluyuor.sana göndermiş olduğum programda sorun yoktu.sadece 2. tepe noktasında sinyali yakalayıp led için çıkış verdiğini belirtmiştin.bunun nedenini de programın başına koyduğum lcd beklemesinden dolayı lduğunu söylemiştim..

if ham1<ham2 then
led=0
goto basla
else
led=1
endif

programda bu kısmı değiştirmişsin.Aşağıda verdiğim gibi düzeltebilirsin karşılaştırma bölümünü( IF li kısmı)

Alıntı:

defıne lcd_dreg portb
defıne lcd_dbıt 4
defıne lcd_rsreg portb
defıne lcd_rsbıt 0
defıne lcd_ereg portb
defıne lcd_ebıt 1
defıne lcd_bıts 4
defıne lcd_lınes 2
'-------------------------------------------------------------------------------
defıne adc_bıts 8 'a/d çevirim sonucu kaç bit olacak
defıne adc_clock 3 'clock kaynağı (3=rc)
defıne adc_sampleus 50 'şarj zamanı mikro saniye cinsinden.
'-------------------------------------------------------------------------------
adcon1=%00001110
'-------------------------------------------------------------------------------
ham1 var word
ham2 var word
'-------------------------------------------------------------------------------
trisc=0:portc=0
led var portc.0
pause 1000
lcdout $fe,1
pause 200
'-------------------------------------------------------------------------------

basla:
adcın 0,ham1
pause 25
lcdout $fe,128,"ham1=",#ham1," "
adcin 0,ham2
pause 15
lcdout $fe,192,"ham2=",#ham2," "
if ham1>ham2 then
led=1
goto basla
endif
led=0
goto basla

---

Başa dön