سلام
من میخوام با دستورات shiftin &shiftout بین دوتا میکرو ارتباط برقرار کنم.حالا دو تا برنامه زیر رو نوشتم ولی هر کاری کردم نتونستم جواب بگیرم. یه تاپیک هم در همین مورد تو سایت بود که اونم نتونست کمکم کنه.:angry:لطفا من رو راهنمایی کنید؟
گیرنده:
$regfile = "m8def.dat"
$crystal = 4000000
Config Portc = Input
Config Portb = Output
Dim A As Word
Shiftin Pinc.0 , Pinc.1 , A , 1 , 8
Portb = A
End
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
Config Portc = Output
Dim A As Byte
Shiftout Portc.0 , Portc.1 , A , 1 , 8
End
من میخوام با دستورات shiftin &shiftout بین دوتا میکرو ارتباط برقرار کنم.حالا دو تا برنامه زیر رو نوشتم ولی هر کاری کردم نتونستم جواب بگیرم. یه تاپیک هم در همین مورد تو سایت بود که اونم نتونست کمکم کنه.:angry:لطفا من رو راهنمایی کنید؟
گیرنده:
$regfile = "m8def.dat"
$crystal = 4000000
Config Portc = Input
Config Portb = Output
Dim A As Word
Shiftin Pinc.0 , Pinc.1 , A , 1 , 8
Portb = A
End
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
Config Portc = Output
Dim A As Byte
Shiftout Portc.0 , Portc.1 , A , 1 , 8
End
دیدگاه