قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي قسم المتحكمات الـ microcontroller و المعالجات microprocessor و التحكم الرقمي بالكمبيوتر CNC والانظمة الآلية والروبوت Robots

أدوات الموضوع

MIDOU613
:: مهندس متواجد ::
تاريخ التسجيل: Jun 2010
المشاركات: 51
نشاط [ MIDOU613 ]
قوة السمعة:0
قديم 18-05-2011, 08:53 PM المشاركة 1   
افتراضي مساعدة فى برنامج MIKROC يعتمد على PIC 16F84 Twitter FaceBook Google+



الرجاء المساعدة فى برنامج MIKROC يعتمد على PIC 16F84 وذالك لتحريك 12 ليد عن طريق PORTA و PORTB بحركات جميلة ومتناسقة
شكرا لكل الاغضاء والزوار

اعلانات

أحمد مصر
:: مهندس متواجد ::
تاريخ التسجيل: Jul 2007
الدولة: أم الدنيا
المشاركات: 51
نشاط [ أحمد مصر ]
قوة السمعة:0
قديم 18-05-2011, 09:06 PM المشاركة 2   
افتراضي


الموضوع ده بسيط جدا
وهتلاقيه ف شرح م.احمد سمير فايد

اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )
  

MIDOU613
:: مهندس متواجد ::
تاريخ التسجيل: Jun 2010
المشاركات: 51
نشاط [ MIDOU613 ]
قوة السمعة:0
قديم 18-05-2011, 09:18 PM المشاركة 3   
افتراضي


الموضوع ده بسيط جدا
وهتلاقيه ف شرح م.احمد سمير فايد
لقد تابعت دروس السيد احمد وتوصلت فقط الى التعامل مع 8 ليدات لكن بطريقة بدائية لا تعتمد على الدوالى
فالرجاء المساعدة ان امكن


أحمد مصر
:: مهندس متواجد ::
تاريخ التسجيل: Jul 2007
الدولة: أم الدنيا
المشاركات: 51
نشاط [ أحمد مصر ]
قوة السمعة:0
قديم 18-05-2011, 09:24 PM المشاركة 4   
افتراضي


لقد تابعت دروس السيد احمد وتوصلت فقط الى التعامل مع 8 ليدات لكن بطريقة بدائية لا تعتمد على الدوالى
فالرجاء المساعدة ان امكن
اي نوع الحركات وشكلها ؟


MIDOU613
:: مهندس متواجد ::
تاريخ التسجيل: Jun 2010
المشاركات: 51
نشاط [ MIDOU613 ]
قوة السمعة:0
قديم 19-05-2011, 08:22 PM المشاركة 5   
افتراضي


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


hicham1516
:: مهندس ::
تاريخ التسجيل: Mar 2010
المشاركات: 29
نشاط [ hicham1516 ]
قوة السمعة:0
قديم 20-05-2011, 11:16 PM المشاركة 6   
افتراضي


السلام عليكم


البرنامج اكتبه بيدك لانني حاولت ان اضعه هنا يتداخل المهم جعلته لك في صورتين




MIDOU613
:: مهندس متواجد ::
تاريخ التسجيل: Jun 2010
المشاركات: 51
نشاط [ MIDOU613 ]
قوة السمعة:0
قديم 22-05-2011, 08:06 AM المشاركة 7   
افتراضي


شكرا اخى على التفاعل
لكننى ابحث عن برنامج مثل هذا لكن عوض عن 8 LED اريد 12
واليك البرنامج

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);
}

}


Read more: http://www.qariya.com/vb/showthread....#ixzz1N4A5W9ta
للامانة منقول من الزميل المتميز CHEIMY

إضافة رد

العلامات المرجعية

«     الموضوع السابق       الموضوع التالي    »
أدوات الموضوع

الانتقال السريع إلى


الساعة معتمدة بتوقيت جرينتش +3 الساعة الآن: 01:28 PM
موقع القرية الالكترونية غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء
فعلى كل شخص تحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه
التعليقات المنشورة لا تعبر عن رأي موقع القرية الالكترونية ولايتحمل الموقع أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)

Powered by vBulletin® Version 3.8.6, Copyright ©2000 - 2025