|
|
|
|||||||
| منتدى الاختراعات و التجارب العلمية يهتم بجميع المواضيع العلمية المتعلقة بالتكنولوجيا والإختراعات والإبتكارات والتجارب العلمية... |
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
| آخر المواضيع |
|
 |
|
|
أدوات الموضوع | انواع عرض الموضوع |
2015-01-16, 12:17
|
رقم المشاركة : 16 | ||||
|
السلام عليكم اخي
السلام عليكم ورحمة الله وبركاته
|
||||
|
|
2015-01-20, 12:42
|
رقم المشاركة : 17 | |||
|
اسلام عليكم |
|||
|
|
|
2015-01-20, 18:52
|
رقم المشاركة : 19 | |||
|
السلام عليكم و رحمة الله و بركاته |
|||
|
|
|
2015-01-22, 21:02
|
رقم المشاركة : 20 | |||
|
السلام عليكم |
|||
|
|
|
2015-01-25, 00:52
|
رقم المشاركة : 21 | |||
|
والله انك فنان |
|||
|
|
|
2015-01-29, 17:03
|
رقم المشاركة : 22 | ||||
|
اقتباس:
انا من ولاية تلمسان واثار فضولي عن الكيفية التي ستطبقها للكشف عن الفيروسات ؟ |
||||
|
|
|
2015-01-29, 17:09
|
رقم المشاركة : 23 | ||||
|
اقتباس:
اتمنى لك التوفيق ان شاء الله |
||||
|
|
|
2015-01-29, 17:18
|
رقم المشاركة : 24 | ||||
|
اقتباس:
|
||||
|
|
|
2015-02-10, 10:53
|
رقم المشاركة : 25 | |||
|
السلام عليكم كود:
list p=16F84A
#include <p16F84A.inc>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
PORTB EQU 0x0006
TRISB EQU 0x0086 ;
STATUS EQU 0x0003 ;
PORTA EQU 0x0005 ;
TRISA EQU 0x0085 ;
STATUS EQU 0X0003
AA EQU 0x000C
BB EQU 0x000D
CC EQU 0Eh
DD EQU 0Fh
ALPHA EQU 10h
BETA EQU 11h
WSTOR EQU 12h
STORSTATUS EQU 13h
DEBO EQU 14h
OPTION_REG EQU 0x0081
tmr0 EQU 01h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#DEFINE BANK1 BSF STATUS,05
#DEFINE BANK0 BCF STATUS,05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ORG 00H
GOTO STAR
ORG 04H
MOVWF WSTOR
SWAPF STATUS,W
MOVWF STORSTATUS
;*****************
INCF DEBO
BCF STATUS,Z
MOVLW 12h
SUBWF DEBO,w
BTFSS STATUS,Z
GOTO CHANCE
;*****************
CLRF PORTA
CLRF PORTB
CLRF DEBO
CLRF TMR0
CHANCE
;*****************
BCF INTCON,2
BCF INTCON,0
SWAPF STORSTATUS,W
MOVWF STATUS
SWAPF WSTOR,F
SWAPF WSTOR,W
RETFIE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STAR
BANK1
MOVLW b'00001111'
MOVWF TRISB
MOVLW b'11110000'
MOVWF TRISA
MOVLW b'10000101'
MOVWF OPTION_REG
BSF INTCON,5
BSF INTCON,7
;;;;;;;;;
BANK0
CLRF PORTA
CLRF DEBO
CLRF TMR0
BECHAR
BTFSS PORTB,0
GOTO BECHAR
CALL US500
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
CLRF ALPHA
CLRF BETA
BTFSC PORTB,0
BSF ALPHA,0
BTFSS PORTB,0
BCF ALPHA,0
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
BSF ALPHA,1
BTFSS PORTB,0
BCF ALPHA,1
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
BSF ALPHA,2
BTFSS PORTB,0
BCF ALPHA,2
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
BSF ALPHA,3
BTFSS PORTB,0
BCF ALPHA,3
LLL
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BTFSC PORTB,0
BSF BETA,0
BTFSS PORTB,0
BCF BETA,0
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
BSF BETA,1
BTFSS PORTB,0
BCF BETA,1
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
BSF BETA,2
BTFSS PORTB,0
BCF BETA,2
CALL T1ms
BTFSC PORTB,0
GOTO BECHAR
CALL T1ms
BTFSS PORTB,0
GOTO BECHAR
CALL T1ms
BTFSC PORTB,0
BSF BETA,3
BTFSS PORTB,0
BCF BETA,3
MOVF ALPHA,W
BCF STATUS,2
SUBWF BETA,W
BTFSS STATUS,2
GOTO BECHAR
MOVF BETA,W
MOVWF PORTA
CALL MS18
CLRF DEBO
CLRF TMR0
GOTO BECHAR
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MS18
MOVLW 0x13 ; ajuste
MOVWF BB
loop3
MOVLW 0xF8; ajuste fine
MOVWF AA ;
lop1
NOP
DECFSZ AA
GOTO lop1
DECFSZ BB
GOTO loop3
RETURN
;;;;;;;;;;;;;;;;;;;;;
T1ms
MOVLW 0xF6
MOVWF AA
LOOP1
NOP
DECFSZ AA
GOTO LOOP1
RETURN
;;;;;;;;;;;;;;;;;;;;
US200
MOVLW 0x30
MOVWF AA
LOOP4
NOP
DECFSZ AA
GOTO LOOP4
RETURN
;;;;;;;;;;;;;;;;;;;
US100
MOVLW 0x17
MOVWF AA
LOP4
NOP
DECFSZ AA
GOTO LOP4
NOP
NOP
RETURN
;;;;;;;;;;;;;;;;
US50
MOVLW 0x9
MOVWF AA
LOPA
NOP
DECFSZ AA
GOTO LOPA
NOP
NOP
RETURN
;;;;;;;;;;;;;;;;
US5
NOP
NOP
NOP
NOP
NOP
RETURN
;;;;;;;;;;;;;;;;
US500
CALL US200
CALL US200
CALL US100
RETURN
END
|
|||
|
|
|
2015-02-10, 11:00
|
رقم المشاركة : 26 | |||
|
مع اني لم اجرب البرنامجين التاليين ساضعهما في المنتدى كود:
list p=16F84A
#include
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
PORTB EQU 0x0006
TRISB EQU 0x0086 ;
STATUS EQU 0x0003 ;
PORTA EQU 0x0005 ;
TRISA EQU 0x0085 ;
OPTION_REG EQU 0x0081 ;
AA EQU 0x000C
BB EQU 0x000D
CC EQU 0Eh
SPEED EQU 0Fh
WSTOR EQU 10h
STORSTATUS EQU 11h
#DEFINE BANK1 BSF STATUS,05
#DEFINE BANK0 BCF STATUS,05
org 00H
GOTO STAR
ORG 04H
MOVWF WSTOR
SWAPF STATUS,W
MOVWF STORSTATUS
BCF INTCON,0
;*****************
BCF STATUS,Z
MOVLW 10h
SUBWF SPEED,w
BTFSC STATUS,Z
GOTO ZIT
BTFSC PORTB,4
INCF SPEED
;*****************
ZIT
BCF STATUS,Z
MOVLW 0h
SUBWF SPEED,w
BTFSC STATUS,Z
GOTO ZOT
BTFSC PORTB,5
DECF SPEED
ZOT
;*****************
SWAPF STORSTATUS,W
MOVWF STATUS
SWAPF WSTOR,F
SWAPF WSTOR,W
RETFIE
STAR
BANK1
BCF OPTION_REG,7
MOVLW b'11111111'
MOVWF TRISB
MOVLW b'11111110'
MOVWF TRISA
BSF INTCON,3
BSF INTCON,7
BANK0
CLRF SPEED
boucle
BSF PORTA,0 ;
CALL T1ms;
;;;;;;;;;;
BCF PORTA,0
CALL T1ms ;
CALL T1ms ;
;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms
;;;;;;;;;;
BCF PORTA,0
CALL T1ms ;
;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
CALL T1ms
CALL T1ms
;;;;;;;;;;
BCF PORTA,0
CALL T1ms ;
;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
;;;;;;;;;;
BTFSS PORTB,0 ;
BSF PORTA,0;
BTFSC PORTB,0
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,1
BSF PORTA,0
BTFSC PORTB,1
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,2
BSF PORTA,0
BTFSC PORTB,2
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,3
BSF PORTA,0
BTFSC PORTB,3
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,0 ;
BSF PORTA,0;
BTFSC PORTB,0
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,1
BSF PORTA,0
BTFSC PORTB,1
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,2
BSF PORTA,0
BTFSC PORTB,2
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSS PORTB,3
BSF PORTA,0
BTFSC PORTB,3
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,0 ;
BSF PORTA,0;
BTFSS SPEED,0
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,1
BSF PORTA,0
BTFSS SPEED,1
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,2
BSF PORTA,0
BTFSS SPEED,2
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,3
BSF PORTA,0
BTFSS SPEED,3
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,0 ;
BSF PORTA,0;
BTFSS SPEED,0
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,1
BSF PORTA,0
BTFSS SPEED,1
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,2
BSF PORTA,0
BTFSS SPEED,2
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;
BSF PORTA,0 ;
CALL T1ms;
BTFSC SPEED,3
BSF PORTA,0
BTFSS SPEED,3
BCF PORTA,0
CALL T1ms
BCF PORTA,0
CALL T1ms
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
BCF PORTA,0
CALL T20MS
;*********************
BCF STATUS,Z
MOVLW 0
SUBWF SPEED,W
BTFSC STATUS,Z
CALL LED1
;;;;;;;;;;;;;;;
MOVLW 1
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED1
;;;;;;;;;;;;;;;
MOVLW 2
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED2
;;;;;;;;;;;;;;;
MOVLW 3
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED2
;;;;;;;;;;;;;;;
MOVLW 4
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED3
;;;;;;;;;;;;;;;
MOVLW 5
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED3
;;;;;;;;;;;;;;;
MOVLW 6
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED4
;;;;;;;;;;;;;;;
MOVLW 7
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED4
;;;;;;;;;;;;;;;
MOVLW 8
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED5
;;;;;;;;;;;;;;;
MOVLW 9
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED5
;;;;;;;;;;;;;;;
MOVLW 0Ah
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED6
;;;;;;;;;;;;;;;
MOVLW 0Bh
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED6
;;;;;;;;;;;;;;;
MOVLW 0Ch
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED7
;;;;;;;;;;;;;;;
MOVLW 0Dh
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED7
;;;;;;;;;;;;;;;
MOVLW 0Eh
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED4
;;;;;;;;;;;;;;;
MOVLW 0Fh
SUBWF SPEED,w
BTFSC STATUS,Z
CALL LED4
;;;;;;;;;;;;;;;
GOTO boucle
;************************
NOMBRE0
MOVLW b'00000010'
MOVWF PORTA
RETURN
LED1
MOVLW b'00000100'
MOVWF PORTA
RETURN
LED2
MOVLW b'00001000'
MOVWF PORTA
RETURN
LED3
MOVLW b'10011110'
MOVWF PORTB
RETURN
LED4
MOVLW b'00010000'
MOVWF PORTB
RETURN
LED5
MOVLW b'00100000'
MOVWF PORTB
RETURN
LED6
MOVLW b'01000000'
MOVWF PORTB
RETURN
LED7
MOVLW b'10000000'
MOVWF PORTB
RETURN
T1ms
MOVLW 0xf9
MOVWF AA
LOOP1
NOP
DECFSZ AA
GOTO LOOP1
RETURN
T20MS
MOVLW 0x14
MOVWF BB
LOOP3
CALL T1ms
DECFSZ BB
GOTO LOOP3
RETURN
end
كود:
list p=16F84A
#include <p16F84A.inc>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
PORTB EQU 0x0006
TRISB EQU 0x0086 ;
STATUS EQU 0x0003 ;
PORTA EQU 0x0005 ;
TRISA EQU 0x0085 ;
STATUS EQU 0X0003
AA EQU 0x000C
BB EQU 0x000D
CC EQU 0Eh
DD EQU 0Fh
ALPHA EQU 10h
BETA EQU 11h
WSTOR EQU 12h
STORSTATUS EQU 13h
DEBO EQU 14h
OPTION_REG EQU 0x0081
tmr0 EQU 01h
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#DEFINE BANK1 BSF STATUS,05
#DEFINE BANK0 BCF STATUS,05
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ORG 00H
GOTO STAR
ORG 04H
MOVWF WSTOR
SWAPF STATUS,W
MOVWF STORSTATUS
;*****************
INCF DEBO
BCF STATUS,Z
MOVLW 12h
SUBWF DEBO,w
BTFSS STATUS,Z
GOTO CHANCE
;*****************
CLRF PORTA
CLRF PORTB
CLRF DEBO
CLRF TMR0
CHANCE
;*****************
BCF INTCON,2
BCF INTCON,0
SWAPF STORSTATUS,W
MOVWF STATUS
SWAPF WSTOR,F
SWAPF WSTOR,W
RETFIE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STAR
BANK1
MOVLW b'00001111'
MOVWF TRISB
MOVLW b'11110000'
MOVWF TRISA
MOVLW b'10000101'
MOVWF OPTION_REG
BSF INTCON,5
BSF INTCON,7
;;;;;;;;;
BANK0
CLRF PORTB
CLRF PORTA
CLRF DEBO
CLRF TMR0
LOOPB
CLRF DD
BECHAR
BTFSC PORTB,0
INCF DD
BTFSS PORTB,0
GOTO LOOPB
CALL US200
MOVLW 0X05
BCF STATUS,2
SUBWF DD,W
BTFSS STATUS,2
GOTO BECHAR
CALL US100
CALL US50
;;;;;;;;;
CLRF DD
LOOP2
BTFSS PORTB,0
INCF DD
BTFSC PORTB,0
GOTO LOOPB
MOVLW 0X09
BCF STATUS,02
SUBWF DD,W
CALL US200
BTFSS STATUS,02
GOTO LOOP2
CALL US100
CALL US50
;;;;;;;;;;;
CLRF DD
LOOPG
BTFSC PORTB,0
INCF DD
BTFSS PORTB,0
GOTO LOOPB
CALL US200
MOVLW 0X04
BCF STATUS,2
SUBWF DD,W
BTFSS STATUS,2
GOTO LOOPG
;;;;;;;;;;;
CALL US200
CALL US200
CALL US100
BTFSC PORTB,0
GOTO BECHAR
;;;;;;;;;;;
CALL T1ms
BTFSS PORTB,0
GOTO LOOPB
;;;;;;;;;;;
CALL T1ms
BTFSS PORTB,0
GOTO LOOPB
;;;;;;;;;;;
CALL T1ms
BTFSS PORTB,0
GOTO LOOPB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CALL US50
CLRF ALPHA
BTFSC PORTB,0
BSF ALPHA,0
BTFSS PORTB,0
BCF ALPHA,0
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF ALPHA,1
BTFSS PORTB,0
BCF ALPHA,1
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CALL US50
BTFSC PORTB,0
BSF ALPHA,2
BTFSS PORTB,0
BCF ALPHA,2
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF ALPHA,3
BTFSS PORTB,0
BCF ALPHA,3
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CALL US50
CLRF BETA
BTFSC PORTB,0
BSF BETA,0
BTFSS PORTB,0
BCF BETA,0
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF BETA,1
BTFSS PORTB,0
BCF BETA,1
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CALL US50
BTFSC PORTB,0
BSF BETA,2
BTFSS PORTB,0
BCF BETA,2
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF BETA,3
BTFSS PORTB,0
BCF BETA,3
;;;;;;;;;;
MOVF ALPHA,W
BCF STATUS,2
SUBWF BETA,W
BTFSS STATUS,2
GOTO LOOPB
MOVF BETA,W
MOVWF PORTA
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CLRF ALPHA
BTFSC PORTB,0
BSF ALPHA,0
BTFSS PORTB,0
BCF ALPHA,0
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CALL US50
BTFSC PORTB,0
BSF ALPHA,1
BTFSS PORTB,0
BCF ALPHA,1
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF ALPHA,2
BTFSS PORTB,0
BCF ALPHA,2
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CALL US50
BTFSC PORTB,0
BSF ALPHA,3
BTFSS PORTB,0
BCF ALPHA,3
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
CLRF BETA
BTFSC PORTB,0
BSF BETA,0
BTFSS PORTB,0
BCF BETA,0
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF BETA,1
BTFSS PORTB,0
BCF BETA,1
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF BETA,2
BTFSS PORTB,0
BCF BETA,2
;;;;;;;;;;
CALL TEST
;;;;;;;;;;
CALL T1ms
BTFSC PORTB,0
BSF BETA,3
BTFSS PORTB,0
BCF BETA,3
;;;;;;;;;;
vv
BANK1
MOVLW b'00001111'
MOVWF TRISB
BANK0
MOVF ALPHA,W
BCF STATUS,2
SUBWF BETA,W
BTFSS STATUS,2
GOTO LOOPB
RLF BETA,F
RLF BETA,F
RLF BETA,F
RLF BETA,w
MOVWF PORTB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CALL MS18
CLRF DEBO
CLRF TMR0
GOTO LOOPB
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MS18
MOVLW 0x13 ; ajuste
MOVWF BB
loop3
MOVLW 0xF8; ajuste fine
MOVWF AA ;
lop1
NOP
DECFSZ AA
GOTO lop1
DECFSZ BB
GOTO loop3
RETURN
;;;;;;;;;;;;;;;;;;;;;
T1ms
MOVLW 0xF6
MOVWF AA
LOOP1
NOP
DECFSZ AA
GOTO LOOP1
RETURN
;;;;;;;;;;;;;;;;;;;;
US200
MOVLW 0x30
MOVWF AA
LOOP4
NOP
DECFSZ AA
GOTO LOOP4
RETURN
;;;;;;;;;;;;;;;;;;;
US100
MOVLW 0x17
MOVWF AA
LOP4
NOP
DECFSZ AA
GOTO LOP4
NOP
NOP
RETURN
;;;;;;;;;;;;;;;;
US50
MOVLW 0x9
MOVWF AA
LOPA
NOP
DECFSZ AA
GOTO LOPA
NOP
NOP
RETURN
;;;;;;;;;;;;;;;;
US5
NOP
NOP
NOP
NOP
NOP
RETURN
;;;;;;;;;;;;;;;;
TEST
CALL T1ms
BTFSC PORTB,0
GOTO LOOPB
;;;;;;;;;;
CALL T1ms
BTFSS PORTB,0
GOTO LOOPB
RETURN
;;;;;;;;;;;;;;;;
END
|
|||
|
|
|
2015-06-23, 18:54
|
رقم المشاركة : 29 | |||
|
بورك فيك |
|||
|
|
|
2015-06-23, 18:56
|
رقم المشاركة : 30 | |||
|
رمضلن كريم و صح فطوركم |
|||
|
|
|
| الكلمات الدلالية (Tags) |
| لتحكم, سيارة, فيها |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc
سيارة rc متحكم فيها عن بعد
العرض العادي
