مثال های ساده برای پروتکل SPI

[mohsenjooon]

پاسخ : مثال های ساده برای پروتکل SPI

سلام

آقای محسن اگر لطف کنید و پسورد فایل RAR رو هم بگزارید خیلی خیلی ممون می شوم

با تشکر وسپاس

سلام . آقای Soodi پسورد نذاشتم .
مطمئنین که pass میخواد؟؟

[soodi]

پاسخ : مثال های ساده برای پروتکل SPI

با سلام

بله نیاز به پسورد دارد

با تشکر

[mohsenjooon]

پاسخ : مثال های ساده برای پروتکل SPI

با سلام

بله نیاز به پسورد دارد

با تشکر

اینو امتحان کن.

http://www.4shared.com/file/WJyGfGf6/mohsen.html

[soodi]

پاسخ : مثال های ساده برای پروتکل SPI

با سلام خدمت تمامی دوستان

اگر لطف کنید و برنامه زیر را چک کنید خیلی خیلی ممنون می شوم من چندین مدته که دارم روی ارتباط و پروتکل SPI کار میکنم اگر لطف کنید و من رو راهنمایی کنید سپاس گزار می شوم

میکرو اول :

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

Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pinc.4 , E = Pinc.5
Config Lcd = 16 * 2
Config Spi = Hard , Interrupt = On , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128
Config Porta = Output
Config Rc5 = Pind.0

Spiinit

Enable Interrupts

Dim Addres As Byte , Command As Byte
Dim A As Byte

Command = 0

Cls
Locate 1 , 1
Lcd "Plis Push Switch"
Locate 2 , 1
Lcd "Design By Masood"

Do
Addres = 0
Getrc5(addres , Command )
If Command = 0 Then Gosub 0
If Command = 1 Then Gosub 1
If Command = 2 Then Gosub 2
If Command = 3 Then Gosub 3
If Command = 4 Then Gosub 4
If Command = 5 Then Gosub 5
If Command = 6 Then Gosub 6
If Command = 7 Then Gosub 7
If Command = 8 Then Gosub 8
If Command = 9 Then Gosub 9
Loop

0:
A = 0
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 0"
Set Porta.3
Waitms 100
Reset Porta.3
Return

1:
A = 1
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 1"
Set Porta.3
Waitms 100
Reset Porta.3
Return

2:
A = 2
Spiout A , 1
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 2"
Set Porta.3
Waitms 100
Reset Porta.3
Return

3:
A = 3
Spiout A , 1
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 3"
Set Porta.3
Waitms 100
Reset Porta.3
Return

4:
A = 4
Spiout A , 1
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 4"
Set Porta.3
Waitms 100
Reset Porta.3
Return

5:
A = 5
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 5"
Set Porta.3
Waitms 100
Reset Porta.3
Return

6:
A = 6
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 6"
Set Porta.3
Waitms 100
Reset Porta.3
Return

7:
A = 7
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 7"
Set Porta.3
Waitms 100
Reset Porta.3
Return

8:
A = 8
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 8"
Set Porta.3
Waitms 100
Reset Porta.3
Return

9:
A = 9
Spiout A , 1
Cls
Locate 1 , 1
Lcd "* Risived a New"
Locate 2 , 1
Lcd "* * Switch Is 9"
Set Porta.3
Waitms 100
Reset Porta.3
Return

میکرو دوم :

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

Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pinc.4 , E = Pinc.5
Config Lcd = 16 * 2
Config Spi = Hard , Interrupt = On , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8

Dim C As Long
Dim G As Long
Dim A As Byte

Spiinit

Do
If A = 0 Then Gosub 0
If A = 1 Then Gosub 1
If A = 2 Then Gosub 2
If A = 3 Then Gosub 3
If A = 4 Then Gosub 4
If A = 5 Then Gosub 5
If A = 6 Then Gosub 6
If A = 7 Then Gosub 7
If A = 8 Then Gosub 8
If A = 9 Then Gosub 9
Loop

0:

C = C + 1
Return

2:

C = C + 10
Return

3:

C = C - 1
Return

4:

C = C - 10
Return

5:

C = 0
Return

6:

G = G + 1
Return

7:

G = G + 10
Return

8:

G = G - 1
Return

9:

G = G - 10
Return

[mohsenjooon]

پاسخ : مثال های ساده برای پروتکل SPI

مگه برنامه رو دانلود نکردی؟؟ oo:

[soodi]

پاسخ : مثال های ساده برای پروتکل SPI

سلام

فایل پسورد داشت ولی حالا از کی پد استفاده نکردم و از سنسور گیرنده TOSP استفاده کرده ام اگر من رو راهنمایی کنید که بتوانم حداقل یک متغیر بین میکرو ها منتقل کنم خیلی خیلی ممنون و سپاس گزار میشوم

با تشکر

[mohsenjooon]

پاسخ : مثال های ساده برای پروتکل SPI

سلام

فایل پسورد داشت ولی حالا از کی پد استفاده نکردم و از سنسور گیرنده TOSP استفاده کرده ام اگر من رو راهنمایی کنید که بتوانم حداقل یک متغیر بین میکرو ها منتقل کنم خیلی خیلی ممنون و سپاس گزار میشوم

با تشکر

سلام.
اولا شما در برنامتون هر دو میکرو مستر کرده اید ( Master = Yes ) . یکی باید مستر باشه و اون یکی هم slave یا به عبارتی ( Master = no) . دوما باور کنید من پسورد نذاشتم . گمون کنم مشکل از کارت اینترنت یا سرور خدمات دهندتون باشه . :agree:

[maziyar123]

پاسخ : مثال های ساده برای پروتکل SPI

سلام ببخشید دخالت میکنم جناب sodi شما فقط میخواین از 2 میکرو استفاده کنید ؟ یا بیشتر ؟ منظورم اینه که اگه میخوای از 2 میکرو استفاده کنی چرا خودتو به دردسر میندازی ؟ چرا از ارتباط سریال استفاده نمیکنی ؟ خداییش خیلی راحته من به راحتی به نتیجه رسیدم خلاصه اگه کمک خواستی من در خدمتم ولی اگه فقط میخوای طریقه این نوع ارتباط (spi) رو یاد بگیری موفّق باشی :redface:

[soodi]

پاسخ : مثال های ساده برای پروتکل SPI

با سلام خدمت همه دوستان

من می خواهم 3 میکروکنترلر 2 عدد ATmega32 و 1 عدد ATmega8 رو توسط پروتکل SPI به یکدیگر متصل کنم و یک متغیر رو از یک میکروکنترلر به دیگر میکروکنترلر ها و یا از دیگر میکروکنترلر ها به یک میکروکنترلر ارسال و دریافت کنم ( ارتباط 2 طرفه ) اگر من رو راهنمایی و کمک کنید و یک سورس کامل و امتحان شده رو بزارید خیلی خیلی ممنون میشوم چون من چندین وقته که مشغول راه اندازی پروتکل SPI هستم ولی هنوز موفق نشده ام

باسپاس فراوان

[mohsenjooon]

پاسخ : مثال های ساده برای پروتکل SPI

با سلام خدمت همه دوستان

من می خواهم 3 میکروکنترلر 2 عدد ATmega32 و 1 عدد ATmega8 رو توسط پروتکل SPI به یکدیگر متصل کنم و یک متغیر رو از یک میکروکنترلر به دیگر میکروکنترلر ها و یا از دیگر میکروکنترلر ها به یک میکروکنترلر ارسال و دریافت کنم ( ارتباط 2 طرفه ) اگر من رو راهنمایی و کمک کنید و یک سورس کامل و امتحان شده رو بزارید خیلی خیلی ممنون میشوم چون من چندین وقته که مشغول راه اندازی پروتکل SPI هستم ولی هنوز موفق نشده ام

باسپاس فراوان

این یه ارتباط یه طرفه .
زیاد وقت نداشتم . خودت یکم باهاش ور بری میتونی درستش کنی. یکم ایراد داره که به بزرگی خودتون ببخش :mrgreen:.

http://rapidshare.com/files/445160600/mohsen.zip