[sheimy]

هذة بعض الحركات الجميلة بالليدات

قد عرض احد الاعضاء فديو يوضح الحركات
وتم تنفيذ جزء منها
وهذة هى الحركات اللتى تم تنفيذها



والكود لهذة الحركات هو

unsigned short i,j,k,q,l;
//============================
void toright(int speed,short no)
{
PORTB=0b10000000;
VDelay_ms(speed);
for(i=0;i<no;i++)
{
 PORTB=PORTB >>1;
 VDelay_ms(speed);
}
}
//===========================
void toleft(int speed,short no)
{
PORTB=0b00000001;
VDelay_ms(speed);
for(i=0;i<no;i++)
{
 PORTB=PORTB <<1;
 VDelay_ms(speed);
}
}
//============================
void toright_stop(int speed)
{
k=0b00000000;
for(j=8;j>0;j--)
{
q=128;
for(i=0;i<j;i++)
{
 PORTB=q|k;
 VDelay_ms(speed);
 q >>=1;
}
k <<=1;
k+=1;
}
}
//===========================
void toleft_stop(int speed)
{
k=0b00000000;
for(j=8;j>0;j--)
{
q=1;
for(i=0;i<j;i++)
{
 PORTB=q|k;
 VDelay_ms(speed);
 q <<=1;
}
k >>=1;
k |=128;
}
}
//===========================
void tofromcenter(int speed)
{
k=0b00000000;
for(j=8;j>0;j--)
{
q=1;
l=128;
k=q|l;
for(i=0;i<j;i++)
{
 PORTB=q|l;
 VDelay_ms(speed);
 q <<=1;
 l >>=1;
}
/*k >>=2;
k <<=1;
k |=128;
k +=1;*/
}
}
//===============================
void main() {
TRISB=0x00;
PORTB=0x00;
while(1)
{
toright(50,8);
toleft(50,8);
toright_stop(50);
toleft_stop(50);
tofromcenter(100);
}

}

[ahmedqatar]

أبدعت
بارك الله فيك و زادك من العلم

[sofien.j]

فعلا لقد ابدعت بطريقة الدوال
اخي واذا اردت ان اجعل الليدات تنطفئ وتشتعل كلها لكن ببطء
هل هذا ممكن؟

[sheimy]

اقتباس المشاركة الأصلية كتبت بواسطة sofien.j فعلا لقد ابدعت بطريقة الدوال اخي واذا اردت ان اجعل الليدات تنطفئ وتشتعل كلها لكن ببطء هل هذا ممكن؟

نعم
كل ما سيتغير هو متغير السرعة speed

لو انك غيرته من 50 الى 100 ستكون حركة الليدات ابطئ

وفقنا الله واياكم لما يحب ويرضى

[اكزي]

مشكور أخي الكريم

[ابو لمير]

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

[حيدر علاج حسن]

تسلم ايدك يا عبقري .
افكارك دائما جميلة و عبقرية

[noor1144]

اخي الكريم جزاك الله خيرا
مازلت لم احصل على جواب ماهو آخر اصدار لبرنامج مايكرو سي
وكيف انزله ويكون شغال مية بالمية

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

void main()
{TRISB=0; PORTB=0;
loop:
PORTB=0B00000001; delay_ms(60);
PORTB=0B00000010; delay_ms(60);
PORTB=0B00000100; delay_ms(60);
PORTB=0B00001000; delay_ms(60);
PORTB=0B00010000; delay_ms(60);
PORTB=0B00100000; delay_ms(60);
PORTB=0B01000000; delay_ms(60);
PORTB=0B10000000; delay_ms(60);
PORTB=0B10000001; delay_ms(60);
PORTB=0B10000010; delay_ms(60);
PORTB=0B10000100; delay_ms(60);
PORTB=0B10001000; delay_ms(60);
PORTB=0B10010000; delay_ms(60);
PORTB=0B10100000; delay_ms(60);
PORTB=0B11000000; delay_ms(60);
PORTB=0B11000001; delay_ms(60);
PORTB=0B11000010; delay_ms(60);
PORTB=0B11000100; delay_ms(60);
PORTB=0B11001000; delay_ms(60);
PORTB=0B11010000; delay_ms(60);
PORTB=0B11100000; delay_ms(60);
PORTB=0B11100001; delay_ms(60);
PORTB=0B11100010; delay_ms(60);
PORTB=0B11100100; delay_ms(60);
PORTB=0B11101000; delay_ms(60);
PORTB=0B11110000; delay_ms(60);
PORTB=0B11110001; delay_ms(60);
PORTB=0B11110010; delay_ms(60);
PORTB=0B11110100; delay_ms(60);
PORTB=0B11111000; delay_ms(60);
PORTB=0B11111001; delay_ms(60);
PORTB=0B11111010; delay_ms(60);
PORTB=0B11111100; delay_ms(60);
PORTB=0B11111101; delay_ms(60);
PORTB=0B11111110; delay_ms(60);
PORTB=0B11111111; delay_ms(60);

goto loop;}