Чт июл 06, 2017 20:38:37
Чт июл 06, 2017 20:49:34
Config Timer1 = Timer , Prescale = 256 , Clear Timer = 1 ' 1/8000000 = 0,125мкс * 256 * 31250 = 1 cек
Compare1a = &H7A12 ' конфигурация регистра сравнения, для отсчета 1 секунды
On Oc1a 1_sec ' вектор прерывания совпадения Т1
Enable Interrupts ' разрешаем прерывания
Enable Oc1a ' по совпадению в том числе
'----------
Do
Loop
'----------
1_sec: ' обработка прерывания отсчета 1 секунды
.....................
Return
Пт июл 07, 2017 07:15:02
Config Clock = Soft
enable interrupts
$regfile = "m32def.dat"
$crystal = 8000000
config clock = soft
enable interrupts
do
'ваша программа с анализом переменной _sec
'что-то типа
if _sec = 0 then моргнуть светодиодом
loop
$regfile = "m32def.dat"
$crystal = 8000000
config clock = soft
enable interrupts
do
'ваша программа с анализом переменной _sec
'что-то типа
if _sec = 0 then моргнуть светодиодом
powersave
loop
Пт июл 07, 2017 07:24:42
Пт июл 07, 2017 07:30:46
Пт июл 07, 2017 09:01:16
Пт июл 07, 2017 09:13:02
Пт июл 07, 2017 11:29:44
Gordon Shumway писал(а):а я как раз на эту же тему развлекаюсь в данный момент
Пт июл 07, 2017 14:12:32
Пт июл 07, 2017 14:22:52
Пт июл 07, 2017 14:36:05
Ср июл 12, 2017 12:13:08
Ср июл 12, 2017 14:05:21
Ср июл 12, 2017 14:22:37
Ср июл 12, 2017 15:04:43
Ср июл 12, 2017 17:06:49
Ср июл 12, 2017 17:09:14
OLEGKARAS писал(а):Как все сложно в этом баском
Ср июл 12, 2017 17:11:16
Ср июл 12, 2017 17:34:20
Ср июл 12, 2017 18:03:22