[abnidal]

http://www.4shared.com/file/XbPPcB7R/KHAZAN.html

السلام عليكم جميعا بلا استثناء وعساكم بكل خير
في الاعلى رابط لدارة تحسس مستوى خزان سائل ثلاث مستويات ونفذتها على ارض الواقع والحمد لله نجحت 100 % بفضل الله وفضل الاخوة :ريان وزكي شاكر وماجد عباس والكثير من الاخوة اللذين لم يتركونني ابدا وعذرا لعدم ذكر كل الاسماء وكانت بالنسبة لي صدمة كبيرة عندما رأيتها تعمل...
المهم :
سير عمل الدارة انه عند وصول الماء الى القاع يعمل الليدات المتوافقة ويتم اصدار صوت وهذا الصوت لا يتوقف الا عند اما ارتفاع الماء او ضغط زر كتم الصوت
وايضا عند ارتفاع الماء الى مستوى (اسميته انا ممتلئ) تعمل الليدات الموافقة ويصدر صوت وهذا الصوت يبقى يعمل الا ان اما انخفاض الماء او ضغط زر كتم الصوت هذه فكرة عامة عن الدارة .
المطلوب منكم جزاكم الله خيرا ولو تكرمتم عليً :
اريد اصدار صوت غير هذا اي اجمل منه كالنغمة الموجودة في تعليمات المايكروسي او حتى نفس هذه النغمة هذا اولا
ثانيا : القاء نظرة على الكود الموجود حاليا هل يحوي غباء برمجي اي بالاحرى هل يمكن اختصاره ولكم الشكر ...
ملاحظة : انا ملزم بهذه الدارة حيث انها موجودة عندي عمليا والبك هو ذاته وملزم به ايضا ....

[NOUR P.4]

السلام عليكم أخي abnidal
إذاأحببت و بحسب إختصاصي بالــ ic الغير قابل للبرمج هناك دارات متكاملة يأتي بها من الشركة المصنعة نغمة جاهزة و اسم الدارة um66 فأحسن ماتبرمج الدارة أحضر من الإنترنت المخطط ووصله مع دارتك

[abnidal]

اقتباس المشاركة الأصلية كتبت بواسطة NOUR P.4 السلام عليكم أخي abnidal إذاأحببت و بحسب إختصاصي بالــ ic الغير قابل للبرمج هناك دارات متكاملة يأتي بها من الشركة المصنعة نغمة جاهزة و اسم الدارة um66 فأحسن ماتبرمج الدارة أحضر من الإنترنت المخطط ووصله مع دارتك

كل الشكر لك
هل من معلومات اضافية عنها وكيفية وصلها ولك مني الشكر مرة اخرى ....

[robota]

السلام عليكم
تفضل اخى الكود بعد اضافة النغمة الموجودة في تعليمات المايكروسي
وذلك باستبدال

if(x==1)portb.f3=1;//اذا كان المتغير اكس يساوي واحد شغل كود الصوت

ب

if(x==1)Melody();

وهى الدالة التى تقوم بتوليد النغمة.

char x;
void Tone1() {
  Sound_Play(659, 250);   // Frequency = 659Hz, duration = 250ms
}

void Tone2() {
  Sound_Play(698, 250);   // Frequency = 698Hz, duration = 250ms
}

void Tone3() {
  Sound_Play(784, 250);   // Frequency = 784Hz, duration = 250ms
}

void Melody() {           // Plays the melody "Yellow house"
  Tone1(); Tone2(); Tone3(); Tone3();
  Tone1(); Tone2(); Tone3(); Tone3();
  Tone1(); Tone2(); Tone3();
  Tone1(); Tone2(); Tone3(); Tone3();
  Tone1(); Tone2(); Tone3();
  Tone3(); Tone3(); Tone2(); Tone2(); Tone1();
}

void main(){
trisb=0;
portb=0;
trisa=0xff;
 Sound_Init(&PORTB, 3);
portb=0;
delay_ms(1000);
portb=0xff;
delay_ms(1000);
portb=0;
delay_ms(1000);
portb=0xff;
delay_ms(500);
portb=0;
delay_ms(500);

loop:

if((porta.f1==0)&(porta.f2==0)&(porta.f3==0)) {portb.f4=1;portb.f5=1;portb.f6=1;}


if((porta.f1==1)&(porta.f2==1)&(porta.f3==1)) {portb.f4=0;portb.f5=0;portb.f6=0;}


if((porta.f2==0)&(porta.f3==1)){portb.f5=1;portb.f4=1;portb.f6=0;x=1;}

if((porta.f1==0)&(porta.f2==1)){portb.f4=1;portb.f5=0;portb.f6=0;}

if(x==1)Melody();
else
portb.f3=0;


if(porta.f0==0)x=0;

goto loop;

}

[abnidal]

السلام عليكم ورحمه الله

لك مني كل الشكر والاهم دعاء في ظهر الغيب انشاء الله ....

قيد التجريب مع ملاحظة اني جربت شئ قريب من ذلك لكن ذاكرة البك لم تتسع ....

مشكوووووووووووووووور من كل قلبي ...
والسلام عليكم

[robota]

نعم اخى ذاكرة ال 84a لن تتسع لهذا الكود !!!!
امر ال sound play يستهلك مساحة كبيرة جدا من الروم
فقط هذا الكود البسيط يستهلك 77% من الذاكرة الروم!!!!!!

void main(){

 Sound_Init(&PORTB, 3);
Sound_Play(461, 12);

}

[abnidal]

اقتباس المشاركة الأصلية كتبت بواسطة robota نعم اخى ذاكرة ال 84a لن تتسع لهذا الكود !!!! امر ال sound play يستهلك مساحة كبيرة جدا من الروم فقط هذا الكود البسيط يستهلك 77% من الذاكرة الروم!!!!!! void main(){ Sound_Init(&PORTB, 3); Sound_Play(461, 12); }

منذ لحظات جربت الكود ولم تتسع الذاكرة حيث حصلت على الرسالة الاتية :
not enough rom


ما العمل او هناك طريقة اخرى او كود اصغر او مختصر او او او او مالعمل جزاك الله خيرا ؟
او كما ذكر في المشاركة السابقة اي باستخدام um66

ارشدني بالله عليك

[abnidal]

اخ روبوتا اكمل معروفك معي :
فعلا الذاكرة لم تتسع لهذا الكود لذا هل من حل اخر مثال ذلك استخدام جملة for التي ذكرها الاخ الاستاذ احمد الفايد (مع ملاحظة اني حاولت ذلك نجحت العملية ولكن المشكلة عند ضغط زر كتم الصوت لا يتوقف الصوت حتى تنتهي جملة for ...)


اظن يمكن حل ذلك عن طريق استخدام المقاطعات (خبرتي تساوي صفر في هذه النقطة ) وانشاء الله اتعلم التعامل معها ......
لو تكرمت حلا من عندك جزاك الله خيرا

ولك مني الدعاء انشاء الله
والسلام عليكم ورحمه الله