انتقال ديتا با دستور shift out

[ECM-tank]

سلام
من ميخوام يك بايت رو با دستور shift out به يه ميكرو بفرستم و از اون طرف با دستور shift in ديتاي ارسالي رو بخونم و توي يه متغير ذخيرش كنم دوستان اگه زحمتي نيست برنامش رو واسم بنويسند.

[ECM-tank]

از دوستان كسي نيست كمكم كنه؟من برنامه زير رو نوشتم ولي كار نميكنه.
$regfile = "m8def.dat"
$crystal =1000000
$baud = 9600
Config Portb = Output
Dim A As Byte
A = &B10101010

Shiftout Portb.0 , Portb.1 , A

End

براي دريافت:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Input
Config Portd = Output
Portb = 1
Dim A As Byte

Shiftin Pinb.0 , Pinb.1 , A
A=Portd

End

[reza555]

سلام دوست عزیز
یه نگاه به هلپ بسکام بکن


جور دیگه باید ازش استفاده کره
تقریبا مثل spi میمونه

یک wave player هم آقای امین زاده گذاشتن توی پرتال
برنامش با همین shidt out & shift in نوشته شده
شاید اونجا بهترروش استفادشو بفهمی
موفق باشی