با سلام
من میآخوام یه بایت اطلاعات رو بین دو تا میکرو با استفاده از دستور shiftin و shiftout انتقال بدم ولی هر کاری میآکنم اطلاعات درست منتقل نمیآشه :angry:
برنامم هم اینه:
فرستنده:
گیرنده:
کسی میآتونه راهنماییم کنه؟
من میآخوام یه بایت اطلاعات رو بین دو تا میکرو با استفاده از دستور shiftin و shiftout انتقال بدم ولی هر کاری میآکنم اطلاعات درست منتقل نمیآشه :angry:
برنامم هم اینه:
فرستنده:
کد:
$regfile = "m16def.dat" $crystal = 8000000 Config Porta = Output Dim A As Word A = 4 Shiftout Pina.0 , Porta.1 , A , 1 , 8 End
کد:
$regfile = "m16def.dat" $crystal = 8000000 $baud = 19200 Config Porta = Input Dim A As Word Shiftin Pina.0 , Porta.1 , A , 1 , 8 Print A End
دیدگاه