کمک در ارتباط سریال دو میکرو از طریق باس spi

[omid soltani]

با سلام به تمام دوستان,در برنامه زیر مشکل چیه :-? چون چیز خاصی نداره اما برنامه کار نمی کنه(در محیط پروتئوس)دوستان عزیز لطفا" راهنماییم کنند که الان چند روز معطل همین ارتباطم.

برنامه master که مربوط به atmega32 است.

$regfile = "m32can.dat"
crystal = 8000000$

Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 128
Config Kbd = Portc

Dim B As Byte
Spiinit

Do
  ()B = Getkbd
  If B < 16 Then
  Spiout B , 1
  End If
Loop
End

برنامه slave که مربوط به atmega8535 است.

$regfile = "m8535.dat"
$crystal = 8000000
Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = No , Polarity = High , Phase = 0 , Clockrate = 128

Dim A As Byte
Spiinit

Do
Spiin A , 1
Home
Lcd A
Loop
End

اینم فایل و عکس سخت افزار (ورژن نرم افزار پروتئوس Proteus-v7.8.SP2 برای win7,x86)
http://www.uploadmb.com/dw.php?id=1343363484

[سوران آراسته]

پاسخ : کمک در ارتباط سریال دو میکرو از طریق باس spi

سلام دوست من
در برنامه master ابتدا شما اسم تراشه رو به mega32def.dat تغییر بده.
در برنامه slave هم نمی دونم چطور از lcd بی چاره انتظار نمایش رو دارین وقتی حتی پیکربندیش نکردین ؟!!!!!!
در برنامه slave هم نمایشگرتون رو پیکربندی کنید درست میشه.
در ضمن Phase رو در برنامه فرستنده و گیرنده صفر قرار بدین.
موفق باشین

[omid soltani]

پاسخ : کمک در ارتباط سریال دو میکرو از طریق باس spi

سلام دوست من
در برنامه master ابتدا شما اسم تراشه رو به mega32def.dat تغییر بده.
در برنامه slave هم نمی دونم چطور از lcd بی چاره انتظار نمایش رو دارین وقتی حتی پیکربندیش نکردین ؟!!!!!!
در برنامه slave هم نمایشگرتون رو پیکربندی کنید درست میشه.
در ضمن Phase رو در برنامه فرستنده و گیرنده صفر قرار بدین.
موفق باشین

با سلام:
اول از همه تشکر کنم که پاسخ دادید.
دوم: در رابطه با پیکربندی LCD باید بگم که پیکر بندیشو از طریق خود بسکام انجام دادم,پس پیکر بندی شده,و مشکلی نداره اما همین الان متوجه یه اشتباه خیلی ساده شدم اونم اینه که نوu میکرو در برنامه master بایستی در Atmega324P تعریف میکردم که من Atmega32 تعریف کرده بودم اونم به قول شما اشباه حال با برطرف کردنش به صورت زیر برنامه درست شد.
در نهایت بازم از شما ممنونم که پاسخ دادید.
برنامه اصلاح شده:

$regfile = "m324pdef.dat"
crystal = 8000000$

Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128
Config Kbd = Portc

Dim B As Byte
Spiinit

Do
  ()B = Getkbd
  If B < 16 Then
  Spiout B , 1
  End If
Loop
End                             'end program

برای برنامه دوم(SLAVE) داریم:

$regfile = "m8535.dat"
$crystal = 8000000
Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = No , Polarity = High , Phase = 0 , Clockrate = 128

Dim A As Byte
Spiinit

Do
Spiin A , 1
Home
Lcd A
Waitms 100
cls
Loop
End