استفاده از SPI و I2C برای ایجاد ارتباط بین دو میکرو با فایل پروتئوس (بسکام)

[babaoghli]

سلام دوستان
پروژه ها کاملا تست شده اند
پروژه ها به صورت ساده طراحی شده اند. به این صورت که یک میکرو به دیگری عددی را ارسال میکند و میکروی گیرنده نشان میدهد
نکته : دوستانی که عضو انجمن هستند میتوانند از فایلهای ضمیمه (لینک مستقیم) استفاده کنند :nerd:

I2c :
http://www.jetup.ir/do.php?filename=05_Apr_201113020004341.rar

SPI :
http://www.jetup.ir/do.php?filename=05_Apr_201113020004372.rar

[silentshot]

پاسخ : استفاده از SPI و I2C برای ایجاد ارتباط بین دو میکرو با فایل پروتئوس (بسکام)

سلام دوست عزیز
من از برنامه i2c شما جواب نگرفتم
رو lcd چیزی نشون نمی داد
دوستان دیگر اگه جواب گرفتن ممنون می شم ذکر کنن این موضوع رو

[mahdi8866]

پاسخ : استفاده از SPI و I2C برای ایجاد ارتباط بین دو میکرو با فایل پروتئوس (بسکام)

هر 2 سالمن من تست کردم تو i2c باید از 0 تا 255 بشماره

[کنجکاو!]

پاسخ : استفاده از SPI و I2C برای ایجاد ارتباط بین دو میکرو با فایل پروتئوس (بسکام)

با سلام،
راهی جز استفاده از Bitwait برای ارتباط I2C وجود نداره؟ اینجوری که کل کار میکرو مختل و لنگ میشه! :(
من وقتی از BitWait استفاده نمی کنم فقط 255 رو نشون میده!

[eng95]

پاسخ : استفاده از SPI و I2C برای ایجاد ارتباط بین دو میکرو با فایل پروتئوس (بسکام)

سلام من از ارتباط SPI جواب نگرفتم این کد های برنامه خودم میشه لطفا یه نگاه بندازید؟
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600

Config Porta = Input
Config Portb = Input
Config Kbd = Porta , Debounce = 50 , Delay = 100
Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 128




Dim A As Byte


Spiinit

Do
A = Getkbd() : A = Lookup(a , Read_key)
If A < 16 Then

Spiout A , 1

Waitms 300

End If
Loop


End



'*********************************
Read_key:
Data 1 , 4 , 7 , 15 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 14 , 10 , 11 , 12 , 13

و بعدی برنامه SLAVE هست:

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600


Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , _
Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Config Porta = Output
Config Portc = Output
Config Portb = Output
Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = No , Polarity = High , Phase = 0 , Clockrate = 128

Config Lcd = 16 * 2
Cursor Off
Cls



Dim A As Byte
Dim B As String * 5
Locate 1 , 1 : Lcd "Press Key"
Spiinit

Do

spiin a,1
B = Chr(a)

Locate 2 , 1 : Lcd B ; " "
Loop

End

[yasin136n]

پاسخ : استفاده از SPI و I2C برای ایجاد ارتباط بین دو میکرو با فایل پروتئوس (بسکام)

با سلام خدمت دوست عزیزمون
سوالی که داشتم اینه که دلیل استفادتون از مقاومت و ترانزیستور و دیود به این شکل چیه؟؟؟

دلیل: ادغام دو پست برای جلوگیری از اسپم

با سلام خدمت دوست عزیز
سوالی که داشتم اینه که دلیل استفائتون از مقاومت و ترانزیستو و دیود به این شکل چیه؟؟؟؟