غسالة تعمل بالميكروكونترولر 16f84a

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

حمل من هنا

http://www.4shared.com/file/Xkxspvhp/WashinMachine.html

اشكرك الاخ الباشمهندس متولي مصطفي علي اهتمامك وتشجيعك

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

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

جزاك الله كل خير

اانا اشكرك على المجهود الرائع
وارجو شرح وافى لعمل نظام التشغيل بالازمنة ان امكن
وشكرا

السلام عليكم

اخي ممكن تعيد رفع الملف ؟؟؟ لانه الرابط لا يعمل والله يجزيك الخير

اخي ممكن تعيد رفع الملف ؟؟؟ لانه الرابط لا يعمل والله يجزيك الخير

'****************************************************************
'* Name : غسالة اتوماتيكية *
'* Author : FATHI IDRIS *
'* Notice : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 6/18/2010 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device 16F84A
Xtal 4
Dim n As Byte
Dim d As Byte
Symbol temp = PORTA.4 As Bit ; input from temperature set
Symbol doar = PORTA.1 As Bit ; output to open doar
Symbol buz = PORTA.2 As Bit ; output to buzer
Symbol lock = PORTA.3 As Bit ; input from doar locker


Symbol left = PORTB.1 As Bit
Symbol right = PORTB.2 As Bit
Symbol fast = PORTB.3 As Bit
Symbol drain = PORTB.4 As Bit
Symbol heater = PORTB.5 As Bit
Symbol start = PORTB.0 As Bit ;input start switch


TRISA = %00011000
TRISB = %00000001
PORTA = 0
PORTB = 0

While 1 = 1
main:
DelayMS 500
doar = 0
If start = 0 Then doar_close
DelayMS 1000
GoTo main

doar_close:
If lock = 0 Then heat
DelayMS 1000
Sound buz, [80, 60 ,80,50]
GoTo doar_close

heat:
heater = 1
If temp = 0 Then spindle
GoTo heat
spindle:
heater = 0
DelayMS 1000
For d = 0 To 15
left = 0
right = 1
Call timer2
left = 0
right = 0
Call timer1
left = 1
right = 0
Call timer2
left = 0
right = 0
Call timer1
Next d
left = 0
right = 0
Call timer2
clean_soap:
d = 0
drain = 1
Call timer2
loop:
Sound buz,[50,60,70,20,85,120]
DelayMS 1000
If start = 0 Then spindle2
GoTo loop
spindle2:
drain = 0
For d = 0 To 5
left = 0
right = 1
Call timer2
left = 0
right = 0
Call timer1
left = 1
right = 0
Call timer2
left = 0
right = 0
Call timer1
Next d
left = 0
right = 0
Call timer2

dry:
drain = 1
Call timer2
fastrun:
fast = 1
Call timer3
fast = 0
Call timer2
drain = 0
Call timer2
doar = 1
Call timer3
GoTo main


timer1:
For n = 0 To 10
DelayMS 1000
Next n
Return

timer2:
n = 0
For n = 0 To 30
DelayMS 1000
Next n
Return

timer3:
n= 0
For n = 0 To 60
DelayMS 1000
Next n
Return
Wend

اخي سلام اسف لضياع الملف في الرابط وذلك لاسباب الاحداث في ليبيا لقد انقطع عنا النت مدة طويلة ولكن تجده اعلاه . البرنامج بالغة basic proton كما اني انزلته علي الرابط

الاتي
http://www.4shared.com/rar/OqTdjHqc/__84.html



تجد في الملفات البرنامج ومعه التمثيل بالبروتيوس

shahy كتب:

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

اشكرك علي الاهتمام اريد ان اعرف الاخوة الاعزاء بان هذه الدائرة تعمل وبشكل جيد وقد اتطررت للتصميمها نظرا لوجود انواع كثيرة وماركات مختلفة من لوحات التحكم للغسالات ولكن معظم هذه الغسالات لايوجد بديل للوحات التحكم في حالة التلف وان وجدت تكون اسعارها باهظة لذلك قمت بتصميم هذه الدائرة وتجربتها ولكن بصورة محدودة .
بالامكان اضافة شاشة صغيرة ووحدة ادخال لتعديل الازمنة وقد قمت بعمل نسخة باستعمال pic16f877a وشاشة LCD .
,لكن قصدي لبساطة التجربة قصدت من استعمال الميكرو 16F84A لتوضيح مع العلم باني ركبت لوحات لعدة غسالات بلوحة تعمل علي الميكرو 16F84A

أشكر أخي فتحي ادريس
لقد تم التحميل وسأعمل على محاولة تجربتها وابلاغك بالنتائج

أشكرك مجددا

جزاكم الله خيرا أخى الكريم

جزاكم الله خيرا أخى الكريم

جزاك الله عنا كل خير موضوع مميز جدا جدا لم يتطرق احد اليه من قبل
ولكن الرابط لايعمل

اشكرك الاخ ياسر اليك هذا الرابط وهو عمل الان

الرجاء نسخ اتلرابط ولصقه لا بالنقر عليه
الhttp://www.4shared.com/rar/OqTdjHqc/__84.html
رابط هو**** ***

فقالوا : لم يكن هناك في عصر الرسول شيعة!!!
فقال: اذن انتهت المناظرة من أين أتيتم بدينكم ؟!
العالم المسلم هو الشيخ أحمد ديدات رحمه الله تعالى

هذا هو العلم الذي انزله الله علي عباده