öncelikler günaydın abilerim, öğretmenlerim, ustalarım..
aynı yazılımın analoğ sensörle yaptığım projemde
'****************************************************************
Device 16F876
Xtal=20
Declare LCD_DTPin =PORTC.4
Declare LCD_RSPin =PORTC.1
Declare LCD_ENPin =PORTC.3
Declare LCD_Interface = 4
Declare LCD_Lines = 2
Declare LCD_Type = 0
Declare LCD_CommandUs = 2000
Declare LCD_DataUs = 50
Declare Adin_Res = 10
Declare Adin_Tad = 8_fosc
Declare Adin_Stime = 50
Dim SICAKLIK As Word
TRISA=%11111111
ADCON1 = %10000000
ADCON0 = %11000000
SICAKLIK = ADIn 0
basla:
AdcIn 3 , SICAKLIK
Print At 1,1, "SICAKLIK=", 5 , Dec SICAKLIK
DelayMS 400
Cls
GoTo basla
End
şu yazılımı yapmış olup çalışmasına kendim şahit oldum hatta plakaya basıp denediğim için sizlere yeni projemi 3 4 gün ara vererek sormak zorunda kaldım
şimdiki projemin ana konusu bu topic in başlığıdır
(http://s16.postimg.cc/6ymqskgu9/dijital.jpg) (http://postimg.cc/image/6ymqskgu9/)
projemde değitirdiğim tek sey analog sensör yerine dijitalini koymuş olmam yeni yazdığım yazılım kitabında çok yardımı ile şu şekildedir
Device 16F876
Xtal=20
Declare LCD_DTPin =PORTC.4
Declare LCD_RSPin =PORTC.1
Declare LCD_ENPin =PORTC.3
Declare LCD_Interface = 4
Declare LCD_Lines = 2
Declare LCD_Type = 0
Declare LCD_CommandUs = 2000
Declare LCD_DataUs = 50
Dim TEMP As Word
Dim C As Byte
Dim CPERD As Byte
Cls
TRISA=%11111111
Symbol dQ = PORTA.3
basla:
OWrite dQ , 1 , [$CC,$44]
Repeat
DelayMS 25
ORead dQ , 4 ,[C]
Until C < > 0
OWrite dQ , 1 ,[$CC , $BE]
ORead dQ ,2,[TEMP.LowByte,TEMP.HighByte,C,C,C,C,C,CPERD]
Print At 1,1, Dec TEMP/ 100, ".",Dec2 TEMP,"",At 1 ,8 , "C"
GoTo basla
End
fakat yukardaki ısıs devremde gördüğünüz gibi ekran bomboş çıkıyor burdaki tanımlamalarımda yanlışı nerde yaptım çözmeye çalıştım sonra size sordum. şimdiden teşekkür ederim.
PORTA.3 ü giriş olarak tanımlamanız okuma için yeterli olmayabilir. Digital olduğunuda belirtmelisiniz.
analoğ değil analog :)
kodu incelemedim
keşke isis dosyasını verseydiniz denerdik
Declare All_Digital= true
yazıp deneyin belki porta.3 analog kalıyordur
yazıp denedim olmadı ısıs dosyasını atamadım yukarıda sadece temel resim yükleme modunu görüyorum oda ne yazıkki ısıs dosyasını almıyor. benm aklıma gelen herseyi denedim aslında neden olmuyor anlamıyorum. bu olmamalar iyiki beni pes ettirmiyor ama genede tıkanıyorum. ne güzel analogtaki
Declare Adin_Res = 10
Declare Adin_Tad = 8_fosc
Declare Adin_Stime = 50
Dim SICAKLIK As Word
TRISA=%11111111
ADCON1 = %10000000
ADCON0 = %11000000
SICAKLIK = ADIn 0
protokolleri hemen oldu ama dijitali neden okumadıkiiii
ADCON1 i datasheetin 112.ci sayfasındaki tabloya göre değiştir. yukarıdaki tanımlaman PORTA.3 analog....
@a4tech33
isis dosyasını internette bir yerlere yüklemen lazım buraya koyamazsın
onu araştırıp yüklersen biz burada hemen devreni test edebiliriz
yoksa kimse 2 saat sıfırdan devre çizmez
hem senin işin çabucak çözülmüş olur
indirme linki: http://www.yukletr.com/download.php?file=48cf7d11d5c81ceaaa80a6c3c20835f3 (http://www.yukletr.com/download.php?file=48cf7d11d5c81ceaaa80a6c3c20835f3)
yükledim yazılımda üstte zaten bakarsanız çok makbule gececektir
DS18B20 din DQ pinini 10 K ile pull-up yap.....
Düzeltme datasheets te 4K7 diyor.. simülasyonda 10 k ile çalışır ancak gerçek devrede 4K7 kullanman gerekir.
bende hazır bir kod vardı onu kullandım uğraşmadan, şimdi çalışıyor
şemada ve kod içinde dikkat gereken etmen yerler var
-her kod içerisinde en üstte config tanımlamalarını mutlaka yapmalısın
-osc hızın ne ise isis te işlemci hızınıda öyle ayarlaman şart
-18b20 de pull-up direnci kullanmalısın (4K7)
-lcd nin 5 numaralı ayağını gnd ye verebilirsin
http://www.yukletr.com/download.php?file=2308398aea25c5dded38dae5efdbc43a (http://www.yukletr.com/download.php?file=2308398aea25c5dded38dae5efdbc43a)
(http://s3.postimg.cc/n3ztnydtr/image.jpg) (http://postimg.cc/image/n3ztnydtr/)
derece hiç değişmiyor bu sayı sabit kaldı bir de senin yolladığın ısıs i acınca şöyle bir sey geliyor
(http://s16.postimg.cc/5nttkun0h/image.jpg) (http://postimg.cc/image/5nttkun0h/)
heralde isis versiyon uyuşmazlığı var, bende düzgünce çalışıyor.
bendeki 7.10 SP0 versiyonu
olabilir devreyi yapıp deneyeceğim genede çok teşekkür ederim. son 1 sorum olacak şimdilik 12f675 te dahili osilatörü kullanmam için hangi kodu yazmam gerekir
bu şekilde
Device 12F675
Declare Xtal=4
Config CPD_OFF,CP_OFF,BODEN_ON,MCLRE_OFF,PWRTE_ON,WDT_OFF,INTRC_OSC_NOCLKOUT
(http://s18.postimg.cc/xdrvup8ut/20150303_164923.jpg) (http://postimg.cc/image/xdrvup8ut/)
ABİ DEVREYİDE YAPTIM ama bu dereceden başkasınıda göstermiyor aynı benim ısıstaki gibi sorun nedir acaba bir fikir verin oradan gideyim
sensör 18B20 değilmi kesin?
dallas 1820 yazıyor usta
onun formülleri farklıdır
18B20 tak çalışır
(http://i.hizliresim.com/BZOJPG.jpg)
(http://i.hizliresim.com/vgak5D.jpg)
aynen hata ondan olabilir usta. çok sağolasın baya uğraştn benmle sende artık onuda bizim malzemeciden sipariş verdiğimde isteyecem . ha şunuda denedim 1820 haberleşme protokolune baktm karmakarısık geldi birisinin anlatması lazım olmuyor kafam almıyor. bende 2 yıllık endüstriyel elektronik okumus 26 yasında bir gencim kendimi geliştirmeye çalısıyorum . bir fabrikada calısıyorum ve hazır kartlara direnc , entegre, pot ws.. malzeme lehimliyorum. arada sende bana su dewreyi yap tarzında yeni seyler söyleyebilirsin kendimi geliştirecek örnekler arıyorum hep. şimdide dolmusa binen ve inen insanları sayacak devre yapacam. artık bir yerde tıkanırsam tekrar sana dönerim usta. çok sağol allah razı olsun