Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Программная инженерия > Микроконтроллеры, робототехника, схемотехника, 3D принтеры
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2019, 11:26   #1
IGRA
Новичок
Джуниор
 
Регистрация: 16.11.2007
Сообщений: 2
По умолчанию PIC12F629 - питание подал - постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит

Добрый день! Помогите пожалуйста написать программу для PIC12F629. Нужен следующий алгоритм: питание подал - постоянно горит светодиод №1, светодиод №2 не горит. Кнопку нажал и держишь, светодиод №1 сразу потух, светодиод №2 горит. Кнопку отпустил - светодиод №2 моргает 3 секунды после чего загорается светодиод №1. Какие ноги будут задействованы разберусь сам из кода. В наличии установлены micropascal pro for pic и mplab ide. Схему накидаю в Протеусе сам. Плз...
IGRA вне форума Ответить с цитированием
Старый 26.05.2022, 14:06   #2
Nif-naf
Форумчанин
 
Аватар для Nif-naf
 
Регистрация: 05.09.2016
Сообщений: 131
По умолчанию

Код:
#include "p12f629.inc"
_config _intRC_OSC_NOCLKOUT&_LVP_OFF&_WDT_OFF&_PWRTE_ON&_BODEN_ON
d equ 30
org0
goto start
org4
bcf INTCON, T0IF
movlw 1
movwf d
reti
start
banksel OSCCAL
clrf OSCCAL
bsf OSCCAL, CAL5
banksel GPIO
clrf GPIO
movlw 7
movwf CMCON
banksel TRISIO
movlw h'0C'
movwf TRISIO
banksel OPTION
movlw h'D7'
movwf OPTION
banksel WPU
clrf WPU
banksel INTCON
bsf INTCON,GIE
bsf INTCON,T0IE
bcf INTCON,T0IF
banksel GPIO
loop
bsf GPIO,GP0
bcf GPIO,GP1
wait
movf GPIO,1
btfsc GPIO,2
goto wait
bcf GPIO,GP0
bsf GPIO,GP1
call delay
bsf GPIO,GP0
bcf GPIO,GP1
call delay
bcf GPIO,GP0
bsf GPIO,GP1
delay
clrf d
del
btfsc d,0
goto del
clrf d
ret
goto loop
end
Немного о GoAsm.
Nif-naf вне форума Ответить с цитированием
Старый 26.05.2022, 14:31   #3
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

На пару лет опоздали! Хоть бы отступы добавили (столько времени было)
macomics вне форума Ответить с цитированием
Старый 27.05.2022, 14:20   #4
Nif-naf
Форумчанин
 
Аватар для Nif-naf
 
Регистрация: 05.09.2016
Сообщений: 131
По умолчанию

Код:
#include "p12f629.inc"
_config _HS_OSC&_CP_OFF&_WDT_OFF&_PWRTE_OFF&_BODEN_ON
d equ 30
org0
goto start
org4
bcf INTCON, T0IF
movlw 1
movwf d
retfie
start
banksel OSCCAL
call 3FFh
movwf OSCCAL
banksel GPIO
clrf GPIO
movlw 7
movwf CMCON
banksel TRISIO
movlw h'0C'
movwf TRISIO
banksel OPTION
movlw h'D7'
movwf OPTION
banksel WPU
clrf WPU
banksel INTCON
bsf INTCON,GIE
bsf INTCON,T0IE
bcf INTCON,T0IF
banksel GPIO
loop
bsf GPIO,GP0
bcf GPIO,GP1
wait
movf GPIO,1
btfsc GPIO,2
goto wait
bcf GPIO,GP0
bsf GPIO,GP1
call delay
call delay
delay
clrf d
del
btfss d,0
goto del
retlw
goto loop
end
этот мк фсе обходят
Немного о GoAsm.

Последний раз редактировалось Nif-naf; 28.05.2022 в 05:51.
Nif-naf вне форума Ответить с цитированием
Старый 30.05.2022, 06:32   #5
Nif-naf
Форумчанин
 
Аватар для Nif-naf
 
Регистрация: 05.09.2016
Сообщений: 131
По умолчанию

Цитата:
Сообщение от Nif-naf Посмотреть сообщение
Код:
#include "p12f629.inc"
_config _intRC_OSC_NOCLKOUT&_LVP_OFF&_WDT_OFF&_PWRTE_ON&_BODEN_ON
d equ 30
org0
goto start
org4
bcf INTCON, T0IF
movlw 1
movwf d
reti
start
banksel OSCCAL
clrf OSCCAL
bsf OSCCAL, CAL5
banksel GPIO
clrf GPIO
movlw 7
movwf CMCON
banksel TRISIO
movlw h'0C'
movwf TRISIO
banksel OPTION
movlw h'D7'
movwf OPTION
banksel WPU
clrf WPU
banksel INTCON
bsf INTCON,GIE
bsf INTCON,T0IE
bcf INTCON,T0IF
banksel GPIO
loop
bsf GPIO,GP0
bcf GPIO,GP1
wait
movf GPIO,1
btfsc GPIO,2
goto wait
bcf GPIO,GP0
bsf GPIO,GP1
call delay
bsf GPIO,GP0
bcf GPIO,GP1
call delay
bcf GPIO,GP0
bsf GPIO,GP1
delay
clrf d
del
btfsc d,0
goto del
clrf d
ret
goto loop
end
Примечание. Заменить _INTRC_osc -> INTOSC_OSC, reti -> retfie, ret->retlw, btfsc d,0-> btfss и учесть rmw
Немного о GoAsm.
Nif-naf вне форума Ответить с цитированием
Старый 30.05.2022, 11:42   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Любители некропостов так просто не сдаются!
digitalis вне форума Ответить с цитированием
Старый 31.05.2022, 14:04   #7
Nif-naf
Форумчанин
 
Аватар для Nif-naf
 
Регистрация: 05.09.2016
Сообщений: 131
По умолчанию

Вот из последнего.
Кварц 16 МГц.
Код:
#include "p12f629.inc"
_config _MCLRE_OFF&_HS_OSC&_CP_OFF&_WDT_OFF&_PWRTE_ON&_BODEN_ON
d equ 21
Reg equ 22
org0
goto start
org4
bcf INTCON, T0IF
incf d,1
btfsc d,7
clrf d
retfie
start
banksel OSCCAL
call 3FFh
movwf OSCCAL
banksel GPIO
clrf GPIO
movlw 7
movwf CMCON
banksel TRISIO
movlw h'0C'
movwf TRISIO
banksel OPTION_REG
movlw h'D7'
movwf OPTION_REG
banksel WPU
clrf WPU
banksel INTCON
bsf INTCON,GIE
bsf INTCON,T0IE
bcf INTCON,T0IF
banksel GPIO
loop
clrf Reg
bsf Reg,0
bcf Reg,1
bsf Reg,2
movf Reg,0
movwf GPIO
wait
movf GPIO,1
btfsc GPIO,2
goto wait
clrf Reg
bcf Reg,0
bsf Reg,1
bsf Reg,2
movf Reg,0
movwf GPIO
call delay
goto loop
delay
clrf d
del
btfss d,6
goto del
retlw
end
Кнопка на 0 -> GP2, GP0 и GP1 светодиоды
Немного о GoAsm.
Nif-naf вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Счетчик с выходом на светодиод FCJuventus Микроконтроллеры, робототехника, схемотехника, 3D принтеры 15 01.12.2018 20:13
постоянно горит красная лампочка - перегружен винчестер beegl Компьютерное железо 13 14.04.2015 15:05
Светодиод в LPT mutabor Компьютерное железо 9 31.08.2010 14:21
Добавить светодиод. Delphi WandererX Помощь студентам 6 04.06.2010 21:54
Подскажите! Как подключить к ПК фотоэлемент и светодиод, и управлять ими программно? Vadix Помощь студентам 14 28.09.2009 15:42