مشکل با i2c

[maziyar123]

سلام من یه مشکل با این رابط i2c پیدا کردم اگه ممکنه کمک کنید ممنون :redface: :redface:

این برنامه ساده فرستنده
$regfile = M8def.dat
$crystal = 8000000
Config I2cdelay = 10
Config Sda = Portd.0
Config Scl = Portd.1

I2cstart
Q:
I2csend &H30 , 1
Goto Q

اینم برنامه ساده گیرنده :
$regfile = M32def.dat
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config I2cdelay = 10
Config Sda = Portd.0
Config Scl = Portd.1

Dim Z As Byte
Cursor Off

I2cstart
Do
I2creceive &H30 , Z
Home : Lcd Z
loop

نمیدونم چرا تو گیرنده عدد 255 رو نشون میده راستی حتما باید از کریستال خارجی استفاده بشه ؟ یا همون داخلی 8mh ??

ارتباط رو هم با 2 تا مقاومت 2.2 به مثبت وصل کردم
چه کنم ؟ :angry: :angry: :angry:

[parsa921]

پاسخ : مشکل با i2c

پناه بر خدا این دیگه به چه زبونیه؟
حالا اینا که نوشتی یعنی چی؟ :eek: :eek: :eek: oo:

[parsa921]

پاسخ : مشکل با i2c

برنامت پر از اشتباهه

[maziyar123]

پاسخ : مشکل با i2c

سلام بابا دمت گرم دیگه این زیون بیسیک فقط میخواستم نحوه ارتباط از طریق i2c رو یاد بگیرم
اگه اشتباه هست خوب بگید چیه دیگه
کارش به اینصورت که عدد 1 با atmega8 ارسال میشه , atmega32 اون رو میگیره میریزه تو متغیر Z و بعد رو lcd نشون مید همین

حالا نمیدونم چرا کار نمیکنه

[maziyar123]

پاسخ : مشکل با i2c

:rolleyes: :rolleyes: :angry: :angry:

[maziyar123]

پاسخ : مشکل با i2c

ای بابا یعنی هیشکی منو دوش نداره ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[baby_1]

پاسخ : مشکل با i2c

سلام من یه مشکل با این رابط i2c پیدا کردم اگه ممکنه کمک کنید ممنون :redface: :redface:

این برنامه ساده فرستنده
$regfile = M8def.dat
$crystal = 8000000
Config I2cdelay = 10
Config Sda = Portd.0
Config Scl = Portd.1

I2cstart
Q:
I2csend &H30 , 1
Goto Q

اینم برنامه ساده گیرنده :
$regfile = M32def.dat
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config I2cdelay = 10
Config Sda = Portd.0
Config Scl = Portd.1

Dim Z As Byte
Cursor Off

I2cstart
Do
I2creceive &H30 , Z
Home : Lcd Z
loop

نمیدونم چرا تو گیرنده عدد 255 رو نشون میده راستی حتما باید از کریستال خارجی استفاده بشه ؟ یا همون داخلی 8mh ??

ارتباط رو هم با 2 تا مقاومت 2.2 به مثبت وصل کردم
چه کنم ؟ :angry: :angry: :angry:

نوع کریستال داخلی و خارجی مهم نیست فقط اگر نوسان پایه SCL مستر فعال باشه فرکانس کاری Slave حتما باید 16 برابر فرکانس خط باشه (احتیاج نیست که حتما فرکانس 8 مگاهرتز باشه)
ارتباط سخت افزاری:
شما باید میکرو رو آدرس دهی کنید
و داخل این وضعیت حتما باید از پایه های SCL , SDA سخت افزاری استفاده کنید و تعریف نرم افزاری برای این پایه ها نمی تونید انجام بدین اما حتما باید داخل اعلان باید config بشن
داخل برنامه $LIB "I2C_TWI.LBX"
باید اضافه کنید و از دستورات سخت افزاری I2C استفاده کنید(داخل میکرو TWI)
مشکل برنامه:
ارتباط I2C سرعتی در حد میکرو ثانیه برای دریافت یا ارسال نداره
برنامه فرستنده:
$regfile = M8def.dat
$crystal = 8000000
Config I2cdelay = 10
Config Sda = Portd.0
Config Scl = Portd.1

I2cstart
Q:
I2csend &H30 , 1
waitms 10
Goto Q

برنامه گیرنده:
$regfile = M32def.dat
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config I2cdelay = 10
Config Sda = Portd.0
Config Scl = Portd.1

Dim Z As Byte
Cursor Off

I2cstart
Do
main:
I2creceive &H30 , Z
waitms 10
if z>=255 or z=0 then goto main
Home : Lcd Z
loop

مشکل شاید سخت افزاری:
حتما روی دو پایه دو مقاومت 10 کیلو پول پ کنید

[maziyar123]

پاسخ : مشکل با i2c

نوع کریستال داخلی و خارجی مهم نیست فقط اگر نوسان پایه SCL مستر فعال باشه فرکانس کاری Slave حتما باید 16 برابر فرکانس خط باشه

سلام میبخشید من کمی نادانم :rolleyes: میشه در مورد این جمله توضیح بیشتری بدین ؟

main:
I2creceive &H30 , Z
waitms 10
if z>=255 or z=0 then goto main
Home : Lcd Z
loop

و همچنین در مورد این شرطی که اینجا قرار دادین . مگه در حالت عادی میکرو عدد 255 رو دریافت میکنه ؟ یعنی فرستده من هیچی رو ارسال نمیکنه ؟؟؟