سوال در مورد ارتباط w1

[parsdc]

سلام دوستان خواهش میکنم کمک کنید
من دوتا m32 را پروگرام کردم یکی از اونا با دستور زیر که در حلقه هست شروع به ارسال اطلاعات میکنه
1WWRITE C
و c یک واحد یک واحد افزایش پیدا میکنه

دیگری هم با دستور زیر اطلاعات را دریافت میکنه و در lcd نمایش میده
var2 = 1WREAD(1)[left][/left
البته پایه ی B0 در هر دوتا کانفیگ شده و با 8Mhz داخلی هر دو برنامه ریزی شدن
اما مرتب در lcd عدد 255 دیده میشه و تا ارتباط این دوتا قطع میشه عدد صفر میشه
خواهش میکنم کمک کنید من چطور میتونم اطلاعات را از طریق ارتباط 1w بفرستم و دریافت کنم

[parsdc]

پاسخ : سوال در مورد ارتباط w1

دوستان خواهش میکنم اگه کسی اطلاعاتی داره کمک کنه خیلی برام مهم هست :applause:
من میخوام با این ارتباط کار کنم اما در گیرنده مشکل دارم :angry:

[nima_2000ir]

پاسخ : سوال در مورد ارتباط w1

برنامه فرستنده
$regfile = "m32def.dat"
$crystal = 8000000
Config 1wire = Portb.0
Dim C As Byte
1wreset
Do
Incr C
1wwrite C
Waitms 500
1wwrite c
Waitms 500
Loop
End

برنامه گیرنده

$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pind.2 , Db5 = Pind.3 , Db6 = Pind.4 , Db7 = Pind.5 , Rs = Pind.0 , E = Pind.1
Config 1wire = Portb.0
Dim A As Byte
1wreset
Do
Bitwait Pinb.0 , Reset
A = 1wread()
Locate 1 , 1
Lcd A
Waitms 500
Loop
End