![]() |
#11
|
||||
|
||||
![]()
رائع أخى الكريم ... الشرح ممتاز لما يفعله البرنامج
هل ممكن أن ترفق لنا الكود للأطلاع عليه والاستفادة منه؟؟؟
__________________
|
#12
|
|||
|
|||
![]() |
#13
|
||||
|
||||
![]()
بصراحة أخى الفاضل البرنامج أكثر من رائع
جزاك الله عنا كل خير لى طلب أخر لو ستمح بأن تشرح لنا الكود فكما تعلم لا يفهم الكود بسهولة إلا من كتبه فلو تكرمت أن تشرح لنا البرنامج مجملاً وهذا أسهل ليتمكن اى أحد من برمجته باى لغة برمجة كانك تقول مثلاً فى البداية نشغل كذا ومن ثم ننتظر زمن كذا ومن ثم نختبر الرجل كذا ونسجل كيمتها فى كذاومن ثم نقوم بعمل أزاحة لكذا أو بأى طريقة كما تحب
__________________
|
#14
|
|||
|
|||
![]()
السلام عليكم:
اخي العزيز سيد هذا البرنامج انا لم أكتبه بل حصلت عليه من موقع صيني وقمت بتعديل عليه لأنه في البداية لم يعمل معي......... وانا مثلك أريد أن افهم كيف يعمل لكي يتسنى لي أو غيري كتابته بللغه أخرى مثل البيك بيسك ...... صحيح لي سؤال كيف ترفع الصور بالمنتدى وشكرآ |
#15
|
||||
|
||||
![]()
لك منى كل الاحترام والتقدير أخى بل أستاذى القدير
مجهود اكثر من رائع وان شاء الله نكمل عليه هل أشتغلت معك عملياً ؟؟؟ بالنسبة لسؤالك راجع الموضوع التالى http://www.dbaasco.com/vb/showthread...2070#post32070 تحياتى
__________________
|
#16
|
|||
|
|||
![]()
السلام عليكم:
نعم أخي أنا قمت بتنفيذ هذه الدائرة وعملت معي جيدة بل رائعة .......... |
#17
|
|||
|
|||
![]()
الأخ الفاضل م/مهدى جزاك الله خيرا على هذه الدائرة وجعل الله هذا العمل فى ميزان حسناتك. لى استفسار هل ىتم تركيب مستقبل infrared مكان الـ J1 فى الدائرة يرجى التوضيح مع ذكر النوع المستخدم
|
#18
|
|||
|
|||
![]()
الاخ الفاضل مهدي كايد
شكرا لجهودك اخي وبارك الله فيك قمت ببناء الدائرة وتجربتها وقد عملت ولكن هناك بعض المشاكل في ادائها : 1- r2 يعمل عند الضغط في حين r1+r3+r4 لا تعمل عند الضغط 2- r6+r7+r8 تعمل عند الضغط في حين r5 لا يعمل ارجو ابداء المساعدة في تجاوز هذه المشاكل |
#19
|
|||
|
|||
![]()
الاخ مهدي كايد المحترم
ليست لدي خبره في البرمجة ارجو مساعدتك في : 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 |
#20
|
|||
|
|||
![]()
بارك الله فيك
|
![]() |
مواقع النشر (المفضلة) |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|