منتدى التحكم الآلي والإلكترونيات
مرحبا بك عزيزي الزائر يشرفنا أن تقوم بالدخول إذا كنت من الأعضاء أو التسجيل إذا كنت زائرا ويمكنك إنشاء حسابك ببساطة ويمكنك التفعيل عن طريق البريد أو الانتظار قليلا حتى تقوم الإدارة بالتفعيل
منتدى التحكم الآلي والإلكترونيات

Automatic control , PLC , Electronics , HMI , Machine technology development , Arabic & Islamic topics , Management studies and more
 
الرئيسيةالبوابة*مكتبة الصوراليوميةس .و .جبحـثالتسجيلقائمة الاعضاءالمجموعاتدخول

شاطر | 
 

 تشغيل واطفاء اوتماتيكي للمولد الكهربائي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ROMIO1985
ملازم أول
ملازم أول


عدد الرسائل : 104
تاريخ التسجيل : 15/10/2008

مُساهمةموضوع: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الجمعة 14 نوفمبر 2008 - 4:41

القدره الهائله للبيك وسهوله برمجتها فتحت الباب لتعديل اجهزه وتجهيزات كثيره
ومعروف لدي كل من حاول بناء منظومة للاقلاع الذاتي للمولدات الكهربائيه يلاحظ انه
يستعين بعدد كبير من الكونتاكترات والريليهات واسلاك توصيل كثيره
وهنا اخوتي لدي مخطط في منتهي البساطه والامان للمحرك والمولد وهو مصمم
بالميكروكونترولر الشائع الاستعمال f84a والبرنامج المرفق مكتوب بالبيك بيسك
حتي يتسني للاخوه من تعديل التايمرات لفترة الاقلاع والاطفاء المفاتيح الظاهره في المخطط وضعت بذلك الشكل لتتناسب مع برنامج البروتيوس وهي اصلا عباره عن حساسات ضغط الزيت وثيرموسويتش حراره مياه التبريد ومفتاح اطفاء الطواري
يمكن ان توصل مع فوتوكوبول حتي لا تسبب ارتعاش غلق المفتاح المعروف في توصيله البيك مع المفاتيح الالكترومكانيكيه .
الريليهات المبينه ب (g) و (m) هي لكونتاكتر المولد والتغذيه العامه وهي ما يعرف
بالقلاب
اما الريليهات المبينه ب (accl) و (starter) وهي توصل لصمام الوقود والاستارتر
الملف في الرابط الاتي به البرنامج والمخطط بالبروتيوس مع وجود ملف الهكس
الرابط
>>>>>>>>
http://www.zshare.net/download/500679191112f0de/


===================================================================================

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



;* auto start stop
;* for electrical generator
;*
;*
;*

Fathi Idris

************************************************** *************

LIST
N1 = 23
N2 = 24
N3 = 25
N3H = 26
#Define SENSOR PORTA,0
#Define WATTER PORTA,1
#Define OIL PORTA,2
#Define FUEL PORTA,3
#Define RESET PORTA,4
#Define RUNING PORTB,0
#Define M_ON PORTB,1
#Define FAULT PORTB,2
#Define ALARM PORTB,3
#Define STARTER PORTB,4
#Define ACCL PORTB,5
#Define _M PORTB,6
#Define _G PORTB,7
F1_SOF equ $ ; AUTO_RUN_GENERATOR.BAS
F1_000030 equ $ ; in [AUTO_RUN_GENERATOR.BAS] trisa = $1f
Movlw 31
Bsf STATUS,5
ram_bank = 1
Movwf TRISA
F1_000031 equ $ ; in [AUTO_RUN_GENERATOR.BAS] trisb = $01
Movlw 1
Movwf TRISB
F1_000032 equ $ ; in [AUTO_RUN_GENERATOR.BAS] portb = 0
Bcf STATUS,5
ram_bank = 0
Clrf PORTB
F1_000033 equ $ ; in [AUTO_RUN_GENERATOR.BAS] While 1 = 1
bc*LL1
MAIN
F1_000035 equ $ ; in [AUTO_RUN_GENERATOR.BAS] m = 1
Bsf PORTB,6
F1_000036 equ $ ; in [AUTO_RUN_GENERATOR.BAS] m_on = 1
Bsf PORTB,1
F1_000037 equ $ ; in [AUTO_RUN_GENERATOR.BAS] g = 0
Bcf PORTB,7
F1_000038 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If sensor = 1 Then
Btfss PORTA,0
Goto bc*LL4
F1_000039 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000040 equ $ ; in [AUTO_RUN_GENERATOR.BAS] portb = 0
Clrf PORTB
F1_000041 equ $ ; in [AUTO_RUN_GENERATOR.BAS] GoTo start
Goto START
Goto bc*LL5
bc*LL4
F1_000042 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Else: GoTo main

Goto MAIN
F1_000043 equ $ ; in [AUTO_RUN_GENERATOR.BAS] End If
bc*LL5
START
F1_000045 equ $ ; in [AUTO_RUN_GENERATOR.BAS] For n1 = 1 To 3
Movlw 1
Movwf N1
fr*lb7
Movlw 4
Subwf N1,W
Btfsc STATUS,0
Goto nx*lb8
F1_000046 equ $ ; in [AUTO_RUN_GENERATOR.BAS] accl = 1
Bsf PORTB,5
F1_000047 equ $ ; in [AUTO_RUN_GENERATOR.BAS] starter = 1
Bsf PORTB,4
F1_000048 equ $ ; in [AUTO_RUN_GENERATOR.BAS] For n2 = 1 To 5
Movlw 1
Movwf N2
fr*lb9
Movlw 6
Subwf N2,W
Btfsc STATUS,0
Goto nx*lb10
F1_000049 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000050 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Next n2
Incfsz N2,F
Goto fr*lb9
nx*lb10
F1_000051 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If runing = 1 Then GoTo test_sensor
Btfss PORTB,0
Goto bc*LL11
Goto TEST_SENSOR
bc*LL11
F1_000052 equ $ ; in [AUTO_RUN_GENERATOR.BAS] starter = 0
Bcf PORTB,4
F1_000053 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Next n1
Incfsz N1,F
Goto fr*lb7
nx*lb8
FAULT_RUN
F1_000055 equ $ ; in [AUTO_RUN_GENERATOR.BAS] portb = 0
Clrf PORTB
FAULT_RUN1
F1_000057 equ $ ; in [AUTO_RUN_GENERATOR.BAS] fault = 1
Bsf PORTB,2
F1_000058 equ $ ; in [AUTO_RUN_GENERATOR.BAS] sound alarm, [120,60,110,60,120,60]
Movlw PORTB
Movwf GEN
Movlw 8
Movwf GENH
Movlw 120
Movwf PP1
Movlw 60
Call Noise
Movlw 110
Movwf PP1
Movlw 60
Call Noise
Movlw 120
Movwf PP1
Movlw 60
Call Noise
F1_000059 equ $ ; in [AUTO_RUN_GENERATOR.BAS] toggle fault
Movlw 4
Xorwf PORTB,F
Bsf STATUS,5
ram_bank = 1
Bcf TRISB,2
F1_000060 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 500
Movlw 1
Bcf STATUS,5
ram_bank = 0
Movwf PP1H
Movlw 244
Call dly*w
F1_000061 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If Reset = 0 Then GoTo main
Btfsc PORTA,4
Goto bc*LL13
Goto MAIN
bc*LL13
F1_000062 equ $ ; in [AUTO_RUN_GENERATOR.BAS] GoTo fault_run1
Goto FAULT_RUN1
TEST_SENSOR
F1_000064 equ $ ; in [AUTO_RUN_GENERATOR.BAS] starter = 0
Bcf PORTB,4
F1_000065 equ $ ; in [AUTO_RUN_GENERATOR.BAS] accl = 1
Bsf PORTB,5
F1_000066 equ $ ; in [AUTO_RUN_GENERATOR.BAS] For n3 = 1 To 10
Clrf N3H
Movlw 1
Movwf N3
fr*lb15
Movfw N3H
Btfss STATUS,2
Goto nx*lb16
Movlw 11
Subwf N3,W
Btfsc STATUS,0
Goto nx*lb16
F1_000067 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000068 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Next n3
Incf N3,F
Skpnz
Incfsz N3H,F
Goto fr*lb15
nx*lb16
F1_000069 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If fuel = 1 Then GoTo fault_run
Btfss PORTA,3
Goto bc*LL17
Goto FAULT_RUN
bc*LL17
F1_000070 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If watter = 1 Then GoTo fault_run
Btfss PORTA,1
Goto bc*LL19
Goto FAULT_RUN
bc*LL19
F1_000071 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If oil = 1 Then GoTo fault_run
Btfss PORTA,2
Goto bc*LL21
Goto FAULT_RUN
bc*LL21
F1_000072 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000073 equ $ ; in [AUTO_RUN_GENERATOR.BAS] m = 0
Bcf PORTB,6
F1_000074 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000075 equ $ ; in [AUTO_RUN_GENERATOR.BAS] g = 1
Bsf PORTB,7
F1_000076 equ $ ; in [AUTO_RUN_GENERATOR.BAS] m_on = 1
Bsf PORTB,1
F1_000077 equ $ ; in [AUTO_RUN_GENERATOR.BAS] If sensor = 0 Then
Btfsc PORTA,0
Goto bc*LL23
F1_000078 equ $ ; in [AUTO_RUN_GENERATOR.BAS] For n3 = 1 To 60
Clrf N3H
Movlw 1
Movwf N3
fr*lb25
Movfw N3H
Btfss STATUS,2
Goto nx*lb26
Movlw 61
Subwf N3,W
Btfsc STATUS,0
Goto nx*lb26
F1_000079 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000080 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Next n3
Incf N3,F
Skpnz
Incfsz N3H,F
Goto fr*lb25
nx*lb26
F1_000081 equ $ ; in [AUTO_RUN_GENERATOR.BAS] g = 0
Bcf PORTB,7
F1_000082 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000083 equ $ ; in [AUTO_RUN_GENERATOR.BAS] m = 1
Bsf PORTB,6
F1_000084 equ $ ; in [AUTO_RUN_GENERATOR.BAS] m_on = 1
Bsf PORTB,1
F1_000085 equ $ ; in [AUTO_RUN_GENERATOR.BAS] For n3 = 1 To 60
Clrf N3H
Movlw 1
Movwf N3
fr*lb27
Movfw N3H
Btfss STATUS,2
Goto nx*lb28
Movlw 61
Subwf N3,W
Btfsc STATUS,0
Goto nx*lb28
F1_000086 equ $ ; in [AUTO_RUN_GENERATOR.BAS] delayms 1000 ; keep generator runing although main suplly come back
Movlw 3
Movwf PP1H
Movlw 232
Call dly*w
F1_000087 equ $ ; in [AUTO_RUN_GENERATOR.BAS] next n3 ; here generator is stop runing
Incf N3,F
Skpnz
Incfsz N3H,F
Goto fr*lb27
nx*lb28
F1_000088 equ $ ; in [AUTO_RUN_GENERATOR.BAS] accl = 0
Bcf PORTB,5
F1_000089 equ $ ; in [AUTO_RUN_GENERATOR.BAS] GoTo main
Goto MAIN
Goto bc*LL28
bc*LL23
F1_000090 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Else: GoTo test_sensor

Goto TEST_SENSOR
F1_000091 equ $ ; in [AUTO_RUN_GENERATOR.BAS] End If
bc*LL28
F1_000094 equ $ ; in [AUTO_RUN_GENERATOR.BAS] GoTo main
Goto MAIN
F1_000101 equ $ ; in [AUTO_RUN_GENERATOR.BAS] Wend
Goto bc*LL1
bc*LL2
F1_000102 equ $ ; in [AUTO_RUN_GENERATOR.BAS] End
Pb*lb30
Sleep
Goto Pb*lb30
END

وهنا رابط لصورة المخطط وملف الاسمبلي

>>>>>>http://www.zshare.net/download/50108542374a3d36 <<<<<<<











الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
metwally.mustafa
فريق أول
فريق أول


عدد الرسائل : 4214
العمر : 30
الموقع : Egypt
العمل/الترفيه : automation engineer
تاريخ التسجيل : 12/01/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الجمعة 20 مارس 2009 - 10:42

شكرا لك اخى الكريم
ولكن ممكن ان تعطينا كورس فى ال assembly
ولك جزيل الشكر
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
spirou1
جندي
جندي


عدد الرسائل : 1
تاريخ التسجيل : 26/05/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الثلاثاء 26 مايو 2009 - 2:37

thanks
thank you very much
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
F.Abdelaziz
عقيد
عقيد


عدد الرسائل : 639
تاريخ التسجيل : 20/05/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الإثنين 13 يوليو 2009 - 1:55

السلام عليكم
شكرا جزيلا
بعد تنزيل الملفات لاتعمل عندى
هل السبب من عندى برجاء الافادة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
hocine19.57
جندي
جندي


عدد الرسائل : 9
تاريخ التسجيل : 14/10/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الأحد 1 نوفمبر 2009 - 20:18

السلام عليكم وجدت صعوبة في تحميل البرنامج كيف الحل شكرا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
hocine19.57
جندي
جندي


عدد الرسائل : 9
تاريخ التسجيل : 14/10/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الخميس 5 نوفمبر 2009 - 13:01

السلام عليكم اخي العزيز نرخو منك المساعدة الملف ليفتح ارجو منك ارسال الملف الي عنواني اhocine19.57@ hotmai.com
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
hocine19.57
جندي
جندي


عدد الرسائل : 9
تاريخ التسجيل : 14/10/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الأحد 13 ديسمبر 2009 - 7:47

اخي مهندس ارجو منكم المساعدة في تحميل الملف الخاص بتشغيل اتوماتك المولد hocine 19.57@hotmail.com شكرا جزيلا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
تامر محى
جندي
جندي


عدد الرسائل : 7
تاريخ التسجيل : 12/11/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الأربعاء 30 ديسمبر 2009 - 18:16

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


عدد الرسائل : 165
العمر : 47
العمل/الترفيه : مطور انظمة تحكم
تاريخ التسجيل : 25/05/2009

مُساهمةموضوع: استخدام plc افضل وادق   الأربعاء 30 ديسمبر 2009 - 19:58

السلام عليكم ورحمه الله وبركاته
يمكن استخدام plc بسيط مع برنامج تطبيقي بسيط ld ايظا للقيام بهده العمليه وبدون اي تكاليف ايظافيه...بالنسبه لي لقد استخدمت plc من نوع twido شنايدر دو 40 نقطه وبرنامج twido suite سابقا لتحكم في المولدات الكهربائيه.......
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
hany_omar
ملازم أول
ملازم أول


عدد الرسائل : 97
تاريخ التسجيل : 28/02/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الثلاثاء 12 يناير 2010 - 10:30

جزاكم الله خيرا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
fathiidriss
عريف
عريف


عدد الرسائل : 19
العمر : 46
تاريخ التسجيل : 26/06/2010

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الجمعة 30 يوليو 2010 - 17:59

السلام عليكم في البداية فرحت جدا عندما وجدت مساهمتي في القرية الالكترونية اقتبست في هذا المنتدي العامر وانا اشجع تداول الافكار والتجارب ولكن لاحظت ان ناقل هذا الموضوع لم يذكر اسم صاحب المساهمة الاصلي وهو مكتوب في صدر برنامج الاسمبلي كما هو
auto start stop
;* for electrical generator
;*
;*
;*

Fathi Idris
[u] فتحي ادريس هو انا شخصيا انا لا امنع من الاستفادة ولكن كتابة الجهة وصاحب الموضوع هي من الامانة العلميه علي العموم انا اشكر المهندس ROMIO1985 علي اهتمامه بنقل ما هو مفيد ولا اجد اي مانع بنشر واظنه نسي سهوا كتابة صاحب الموضوع
ان شاء الله سوف انشر معكم ما هو مفيد كما انني شاركت في بموضوع الغسالة التي يتحكم بها المايكرو وهي منشورة في هذا المنتدي
بخصوص رد للاخوة الذين قالوا ان البرنامج لا يعمل معهم لابد ان يكون منصب في الجهاز برنامج بروتيوس وبعد ان تفتح الملف اضغط علي رمز الميكرو وتحصل علي خصائص ومنها حمل ملف الهكس سوف تعمل الدائرة ان شاء الله
عمليا انا الان طبقتها علي عدة مولدات بعد اجراء تحسين علي درايفرات الريليهات باستخدام الايسي un2003 , وان شاء الله سوف انشر عدة دوائر في هذا الموقع الرائد تقبلوا تحياتي
fathiidriss
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
metwally.mustafa
فريق أول
فريق أول


عدد الرسائل : 4214
العمر : 30
الموقع : Egypt
العمل/الترفيه : automation engineer
تاريخ التسجيل : 12/01/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الجمعة 30 يوليو 2010 - 19:10

جزاكم الله خيرا اخى فتحى على هذه الروح الطيبه

وفعلا الامانه العلميه مطلوبه وانا وجميع اعضاء المنتدى نرحب بوجودكم معنا

من اجل استغلال الخبرات العلميه فى المنتدى وسوف نسعد كثيرا بالمشاركات الفعاله

وكل عام وانتم بخير

_________________
I am so far behind, I think i am first
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
fathiidriss
عريف
عريف


عدد الرسائل : 19
العمر : 46
تاريخ التسجيل : 26/06/2010

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   السبت 31 يوليو 2010 - 6:12

لك الف شكر مهندس متولي مصطفي تعليقك السريع يدل علي اهتمامكم وحرصكم لنشر المعرفة في وطننا العربي بحق لقد ستفدت من موقعكم الرائد ومن خدماتكم الممتازه وسعة صدركم حقا انكم من قبيلة العلماء الذين يحترقون كي ينير طريق المعرفة
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
Bakri hafez
عريف
عريف


عدد الرسائل : 13
تاريخ التسجيل : 20/08/2009

مُساهمةموضوع: رد: تشغيل واطفاء اوتماتيكي للمولد الكهربائي   الأحد 1 أغسطس 2010 - 3:51

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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى التحكم الآلي والإلكترونيات :: منتديات التحكم الآلي والإلكترونيات :: منتدى الميكروكنترولر Micro Controller-
انتقل الى: