یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

[milad066]

پاسخ : یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

عجب! چقدر در مورد این سنسور جنجال وجود داره در مجامع علمی!
شما پست قبلی منو ندیدی؟! :applause:

دوحالت داره دیگه: یا ندیدی(!) یا شاید هم دیدی ولی کدی وجود نداره که پلود کنی.

وای ببخشید ایمیل من اینهmilad_tandis_66@yahoo.com

[شاهرخ مستقیمی]

پاسخ : یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

سلام.ایمیل رو براتون فرستادم.

[aryanaar]

پاسخ : یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

این لینک هیچوقت ف نمیشه !
منم براتون ایمیل فرستادم ، دقیقا پروژتون چی ، که اگر تونستم براتون درستش کنم ؟
چند روز دیگه فرصت دارید ؟
اگر خیلی خیلی گیر کردین ، یه روز بیاین پیشم که براتون درستش کنم (البته سرم خلوت باشه )

[milad066]

پاسخ : یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

سلام.ایمیل رو براتون فرستادم.

مرسی مرسی مرسی...
اقا خیلی ممنون از این لطفطون به کابوس25 روزه من پایان دادید.من الان تهران هستم و سر سیستم خودم نیستم که بخوام این برنامه رو با پروتوس طراحی کنیم
بعد این دستور پایین فقط نمیفهمم
include "MODEDEFS.BAS" // fekr konam baraye ersale serial boode va lazem nist

[aryanaar]

پاسخ : یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

include "MODEDEFS.BAS" // fekr konam baraye ersale serial boode va lazem nist

بهش فکر نکن :nice:
شاید چند روز دیگه خودم کامپایلر رو نصب کنم و انجامش بدم ( انجام دادم براتون میفرستم ) :bye

[milad066]

پاسخ : یعنی تو این همه استاد هیچ کس باds18b20کار نکرده

ببخشید که اونطورگفتم ولی بخدا20روزه هرکاری میکنم از کار این سنسورسردر نمیارم لطفا راهنماییم کنین
فقط نگین دیتا شیتش رو بخون که1000بار خوندم وهیچی دستگیرم نشده.
میخوام این سنسورروبهpic16f84وصل کنم خواهش میکنم اگه طرز کار این سنسور رو میدونین
راهنماییم کنیین
باتشکر فراوان

سلام من با کمک دوستان نتیجه ایی که میخواستم گرفتم حالا برنامش رو میزارم که دوستان دیگه ایی هم که
مثل من مشکل دارن بتونن ازین سنسور استفاده کنن
trisb=00000100
define lcd_dreg portb
define lcd_dbit 4
define lcd_rsreg portb
define lcd_rsbit 1
define lcd_ereg portb
define lcd_ebit 3
define lcd_bits 4
define lcd_lines 2
a var word
b var bit
c var word

remain var word
per var byte
main:


pause 40
lcdout $fe,1
OWOut portb.2, 1, [$CC, $44]

OWOut portb.2, 1, [$CC, $BE]
OWIn portb.2, 0, [a.LOWBYTE,a.HIGHBYTE]
lcdout $fe,$c0,dec a
b = a.15
a = ABS(a)

a = (a>>1)*10 + (a.0 * 5)'
if b=1 then lcdout $fe,$80,"temp=-", DEC (a/10 ), ".", DEC1 a, %11011111, "C"
if b=0 then lcdout $fe,$80,"temp=+", DEC (a/10 ), ".", DEC1 a, %11011111, "C"



goto main