Форум РадиоКот

Код: Выделить всё

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config portd.2 = Input
Config portd.3 = Input

Config Int0 = Falling
Const Debouncetime = 1

Dim zad_temp As Integer

Set portd.3

On Int0 _int0

zad_temp = 0

Enable Interrupts
Enable Int0

Do
Loop

_int0:
  Waitms Debouncetime
  If portd.2 = 0 Then
    If portd.3 = 0 Then 
       zad_temp=zad_temp+5
    Else
       zad_temp=zad_temp-5
    End if
  End If
  Gifr = 64
Return
End

Код: Выделить всё

$regfile = "m16def.dat"                                     'подключаем файл заголовков для контроллера ATmega16
$crystal = 8000000                                          'частота кварцевого генератора

$baud = 9600                                                'настройка скорости передачи RS-232
$hwstack = 32                                               'аппаратный стек
$swstack = 10                                               'програмный стек
$framesize = 40                                             'размер фрейма

'настраиваем ЖКИ
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2                                         'ЖКИ 2 строки по 16 символов
Cursor Off                                                  'выключить курсор

'VALCODER_________    выводы енкодера(валкодера)
Config Pind.3 = Input                                       'Valcoder A INT1
Valcod_a Alias Pind.3
Config Pina.4 = Input                                       'Valcoder B
Valcod_b Alias Pina.4
Set Portd.3
Set Porta.4

'объявляем переменные
Dim Valcod_param As Byte
Dim Valcod_cange As Bit

Config Int1 = Falling                                       'настраиваем внешнее прерывание INT1 на срабатывание при изменении из "1" в "0"
On Int1 Valcoder_change                                     'подпрограмма обработка прерывания Valcoder_change
Enable Int1                                                 'разрешаем работу прерывания  INT1
Enable Interrupts                                           'разрешаем глобальные прерывания

Cls                                                         'очищаем экран ЖКИ
Locate 1 , 10                                               'задаем позицию курсора
Lcd "Enc=" ; Valcod_param                                   'выводим переменную изменения значения енкодера(валкодера)

Do                                                          'начало цикла

If Valcod_cange = 1 Then                                    'если битовая переменна Valcod_cange = 1 (крутили енкодер(валкодер)
                       Locate 1 , 14                        'то задаем позицию курсора
                       Lcd Valcod_param ; "  "              'выводим переменную изменения значения енкодера(валкодера)
                       Reset Valcod_cange                   'сбрасываем битовую переменную Valcod_cange
                       Sound Buzer , 10 , 500               'генерим звук
End If

Loop                                                        'замыкаем цикл


Valcoder_change:                                            'подпрограмма обработки прерывания INT1
'*******************************************************************************
If Valcod_b = 1 Then                                        'если на линии B лог "1"
                  If Valcod_param <> 255 Then Incr Valcod_param       'то если  переменная Valcod_param не достигла значения 255 увеличиваем ее на 1
                Else                                        'если на линии B лог "0"
                  If Valcod_param <> 0 Then Decr Valcod_param       'то если  переменная Valcod_param не достигла значения 0 уменьшаем ее на 1
End If
Set Valcod_cange                                            'выставляем битовую переменную Valcod_cange
Return                                                      'возврат из подпрогрммы

End                                                         'конец программы

Код: Выделить всё

do
debounce Valcod_a, 0, Valcoder_change,sub
loop
.....
Valcoder_change:
if Valcod_b=0 then Valcod_cange=Valcod_cange+1
else
Valcod_cange=Valcod_cange-1
end if
return

Код: Выделить всё

$regfile = "ATtiny13.dat"

$crystal = 9600000
$hwstack = 16                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 20                                             ' default use 40 for the frame space

Dim Temp1 As Word                                           'временной интервал 1
Dim Temp2 As Word                                           'временной интервал 2
Dim I As Byte                                               'переменная цикла

Led Alias Portb.2                                           'светодиод

Ddrb = &B00000100                                           'направление линий порта B
Portb = &B00000000                                          'гашение порта B

Temp1 = 500                                                 'короткая пауза
Temp2 = 4000                                                'длинная пауза

Do

For I = 1 To 5                                              'повторить 5 раз

Set Led                                                     'зажечь светодиод
Waitms Temp1                                                'короткая пауза

Reset Led                                                   'погасить светодиод
Waitms Temp1                                                'короткая пауза

Next I

Waitms Temp2                                                'длинная пауза

Loop

End