Регистрация | Вход

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ivan_fd  
Форум Picbasic.ru » Обо всем » Заказы » Нужна программа для Pic16f877
Нужна программа для Pic16f877
123neon Дата: Вт, 12.02.2013, 15:35  |                                                                                                                Сообщение # 1
Группа: Проверенные
Ранг:  Новенький
Сообщений: 10
Репутация: 0   ±
Замечания:   ±
На сайте с 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
ЯНДЕКС Дата: 12.02.2013
shaman Дата: Вт, 12.02.2013, 15:51  |                                                                                                                Сообщение # 2
Группа: Проверенные
Ранг:  Могу и подсказать
Сообщений: 178
Репутация: 5   ±
Замечания:   ±
На сайте с 07.11.2011

Статус: Offline

Написал Вам в личку.
123neon Дата: Вт, 12.02.2013, 16:14  |                                                                                                                Сообщение # 3
Группа: Проверенные
Ранг:  Новенький
Сообщений: 10
Репутация: 0   ±
Замечания:   ±
На сайте с 23.03.2011

Статус: Offline

shaman я вам ответил
shaman Дата: Вт, 12.02.2013, 16:26  |                                                                                                                Сообщение # 4
Группа: Проверенные
Ранг:  Могу и подсказать
Сообщений: 178
Репутация: 5   ±
Замечания:   ±
На сайте с 07.11.2011

Статус: Offline

Проверьте личку
Форум Picbasic.ru » Обо всем » Заказы » Нужна программа для Pic16f877
  • Страница 1 из 1
  • 1
Поиск: