السلام عليكم ورحمة الله وبركاته
اليك هذا البرنامج
;***************** programme d'INIT **************************
INIT
BSF STATUS,RP0
MOVLW B'00000000'
MOVWF TRISB
MOVLW B'00000'
MOVWF TRISA
movlw 0x85
movwf OPTION_REG
movlw 0xA0
movwf INTCON
BCF STATUS,RP0
CLRF PORTB
CLRF PORTA
MOVLW D'61'
MOVWF cpt
استخدمت فيما يخص الوقت les intrruptions على التايمر0 زائد compteur بحيث لا يمكن تطبيق البرنامج الا بعد 61 مرة وذالك عند طريق استخدام الاوامر التالية
ORG 0X04
;****************** programme d'interruption *****************
BTFSS INTCON,T0IF
GOTO ENDI
BCF INTCON,T0IF
DECF cpt,f
BTFSS STATUS,Z
GOTO ENDI
MOVLW D'61'
MOVWF cpt
بعد التجربة وجدت البرنامج يقدم ثانيتين كل ساعة وهو اقرب وقت وصلت اليه لحد الان ولمن لديه اي فكرة فارجو ان لا يبخل علينا بطرحها
ملاحطة. يمكن عمل clrf للثواني بعد ثانيتين كل ساعة وهكذا تكون الدقة افضل من الالى لكن ليست 100بال100
ودمتم في رعاية الله وحفظه