أخي جزاكم الله خيرا .... فإذا أثقلنا عليك و الأمر عليك هين بإذن الله .... أن تعمل مثال يشمل الكتابة و القراءة بأنواعها .... على ذاكرة مثلا 32 أو 64 ... فهما منتشران الآن و بكثرة و سعرهما لا يزيد عن الذاكرات 4 أو 8 بكثير....
و لك جزيل الشكر سلفا

السلام عليكم ورحمة الله وبركاتة
هذا الكوود كما قلنا سابقا في مشاركة رقم 18 لكتابة رقم 55 الى الميموري ومن ثم عرضة على بورت بي .

وهذا البرنامج بالباسكال ومو بعيد عن المايكرو سي
ولو راجعت مشاركة 18 راح تلاقي نفس الاوامر......وبالتوفيق

كود:

program NAFEZ_TEST_I2C;

var t,X: byte;
begin
PORTB := 0;
TRISB := 0; // configure PORTB as output
I2C1_Init(400000); 
I2C1_Start(); 
I2C1_Wr($A2); 
I2C1_Wr(2); 
I2C1_Wr($55); 
I2C1_Wr(3);  
I2C1_Wr($77);
I2C1_Stop(); 
Delay_100ms();

I2C1_Start(); 
I2C1_Wr($A2); 
I2C1_Wr(2); 
I2C1_Repeated_Start(); 
I2C1_Wr($A3);
t:= I2C1_Rd(0);
X:= I2C1_Rd(1); 
I2C1_Stop(); 
PORTB := t;
//DELAY_MS(500);
//PORTB := X ;
end.

وهذة صورة البروتوس يعرض بايت 55 على بورت بي

[img]http://img103.***********/2010/03/06/575527540.jpg[/img]


ولا تنسونا من صالح الدعاء

واللهم انصر الاسلام والمسلمين

واللهم انصر الاسلام والمسلمين .

ارجو تفسير كل سطر من البرنامج ماذا يعني
لنتمكن بدورنا من كتابته بلغه البرمجه الموجوده لدينا

مع اطيب الاماني

السلام عليكم ورحمه الله وبركاته
اخى الفاضل م نافذ ابو كشك
جزالك الله خير على ذلك الشرح الوافى
قمت بعمل تجربه بسيطه على بيك 16f877 ولكنها لم تعمل حيث ان القيمه المسجله فى الايبروم ثابته لا تتغير وهى A3 بالرغم من انى وضعتها aa وعندما قمت بتغييريها الى 2c قام البيك باظهار 00000000 فقط فما هو وجهه القصور فى برنامجى
مرفق البرنامج وصوره البرتوس

"
program test

main:

PORTB = 0
TRISB = 0 ' Configure PORTB as output

I2C1_Init(100000) ' initialize I2C communication
I2C1_Start() ' issue I2C start signal
I2C1_Wr($A2) ' send byte via I2C (device address + W)
I2C1_Wr(2) ' send byte (address of EEPROM location)
I2C1_Wr($2c) ' send data (data to be written)
I2C1_Stop() ' issue I2C stop signal

Delay_100ms()

I2C1_Start() ' issue I2C start signal
I2C1_Wr($A2) ' send byte via I2C (device address + W)
I2C1_Wr(2) ' send byte (data address)
I2C1_Repeated_Start() ' issue I2C signal repeated start
I2C1_Wr($A3) ' send byte (device address + R)
PORTB = I2C1_Rd(0) ' Read the data (NO acknowledge)
I2C1_Stop() ' issue I2C stop signal


end.
"


وشكرا

اخي العزيز البرنامج لقد تم شرحة بالتفصيل الممل بالمشاركات السابقة , الرجاء مراجعة المشاركات السابقة , لان كل برنامج سوف يتم تنفيذة على البروتوس هو اصلا لقد تم شرحة سابقا , وكما قلت بالبداية ليس من الممكن ان نشرح البرنامج مرتين .!

وتقبل احترامي.

واللهم انصر الاسلام والمسلمين

اخي العزيز :-
السلام عليكم ورحمة الله وبركاتة
عملك مميز ,
وانا عندما جربت اول برنامج لي اعطاني مثلك A3 , ولكن امورك بسيطة ان شاء الله.
وحتى نختصر الوقت الرجاء ارسال ملف الهكسا لتتبع البرنامج وتجريبة عندي لو سمحت .

وتقبل تحياتي


واللهم انصر الاسلام والمسلمين.