دائرة تحكم 8 مخارج تستخدم البيك 16f84a

[eng_a_sayed]

رائع أخى الكريم ... الشرح ممتاز لما يفعله البرنامج

هل ممكن أن ترفق لنا الكود للأطلاع عليه والاستفادة منه؟؟؟

[مهدي كايد]

السلام عليكم :

هذا هو البرنامج باللغة الأسمبلي

IR8_MPMM2.asm

[eng_a_sayed]

بصراحة أخى الفاضل البرنامج أكثر من رائع

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

لى طلب أخر لو ستمح

بأن تشرح لنا الكود فكما تعلم لا يفهم الكود بسهولة إلا من كتبه

فلو تكرمت أن تشرح لنا البرنامج مجملاً وهذا أسهل ليتمكن اى أحد من برمجته باى لغة برمجة

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

أو بأى طريقة كما تحب

[مهدي كايد]

السلام عليكم:

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

عليه لأنه في البداية لم يعمل معي......... وانا مثلك أريد أن افهم كيف يعمل لكي يتسنى
لي أو غيري كتابته بللغه أخرى مثل البيك بيسك ......

صحيح لي سؤال كيف ترفع الصور بالمنتدى وشكرآ

[eng_a_sayed]

لك منى كل الاحترام والتقدير أخى بل أستاذى القدير

مجهود اكثر من رائع وان شاء الله نكمل عليه

هل أشتغلت معك عملياً ؟؟؟

بالنسبة لسؤالك راجع الموضوع التالى
http://www.dbaasco.com/vb/showthread...2070#post32070

تحياتى

[مهدي كايد]

السلام عليكم:


نعم أخي أنا قمت بتنفيذ هذه الدائرة وعملت معي جيدة بل رائعة ..........

[moh10]

الأخ الفاضل م/مهدى جزاك الله خيرا على هذه الدائرة وجعل الله هذا العمل فى ميزان حسناتك. لى استفسار هل ىتم تركيب مستقبل infrared مكان الـ J1 فى الدائرة يرجى التوضيح مع ذكر النوع المستخدم

[م جميل السامرائي]

الاخ الفاضل مهدي كايد

شكرا لجهودك اخي وبارك الله فيك
قمت ببناء الدائرة وتجربتها وقد عملت ولكن هناك بعض المشاكل في ادائها :
1- r2 يعمل عند الضغط في حين r1+r3+r4 لا تعمل عند الضغط
2- r6+r7+r8 تعمل عند الضغط في حين r5 لا يعمل

ارجو ابداء المساعدة في تجاوز هذه المشاكل

[م جميل السامرائي]

الاخ مهدي كايد المحترم
ليست لدي خبره في البرمجة ارجو مساعدتك في :
1- ارجو ان تغير كود البرنامج بحيث عند الضغط على المفاتيح من RB0,RB1,RB2,RB3 ورفع اليد من المفتاح لا ينطفئ ال LED وعند الضغط مرة اخرى ينطفئ ال LED اي تصبح مثل حالة RB4,RB5,RB6,RB7

2- ارجو ان تعمل ملف HEX للتغيرات وتضعه في ردك


شكرا لك اخي الفاضل على مساعدتك


وكود البرنامج بلغة الاسيمبلي هو




processor 16F84A
#include <P16F84A.INC>
__config _CP_ON & _PWRTE_ON & _WDT_OFF & _XT_OSC ; 0x0001

; RAM-Variable
LRAM_0x0C equ 0x0C
LRAM_0x0D equ 0x0D
LRAM_0x0E equ 0x0E
LRAM_0x0F equ 0x0F
LRAM_0x10 equ 0x10
LRAM_0x11 equ 0x11
LRAM_0x12 equ 0x12
LRAM_0x13 equ 0x13
LRAM_0x14 equ 0x14
LRAM_0x15 equ 0x15
LRAM_0x16 equ 0x16
LRAM_0x17 equ 0x17
LRAM_0x18 equ 0x18
LRAM_0x19 equ 0x19
LRAM_0x1A equ 0x1A
LRAM_0x1B equ 0x1B
LRAM_0x1C equ 0x1C
LRAM_0x1D equ 0x1D
LRAM_0x1E equ 0x1E
LRAM_0x1F equ 0x1F
LRAM_0x20 equ 0x20
LRAM_0x21 equ 0x21
LRAM_0x23 equ 0x23
LRAM_0x24 equ 0x24
LRAM_0x25 equ 0x25

; Program

Org 0x0000

; Reset-Vector
GOTO LADR_0x0005

Org 0x0004

; Interrupt-Vector
GOTO LADR_0x0005
LADR_0x0005
BSF STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
MOVLW 0x06 ; b'00000110' d'006'
MOVWF PORTA ; !!Bank!! PORTA - TRISA
MOVLW 0x00 ; b'00000000' d'000'
MOVWF PORTB ; !!Bank!! PORTB - TRISB
MOVLW 0xFF ; b'11111111' d'255'
MOVWF TMR0 ; !!Bank!! TMR0 - OPTION_REG
CLRF EEDATA ; !!Bank!! EEDATA - EECON1
BCF STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
CLRF INTCON
BSF PORTA,0 ; !!Bank!! PORTA - TRISA
CLRF LRAM_0x14
CLRF LRAM_0x1E
CLRF LRAM_0x1C
CLRF PORTB ; !!Bank!! PORTB - TRISB
LADR_0x0014
BTFSS PORTA,2 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0024
BTFSS PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0019
GOTO LADR_0x0014
LADR_0x0019
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0014
CALL LADR_0x0165
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0014
CALL LADR_0x0165
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0014
CALL LADR_0x00FC
CALL LADR_0x0068
GOTO LADR_0x0014
LADR_0x0024
CALL LADR_0x003D
GOTO LADR_0x0014
LADR_0x0026
MOVF LRAM_0x1A,W
MOVWF EEADR ; !!Bank!! EEADR - EECON2
BSF STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
BSF EEDATA,0 ; !!Bank!! EEDATA - EECON1
BCF STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
MOVF EEDATA,W ; !!Bank!! EEDATA - EECON1
RETURN
LADR_0x002D
MOVWF EEDATA ; !!Bank!! EEDATA - EECON1
MOVF LRAM_0x1A,W
MOVWF EEADR ; !!Bank!! EEADR - EECON2
BSF STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
BSF EEDATA,2 ; !!Bank!! EEDATA - EECON1
MOVLW 0x55 ; b'01010101' d'085' "U"
MOVWF EEADR ; !!Bank!! EEADR - EECON2
MOVLW 0xAA ; b'10101010' d'170'
MOVWF EEADR ; !!Bank!! EEADR - EECON2
BSF EEDATA,1 ; !!Bank!! EEDATA - EECON1
LADR_0x0037
BTFSC EEDATA,1 ; !!Bank!! EEDATA - EECON1
GOTO LADR_0x0037
BCF EEDATA,4 ; !!Bank!! EEDATA - EECON1
BCF EEDATA,2 ; !!Bank!! EEDATA - EECON1
BCF STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
RETURN
LADR_0x003D
CALL LADR_0x019D
BTFSC PORTA,2 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x005C
CALL LADR_0x019D
BTFSC PORTA,2 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x005C
CALL LADR_0x019D
BTFSC PORTA,2 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x005C
MOVLW 0x08 ; b'00001000' d'008'
MOVWF LRAM_0x1B
CLRF LRAM_0x19
LADR_0x0049
MOVF LRAM_0x19,W
MOVWF LRAM_0x1A
BCF PORTA,0 ; !!Bank!! PORTA - TRISA
LADR_0x004C
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x004C
CALL LADR_0x0165
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x004C
CALL LADR_0x0165
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x004C
CALL LADR_0x00FC
CALL LADR_0x005D
MOVLW 0x05 ; b'00000101' d'005'
CALL LADR_0x0187
MOVLW 0x06 ; b'00000110' d'006'
ADDWF LRAM_0x19,F
DECFSZ LRAM_0x1B,F
GOTO LADR_0x0049
LADR_0x005C
RETURN
LADR_0x005D
MOVLW 0x06 ; b'00000110' d'006'
MOVWF LRAM_0x1D
MOVLW 0x0C ; b'00001100' d'012'
MOVWF FSR
LADR_0x0061
MOVF INDF,W
CALL LADR_0x002D
INCF LRAM_0x1A,F
INCF FSR,F
DECFSZ LRAM_0x1D,F
GOTO LADR_0x0061
RETURN
LADR_0x0068
BCF LRAM_0x14,1
BCF LRAM_0x14,2
BCF LRAM_0x1E,0
CLRF LRAM_0x19
CLRF LRAM_0x1A
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x0086
LADR_0x0070
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x008A
LADR_0x0073
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x008E
LADR_0x0076
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x0092
LADR_0x0079
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x0096
LADR_0x007C
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x009F
LADR_0x007F
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x00A8
LADR_0x0082
CALL LADR_0x00E8
BTFSC LRAM_0x14,3
GOTO LADR_0x00B1
GOTO LADR_0x00B9
LADR_0x0086
BSF LRAM_0x14,1
BSF PORTB,0 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,0
GOTO LADR_0x0070
LADR_0x008A
BSF LRAM_0x14,1
BSF PORTB,1 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,1
GOTO LADR_0x0073
LADR_0x008E
BSF LRAM_0x14,1
BSF PORTB,2 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,2
GOTO LADR_0x0076
LADR_0x0092
BSF LRAM_0x14,1
BSF PORTB,3 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,3
GOTO LADR_0x0079
LADR_0x0096
BSF LRAM_0x14,2
BTFSC LRAM_0x1C,4
GOTO LADR_0x009C
BSF PORTB,4 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,4
GOTO LADR_0x007C
LADR_0x009C
BCF PORTB,4 ; !!Bank!! PORTB - TRISB
BCF LRAM_0x1C,4
GOTO LADR_0x007C
LADR_0x009F
BSF LRAM_0x14,2
BTFSC LRAM_0x1C,5
GOTO LADR_0x00A5
BSF PORTB,5 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,5
GOTO LADR_0x007F
LADR_0x00A5
BCF PORTB,5 ; !!Bank!! PORTB - TRISB
BCF LRAM_0x1C,5
GOTO LADR_0x007F
LADR_0x00A8
BSF LRAM_0x14,2
BTFSC LRAM_0x1C,6
GOTO LADR_0x00AE
BSF PORTB,6 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,6
GOTO LADR_0x0082
LADR_0x00AE
BCF PORTB,6 ; !!Bank!! PORTB - TRISB
BCF LRAM_0x1C,6
GOTO LADR_0x0082
LADR_0x00B1
BSF LRAM_0x14,2
BTFSC LRAM_0x1C,7
GOTO LADR_0x00B7
BSF PORTB,7 ; !!Bank!! PORTB - TRISB
BSF LRAM_0x1C,7
GOTO LADR_0x00B9
LADR_0x00B7
BCF PORTB,7 ; !!Bank!! PORTB - TRISB
BCF LRAM_0x1C,7
LADR_0x00B9
BCF LRAM_0x1E,3
BTFSC LRAM_0x14,2
GOTO LADR_0x00CB
LADR_0x00BC
BTFSC LRAM_0x14,1
GOTO LADR_0x00BF
RETURN
LADR_0x00BF
BTFSC LRAM_0x1E,3
GOTO LADR_0x00C4
LADR_0x00C1
CALL LADR_0x00D0
BTFSC LRAM_0x14,6
GOTO LADR_0x00C1
LADR_0x00C4
BCF PORTB,0 ; !!Bank!! PORTB - TRISB
BCF PORTB,1 ; !!Bank!! PORTB - TRISB
BCF PORTB,2 ; !!Bank!! PORTB - TRISB
BCF PORTB,3 ; !!Bank!! PORTB - TRISB
BTFSS LRAM_0x1E,0
GOTO LADR_0x00CA
LADR_0x00CA
RETURN
LADR_0x00CB
BSF LRAM_0x1E,3
CALL LADR_0x00D0
BTFSC LRAM_0x14,6
GOTO LADR_0x00CB
GOTO LADR_0x00BC
LADR_0x00D0
BCF LRAM_0x14,6
MOVLW 0x0D ; b'00001101' d'013'
MOVLW 0x27 ; b'00100111' d'039' "'"
MOVWF LRAM_0x24
LADR_0x00D4
CLRF LRAM_0x25
LADR_0x00D5
BTFSS PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x00DD
LADR_0x00D7
CALL LADR_0x0176
DECFSZ LRAM_0x25,F
GOTO LADR_0x00D5
DECFSZ LRAM_0x24,F
GOTO LADR_0x00D4
RETURN
LADR_0x00DD
NOP
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x00D7
NOP
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x00D7
NOP
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x00D7
BSF LRAM_0x14,6
RETURN
LADR_0x00E8
MOVLW 0x06 ; b'00000110' d'006'
MOVWF LRAM_0x23
MOVLW 0x0C ; b'00001100' d'012'
MOVWF FSR
LADR_0x00EC
CALL LADR_0x0026
SUBWF INDF,W
BTFSS STATUS,Z
GOTO LADR_0x00F6
INCF LRAM_0x1A,F
INCF FSR,F
DECFSZ LRAM_0x23,F
GOTO LADR_0x00EC
BSF LRAM_0x14,3
GOTO LADR_0x00F7
LADR_0x00F6
BCF LRAM_0x14,3
LADR_0x00F7
MOVLW 0x06 ; b'00000110' d'006'
ADDWF LRAM_0x19,F
MOVF LRAM_0x19,W
MOVWF LRAM_0x1A
RETURN
LADR_0x00FC
BCF LRAM_0x14,5
MOVLW 0x30 ; b'00110000' d'048' "0"
MOVWF LRAM_0x15
LADR_0x00FF
CALL LADR_0x011C
RLF LRAM_0x0C,F
RLF LRAM_0x0D,F
RLF LRAM_0x0E,F
RLF LRAM_0x0F,F
RLF LRAM_0x10,F
RLF LRAM_0x11,F
RLF LRAM_0x12,F
RLF LRAM_0x13,F
BTFSC LRAM_0x14,5
GOTO LADR_0x010F
BTFSC LRAM_0x14,4
BSF LRAM_0x14,5
DECFSZ LRAM_0x15,F
GOTO LADR_0x00FF
RETURN
LADR_0x010F
DECF LRAM_0x15,F
LADR_0x0110
BCF STATUS,C
RLF LRAM_0x0C,F
RLF LRAM_0x0D,F
RLF LRAM_0x0E,F
RLF LRAM_0x0F,F
RLF LRAM_0x10,F
RLF LRAM_0x11,F
RLF LRAM_0x12,F
RLF LRAM_0x13,F
DECFSZ LRAM_0x15,F
GOTO LADR_0x0110
RETURN
LADR_0x011C
CLRF LRAM_0x18
BCF LRAM_0x14,4
BCF LRAM_0x14,7
MOVLW 0x04 ; b'00000100' d'004'
MOVWF LRAM_0x24
LADR_0x0121
CLRF LRAM_0x25
LADR_0x0122
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x012F
NOP
NOP
NOP
LADR_0x0127
NOP
NOP
LADR_0x0129
DECFSZ LRAM_0x25,F
GOTO LADR_0x0122
BSF LRAM_0x14,7
DECFSZ LRAM_0x24,F
GOTO LADR_0x0121
GOTO LADR_0x0138
LADR_0x012F
BTFSS PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0127
CALL LADR_0x017D
BTFSS PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0129
CLRF LRAM_0x16
MOVF LRAM_0x25,W
SUBWF LRAM_0x16,F
GOTO LADR_0x013B
LADR_0x0138
MOVLW 0xFF ; b'11111111' d'255'
MOVWF LRAM_0x18
BSF LRAM_0x14,4
LADR_0x013B
MOVLW 0x04 ; b'00000100' d'004'
MOVWF LRAM_0x24
LADR_0x013D
CLRF LRAM_0x25
LADR_0x013E
BTFSS PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x014B
NOP
NOP
NOP
LADR_0x0143
NOP
NOP
LADR_0x0145
DECFSZ LRAM_0x25,F
GOTO LADR_0x013E
BSF LRAM_0x14,7
DECFSZ LRAM_0x24,F
GOTO LADR_0x013D
GOTO LADR_0x015B
LADR_0x014B
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0143
CALL LADR_0x017D
BTFSC PORTA,1 ; !!Bank!! PORTA - TRISA
GOTO LADR_0x0145
CLRF LRAM_0x17
MOVF LRAM_0x25,W
SUBWF LRAM_0x17,F
MOVF LRAM_0x17,W
ADDWF LRAM_0x16,W
MOVWF LRAM_0x18
BTFSC STATUS,C
GOTO LADR_0x015A
MOVLW 0x8C ; b'10001100' d'140'
SUBWF LRAM_0x18,W
LADR_0x015A
RETURN
LADR_0x015B
MOVLW 0xFF ; b'11111111' d'255'
MOVWF LRAM_0x18
BSF LRAM_0x14,4
BSF STATUS,C
RETURN
MOVLW 0x41 ; b'01000001' d'065' "A"
MOVWF LRAM_0x1F
LADR_0x0162
DECFSZ LRAM_0x1F,F
GOTO LADR_0x0162
RETURN
LADR_0x0165
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RETURN
LADR_0x0176
NOP
NOP
NOP
NOP
NOP
NOP
RETURN
LADR_0x017D
NOP
RETURN
MOVWF LRAM_0x23
LADR_0x0180
BSF PORTB,0 ; !!Bank!! PORTB - TRISB
CALL LADR_0x018F
BCF PORTB,0 ; !!Bank!! PORTB - TRISB
CALL LADR_0x018F
DECFSZ LRAM_0x23,F
GOTO LADR_0x0180
RETURN
LADR_0x0187
MOVWF LRAM_0x23
LADR_0x0188
BCF PORTA,0 ; !!Bank!! PORTA - TRISA
CALL LADR_0x018F
BSF PORTA,0 ; !!Bank!! PORTA - TRISA
CALL LADR_0x018F
DECFSZ LRAM_0x23,F
GOTO LADR_0x0188
RETURN
LADR_0x018F
MOVLW 0xF8 ; b'11111000' d'248'
MOVWF LRAM_0x21
LADR_0x0191
MOVLW 0x04 ; b'00000100' d'004'
MOVWF LRAM_0x20
LADR_0x0193
MOVLW 0x3E ; b'00111110' d'062' ">"
MOVWF LRAM_0x1F
LADR_0x0195
NOP
DECFSZ LRAM_0x1F,F
GOTO LADR_0x0195
DECFSZ LRAM_0x20,F
GOTO LADR_0x0193
DECFSZ LRAM_0x21,F
GOTO LADR_0x0191
RETURN
LADR_0x019D
CLRF LRAM_0x1F
LADR_0x019E
MOVLW 0x0A ; b'00001010' d'010'
MOVWF LRAM_0x20
LADR_0x01A0
NOP
DECFSZ LRAM_0x20,F
GOTO LADR_0x01A0
DECFSZ LRAM_0x1F,F
GOTO LADR_0x019E
RETURN

End

[ملك العلوم]

بارك الله فيك