roboforum.ru

а как выключать?

В общем тебе нужно по нажатию кнопки его включать (1 посылать насколько я понял) а по отпусканию выключать (0). Если ты реализовать без задержки хочешь, то надо настраивать прерывание по Rizing а потом по Falling

galex1981 писал(а):надо настраивать прерывание по Rizing а потом по Falling

а как это? можете показать?

В статье между прочим написано http://www.decada.org.ru/project/lesson ... /index.php

ыЫ) спасиб, нашел

а как написать такую программу:
подключил 5 светодиодов, и када включаю все по очереди мигают по 1сек, и после первого круга, первые 2светодиоды не мигают, тока остальные 3ое по очереди мигают

Код: Выделить всё • Развернуть

Do
Portd.1 = 1             )
Waitms 1000             )
Portd.2 = 1             )
Waitms 1000             )
Portd.3 = 1             )1ый круг   )   
Waitms 1000             )           )
Portd.4 = 1             )           ) 2,3,4... круг...
Waitms 1000             )           )
Portd.5 = 1             )           )
Waitms 1000             )           )
 loop

даю подсказку - это маска:

1 круг: 11111111 = FF = 255
2 круг: 00111111 = 3F = 63
3 круг: 00001111 = 0F = 15
4 круг: 00000011 = 03 = 3

Код: Выделить всё • Развернуть

Do
Portd.1 = 1             
Waitms 255             
Portd.2 = 1             
Waitms 255             
Portd.3 = 1              
Waitms 3            
Portd.4 = 1             
Waitms 3             
Portd.5 = 1             
Waitms 3             
 loop

так?

мм не совсем
в примере я хотел показать что можно использовать маску... Ведь не обязательно использовать управление отдельным выводом, как сейчас.
Допустим нам нужно включить светодиоды на первом, третьем и шестом выводах порта D, а остальные выключить. Это можно сделать написав такой код

Код: Выделить всё • Развернуть

Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0
Portd.4 = 0
Portd.5 = 1
Portd.6 = 0
Portd.7 = 0

Но можно записывать значение сразу для всех выводов 01000101 = 25 = 37, записывая значение сразу всего порта

Код: Выделить всё • Развернуть

portd = 37

Эти два фрагмента выполняют одну и ту же задачу!

Ближе к примеру,
круг 1 - включение светодиодов 1-8

Код: Выделить всё • Развернуть

portd = 255 = 11111111

круг 2 - включение светодиодов 1-6

Код: Выделить всё • Развернуть

portd = 63 = 00111111

круг 3 - включение светодиодов 1-4

Код: Выделить всё • Развернуть

portd = 15 = 00001111

круг 4 - включение светодиодов 1-2

Код: Выделить всё • Развернуть

portd = 3 = 00000011

Если посмотреть на пример, то можно заметить, что перед каждым кругом у нас смещаются единички вправо

Код: Выделить всё • Развернуть

11111111
00111111

Воспользуемся справкой по Bascom, нет ли там какой-либо функции которая может осуществлять свдиг (shifting) битов. Оказывается есть:

Код: Выделить всё • Развернуть

Shift

если ей воспользоваться можно получить, например, такой код

Код: Выделить всё • Развернуть

    $regfile = "m32def.dat"
    $crystal = 16000000

    Config Pind.0 = Output
    Config Pind.1 = Output
    Config Pind.2 = Output
    Config Pind.3 = Output
    Config Pind.4 = Output
    Config Pind.5 = Output
    Config Pind.6 = Output
    Config Pind.7 = Output

    Dim Wtime As Byte
    Dim Mymask As Byte

    Cls

    Wtime = 200
    Mymask = 255

    Do
      Portd = Mymask
      Waitms Wtime
      Shift Mymask , Right , 2
    Loop

    End

Данный код сначала включает все светодиоды (111111111 = FF = 255), потом выключает по два начиная с тех, которые подключены к выводам 7 и 6 соответственно..

Теперь о том как заставить их мигать по очереди. 8 светодиодов - 8 выводов, если хочется чтобы они мигали по очереди, надо понять как это происходит. Пусть сначала будет включен самый "правый" светодиод, остальные выключены: 00000001 = 01 = 1
Теперь включаем второй светодиод, а первый выключаем: 00000010 = 02 = 2
Дальше третий - 00000100 = 04 = 4 и тд
Очевидно, что опять перемещается битик (только теперь вправо), а значит можно опять воспользоваться функцией SHIFT!

Код: Выделить всё • Развернуть

    $regfile = "m32def.dat"
    $crystal = 16000000

    Config Pind.0 = Output
    Config Pind.1 = Output
    Config Pind.2 = Output
    Config Pind.3 = Output
    Config Pind.4 = Output
    Config Pind.5 = Output
    Config Pind.6 = Output
    Config Pind.7 = Output

    Dim Wtime As Byte
    Dim Mymask As Byte

    Cls

    Wtime = 200
    Mymask = 1

    Do
      Portd = Mymask
      Waitms Wtime
      Shift Mymask , left, 1
    Loop

    End

Данный код последовательно будет включать/выключать светодиоды, начиная с 1-го

Препоследний шаг.. есть такая вещь как битовые операцииПочитайте обязательно, это азы и без них никуда
Пытаемся объеденить полученные знания.

Для удобства введем маску

Код: Выделить всё • Развернуть

Dim Mymask As Byte
Mymask = 255

которая соответствует тому, какие светодиоды можно включать (начальное значение - это значение на первом круге: 255 = FF = 11111111 - те на первом круге можно включать все светодиоды).

Введем еще одну маску

Код: Выделить всё • Развернуть

Dim Myleds As Byte
Myleds = 1

она будет соответствовать тому, какие светодиоды будут включены (начальное значение один светодиод справа - 1 = 01 = 00000001)

Перменная

Код: Выделить всё • Развернуть

Dim Portstatus As Byte  

будет хранить состояние порта

Воспользовавшись логической операцией AND получим то значение, которое необходимо записывать в порт

Код: Выделить всё • Развернуть

Portstatus = Myleds And Mymask
Portd = Portstatus

предположим, у нас 2 круг, значит Mymask = 00111111
и нам нужно включить 3 светодиод, значит Myleds = 00000100
в результате операции AND в переменную Portstatus запишется значение 00000100
значения для других кругов и других светодиодов настойтельно рекомендую сверить самому!

В принципе программа почти готова, осталось добавить совсем чуть чуть автоматизации

Код: Выделить всё • Развернуть

$regfile = "m32def.dat"
    $crystal = 16000000

    Config Pind.0 = Output
    Config Pind.1 = Output
    Config Pind.2 = Output
    Config Pind.3 = Output
    Config Pind.4 = Output
    Config Pind.5 = Output
    Config Pind.6 = Output
    Config Pind.7 = Output

    Dim Wtime As Byte
    Dim Mymask As Byte
    Dim Myleds As Byte
    Dim Portstatus As Byte

    Cls

    'начальные значения
    Wtime = 200
    Mymask = 255
    Myleds = 1

    ' основной цикл программы
    Do
      Do                                                    ' цикл мигания свтодиодами
      Portstatus = Myleds And Mymask                        ' рассчитываем состояние порта
      Portd = Portstatus                                    ' записывае полученное значение в порт
      Waitms Wtime                                          ' пауза
      Shift Myleds , Left , 1                               ' сдвигаем маску влево, в следущий раз зажгется другой светодиод
      Loop Until Portstatus = 0                             ' выполняем цикл до тех пор пока состояние порта не вернет 0, те все светодиоды выключены
    Myleds = 1                                              ' сбарсываем позицию светодиода который нужно включить
    Shift Mymask , Right , 2                                ' круг прошел, сдвигаем маску, в следующий раз два светодиода включать будет уже нельзя
    If Mymask = 0 Then Mymask = 255                         ' если маска равна 0 значит пора опять разрешить включать все светодиоды
    Loop

    End

знаю что не в тему... но ради такого простого вопроса не стал тему открывать...
короч проблема вот в чем, помогите если знаете...
прога довольно простая

Код: Выделить всё • Развернуть

If Pinb.4 = 1 Then                                          
  Portb.0 = 1 
  Waitms 100
  Else
  Portb.0 = 0
  End If

вот собсна...

у меня светодиод на В1... и кнопка на В4... когла нажимаю на кнопку светодиод мигает по задержке 100мс... а у меня должен по нажатию кнопки гореть а не мигать... как можно исправить? но раньше так работало, может в схеме где то? но схему не трогал совсем... поставил другой мк вся та же ошибка... помогите

а вы не думали, что программа дальше делает?

Светодиод на b1 а код на b0 Portb.0 = 1...

ааа да... светодиод на В.0) что дальше делает нет, он даже не может выполнить эту программу так как я хочу...

Слушай, выложи весь код, тогда может и разберемся в чем дело