|
Нужна программа для Pic16f877
|
|
| 123neon |
Дата: Вт, 12.02.2013, 15:35 | Сообщение # 1 |
![]( "123neon")
Группа:
Проверенные
Ранг:
Новенький
Сообщений:
10
Замечания:
±
На сайте с 23.03.2011
Статус:
Offline
|
Нужна прграмма для Pic16f877 для включения 32 светодиодов, сначала горят 16 шт включаются по очереди и всетятся пока не загорятся все 16, потом вторые 16 шт. и так по кругу. Нужна еще вчера.
У меня есть одна прога но она выснит в протеусе после 8 круга может быть в ней что исправить (не мной писана где взял не вспомню)
LIST P=16F877
#INCLUDE "P16F877.INC"
SAYAC1 EQU 0X20
SAYAC2 EQU 0X21
SAYAC3 EQU 0X22
ORG 0X00
GOTO BASLIYOR
BASLIYOR
CLRF PORTA
CLRF PORTB
CLRF PORTC
CLRF PORTD
CLRF PORTE
BSF STATUS,5
CLRF TRISA
CLRF TRISB
CLRF TRISC
CLRF TRISD
CLRF TRISE
BCF STATUS,5
BCF OPTION_REG,7
MOVLW B'10000000'
MOVWF PORTD
CALL GECIKME
MOVLW B'11000000'
MOVWF PORTD
CALL GECIKME
MOVLW B'11100000'
MOVWF PORTD
CALL GECIKME
MOVLW B'11110000'
MOVWF PORTD
CALL GECIKME
MOVLW B'11111000'
MOVWF PORTD
CALL GECIKME
MOVLW B'11111100'
MOVWF PORTD
CALL GECIKME
MOVLW B'11111110'
MOVWF PORTD
CALL GECIKME
MOVLW B'11111111'
MOVWF PORTD
CALL GECIKME
MOVLW B'10000000'
MOVWF PORTC
CALL GECIKME
MOVLW B'11000000'
MOVWF PORTC
CALL GECIKME
MOVLW B'11100000'
MOVWF PORTC
CALL GECIKME
MOVLW B'11110000'
MOVWF PORTC
CALL GECIKME
MOVLW B'11111000'
MOVWF PORTC
CALL GECIKME
MOVLW B'11111100'
MOVWF PORTC
CALL GECIKME
MOVLW B'11111110'
MOVWF PORTC
CALL GECIKME
MOVLW B'11111111'
MOVWF PORTC
CALL GECIKME
CLRF PORTA
CLRF PORTB
CLRF PORTC
CLRF PORTD
CLRF PORTE
MOVLW B'10000000'
MOVWF PORTB
CALL GECIKME
MOVLW B'11000000'
MOVWF PORTB
CALL GECIKME
MOVLW B'11100000'
MOVWF PORTB
CALL GECIKME
MOVLW B'11110000'
MOVWF PORTB
CALL GECIKME
MOVLW B'11111000'
MOVWF PORTB
CALL GECIKME
MOVLW B'11111100'
MOVWF PORTB
CALL GECIKME
MOVLW B'11111110'
MOVWF PORTB
CALL GECIKME
MOVLW B'11111111'
MOVWF PORTB
CALL GECIKME
MOVLW B'00000001'
MOVWF PORTA
CALL GECIKME
MOVLW B'00000011'
MOVWF PORTA
CALL GECIKME
MOVLW B'00000111'
MOVWF PORTA
CALL GECIKME
MOVLW B'00001111'
MOVWF PORTA
CALL GECIKME
MOVLW B'00011111'
MOVWF PORTA
CALL GECIKME
MOVLW B'00111111'
MOVWF PORTA
CALL GECIKME
MOVLW B'00000001'
MOVWF PORTE
CALL GECIKME
MOVLW B'00000011'
MOVWF PORTE
CALL GECIKME
MOVLW B'00000111'
MOVWF PORTE
CALL GECIKME
CLRF PORTA
CLRF PORTE
GECIKME
MOVLW D'25'
MOVWF SAYAC1
DON_C MOVLW D'25'
MOVWF SAYAC2
DON_B MOVLW D'25'
MOVWF SAYAC3
DON_A DECFSZ SAYAC3
GOTO DON_A
DECFSZ SAYAC2
GOTO DON_B
DECFSZ SAYAC1
GOTO DON_C
RETURN
END
Сообщение отредактировал
123neon - Вт, 12.02.2013, 15:39
|
|
|
|
| shaman |
Дата: Вт, 12.02.2013, 15:51 | Сообщение # 2 |
Группа:
Проверенные
Ранг:
Могу и подсказать
Сообщений:
178
Замечания:
±
На сайте с 07.11.2011
Статус:
Offline
|
Написал Вам в личку.
|
|
|
|
| 123neon |
Дата: Вт, 12.02.2013, 16:14 | Сообщение # 3 |
![]( "123neon")
Группа:
Проверенные
Ранг:
Новенький
Сообщений:
10
Замечания:
±
На сайте с 23.03.2011
Статус:
Offline
|
shaman я вам ответил
|
|
|
|
| shaman |
Дата: Вт, 12.02.2013, 16:26 | Сообщение # 4 |
|
Группа:
Проверенные
Ранг:
Могу и подсказать
Сообщений:
178
Замечания:
±
На сайте с 07.11.2011
Статус:
Offline
|
Проверьте личку
|
|
|
|
