18f452 için ds1302 ve 18b20 proton kodları !!

[emrah]

slm arkadaşlar  konu başlıgında yazdıgım gibi 18b20 ve ds1302 proton kodları lazım, olan arkadaşlardan rica etsem cevap olarak kodları verebilirlermi ?

[Maxim]

arama yapınız ,forumda kodlar mevcut

https://www.picproje.org/index.php/topic,23829.msg159936.html#msg159936

[emrah]

teşekkurler, arama yapınız diyosunuzda formda cok arşiv var ve hangi başlıklar altında bu kodların olacagı bilinmiyor bile. senin gönderdigin sayfada benim aradıgım kodla orda yazan başlık arasında cok fark var.

o syfada sadece 18b20 ile ilgili örnek var, ds1302 pic18f452 ile ilgili olan yer varsa orayıda yazarmısınız?  teşekkurler

[Maxim]

hem 18b20, hem ds1302 hemde pic18f452 ile çalıştırılmış kod !
3 ü bir yerde, tam sana göre hazır ve daha önce yazılmış?
kusura bakma ama öyle bir kod yok
varsa bile zor bulursun

önce 18b20, sonra ds1302 ile ilgili kodları alıp 18F452 de çalıştırabilirsin, en azından denersin ..
yapamadınmı?? buraya yazarsın, bu olay böyle yürür.

kodları arama yaparken sadece proton+ kısmında ara ,bütün forumu arama

picbasic kısmındaki kodlarda işe yarar

[emrah]

ben hepsini bir denicem flan demedim zaten, ilk başte 18b20 için bir yer gösterdin, eger biliyosan rtc içinde biryere gönderebilirdin. yanlış anladın hepsni bir yerde istemedim, picbasıc te yazıyorum da biliyorumda. 18 f serisine ve protona yeni geçtigim için kodlar hayli ile degişik.

teşekkürler....

[Maxim]

picbasic versiyonunu veya protonda yaptığınız çalışma kodlarını buraya koyun ,beraber halledelim.

[kahraman10]

ds18 için

READ_TEMP:
		OWrite DQ, 1, [$CC,$44]				  'Send calculate temperature command
		Repeat
		DelayMS 25 	  						  'Waiting loop until reading complete
		ORead DQ, 4, [C]					  'Monitor for pin high transition ... 
		Until C <> 0 						  ' ... reading complete
		OWrite DQ, 1, [$CC, $BE]			  'Send read scratchpad command
		ORead DQ, 2, [Temp.LowByte,Temp.HighByte]
       ISI=Temp>>4	
Return