أرجو تقييم مشروعي : جهاز لقياس المسافات والأطوال بإستخدام UltraSonic HC-SR04

مهندس علي كتب:

alaa mannoun كتب:

أقدم لكم فيديو توضيحي ل جهاز قمت بتصميمه لقرائة المسافات والأطوال

استخدمت :
Pic 16f877a , Ultrasonic HC-SR04 , LCD
الحد الأقصى : 250 سم
نسبة الخطأ : زائد ناقص واحد سم

رأيكم يهّمني وإذا كان هناك إقتراحات الرجاء تزويدي بها لأنني أحتاج لتطوير مشروعي بأفكاركم وأي إستفسار أو سؤال عن الكود أنا بالخدمة

https://www.youtube.com/watch?v=9Uldd0z7ODs

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

مشكوووور أخي العزيز على دعمك الرائع
بالنسبة ل مبدأ العمل كالتالي :
بالنسبة ل مبدأ العمل بسيط وهو كالتالي : إرسال موجة من Transmitterومن ثم
بنشغّل ال TMR0 لكي يبدأ بالعد هذه الموجة تصطدم بحاجز معين ومن ثم ترتد
وعندما تصل الموجة المرتدة إلى ال Receiver نقوم بحساب الزمن المستغرق (من
ال Data sheet لل ultrasonic المسافة = زمن تقسيم 58 )

لكن أخي لم أفهم قصدك هل تريد أن أنشر البوست في قسم آخر من المنتدى , اذا نعم يا ريت تخبرني أي قسم مناسب لأني جديد على المنتدى
وشكرا مرّة أخرى

اقتباس :

مشكوووور أخي العزيز على دعمك الرائع
بالنسبة ل مبدأ العمل كالتالي :
بالنسبة ل مبدأ العمل بسيط وهو كالتالي : إرسال موجة من Transmitterومن ثم
بنشغّل ال TMR0 لكي يبدأ بالعد هذه الموجة تصطدم بحاجز معين ومن ثم ترتد
وعندما تصل الموجة المرتدة إلى ال Receiver نقوم بحساب الزمن المستغرق (من
ال Data sheet لل ultrasonic المسافة = زمن تقسيم 58 )

لكن أخي لم أفهم قصدك هل تريد أن أنشر البوست في قسم آخر من المنتدى , اذا نعم يا ريت تخبرني أي قسم مناسب لأني جديد على المنتدى
وشكرا مرّة أخرى

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

[quote="مهندس علي"]

اقتباس :

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

مشكوور أخي الكريم دعمك يهمني ولم يريد الكود ها هو Smile

dim per as word
dim dis as word
dim count as byte
dim dist as string[5]

sub procedure interrupt
count=count 1
tmr0=0
intcon.2=0
end sub

main:

lcd_config(portb,7,6,5,4,portb,1,2,3)
lcd_cmd(lcd_clear)

trisd.0=0
trisd.1=0
trisd.2=0
trisd.3=0
trisd.4=0
trisd.5=0
trisd.6=1 'bedna
trisd.7=0 'bedna

portd.7=0


option_reg=000101
intcon=100000


loop:
count=0
per=0
dis=0


while portd.6=0
portd.7=1
delay_us(10)
portd.7=0
tmr0=0
wend


while portd.6=1
wend

per=(tmr0 (count*255))*64
dis=(per/58)-2
wordtostr(dis,dist)
lcd_out(1,1,"distance is
lcd_out(2,1,dist
delay_ms(1000

lcd_cmd(lcd_clear
goto loop

end.

يعطيك العافيه استاذي

جهد جميل جدا

نتمنى لو تضع طريقة توصيل الدائره الألكترونيه لكي نستفيد ونتعلم