M
me_guitarist
Guest
Jeg ønsker å stille GP0, GP1 & GP2 som output men nå bare GP0 & GP1 har utgang, noe galt i koden?
GP2 er ingen produksjon nå ..... kan noen hjelpe?listen p = 10f200
#
include <p10f200.inc>
errorlevel -302; ingen advarsel om register
; *** Processor Configuration *****
__CONFIG _MCLRE_ON & _WDT_OFF & _CP_OFF
;***** Veriables defination *****
UDATA
dc1 res 1
dc2 res 1
dc3 res 1
;***** Oscillator Kalibreringsstasjon Verdi *****
org 0x0000
movwf OSCCAL
;***** Main loop *****
flash1
movlw b'0001 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
flash2
movlw b'0010 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
flash3
movlw b'111111 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
av
movlw b'0 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
goto flash1
;***** Subroutine
delay10; forsinkelse W x 10ms
movwf dc3; forsinkelse = 1 W x (3 10009 3) -1 4 -> B x 10.015ms
dly2 movlw ,13; gjenta indre loop 13 ganger
movwf dc2; -> 13 x (767 3) -1 = 10009 sykluser
clrf dc1; indre loop = 256 x 3 -1 = 767 sykluser
dly1 decfsz dc1, f
goto dly1
decfsz dc2, f
goto dly1
decfsz dc3, f
goto dly2
tilbakeEND
GP2 er ingen produksjon nå ..... kan noen hjelpe?listen p = 10f200
#
include <p10f200.inc>
errorlevel -302; ingen advarsel om register
; *** Processor Configuration *****
__CONFIG _MCLRE_ON & _WDT_OFF & _CP_OFF
;***** Veriables defination *****
UDATA
dc1 res 1
dc2 res 1
dc3 res 1
;***** Oscillator Kalibreringsstasjon Verdi *****
org 0x0000
movwf OSCCAL
;***** Main loop *****
flash1
movlw b'0001 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
flash2
movlw b'0010 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
flash3
movlw b'111111 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
av
movlw b'0 '; konfigurere GPIO som en inngang / utgang: 1 = skriving, 0 = output
movwf GPIO; skrive til GPIO
movlw 0x00
TRIS GPIO
movlw ,20; opphold på for 0.2s
samtale delay10; forsinkelse 20 x 10ms = 200ms
clrf GPIO; slå av lyset
movlw ,80; opphold av for 0.8s
samtale delay10; forsinkelse 80 x 10ms = 800ms
goto flash1
;***** Subroutine
delay10; forsinkelse W x 10ms
movwf dc3; forsinkelse = 1 W x (3 10009 3) -1 4 -> B x 10.015ms
dly2 movlw ,13; gjenta indre loop 13 ganger
movwf dc2; -> 13 x (767 3) -1 = 10009 sykluser
clrf dc1; indre loop = 256 x 3 -1 = 767 sykluser
dly1 decfsz dc1, f
goto dly1
decfsz dc2, f
goto dly1
decfsz dc3, f
goto dly2
tilbakeEND